home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / ROBOSCRP.ZIP / TCPTR < prev   
Encoding:
Text File  |  1992-02-15  |  2.8 KB  |  54 lines
  1. ===========================================================================
  2.  BBS: Shady Oaks
  3. Date: 02-14-92 (08:13)             Number: 475
  4. From: MICHAEL MACDONALD            Refer#: NONE
  5.   To: ALL                           Recvd: NO  
  6. Subj: TC_PTR.RS                      Conf: (56) ROBOCOMM
  7. ---------------------------------------------------------------------------
  8. TITLE "Reset TomCat pointers using BBSID.PTR"
  9.  
  10. ;-----------------------------------------------------------------------
  11. ;NOTE: This script file is for use with Robocomm ver 4.x and WildCat
  12. ;      BBSes using the TomCat door. It assumes that PKunZIP is in your
  13. ;      path, that the TomCat door is accessed from the Message Menu, and
  14. ;      that the command to get to the Message Menu from the Main Menu is
  15. ;      "M [Return]". Edit lines 3, 4, and/or 7 if this is not the case.
  16. ;      Written by Michael MacDonald
  17. ;-----------------------------------------------------------------------
  18.  
  19. PARAMETER 1 "Set pointers to [B]efore or [A]fter last D/L?"
  20. ENDPARAMS
  21. MESSAGE "Resetting message pointers"
  22. WHEN "%BBS32%" SEND "|"                        ;More?
  23. WHEN "%BBS34%" SEND "|"                        ;Pause
  24. WAITFOR "%BBS35%"                              ;Main Menu Prompt
  25. SEND "M|"                                      ;Request Message Menu
  26. WAITFOR "%BBS47%"                              ;Message Menu Prompt
  27. SEND "%BBS63%|"                                ;Open Mail Door
  28. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  29. RUN "PKUNZIP -o %QWKDIR%%ID%.QWK %ID%.PTR"     ;Unzip the PNT file
  30. IF ERRORLEVEL GOTO ERROR                       ;See if PKunZIP failed
  31. SEND "C|"                                      ;Choose [C]onfigure
  32. WAITFOR "CONFIGURE MENU"                       ;Configure Prompt
  33. SEND "U|"                                      ;Request PTR upload
  34. WAITFOR "%ID%.PTR"                             ;The BBS is ready
  35. UPLOAD "%ID%.PTR" USING "%BBS22%"              ;Upload the PTR
  36. WHEN "[B]efore or [A]fter" SEND "%P1%|"        ;Is this configurable?
  37. WAITFOR "CONFIGURE MENU"                       ;Configure Prompt
  38. SEND "Q|"                                      ;Quit Configure
  39. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  40. SEND "Q|"                                      ;Quit TomCat Door
  41. WAITFOR "%BBS47%"                              ;Message Menu Prompt
  42. SEND "Q|"                                      ;Request Main Menu
  43. EXIT 0                                         ;Exit the script
  44. :ERROR
  45. SEND "Q|"                                      ;Quit TomCat Door
  46. EXIT 1                                         ;Exit with an error
  47.  
  48. ---
  49.  ■ EZ #0577 ■ Seattle, WA ■ Fri 02-14-92 ■
  50.  
  51.  
  52. PCRelay:GROUPONE -> #355 RelayNet (tm)
  53. 4.10ß15             Group One BBS - Chicago, IL - 312/752-1258
  54.