home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00346_Script_WinB < prev    next >
Text File  |  1995-11-13  |  1KB  |  44 lines
  1. global Tsp,Hsp,Bsp
  2.  
  3. on WinB1--Θv╟óφm╟í╟²╟⌐┼I
  4.   preLoadCast 96 + 400, 98 + 400
  5.   sound playFile 2, "\S_REACT\WIN_B"
  6.   put the timer into vTime
  7.   repeat while the timer < vTIME+130
  8.     IkariB random(5), random(5)
  9.   end repeat
  10.   set the castNum of sprite Bsp = 81 + 400
  11.   unLoadCast 96 + 400, 98 + 400
  12. end
  13.  
  14. on WinB2--╟ï╟µ╟ï╟µ┼A╟å╟ï╟ó╟├╟º┼B
  15.   preLoadCast 81 + 400
  16.   preLoadCast 84 + 400
  17.   preLoadCast 87 + 400
  18.   preLoadCast 99 + 400, 101 + 400
  19.   sound playFile 2, "\S_REACT\WIN_B2"
  20.   if SoundBusy(2) then
  21.     ShakeHeadB random(5), random(5)
  22.     ShakeHeadB random(5), random(5)
  23.   end if
  24.   put the timer into vTime
  25.   repeat while the timer < vTIME+80
  26.     NikoB random(5), random(5)
  27.   end repeat
  28.   set the castNum of sprite Bsp = 81 + 400
  29.   unLoadCast 81 + 400
  30.   unLoadCast 84 + 400
  31.   unLoadCast 87 + 400
  32.   unLoadCast 2 + 400, 4 + 400
  33. end
  34.  
  35. on WinB3--╔z╔σσ⌐╟╬┼B
  36.   preLoadCast 90 + 400, 92 + 400
  37.   sound playFile 2, "\S_REACT\WIN_B3"
  38.   put the timer into vTime
  39.   repeat while the timer < vTIME+90
  40.     BikkuriB random(5), random(5)
  41.   end repeat
  42.   set the castNum of sprite Bsp = 81 + 400
  43.   unLoadCast 90 + 400, 92 + 400
  44. end