home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
dpokalv2.dir
/
00603_Script_ÉrÉbÉNÉä
< prev
next >
Wrap
Text File
|
1995-11-10
|
964b
|
43 lines
global Plus
on BikkuriT T1,T2
set BikkuriT = [10, 10, 10]
-- preLoadCast 10 + Plus, 12 + Plus
repeat with i in BikkuriT
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 10 + Plus, 12 + Plus
end
on BikkuriH T1,T2
set BikkuriH = [50, 50, 50]
-- preLoadCast 50 + Plus, 52 + Plus
repeat with i in BikkuriH
set the castNum of sprite 2 = i + Plus
updateStage
wait T1
end repeat
set the castNum of sprite 2 = 41 + Plus
updateStage
wait T2
-- unLoadCast 50 + Plus, 52 + Plus
end
on BikkuriB T1,T2
set BikkuriB = [124, 124, 124]
-- preLoadCast 124 + Plus
repeat with i in BikkuriB
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 124 + Plus
end