Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/karu_gin.dir/00338_Script_338

Text File | 1995-11-13 | 743b | 30 lines

on exitFrame
  global yomiNum, aiteCT, gToriSP, gToriSP2, gHuda, gHuda2, CPUwindow, gLEVEL,gmember
  if gmember = 0 then
    tell CPUwindow
      repeat with SP = 10 to 34
        if yominum = the castnum of sprite SP then
          set gToriSP2 = SP
          exit repeat
        else
          nothing
        end if
      end repeat
      if gLEVEL = 2 then
        repeat with n = 1 to 3
          set the type of sprite gToriSP2 = 0
          updateStage
          wait 15
          set the type of sprite gToriSP2 = 1
          updateStage
          wait 15
        end repeat
        set the visible of sprite gToriSP2 = 1
      else
        nothing
      end if
    end tell
  else
    nothing
  end if
end