home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / csinke6.dir / 00427_Script_ÉgÉzÉz < prev    next >
Text File  |  1995-11-13  |  1KB  |  43 lines
  1. global Plus
  2.  
  3. on TohohoT T1,T2
  4.   set TohohoT = [25, 26, 27, 26, 25]
  5.   --  preLoadCast 25 + Plus, 27 + Plus
  6.   repeat with i in TohohoT
  7.     set the castNum of sprite 40 = i + Plus
  8.     updateStage
  9.     wait T1
  10.   end repeat
  11.   set the castNum of sprite 40 = 1 + Plus
  12.   updateStage
  13.   wait T2
  14.   --  unLoadCast 25 + Plus, 27 + Plus
  15. end
  16.  
  17. on TohohoH T1,T2
  18.   set TohohoH = [65, 66, 67, 66, 65]
  19.   --  preLoadCast 65 + Plus, 67 + Plus
  20.   repeat with i in TohohoH
  21.     set the castNum of sprite 40 = i + Plus
  22.     updateStage
  23.     wait T1
  24.   end repeat 
  25.   set the castNum of sprite 40 = 41 + Plus
  26.   updateStage
  27.   wait T2
  28.   --  unLoadCast 65 + Plus, 67 + Plus
  29. end 
  30.  
  31. on TohohoB T1,T2
  32.   set TohohoB = [102, 103, 104, 103, 102 ]
  33.   --  preLoadCast 102 + Plus, 104 + Plus
  34.   repeat with i in TohohoB
  35.     set the castNum of sprite 40 = i + Plus
  36.     updateStage
  37.     wait T1
  38.   end repeat
  39.   set the castNum of sprite 40 = 81 + Plus
  40.   updateStage
  41.   wait T2
  42.   --  unLoadCast 102 + Plus, 104 + Plus
  43. end