home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
dpokalv2.dir
/
00608_Script_ÉgÉzÉz2
< prev
next >
Wrap
Text File
|
1995-11-10
|
978b
|
43 lines
global Plus
on Tohoho2T T1,T2
set TohohoT = [28, 28, 28, 28, 28]
-- preLoadCast 28 + Plus, 30 + Plus
repeat with i in TohohoT
set the castNum of sprite 2 = i + Plus
updateStage
wait T1
end repeat
set the castNum of sprite 2 = 1 + Plus
updateStage
wait T2
-- unLoadCast 28 + Plus, 30 + Plus
end
on Tohoho2H T1,T2
set TohohoH = [68, 68, 68, 68, 68]
preLoadCast 68 + Plus, 70 + Plus
repeat with i in TohohoH
set the castNum of sprite 2 = i + Plus
updateStage
wait T1
end repeat
wait T2
set the castNum of sprite 2 = 41 + Plus
updateStage
unLoadCast 68 + Plus, 70 + Plus
end
on Tohoho2B T1,T2
set TohohoB = [129, 129, 129, 129, 129 ]
-- preLoadCast 129 + Plus
repeat with i in TohohoB
set the castNum of sprite 2 = i + Plus
updateStage
wait T1
end repeat
set the castNum of sprite 2 = 121 + Plus
updateStage
wait T2
-- unLoadCast 129 + Plus
end