home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
library2.dir
/
00004_Script_4
< prev
next >
Wrap
Text File
|
1995-11-13
|
996b
|
36 lines
on mousedown
global kasira,syurui
puppetSound "PUSH_SE"
put Clickon() into vSP
puppetSprite vSP, true
put item 1 of the name of cast the castNum of sprite vSP into cName
set the castNum of sprite vSP = the number of cast (cName & ",DW")
if syurui = "Γ├Ωl" then
puppetSprite 6, true
set the castNum of sprite 6 = the number of cast "SAKUSHA,DW"
end if
repeat with n = 10 to 27
if n = vSP then next repeat
else
puppetSprite n, false
put item 1 of the name of cast the castNum of sprite n into cName
set the castNum of sprite n = the number of cast (cName & ",up")
updatestage
end if
end repeat
put item 1 of the name of cast the castNum of sprite vSp into kasira
KENSAKU
puppetSound 0
end
--put Clickon() into vSP
--puppetSprite vSP, true
--repeat with n = 10 to 27
-- if n = vSP then next repeat
-- else
-- puppetSprite n, false
-- end if
-- updatestage
--end repeat