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