home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 10 / 1995-09_Disc_10.iso / genie / airwarri / airwar2.lzh / H2HLOGIN.CMD < prev    next >
OS/2 REXX Batch file  |  1992-11-09  |  678b  |  56 lines
  1. '
  2. ' Sample head-to-head login script
  3. '
  4.  
  5. PRINT "\r\nAir Warrior head-to-head login...\r\n" 1 0
  6.  
  7. ' Set the redial count to 5 trys
  8.  
  9. REDIAL 5
  10.  
  11. SEND_INIT 10 0
  12.  
  13. RECEIVE 10 "OK"
  14.     ON 0 :DIAL
  15.     ERROR_GOTO :NOMODEM
  16.  
  17. :REDIAL
  18.  
  19. PRINT "\r\nPausing before retry...\r\n" 1 0
  20.  
  21. WAIT 10
  22.  
  23. :DIAL
  24.  
  25. WAIT 2
  26.  
  27. PRINT "\r\nDialing \r\n" 1 0
  28.  
  29. DIALING 0
  30.  
  31. PRINT "\r\nWaiting for answer...\r\n" 1 0
  32.  
  33. RECEIVE 30 "CONNECT" "BUSY" "NO CARRIER"
  34.     ON 0    :LOGIN
  35.     ON 1    :REDIAL
  36.     ON 2    :REDIAL
  37.     ERROR_GOTO :ERROR
  38.  
  39. :LOGIN
  40.  
  41. WAIT 2
  42.  
  43. INIT_H2H_LINK
  44. DONE
  45.  
  46.  
  47. :NOMODEM
  48.  
  49. PRINT "\r\nModem is not responding!\r\n" 1 0
  50. ERROR_END
  51.  
  52.  
  53. :ERROR
  54.  
  55. PRINT "\r\nLogin failed\r\n" 1 0
  56. ERROR_END