home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00016_Script_16 < prev    next >
Text File  |  1995-11-13  |  2KB  |  104 lines
  1. on roulette
  2.   global PName,AName,BName,CName,Tsp,Hsp,Bsp
  3.   repeat with j = 2 to 8
  4.     puppetSprite j,TRUE
  5.   end repeat
  6.   repeat with j = 26 to 29
  7.     puppetSprite j,TRUE
  8.   end repeat
  9.   
  10.   preLoadCast 72
  11.   set A = random(3)
  12.   set SP = random(4) + 25
  13.   set W = random(10) + 5
  14.   repeat with i = 1 to W
  15.     PuppetSound"PiPi"
  16.     set the castNum of sprite SP = 38
  17. --    updateStage
  18.     set A = A +1
  19.     if A > 3 then set A =1
  20.     
  21.     set the castNum of sprite 2 = A
  22.     set B = A +1
  23.     if B > 3 then set B =1
  24.     
  25.     set the castNum of sprite 3 = B
  26.     set C = B +1
  27.     if C > 3 then set C =1
  28.     
  29.     set the castNum of sprite 4 = C
  30.     set SP = SP + 1
  31.     if SP > 29 then set SP = 26
  32.     set the castNum of sprite SP = 67
  33.     updateStage
  34.     wait i
  35.   end repeat
  36.   put "╟å╟╗╟²" into PName
  37.   put the Name of cast A into AName
  38.   put the Name of cast B into BName
  39.   put the Name of cast C into CName
  40.   if A = 1 and B = 2 and C = 3 then
  41.     set Tsp = 2
  42.     set Hsp = 3
  43.     set Bsp = 4
  44.   else
  45.     if A = 2 and B = 3 and C = 1 then
  46.       set Tsp = 4
  47.       set Hsp = 2
  48.       set Bsp = 3
  49.     else
  50.       if A = 3 and B = 1 and C = 2 then
  51.         set Tsp = 3
  52.         set Hsp = 4
  53.         set Bsp = 2
  54.       end if
  55.     end if
  56.   end if
  57.   PuppetSound 0
  58. end
  59.  
  60. on wait t
  61.   put the ticks + t into endTime
  62.   repeat while the ticks <= endTime
  63.     nothing
  64.   end repeat
  65. end
  66.  
  67. on SelectOya
  68.   if the castNum of sprite 26 = 67 then
  69.     repeat with j = 26 to 29
  70.       puppetSprite j,FALSE
  71.     end repeat
  72.     go to frame"A"
  73.   else
  74.     if the castNum of sprite 27 = 67 then
  75.       repeat with j = 26 to 29
  76.         puppetSprite j,FALSE
  77.       end repeat
  78.       go to frame"B"
  79.     else
  80.       if the castNum of sprite 28 = 67 then
  81.         repeat with j = 26 to 29
  82.           puppetSprite j,FALSE
  83.         end repeat
  84.         go to frame"C"
  85.       else
  86.         if the castNum of sprite 29 = 67 then
  87.           repeat with j = 26 to 29
  88.             puppetSprite j,FALSE
  89.           end repeat
  90.           go to frame"Mekuru"
  91.         end if
  92.       end if
  93.     end if
  94.   end if
  95.   
  96.   repeat with j = 5 to 8
  97.     puppetSprite j,FALSE
  98.   end repeat
  99.   repeat with j = 26 to 29
  100.     puppetSprite j,FALSE
  101.   end repeat
  102. end
  103.  
  104.