home *** CD-ROM | disk | FTP | other *** search
/ Net Power 1999 #12 / NetCD1.iso / codinet / star / PowerZ.exe / data1.cab / Gamer / script / starchase.scp < prev   
Encoding:
Text File  |  1999-10-25  |  920 b   |  61 lines
  1. proc main
  2.  
  3.  integer nTime = 30 
  4.  integer num = 0
  5.  
  6. waitfor ": X" then DoBuHo until 7
  7. if FALSE == $SUCCESS then
  8.    goto DoBuHo
  9. endif    
  10. goto DoBuHo
  11.      
  12. DoBuHo: 
  13.    transmit "1119171192" 
  14.    transmit "^M"
  15.  
  16. waitfor "[Y/n]" until nTime
  17. if FALSE == $SUCCESS then
  18.    goto BailOut
  19. endif    
  20. transmit "y"
  21. transmit "^M"  
  22.  
  23. waitfor "ID :" until nTime
  24. if FALSE == $SUCCESS then
  25.    goto BailOut
  26. endif    
  27. transmit "^M"  
  28.  
  29. waitfor "｢ﾑ" until nTime
  30. if FALSE == $SUCCESS then
  31.    goto BailOut
  32. endif    
  33. transmit "^M"  
  34.  
  35. waitfor "u" until nTime
  36. if FALSE == $SUCCESS then 
  37.    goto BailOut 
  38. endif  
  39. transmit "^M"  
  40.  
  41. waitfor "22;4H" until nTime
  42. if FALSE == $SUCCESS then 
  43.    goto BailOut 
  44. endif  
  45. transmit "22" 
  46. transmit "^M" 
  47.  
  48. waitfor "22;4H" until nTime
  49. if FALSE == $SUCCESS then 
  50.    goto BailOut 
  51. endif  
  52. transmit "1" 
  53. transmit "^M" 
  54.  
  55. goto Done  
  56.  
  57. BailOut: 
  58.    halt  
  59. Done:  
  60. endproc 
  61.