home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 030 / cstnet12.zip / QMODEM.SCR < prev    next >
Text File  |  1994-11-10  |  8KB  |  326 lines
  1. ;  Script Date:  3/10/93
  2. ;  WILDCAT!/QMODEM SCRIPT From MSI By: Robert Cole
  3. ;  -----------------------------------------------
  4. ;  Modified For COASTNET! On November 1st, 1993
  5. ;  (This Script Good To WC v3.99 ONLY - NOT For v4.x)
  6.  
  7. TurnON   8_BIT
  8. TurnOFF  LINEFEED
  9. TurnOFF  NOISE
  10. TurnOFF  MUSIC
  11. TurnOFF  SCROLL
  12. TurnOFF  PRINT
  13. TurnOFF  SPLIT
  14. TurnOFF  DOORWAY
  15. GRAPHICS ANSI
  16.  
  17. COLORBG 0
  18. COLORFG 14
  19. CLRSCR
  20.  
  21. STRING NAME
  22. STRING QWK_PACKET
  23. STRING PHONE
  24. STRING PREFIX
  25. STRING INIT
  26. STRING MAX_REDIAL
  27. STRING LOGIN_NAME
  28. STRING PWORD,ANSWER
  29. ASSIGN 0 1                         ; Redial counter.
  30. ASSIGN 1 5                         ; Number of Init tries.
  31. ASSIGN 3 "INITIALIZED"             ; Fill variable with initial value.
  32. ASSIGN QWK_PACKET LZRCST                                             
  33.  
  34. EXIST $QWK_PACKET.CFG GO
  35. QUES1:
  36.   ATWRITE 1,1,11,"Enter the name of the system you are calling:"
  37.   GOTOXY 1 2
  38.   DISPLAYLN "[───────────────────────────────]"
  39.   GOTOXY 2 3
  40.    GETN NAME 30
  41. QUES2:
  42.   ATWRITE 1,4,11,"Enter the login name that you call to get mail with (DON'T ADD A ! TO YOUR NAME)"
  43.   GOTOXY 1 5
  44.   DISPLAYLN "[───────────────────────────────]"
  45.   GOTOXY 2 6
  46.    GETN LOGIN_NAME 30
  47. QUES3:
  48.   ATWRITE 1,7,11,"Enter the password (14 chars max):
  49.   GOTOXY 1,8
  50.   DISPLAYLN "[──────────────]"
  51.   GOTOXY 2 9
  52.    GETN PWORD 14
  53. QUES4:
  54.   ATWRITE 1,10,11,"Enter The phone number to dial (Default: 1-805-285-3961):
  55.   ATWRITE 1,11,11,"MAKE SURE TO ADD THE 1- if you are calling long distance!!"
  56.   GOTOXY 1 12
  57.   DISPLAYLN "[──────────────]"
  58.   GOTOXY 2 13
  59.    GETN PHONE 12
  60.     IF "$PHONE" = "" LOAD_DEFAULT_NUMBER
  61. QUES5:
  62.   ATWRITE 1,14,11,"Enter the max NUMBER of redial attempts to this system (Max 999):
  63.   GOTOXY 1 15
  64.   DISPLAYLN "[───]"
  65.   GOTOXY 2 16
  66.    GETN MAX_REDIAL 3
  67. QUES6:
  68.   ATWRITE 1,17,11,"Enter your custom initialization string here (Default: ATZ):
  69.   GOTOXY 1 18
  70.   DISPLAYLN "[────────────────────────────────────────]"
  71.   GOTOXY 2 19
  72.    GETN INIT 40
  73.    IF "$INIT" = "" LOAD_DEFAULT_INIT
  74. QUES7:
  75.     COLORFG 11
  76.     GOTOXY 1 20
  77.     DISPLAY "Do you have [T]one or [P]ulse dialing (Default: Tone)(T/P)? "
  78.     GETN PREFIX 1
  79.      IF "$PREFIX" = "P" ASSIGN_PULSE
  80.      IF "$PREFIX" = "T" ASSIGN_TONE
  81.      IF "$PREFIX" = "" ASSIGN_TONE
  82. QUES8:
  83.   CLRSCR
  84.   ATWRITE 1,1,11,"Do you want this script to pick up the line and"
  85.   ATWRITE 1,2,11,"send a message to a use who is trying to call the BBS"
  86.   GOTOXY 1 3
  87.   DISPLAY "telling them to call back later Y/n? "
  88.   GETN ANSWER 1
  89.      IF "$ANSWER" = "Y" ASSIGN_Y
  90.      IF "$ANSWER" = "N" ASSIGN_N
  91.      IF "$ANSWER" = "" ASSIGN_Y
  92. WRITE_INFO:
  93.   OPENFILE $QWK_PACKET.CFG REWRITE
  94.    WRITEFILE "$NAME"
  95.    WRITEFILE "!$LOGIN_NAME"
  96.    WRITEFILE "$PWORD"
  97.    WRITEFILE "$PHONE"
  98.    WRITEFILE "$MAX_REDIAL"
  99.    WRITEFILE "$INIT"
  100.    WRITEFILE "$PREFIX"
  101.    WRITEFILE "$ANSWER"
  102.   CLOSEFILE
  103.   GOTO GO
  104.  
  105. LOAD_DEFAULT_NUMBER:
  106.   ASSIGN PHONE 1-805-285-3961
  107. GOTO QUES5
  108.  
  109. LOAD_DEFAULT_INIT:
  110.   ASSIGN INIT ATZ
  111. GOTO QUES7
  112.  
  113. ASSIGN_TONE:
  114.   ASSIGN PREFIX T
  115. GOTO QUES8
  116.  
  117. ASSIGN_PULSE:
  118.   ASSIGN PREFIX P
  119. GOTO QUES8
  120.  
  121. ASSIGN_Y:
  122.   ASSIGN ANSWER Y
  123. GOTO WRITE_INFO
  124.  
  125. ASSIGN_N:
  126.   ASSIGN ANSWER N
  127. GOTO WRITE_INFO
  128.  
  129. SEND_MESSAGE:
  130.  WHEN               ; Clear WHEN's
  131.  TimeOut 10 START
  132.  Waitfor "RING"
  133.  IF "$ANSWER" = "N" WAIT_4_SILENCE
  134.  TimeOut 60 REINIT
  135.    Waitfor "RING"
  136.    Delay 500
  137.    Send "ATA^M"
  138.    Waitfor "CONNECT"
  139.    Delay 3000
  140.    Send "The System Is Currently Attempting To Make An Outgoing Call.^M^J"
  141.    Send "Please Hang Up And Try Back Later."
  142.    Delay 2000
  143.  HANGUP
  144. GOTO REINIT
  145.  
  146. WAIT_4_SILENCE:
  147.  CLRSCR
  148.   FLUSH ALL          ;  Flush the buffers to make sure of no stray RING's
  149.   TimeOut 15 INCREMENT
  150.   Waitfor "RING" WAIT_4_SILENCE
  151.  
  152. GO:          ;  Begin Main body of script
  153.  
  154. ;   Fill variables with preferences
  155.  
  156.   OPENFILE $QWK_PACKET.CFG READ
  157.     READFILE NAME        ; Read System name
  158.     READFILE LOGIN_NAME  ; Read in login name
  159.     READFILE PWORD       ; Read in password
  160.     READFILE PHONE       ; Read phone number
  161.     READFILE MAX_REDIAL  ; Read max redial attempts
  162.     READFILE INIT        ; Read init string.
  163.     READFILE PREFIX      ; Read in dialing prefix
  164.     READFILE ANSWER      ; Read in call collision preference
  165.   CLOSEFILE
  166.  
  167. LOG $QWK_PACKET.LOG          ; Turn on logging.
  168. CAPTURE $QWK_PACKET.CAP      ; Turn on session capture.
  169.  
  170. ASSIGN 6 1  ; Current number of tries
  171. REINIT:
  172.  TimeOut 10 REINIT
  173.  CLRSCR
  174.  COLORFG 0
  175.  COLORBG 0
  176.  IF "$6" = "$1" NO_MODEM_RESPONSE
  177.   ATWRITE 1,1,11,"Modem Init Attempt Number $6 of $1"
  178.   GOTOXY 5 5
  179.   SEND "$INIT^M"
  180.   INCR 6
  181.   WAITFOR "OK"           ; Get modem response.
  182.   PAUSE 3000
  183.   SEND "ATX4E0M0^M"      ; HST's and HST/DS's needs X4 to run this script!
  184.   WAITFOR "OK"           ; Get modem response.
  185.  
  186.  TimeOut 60 START
  187. START:
  188.  CLRSCR
  189.   WHEN
  190.   WHEN "RING" SEND_MESSAGE
  191.   WHEN "BUSY" INCREMENT
  192.   WHEN "NO DIAL" INCREMENT
  193.   WHEN "NO CARRIER" INCREMENT
  194.   COLOR 30
  195.   BOX 10,5,65,15
  196.  CLRSCR
  197.    GOTOXY 4 1
  198.   DISPLAY " Dialing $NAME at $TIME"
  199.    GOTOXY 17 3
  200.   DISPLAY "Try Number $0 of $MAX_REDIAL"
  201.    GOTOXY 12 5
  202.   DISPLAY "Message From Modem: "
  203.   WINDOW 42 10 55 12
  204.   COLORFG 11
  205.  
  206.  TIMEOUT 30 START ; Increase/Decrease as needed to match S7 register in modem.
  207.   DELAY 3000
  208.   SEND "ATD$PREFIX$PHONE^M"
  209.    GOTOXY 1 1
  210.   WAITFOR "CONNECT"
  211.   DELAY 1000
  212.   IF $ONLINE SKIP
  213.    INCREMENT:
  214.     IF "$0" = "$MAX_REDIAL" END
  215.     INCR 0
  216.     Delay 9000    ;  Delay for 9 seconds before next attempt.
  217.   GOTO START
  218.  
  219. SKIP:
  220.  COLORBG 0
  221.  TimeOut 30 FIRST_NAME
  222.   WINDOW 1,1,80,24
  223.  CLRSCR
  224.   WHEN                   ; Clear Above WHEN "BUSY" setting
  225.   WHEN "[C]ont" "^M"     ; Watch for long prelog screen
  226.   WHEN "CAUTION!" "^M"
  227.   WHEN "[y/N]" "^M"
  228.   WHEN "correctly" "^M"
  229.   WHEN "first name" SEND_NAME
  230.   WHEN "-PAUSE-" "^M"
  231.   WHEN "[S]top" "^M"
  232.   WHEN "NO CARRIER" START
  233.  
  234. FIRST_NAME:
  235.   Waitfor "your first name"
  236.   Delay   100
  237. SEND_NAME:
  238.   Send "$LOGIN_NAME^M"
  239.   PAUSE 1000
  240.   Send "^M"
  241.   Waitfor "Password?"
  242.   Send "$PWORD"
  243.   TimeOut 30 TOMCAT_MENU
  244.   WHEN                   ; Clear above WHEN's
  245.   WHEN "first name" SKIP
  246.   WHEN "PACKER MENU" SELECT_PACKER
  247.   WHEN "PROTOCOL MENU" SELECT_PROTOCOL
  248.   WHEN "NO CARRIER" START
  249.  GOTO TOMCAT_MENU
  250.  
  251. SELECT_PACKER:
  252.  Send "Z"
  253.  GOTO DOWNQWK
  254.  
  255. SELECT_PROTOCOL:
  256.   Send "Z"
  257.  GOTO DOWNQWK
  258.  
  259. TOMCAT_MENU:
  260.   Send "^M"
  261.   Waitfor "WCMAIL"  ; wcMAIL Main Menu Prompt
  262.   Delay   300
  263.   When "load!" TEST_FOR_REP
  264.   Send    "D"
  265.  
  266. DOWNQWK:
  267.  TimeOut 900 TOMCAT_MENU
  268.   Waitfor "done?"
  269.   Delay   100
  270.   Send    "Y"
  271.   Waitfor "now"
  272.   Download Z $DLPATH
  273.   IF $FAIL TOMCAT_MENU
  274.   WHEN
  275.  
  276. TEST_FOR_REP:
  277.    EXIST $ULPATH$QWK_PACKET.REP UPLOAD_REP  ; Test for existence of reply Packet
  278.  GOTO END
  279.  
  280. SELECT_PACKER_UPLOAD:
  281.  Send "Z"
  282.  GOTO CONTINUE_REP_UPLOAD
  283.  
  284. SELECT_PROTOCOL_UPLOAD:
  285.   Send "Z"
  286.  GOTO CONTINUE_REP_UPLOAD
  287.  
  288. UPLOAD_REP:              ; Subroutine for uploading reply packet
  289.  TimeOut 30 UPLOAD_REP
  290.   WHEN
  291.   WHEN "PACKER MENU" SELECT_PACKER_UPLOAD
  292.   WHEN "PROTOCOL MENU" SELECT_PROTOCOL_UPLOAD
  293.   Send     "^M"
  294.   Waitfor  "WCMAIL"
  295.   Delay    300                 ; Once a reply packet is uploaded successfully
  296.   Send     "U"                 ; You may hang up. Tomcat will continue to
  297. CONTINUE_REP_UPLOAD:
  298.   Waitfor  "now"               ; insert your messages and the board will
  299.   UPLOAD Z $ULPATH$QWK_PACKET.REP  ; recycle when Tomcat is done. This script hangs
  300.   Waitfor  "ing reply packet"  ; up as soon as the reply packet is uploaded.
  301.   IF $SUCCESS DELETE_REP_QWK_PACKET
  302.   GOTO UPLOAD_REP              ; It failed, try upload again.
  303. DELETE_REP_QWK_PACKET:
  304.   DOS "DEL $ULPATH$QWK_PACKET.REP"
  305.  GOTO END
  306.  
  307. END:
  308.  WHEN
  309.  HANGUP
  310.  TimeOut 10 END
  311.   Send "ATM0H1^M"
  312.   Waitfor "OK"
  313.  TURNOFF LOG
  314.  TURNOFF CAPTURE
  315.  SYSTEM X
  316.  
  317. NO_MODEM_RESPONSE:
  318.  OPENFILE $QWK_PACKET.ERR REWRITE
  319.   WRITEFILE **********************
  320.   WRITEFILE "No Modem Response given on $DATE at $TIME after $6 Tries"
  321.  CLOSEFILE
  322.   STAMP ********************
  323.   STAMP Failed to init the modem on $DATE at $TIME after $6 tries.
  324.  GOTO END
  325.  
  326.