home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
roudoku.dir
/
00021_Script_21
< prev
next >
Wrap
Text File
|
1995-11-10
|
2KB
|
83 lines
on PushB
puppetSound "PUSH_SE"
put item 1 of the name of cast the castNum of sprite clickOn() into cName
repeat while stilldown()
if rollover(clickOn()) then
set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
else
set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
end if
updatestage
end repeat
set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
updatestage
if rollover(clickon()) then return TRUE
return FALSE
puppetSound 0
end
on PushB2
puppetSound "PUSH_SE"
put item 1 of the name of cast the castNum of sprite clickOn() into cName
repeat while stilldown()
if rollover(clickOn()) then
set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
else
set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
end if
updatestage
end repeat
set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
updatestage
return TRUE
puppetSound 0
end
on PushB3
puppetSound "PUSH_SE"
repeat with s = 30 to 32
puppetSprite s, FALSE
end repeat
put item 1 of the name of cast the castNum of sprite clickOn() into cName
repeat while stilldown()
if rollover(clickOn()) then
set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
else
set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
end if
updatestage
end repeat
puppetSprite clickOn(),true
set the castNum of sprite clickon() = the Number of cast (cName & ",DW")
updatestage
return TRUE
puppetSound 0
end
on checkzone
if rollover(39) then go to "SELECT"
if rollover(40) then go to "A_SO"
if rollover(41) then go to "TA_HO"
if rollover(42) then go to "MA_N"
if rollover(43) then go to "CUL"
end
on CULCHECK n
global CUL
if pushB2() then
if CUL = 0 then
put n into CUL
else
put n after CUL
end if
put CUL into field "CUL_NO"
end if
end