home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / fidofly2 / fidofly.scr < prev    next >
Text File  |  1991-01-13  |  3KB  |  133 lines
  1. script
  2. clear variables
  3. clear screen
  4.  
  5. ; FIDOFLY SCRIPT--To be used together with FIDOFLY.PRG
  6. ;
  7. ; by Bryan Stoll (aka Flypaper)
  8. ;  Version 1.0 Copyright 1990 -- Mentality, Inc.
  9. ;
  10. ;  Call THE MENTALITY BBS (619)324-6894
  11.  
  12. ;============  EDIT THE NEXT LINES  ===================
  13. define bbs = 'D:\'                      ;BBS Path      
  14. define ffpath = 'D:\MENUHELP\'          ;FidoFly Path  
  15. define call = 'CALL.LOG'                ;Call Log file 
  16. ;======================================================
  17. define cd
  18. define message
  19. define name = &02
  20. define timeleft = &13
  21. define fdlevel
  22. define access = 999   ; The area number for FD (1-128) or 999 for all.
  23. define local = 'N'
  24. define answer
  25.  
  26. if command_level (32)
  27.      fdlevel = 32766
  28. ef command_level (2)
  29.      fdlevel = 10000
  30. ef command_level (1)
  31.      fdlevel = 1
  32. endif
  33.  
  34. if command_level (32) then
  35.      goto menu
  36. else
  37.      gosub setup
  38.      gosub fidodoor
  39.      exit
  40. endif
  41. exit
  42.  
  43. setup:
  44. open ('[FFPATH]fidofly.usr',output)
  45.     fprinte name
  46.     fprinte timeleft
  47.     fprinte fdlevel
  48.     fprinte access
  49.     fprinte local
  50. close
  51. return
  52.  
  53. menu:
  54. clear screen
  55. printe
  56. printe ('FIDOFLY SysOp Menu',center)
  57. printe
  58. printe
  59. printe ('1 -- Access FidoDoor          ',center)
  60. printe ('2 -- FidoDoor System Generator',center)
  61. printe ('3 -- Check for new messages   ',center)
  62. printe ('4 -- Exit SysOp Menu          ',center)
  63. printe
  64. printe
  65. print ('Command:\{Hit RETURN for #1\}  ')
  66. answer = get_key
  67.  
  68. if answer = 2 then
  69.      printe ('FidoDoor Sys. Gen.')
  70.      gosub sysop
  71.      gosub setup
  72.      message = '     *->  Accessed FidoDoor System Generator  <-*'
  73.      gosub calllog
  74.      gosub fdsysgen
  75.      goto menu
  76. ef answer = 3 then
  77.      printe ('New Messages')
  78.      gosub sysop
  79.      gosub setup
  80.      message = '     *->  Checked for new messages within FidoDoor  <-*'
  81.      gosub calllog
  82.      gosub new
  83.      goto menu
  84. ef answer = 4 then
  85.      printe ('Later...')
  86.      cd = file_chgdir ('[BBS]')
  87.      exit
  88. else
  89.      printe ('Now entering FidoDoor')
  90.      gosub sysop
  91.      gosub setup
  92.      message = '     *->  Accessed FidoDoor  <-*'
  93.      gosub calllog
  94.      gosub fidodoor
  95.      goto menu
  96. endif
  97.  
  98. fidodoor:
  99. cd = file_chgdir ('[FFPATH]')
  100. tos ('fidofly.ttp')
  101. cd = file_chgdir ('[BBS]')
  102. return
  103.  
  104. new:
  105. cd = file_chgdir ('[FFPATH]')
  106. tos ('fidofly.ttp','NEW')
  107. cd = file_chgdir ('[BBS]')
  108. return
  109.  
  110. fdsysgen:
  111. cd = file_chgdir ('[FFPATH]')
  112. tos ('fidofly.ttp','SYSTEM')
  113. cd = file_chgdir ('[BBS]')
  114. return
  115.  
  116. sysop:
  117. print ('Are you local\{Y/n\}?  ')
  118. answer = get_key
  119. if answer = n
  120.      printe ('No')
  121.      local = 'N'
  122. else
  123.      printe ('Yes')
  124.      local = 'Y'
  125. endif
  126. return
  127.  
  128. calllog:
  129. open ('[BBS][CALL]',append)
  130.      fprinte message
  131. close
  132. return
  133.