home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00348_Script_LuckyH < prev    next >
Text File  |  1995-11-13  |  2KB  |  61 lines
  1. global Tsp,Hsp,Bsp
  2.  
  3. on LuckyH1--╟é╟í╟²╟ⁿ┼I
  4.   preLoadCast 50 + 400, 52 + 400
  5.   preLoadCast 62 + 400, 64 + 400
  6.   sound playFile 2, "\S_REACT\OK_H1"
  7.   if SoundBusy(2) then
  8.     BikkuriH random(5), random(5)
  9.   end if
  10.   put the timer into vTime
  11.   repeat while the timer < vTIME+50
  12.     NikoH random(5), random(5)
  13.   end repeat
  14.   set the castNum of sprite Hsp = 41 + 400
  15.   unLoadCast 50 + 400, 52 + 400
  16.   unLoadCast 62 + 400, 64 + 400
  17. end
  18.  
  19. on LuckyH2--╔z╔z╔z╔z┼I
  20.   preLoadCast 50 + 400, 52 + 400
  21.   sound playFile 2, "\S_REACT\OK_H2"
  22.   put the timer into vTime
  23.   repeat while the timer < vTIME+80
  24.     BikkuriH random(5), random(5)
  25.   end repeat
  26.   set the castNum of sprite Hsp = 41 + 400
  27.   unLoadCast 50 + 400, 52 + 400
  28. end 
  29.  
  30. on LuckyH3--╔C╔CΣÑ╟≡┼[┼I
  31.   preLoadCast 53 + 400, 55 + 400
  32.   sound playFile 2, "\S_REACT\OK_H3"
  33.   put the timer into vTime
  34.   repeat while the timer < vTIME+90
  35.     KirakiraH random(5), random(5)
  36.   end repeat
  37.   set the castNum of sprite Hsp = 41 + 400
  38.   unLoadCast 53 + 400, 55 + 400
  39. end 
  40.  
  41. on LuckyH4--╔Φ┼[╔C┼I
  42.   preLoadCast 62 + 400, 64 + 400
  43.   sound playFile 2, "\S_REACT\OK_H4"
  44.   put the timer into vTime
  45.   repeat while the timer < vTIME+50
  46.     NikoH random(5), random(5)
  47.   end repeat
  48.   set the castNum of sprite Hsp = 41 + 400
  49.   unLoadCast 62 + 400, 64 + 400
  50. end 
  51.  
  52. on LuckyH5--╟ó╟í╟²╟µ╟┤┼[┼I
  53.   preLoadCast 62 + 400, 64 + 400
  54.   sound playFile 2, "\S_REACT\OK_H5"
  55.   put the timer into vTime
  56.   repeat while the timer < vTIME+80
  57.     NikoH random(5), random(5)
  58.   end repeat
  59.   set the castNum of sprite Hsp = 41 + 400
  60.   unLoadCast 62 + 400, 64 + 400
  61. end