home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / karu_gin.dir / 00352_Script_352 < prev    next >
Text File  |  1995-11-13  |  762b  |  30 lines
  1. on exitFrame
  2.   global gTori, gTori2, CPUwindow, gmember,gHuda,yominum
  3.   global otetukiCT, sName
  4.   put otetukiCT + 1 into otetukiCT
  5.   put "╟«╟â╟¼╟┤Ωε" && otetukiCT into field "╟«╟â╟¼╟┤Ωε"
  6.   puppetsprite 48, TRUE
  7.   set the castnum of sprite 48 = the number of cast ("Otetuki" & otetukiCT)
  8.   starttimer
  9.   put the timer + 60 into vTime
  10.   repeat while true
  11.     if the timer > vTime then exit repeat
  12.   end repeat
  13.   --  puppetsprite 3, false
  14.   
  15.   puppetsound 0
  16.   updateStage
  17.   --  if getOne(gHuda,yominum) <> 0 then
  18.   --    set gmember = 1
  19.   --  else
  20.   --    set gmember = 0
  21.   --  end if
  22.   --  if gmember = 1 then 
  23.   play "ChangeCPU"
  24.   --  else 
  25.   --    nothing
  26.   --  end if
  27.   --  OwariHantei
  28.   sound playfile 3, "\S_SONG\U"&sName&"D2"
  29. end
  30.