home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / dosbbs2.zip / GO.BAT < prev    next >
DOS Batch File  |  1993-08-14  |  4KB  |  136 lines
  1. @echo off
  2. set NODE=%1
  3. SET VID=D:\ROBOBBS\VID
  4. SET MBU=D:\FD\MBUTIL\MBUTIL.CTL 6
  5. SET ROBO=D:\ROBOBBS
  6. d:
  7. cd\util
  8. rem MODE COM1:38400,N,8,1,TO=OFF,XON=OFF,IDSR=OFF,ODSR=OFF,OCTS=ON,DTR=ON,RTS=ON
  9. rem MODE COM1:BAUD=38400 PARITY=N DATA=8 STOP=1 to=off xon=off odsr=off dtr=on rts=on idsr=off
  10. rem D:\UTIL\BNU.COM /L0:38400,8N1 /P=1 /T:256 /R:2048 /M
  11. X00 E 1 B,0,38400 F=15 T=512 R=2048
  12.  
  13. :TOP
  14.         cls
  15.         D:
  16.         cd\robobbs
  17.         if exist CHK_MAIL.NOW del CHK_MAIL.NOW
  18.         E:
  19.         cd\dgames\bre
  20.         if exist inuse.flg del inuse.flg
  21.         d:
  22.         cd\FD
  23.         echo Firing up THE SNAKE PIT!
  24.         FD
  25.         cd\robobbs
  26.  
  27.         if errorlevel 255 goto DONE
  28.         if errorlevel 250 ROBOGR -baud=19200 -txt=%NODE%
  29.         if errorlevel 245 ROBOGR -baud=16800 -txt=%NODE%
  30.         if errorlevel 240 ROBOGR -baud=14400 -txt=%NODE%
  31.         if errorlevel 237 ROBOGR -baud=12000 -txt=%NODE%
  32.         if errorlevel 235 ROBOGR -baud=9600 -txt=%NODE%
  33.         if errorlevel 230 ROBOGR -baud=4800 -txt=%NODE%
  34.         if errorlevel 225 ROBOGR -baud=2400 -txt=%NODE%
  35.         if errorlevel 220 ROBOGR -baud=1200 -txt=%NODE%
  36.         if errorlevel 215 ROBOGR -baud=14400 -txt=%NODE%
  37.  
  38.         if errorlevel 210 goto FAX
  39.         if errorlevel 172 goto LOCAL
  40.         if errorlevel 60 goto MAIL
  41.         if errorlevel 50 goto MAINTENANCE
  42.         if exist D:\robobbs\mail\%node%-*.RLR D:\Xpress\FixLrp
  43.         if exist CHK_MAIL.NOW goto MAIL_OUT
  44.         IF EXIST D:\XPRESS\$ECHO.SEM GOTO MAIL_OUT
  45.         IF EXIST D:\XPRESS\$NET.SEM GOTO MAIL_OUT
  46.         IF EXIST D:\XPRESS\$ECHONET.SEM GOTO MAIL_OUT
  47.         IF EXIST D:\FD\IN\*.GIF GOTO GIF_MOVE
  48.  
  49.  
  50.         goto TOP
  51.  
  52. :LOCAL
  53.         ROBOGR -local
  54.         if exist CHK_MAIL.NOW goto MAIL_OUT
  55.         goto TOP
  56.  
  57. :FAX
  58.         d:
  59.         cd\fd\zfax
  60.         refax /p:0 /w:d:\fd\zfax\in
  61.         goto TOP
  62.  
  63. :MAIL_OUT
  64.         cd\FD
  65.         FMAIL SCAN /E
  66.         DEL D:\XPRESS\*.SEM > NUL
  67.         goto TOP
  68.  
  69. :MAIL
  70.         SET TZ=EST6
  71.         CD\FD\TICK
  72.         TICK >> D:\LOG\TICK.LOG
  73.         cd\FD
  74.         FMAIL TOSS /B
  75.         CD\FD
  76.         IF EXIST D:\FD\IN\FNEWS*.* GOTO KILLNEWS
  77.         IF EXIST D:\FD\IN\NODEDIFF.* GOTO NODEDIFF
  78.         IF EXIST D:\FD\IN\WORLDNET.* GOTO NODEDIFF
  79.         IF EXIST D:\FD\IN\CANDYNET.* GOTO NODEDIFF
  80.         IF EXIST D:\FD\IN\IBMLIST.* GOTO NODEDIFF
  81.         IF EXIST D:\FD\IN\THENET.* GOTO NODEDIFF
  82.         IF EXIST D:\FD\IN\ROBONET.* GOTO NODEDIFF
  83.         IF EXIST D:\FD\IN\ROBO-NET.* GOTO NODEDIFF
  84.         IF EXIST D:\FD\IN\ROBOBETA.* GOTO NODEDIFF
  85.         IF EXIST D:\FD\IN\PIXLIST.* GOTO NODEDIFF
  86.         IF EXIST D:\FD\IN\EROSLIST.* GOTO NODEDIFF
  87.         goto TOP
  88.  
  89. :MAINTENANCE
  90.         cd\
  91.         cd\FD\mbutil
  92.         Mbutil Sort -Pack
  93.         Mbutil Link -Clean
  94.         Mbutil Purge -Days 7 -Rcvd -Msgs 300
  95.         Mbutil Pack -Force -Renumber
  96.         E:
  97.         cd\dgames\st_fight
  98.         maint
  99.         D:
  100.         goto TOP
  101.  
  102. :KILLNEWS
  103.         D:
  104.         CD\FD\IN
  105.         DEL FNEWS*.* > NUL
  106.         GOTO TOP
  107.  
  108. :GIF_MOVE
  109.         D:
  110.         CD\FD\IN
  111.         MOVEIT *.GIF E:\NEWGIF
  112.         GOTO TOP
  113.  
  114. :NODEDIFF
  115.         D:
  116.         CD\FD\IN
  117.         MOVEIT NODEDIFF.* D:\FD\NODE > NUL
  118.         MOVEIT WORLDNET.* D:\FD\NODE > NUL
  119.         MOVEIT CANDYNET.* D:\FD\NODE > NUL
  120.         MOVEIT IBMLIST.* D:\FD\NODE > NUL
  121.         MOVEIT THENET.* D:\FD\NODE > NUL
  122.         MOVEIT ROBONET.* D:\FD\NODE > NUL
  123.         MOVEIT ROBO-NET.* D:\FD\NODE > NUL
  124.         MOVEIT ROBOBETA.* D:\FD\NODE > NUL
  125.         MOVEIT PIXLIST.* D:\FD\NODE > NUL
  126.         MOVEIT EROSLIST.* D:\FD\NODE > NUL
  127.         CD\FD\NODE
  128.         EDITNL
  129.         CD\FD
  130.         FDNC
  131.         GOTO TOP
  132.  
  133. :DONE
  134.         cd\FD
  135.         echo ROBO-BOARD Exited.               
  136.