home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 September / Net2.iso / OnlineGame / Majesty / maje20.exe / Disk1 / data1.cab / Program_Executable_Files / Ksr.scp < prev    next >
Encoding:
Text File  |  2000-05-23  |  1.2 KB  |  73 lines
  1. proc main
  2.  
  3. integer nCount = 0
  4.  
  5. string SendWord1 = ": X"
  6. string SendWord5 = ">>"
  7. string SendWord2 = "[Y/N]"
  8. string SendWord3 = "ｼｱ ﾅﾃ> "
  9. string SendWord4 = "[ENTER] ｸｦ ﾀﾔｷﾂﾇﾘ ﾁﾖｽﾊｽﾃｿﾀ."
  10. string SendWord6 = "ID :"
  11. string SendWord7 = "24;49H"
  12.  
  13. ; ﾁ｢ｼﾓｴｱ篆ﾃｰ｣ﾀｻ ｼｳﾁ､ﾇﾑｴﾙ.
  14. integer nTime = 30
  15.  
  16. ; 5ｹ錝 ｻﾎｿ ｸ昞ﾉﾀｻ ｱ箒ﾙｸｰｴﾙ.
  17. ; ﾁ｢ｼﾓｸ昞ﾉﾀﾌ ﾀﾏﾄ｡ﾇﾏｸ ﾇﾘｴ鄲ｧﾄ｡ｷﾎ ﾀﾌｵｿ
  18. while nCount < 5 do
  19. waitfor SendWord1 then DoSin
  20. until nTime
  21. transmit "^M"
  22. waitfor SendWord7 then DoSin
  23. until nTime
  24. transmit "^M"
  25. nCount = nCount + 1
  26. endwhile
  27. goto BailOut
  28.  
  29. ;ﾅｫｻ邯ｸｷﾎ ﾁ｢ ｵ鮴銧｡ｴﾂ ﾄﾚｵ.
  30. DoSin:
  31. transmit "1113371138"
  32. transmit "^M"
  33.  
  34. waitfor SendWord2 until nTime
  35. if FALSE == $SUCCESS then
  36. goto BailOut
  37. endif
  38. transmit "Y"
  39. transmit "^M"
  40.  
  41. waitfor SendWord6 until nTime
  42. if FALSE == $SUCCESS then
  43. goto BailOut
  44. endif
  45. transmit "^M"
  46.  
  47. waitfor SendWord3 until nTime
  48. if FALSE == $SUCCESS then
  49. goto BailOut
  50. endif
  51. transmit "^M"
  52.  
  53. waitfor SendWord3 until nTime
  54. if FALSE == $SUCCESS then
  55. goto BailOut
  56. endif
  57. transmit "4"
  58. transmit "^M"
  59.  
  60. waitfor SendWord3 until nTime
  61. if FALSE == $SUCCESS then
  62. goto BailOut
  63. endif
  64. transmit "99"
  65. transmit "^M"
  66. goto Done
  67.  
  68. BailOut:
  69. halt
  70. Done:
  71.  
  72. endproc
  73.