home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / stqwk145 / fidodoor.scp < prev    next >
Text File  |  1993-04-26  |  2KB  |  108 lines
  1. ; FIDOdoor script for RATSoft 1.0 by WizOp*Lee (ISIS Node #7)
  2. ;
  3. ; This script file is designed to load FIDOdoor and present the caller
  4. ; with the Message Areas menu.  I will be making a scan script to give
  5. ; a pseudo QuickScan of FIDOdoor bases.  Check with me for it.
  6. ; This script is designed with the assumption you are using 1.6h
  7. ; of RATSoft.  Date of this file is October 5, 1992
  8. ;
  9. ; Change the 19 to 1 below the overall level you will require
  10. start_over:
  11. l#=VAL("&42")
  12. IF l#>4
  13. ELSE
  14.   OUT
  15.   CENTER "Access to Fido Door is limited. The SysOp will have to"
  16.   CENTER "validate your account before you will be granted access..."
  17.   OUT
  18.   EXIT
  19. ENDIF
  20. ; Change this to your FIDOdoor path
  21. p$="D:\RATSOFT\FIDODOOR\"
  22. q$="D:\ST_QWK\"
  23. n$="&14"
  24. a$="&05"
  25. l$="&07"
  26. m$="&04"
  27. IF l$="Unlimited"
  28.   l$="255"
  29. ENDIF
  30. ; Determine translation. This is rough, but it should work...
  31. t$="&30"
  32. IF INSTR(t$,"VT",0)>FALSE
  33.   t$="1"
  34. ELSE IF INSTR(t$,"ANS",0)>FALSE
  35.   t$="2"
  36. ELSE
  37.   t$="0"
  38. ENDIF
  39. IF m$="38400"
  40.   m$="-LO "
  41.   ;  s#=32766
  42. ELSE
  43.   m$=""
  44.   ; Later, the following will contain level checks if it is necessary!
  45.   ;  s#=5
  46. ENDIF
  47. IF l#=255
  48.   s#=32766
  49. ELSE
  50.   s#=5
  51. ENDIF
  52. ; Here we go.....
  53. runit:
  54. OUT
  55. OUT "&90"
  56. OUT
  57. OUT "&59 = Acme Bulletin Board System - Doorway to Networks! = &50"
  58. OUT
  59. OUT "   &52[&51A&52]&50 - Read Messages &51Online&50 with Fido Door"
  60. OUT "   &52[&51B&52]&50 - Read Messages &51Offline&50 with a QWK reader"
  61. OUT
  62. OUT "Select or &52[&51RETURN&52]&50 to exit: ";
  63. z$=UPPER$(KEY$)
  64. IF z$="A" OR z$="1"
  65.   CHDIR p$
  66.   OUT "&90"
  67.   c$=m$+"-NH -GT "+t$+q$+" -NAME "+n$+" -AL "+a$+" -TL "+l$+" -UL "+STR$(s#)
  68.   OUT
  69.   CENTER "Loading Fido Door...(&30 mode)"
  70.   LOG "&05 Entered Fido Door at &02"
  71.   WIN_OFF
  72.   SHELL("FIDODOOR.TTP",c$)
  73.   WIN_ON
  74.   LOG "&05 Exited Fido Door at &02"
  75.   OUT
  76.   OUT
  77.   CENTER "Returning to &09..."
  78.   OUT
  79.   CHDIR CONFIG$(25)
  80. ELSE IF z$="B" OR z$="2"
  81.   CHDIR q$
  82.   OUT "Loading QWK Door..."
  83.   OUT
  84.   b$="0"
  85.   c$="&30"
  86.   IF c$="VT52 Color"
  87.     b$="1"
  88.   ELSE IF c$="ANSI Color"
  89.     b$="2"
  90.   ENDIF
  91.   c#=VAL("&04")
  92.   c$=STR$(c#)
  93.   IF VAL("&04")=38400
  94.     SHELL("D:\ST_QWK\ST_QWK.TTP","-NAME &14 -LOCAL -GT "+b$)
  95.   ELSE
  96. ;       OUT "QWK Door temporarily closed."
  97. ;       OUT 
  98.     SHELL("D:\st_QWK\st_qwk.TTP","-NAME &14 -BAUD "+c$+" -GT "+b$)
  99.   ENDIF
  100. ELSE IF a$="?"
  101.   OUT "Menu"
  102.   GOTO start_over
  103. ELSE
  104.   OUT "Exit"
  105.   EXIT
  106. ENDIF
  107. GOTO start_over
  108.