home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00017_Script_17 < prev    next >
Text File  |  1995-11-13  |  675b  |  35 lines
  1. on ChengeHuda
  2.   global gHuda
  3.   preLoadCast 106, 108
  4.   set A = random(3) + 106
  5.   PuppetSound"PiPi2"
  6.   repeat while soundBusy(2)
  7.     set A = A +1
  8.     if A > 108 then set A =106
  9.     set the castNum of sprite 48 = A
  10.     updateStage
  11.     wait 2
  12.   end repeat 
  13.   set W = random(10) + 10
  14.   repeat with i = 1 to W
  15.     set A = A +1
  16.     if A > 108 then set A =106
  17.     set the castNum of sprite 48 = A
  18.     updateStage
  19.     wait 2
  20.   end repeat 
  21.   PuppetSound 0
  22.   unLoadCast 106, 108
  23.   if A = 106 then
  24.     set gHuda = 1
  25.   else
  26.     if A = 107 then
  27.       set gHuda = 2
  28.     else
  29.       if A = 108 then
  30.         set gHuda = 3
  31.       end if
  32.     end if
  33.   end if
  34. end
  35.