home *** CD-ROM | disk | FTP | other *** search
/ Net Power 1999 #12 / NetCD1.iso / codinet / star / PowerZ.exe / data1.cab / Gamer / script / powerz-internet.scp < prev    next >
Encoding:
Text File  |  1999-10-25  |  784 b   |  43 lines
  1. proc main
  2.  
  3. loop : 
  4.      waitfor
  5.         ": X",matchcase then DoBuHo,
  6.         ": x",matchcase then DoBuHo,
  7.         ">>",matchcase then DoScn,
  8.         "[Y/n]",matchcase then DoYesNo,
  9.         "ID :",matchcase then DoID,
  10.         "｢ﾑ",matchcase then DoOK,
  11.         "ｴｩｸ｣ｼｼｿ...",matchcase then DoEnter,
  12.         "22;4H",matchcase then DoNO
  13.      until 60      
  14. DoBuHo: 
  15.    transmit "1150899084" 
  16.    transmit "^M"
  17.    goto loop
  18. DoScn: 
  19.    transmit "9"
  20.    transmit "^M"  
  21.    goto loop
  22. DoYesNo:
  23.    transmit "y"
  24.    transmit "^M"  
  25.    goto loop
  26. DoID: 
  27.    transmit "^M"  
  28.    goto loop
  29. DoEnter:
  30.    transmit "^M"  
  31.    goto loop
  32. DoOK:
  33.    transmit "^M"  
  34.    goto loop
  35. DoNO:
  36.    transmit "1" 
  37.    transmit "^M" 
  38.    goto Done  
  39. BailOut: 
  40.    halt  
  41. Done:  
  42. endproc 
  43.