home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / sub_karu.dir / 00101_Script_101 < prev    next >
Text File  |  1995-11-10  |  464b  |  27 lines
  1. on startMovie
  2.   repeat with SP = 10 to 34
  3.     puppetsprite SP, TRUE
  4.   end repeat
  5.   updateStage
  6.   selectjihuda2
  7.   --  go to "noclick"
  8. end
  9.  
  10.  
  11. on selectJihuda2
  12.   global gHuda2
  13.   repeat with listct = 1 to 25
  14.     set the castNum of sprite listct + 9 = getAt(gHuda2, listct)
  15.     updateStage
  16.     wait 3
  17.   end repeat
  18. end
  19.  
  20. on wait Xtime
  21.   Starttimer
  22.   set endtime = the timer + Xtime
  23.   repeat while the timer < endtime
  24.     nothing
  25.   end repeat
  26. end
  27.