home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
finetown.dir
/
00058_Script_58
< prev
next >
Wrap
Text File
|
1995-11-10
|
3KB
|
66 lines
global Dis,moveSPlist,wari2
on upleftCD
set the castNum of sprite 25 to 36
set the castNum of sprite 24 to 44
if (the locH of sprite 25 < 30 and the locV of sprite 25 < 30)┬
or the locH of sprite 25 < 30 or the locV of sprite 25 < 30 then
abort
else
set the locH of sprite 24 to the locH of sprite 24 - Dis / wari2
set the locV of sprite 24 to the locV of sprite 24 - Dis / wari2
set the locH of sprite 25 to the locH of sprite 25 - Dis / wari2
set the locV of sprite 25 to the locV of sprite 25 - Dis / wari2
end if
end
on uprightCD
set the castNum of sprite 25 to 37
set the castNum of sprite 24 to 45
if ((the locH of sprite 25 > 400 and the locV of sprite 25 > 265) or ┬
the locH of sprite 25 > 482 and the locV of sprite 25 < 30) or┬
((the locH of sprite 25 > 400 and the locV of sprite 25 > 265) or ┬
the locH of sprite 25 > 482) or the locV of sprite 25 < 30 then
abort
else
set the locH of sprite 24 to the locH of sprite 24 + Dis / wari2
set the locV of sprite 24 to the locV of sprite 24 - Dis / wari2
set the locH of sprite 25 to the locH of sprite 25 + Dis / wari2
set the locV of sprite 25 to the locV of sprite 25 - Dis / wari2
end if
end
on downleftCD
set the castNum of sprite 25 to 38
set the castNum of sprite 24 to 46
if (the locH of sprite 25 < 30 and (the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
the locV of sprite 25 > 354) or ┬
the locH of sprite 25 < 30 or ((the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
the locV of sprite 25 > 354) then
abort
else
set the locH of sprite 24 to the locH of sprite 24 - Dis / wari2
set the locV of sprite 24 to the locV of sprite 24 + Dis / wari2
set the locH of sprite 25 to the locH of sprite 25 - Dis / wari2
set the locV of sprite 25 to the locV of sprite 25 + Dis / wari2
end if
end
on downrightCD
set the castNum of sprite 25 to 39
set the castNum of sprite 24 to 47
if (((the locH of sprite 25 > 400 and the locV of sprite 25 > 265) or ┬
the locH of sprite 25 > 482) and the locV of sprite 25 > 354) or ┬
((the locH of sprite 25 > 400 and ((the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
the locV of sprite 25 > 354)) or ┬
the locH of sprite 25 > 482) or ┬
((the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
the locV of sprite 25 > 354) then
abort
else
set the locH of sprite 24 to the locH of sprite 24 + Dis / wari2
set the locV of sprite 24 to the locV of sprite 24 + Dis / wari2
set the locH of sprite 25 to the locH of sprite 25 + Dis / wari2
set the locV of sprite 25 to the locV of sprite 25 + Dis / wari2
end if
end