home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / karu_gin.dir / 00390_Script_390 < prev    next >
Text File  |  1995-11-13  |  588b  |  30 lines
  1. on exitFrame
  2.   global sName, gLEVEL, yominum, gToriSP, gToriSP2,CPUwindow, gmember
  3.   if gmember = 1 then
  4.     
  5.     set the type of sprite gToriSP = 0
  6.     updateStage
  7.   else
  8.     
  9.     tell CPUwindow
  10.       go to "noclick"
  11.       set the type of sprite gToriSP2 = 0
  12.       updateStage
  13.     end tell
  14.   end if
  15.   
  16.   if gLEVEL < 2 then
  17.     puppetSprite 3, true
  18.     set the castNum of sprite 3 = (yomiNum + 100)
  19.     updateStage
  20.   else
  21.     nothing
  22.   end if
  23.     play "ChangeCPU"
  24.  
  25.   --  if gLEVEL = 1 then
  26.   sound playfile 3, "\S_SONG\U"&sName&"D2"
  27.   --  else nothing
  28.   
  29. end
  30.