home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / karu_gin.dir / 00395_Script_395 < prev    next >
Text File  |  1995-11-13  |  564b  |  28 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.   --  if gLEVEL = 1 then
  24.   sound playfile 3, "\S_SONG\U"&sName&"D2"
  25.   --  else nothing
  26.   
  27. end
  28.