home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / karu_gin.dir / 00343_Script_343 < prev    next >
Text File  |  1995-11-13  |  912b  |  41 lines
  1. on exitFrame
  2.   puppetsound "BUBUBU"
  3.   updatestage
  4.   repeat while soundBusy(1)
  5.   end repeat  
  6.   global yomiNum, aiteCT, gToriSP, gToriSP2, gHuda, gHuda2, CPUwindow, gLEVEL, gmember
  7.   tell CPUwindow
  8.     go to "click"
  9.   end tell
  10.   if gmember = 1 then 
  11.     repeat with SP = 10 to 36
  12.       if yominum = the castnum of sprite SP then
  13.         set gToriSP = SP
  14.         exit repeat
  15.       else
  16.         nothing
  17.       end if
  18.     end repeat
  19.     if gLEVEL = 2 then
  20.       repeat with n = 1 to 3
  21.         set the type of sprite gToriSP = 0
  22.         updateStage
  23.         wait 10
  24.         set the type of sprite gToriSP = 1
  25.         updateStage
  26.         wait 15
  27.       end repeat
  28.       set the type of sprite gToriSP = 1
  29.     else
  30.       nothing
  31.     end if
  32.   else
  33.     nothing
  34.   end if
  35.   
  36.   
  37.   put aiteCT + 1 into aiteCT
  38.   --  put "δΣΘ╦Θ∙╟°Ωε" && aiteCT into field "δΣΘ╦Θ∙╟°Ωε"
  39.   --  updateStage
  40. end
  41.