home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2001 #2 / Net01.iso / powerz.exe / data1.cab / PowerZ / script / skylove.scp < prev   
Encoding:
Text File  |  2000-11-16  |  1.2 KB  |  70 lines
  1. proc main
  2.  
  3. integer nCount = 0
  4.  
  5. string SendWord1 = "ﾁｾｷ : X"
  6. string SendWord5 = "CONNECTED"
  7. string SendWord2 = "[Y/n]"
  8. string SendWord3 = "｢ﾑ"
  9. string SendWord4 = "ｴｭｷｯﾁﾖｼｼｿ"
  10. string SendWord6 = "ID :"
  11.  
  12. integer nTime = 30
  13.  
  14. while nCount < 5 do
  15.     waitfor SendWord1 then DoSin
  16.     until nTime
  17.     transmit "^M"
  18.     nCount = nCount + 1
  19. endwhile
  20. goto BailOut
  21.  
  22. DoSin:
  23.     transmit "1119172209"
  24.     transmit "^M"
  25.  
  26.     waitfor SendWord2 until nTime
  27.     if FALSE == $SUCCESS then
  28.         goto BailOut
  29.     endif
  30.     transmit "^M"
  31.  
  32.     waitfor SendWord6 until nTime
  33.     if FALSE == $SUCCESS then
  34.         goto BailOut
  35.     endif
  36.     transmit "^M"
  37.  
  38.     waitfor SendWord3 until nTime
  39.     if FALSE == $SUCCESS then
  40.         goto BailOut
  41.     endif
  42.     transmit "^M"
  43.  
  44.     waitfor SendWord4 until nTime
  45.     if FALSE == $SUCCESS then
  46.         goto BailOut
  47.     endif
  48.     transmit "^M"
  49.  
  50.     waitfor SendWord3 until nTime
  51.     if FALSE == $SUCCESS then
  52.         goto BailOut
  53.     endif
  54.     transmit "30"
  55.     transmit "^M"
  56.  
  57.     waitfor SendWord3 until nTime
  58.     if FALSE == $SUCCESS then
  59.         goto BailOut
  60.     endif
  61.     transmit "1"
  62.     transmit "^M"
  63.  
  64.     goto Done
  65.  
  66. BailOut:
  67. halt
  68. Done:
  69.  
  70. endproc