home *** CD-ROM | disk | FTP | other *** search
/ Net Power 1999 #12 / NetCD1.iso / home / Home_game.exe / data1.cab / Gamer / script / ________.scp
Encoding:
Text File  |  1999-08-09  |  657 b   |  40 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.         "22;4H",matchcase then DoNO
  12.      until 60      
  13.  
  14. DoBuHo: 
  15.    transmit "ｾﾆﾀﾌﾄﾞﾅ"
  16.    transmit "^M"  
  17.    goto loop
  18. DoScn: 
  19.    transmit "11"
  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. DoOK:
  30.    transmit "^M"  
  31.    goto loop
  32. DoNO:
  33.    transmit "12" 
  34.    transmit "^M" 
  35.    goto Done  
  36. BailOut: 
  37.    halt  
  38. Done:  
  39. endproc 
  40.