home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / XBBS_118.ZIP / SAMPLES.ZIP / SPAWNBBS.BAT < prev    next >
Encoding:
DOS Batch File  |  1992-01-28  |  2.3 KB  |  118 lines
  1. @Echo off
  2.  
  3. REM  sample batch file for use with XBBS (this was a real working batch
  4. REM  file; that's probably why it's so ugly)
  5.  
  6.  
  7. Break off
  8. C:
  9. CD\XBBS
  10. if "%1" == "0" goto Quick_Log
  11.  
  12.  
  13. REM  remote user logging on
  14.  
  15. :Online
  16. Echo %1 > C:\xbbs\%1.bad
  17. LOG c:\xbbs\xbbs.log Binkley passed %1 %2 %3
  18. F:\LOGON.EXE %1 %3
  19. goto First_X
  20.  
  21.  
  22. REM  sysop logging on
  23.  
  24. :Quick_Log
  25. if Exist Local.bad goto Regular
  26. Echo Local > C:\xbbs\Local.bad
  27. XLog Hector_Plasmic
  28. goto First_X
  29.  
  30. :Regular
  31. F:\LOGON.EXE 0 999
  32.  
  33.  
  34. REM  main BBS loop
  35.  
  36. :First_X
  37. if ERRORLEVEL == 253 goto Done_X
  38. C:
  39. cd\XBBS
  40. F:\Logon.EXE -RSpecheck.XBS
  41. REM Above starts at Specheck.?BS
  42. goto After_X
  43.  
  44.  
  45. REM  intermediate loop for exits
  46.  
  47. :Restart_X
  48. C:
  49. cd\XBBS
  50. F:\logon.EXE -R
  51. REM logon.EXE -RMENUNAME.XBS   would start at menu MENUNAME.?BS
  52. REM logon.EXE -R   starts at MAIN.?BS
  53.  
  54.  
  55. REM  main exit loop
  56.  
  57. :After_X
  58. if ERRORLEVEL == 253 goto Done_X
  59. if ERRORLEVEL == 7 call e:\ct\runctdl.bat 15
  60. REM  253=logoff/timeout/carrier loss, 254=BBS error, 255=DOS stack error
  61. REM  Any others would be user-defined
  62. goto Restart_X
  63.  
  64.  
  65. REM  bbs is finished; do some randomizing
  66.  
  67. :Done_X
  68. DTR OFF
  69. DTR ON
  70. AT S0=0
  71. QUOTEMKR /HC:\XBBS\QUOTE\HEADER.XBS /FC:\XBBS\QUOTE\FOOTER.XBS C:\XBBS\MENU\LOGO.XBS C:\XBBS\MENU\GOODBYE2.XBS
  72. Echo h >> C:\XBBS\Menu\GOODBYE2.XBS
  73. Echo        ...You are now In The Pit... >> C:\XBBS\Menu\LOGO.XBS
  74. DELAY 0 S
  75. if ERRORLEVEL==40 goto Skip2
  76. if ERRORLEVEL==20 goto Skip1
  77. copy c:\xbbs\menu\weird1.gbs c:\xbbs\menu\goodbye.gbs
  78. goto Import
  79. :Skip1
  80. copy c:\xbbs\menu\weird2.gbs c:\xbbs\menu\goodbye.gbs
  81. goto Import
  82. :Skip2
  83. copy c:\xbbs\menu\weird3.gbs c:\xbbs\menu\goodbye.gbs
  84.  
  85.  
  86. REM  import user-upload mail packets
  87.  
  88. :Import
  89. if not exist c:\xbbs\mport\*.rpk goto Import2
  90. REM  XHMS mail
  91. C:
  92. CD\XBBS
  93. copy \xbbs\mport\*.rpk \temp
  94. log xbbs.log Importing user packet...
  95. XGATEKPR.EXE
  96. del \xbbs\mport\*.rpk
  97. goto Start
  98.  
  99. :Import2
  100. if not exist c:\xbbs\mport\00000000.mo? goto End
  101. REM  Type 2 mail
  102. C:
  103. CD\XBBS
  104. copy c:\xbbs\mport\00000000.mo? c:\temp
  105. log xbbs.log Importing user FTN packet...
  106. XST -AC:\BT\PKXARC -CXPOINTS.CTL -FC:\XBBS\MPORT -OC:\BT\fidonet -PC:\XBBS\MESS -#5 -L
  107. cd\bt
  108. makearc.exe
  109. del c:\xbbs\mport\00000000.mo?
  110. goto Start
  111.  
  112.  
  113. REM  we're done now
  114.  
  115. :End
  116. REM  restart main mailer batch file
  117. RUNXBBS.BAT
  118.