home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00347_Script_LuckyT < prev    next >
Text File  |  1995-11-13  |  2KB  |  66 lines
  1. global Tsp,Hsp,Bsp
  2.  
  3. on LuckyT1--╔z╔b╔z╔b╔z╔b╔z┼I
  4.   preLoadCast 10 + 400, 12 + 400
  5.   sound playFile 2, "\S_REACT\OK_T5"
  6.   put the timer into vTime
  7.   repeat while the timer < vTIME+160
  8.     BikkuriT random(5), random(5)
  9.   end repeat
  10.   set the castNum of sprite Tsp = 1 + 400
  11.   unLoadCast 10 + 400, 12 + 400
  12. end
  13.  
  14. on LuckyT2--╔Φ╔b╔n╔b╔n╔b
  15.   preLoadCast 22 + 400, 24 + 400
  16.   sound playFile 2, "\S_REACT\OK_T2"
  17.   put the timer into vTime
  18.   repeat while the timer < vTIME+150
  19.     NikoT random(5), random(5)
  20.   end repeat
  21.   set the castNum of sprite Tsp = 1 + 400
  22.   unLoadCast 22 + 400, 24 + 400
  23. end
  24.  
  25. on LuckyT3--╟ó╟²╟µ╟┤╟╝╟«╟≡╟╖╟╚┼I
  26.   preLoadCast 22 + 400, 24 + 400
  27.   sound playFile 2, "\S_REACT\OK_T1"
  28.   put the timer into vTime
  29.   repeat while the timer < vTIME+130
  30.     NikoT random(5), random(5)
  31.   end repeat
  32.   set the castNum of sprite Tsp = 1 + 400
  33.   unLoadCast 22 + 400, 24 + 400
  34. end
  35.  
  36. on LuckyT4--╟½╟º╟╝╟«╟≡╟╖╟╚┼I
  37.   preLoadCast 10 + 400, 12 + 400
  38.   preLoadCast 22 + 400, 24 + 400
  39.   sound playFile 2, "\S_REACT\OK_T3"
  40.   if SoundBusy(2) then
  41.     BikkuriT random(5), random(5)
  42.   end if
  43.   put the timer into vTime
  44.   repeat while the timer < vTIME+80
  45.     NikoT random(5), random(5)
  46.   end repeat
  47.   set the castNum of sprite Tsp = 1 + 400
  48.   unLoadCast 10 + 400, 12 + 400
  49.   unLoadCast 22 + 400, 24 + 400
  50. end
  51.  
  52. on LuckyT5--╔i╔C╔X╟╝╟«╟≡╟╖╟╚┼I
  53.   preLoadCast 13 + 400, 15 + 400
  54.   preLoadCast 10 + 400, 12 + 400
  55.   sound playFile 2, "\S_REACT\OK_T4"
  56.   if SoundBusy(2) then
  57.     KirakiraT random(5), random(5)
  58.   end if
  59.   put the timer into vTime
  60.   repeat while the timer < vTIME+100
  61.     BikkuriT random(5), random(5)
  62.   end repeat
  63.   set the castNum of sprite Tsp = 1 + 400
  64.   unLoadCast 13 + 400, 15 + 400
  65.   unLoadCast 10 + 400, 12 + 400
  66. end