home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / hint_de.dir / 00616_Script_answer_Q < prev    next >
Text File  |  1995-11-10  |  1KB  |  47 lines
  1. on answerQ
  2.   global AnsR, Pget,gTEIKA2,NGAnsCt
  3.   put (clickon() - 10) into vSP
  4.   if AnsR = vSp then 
  5.     --╔N╔C╔YΩÄΓ¥╟├Φ═τß
  6.     -------------------
  7. --    --ΦïπçΣ≈σW
  8. --    put Pget*100 into QPRIZE
  9. --    set gTEIKA2 = Qprize 
  10. --    TEIKAX
  11.     ----εwσi╟¥Θc╟▌┼B
  12.     puppetSprite 2, true
  13.     repeat with n = 11 to 16
  14.       puppetSprite n, true
  15.     end repeat
  16.     --ΩÄΓ¥ΘD╟├∩\Θ╢
  17.     set the visible of sprite 47 to TRUE
  18.     puppetSprite 47, true
  19.     
  20.     --ΩÄΓ¥╟├ΓΓΦo(Σñ╔}┼[╔NΓ╥∞])
  21.     go to "WIN"
  22.   else
  23.     --∩sΩÄΓ¥ΘD╟├∩\Θ╢
  24.     puppetSprite 48, true
  25.     set the visible of sprite 48 to TRUE
  26.     updatestage
  27.     --∩sΩÄΓ¥╟├Γ■
  28.     sound playFile 3, "\S_HINT\NG_SE"
  29.     
  30.     repeat while  soundbusy(3) 
  31.     end repeat
  32.     set the visible of sprite 48 to FALSE
  33.     --∩sΩÄΓ¥╟├Γ╥Ωε
  34.     put NGAnsCt+1 into NGAnsCt
  35.     put (NGAnsCt*100)*-1 INTO NGmoney
  36.     set gTEIKA2 = NGmoney
  37.     TEIKAX   
  38.     if NGAnsCt > 2  then 
  39.       sound playFile 2, "\S_HINT\NG_3TH"
  40.       repeat while soundBusy(2)
  41.         nothing
  42.       end repeat
  43.       go to "NEXT_Q"   
  44.     end if
  45.   end if
  46. end
  47.