home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / karu_gin.dir / 00270_Script_270 < prev    next >
Text File  |  1995-11-13  |  512b  |  25 lines
  1. on exitFrame
  2.   global gTori, gTori2, CPUwindow, gmember,gHuda,yominum,sName
  3.   starttimer
  4.   put the timer + 60 into vTime
  5.   repeat while true
  6.     if the timer > vTime then exit repeat
  7.   end repeat
  8.   --  puppetsprite 3, false
  9.   
  10.   puppetsound 0
  11.   updateStage
  12.   if getOne(gHuda,yominum) <> 0 then
  13.     set gmember = 1
  14.   else
  15.     set gmember = 0
  16.   end if
  17.   if gmember = 1 then 
  18.     play "ChangeCPU"
  19.   else 
  20.     nothing
  21.   end if
  22.   --  OwariHantei
  23.   sound playfile 3, "\S_SONG\U"&sName&"D2"
  24. end
  25.