home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / doujyou.dir / 00270_Script_270 < prev    next >
Text File  |  1995-11-10  |  646b  |  30 lines
  1. on mousedown
  2.   global RightAch,RightAct,WrongAct,subWrongA
  3.   Button2(2, 2,0) 
  4.   put clickon() into vSP
  5.   if RightAch = vSP then 
  6.     --    puppetSound "OK_SE"
  7.     
  8.     go to "rightAframe"
  9.     put RightAct+1 into RightAct
  10.     put RightAct into field "RightA"
  11.   else
  12.     set the visible of sprite vSP+10 to TRUE
  13.     puppetSound "NG_SE3"
  14.     put subWrongA+1 into subWrongA
  15.   end if
  16.   updateStage
  17.   repeat while soundbusy(1)
  18.     nothing
  19.   end repeat
  20.   
  21.   if subWrongA > 2 then 
  22.     put WrongAct+1 into WrongAct
  23.     go to "wrongAframe"
  24.     put WrongAct into field "WrongA"
  25.   else 
  26.     nothing
  27.   end if
  28.   puppetSound 0
  29. end
  30.