home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / csinke6.dir / 00618_Script_WinT < prev    next >
Text File  |  1995-11-13  |  1KB  |  39 lines
  1. global Tsp,Hsp,Bsp
  2.  
  3. on WinT1--∞a┼A∞▓±{α═┼I
  4.   preLoadCast 10 + 400, 12 + 400
  5.     preLoadCast 22 + 400, 24 + 400
  6.   sound playFile 2, "\S_REACT\WIN_T"
  7.   if SoundBusy(2) then
  8.     BikkuriT random(5), random(5)
  9.   end if
  10.   put the timer into vTime
  11.   repeat while the timer < vTIME+140
  12.     NikoT random(5), random(5)
  13.   end repeat
  14.   set the castNum of sprite Tsp = 1 + 400
  15.   unLoadCast 10 + 400, 12 + 400
  16.   unLoadCast 22 + 400, 24 + 400
  17. end
  18.  
  19. on WinT2--╔o╔b┼A╔o╔∞╔U╔C┼I
  20.   preLoadCast 22 + 400, 24 + 400
  21.   sound playFile 2, "\S_REACT\WIN_T2"
  22.   put the timer into vTime
  23.   repeat while the timer < vTIME+130
  24.     NikoT random(5), random(5)
  25.   end repeat
  26.   set the castNum of sprite Tsp = 1 + 400
  27.   unLoadCast 22 + 400, 24 + 400
  28. end
  29.  
  30. on WinT3--╔╤╔b╔^╟╝╟«╟≡╟╖╟╚
  31.   preLoadCast 13 + 400, 15 + 400
  32.   sound playFile 2, "\S_REACT\WIN_T3"
  33.   put the timer into vTime
  34.   repeat while the timer < vTIME+130
  35.     KirakiraT random(5), random(5)
  36.   end repeat
  37.   set the castNum of sprite Tsp = 1 + 400
  38.   unLoadCast 13 + 400, 15 + 400
  39. end