home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
library2.dir
/
00119_Script_119
< prev
next >
Wrap
Text File
|
1995-11-13
|
4KB
|
139 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 PushBB
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 & ",DW")
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
on stopmovie
global gFrameR,gMovieR
put the Frame into gFrameR
put "LIBRARY2" into gMovieR
repeat with n = 11 to 48
puppetSprite n,False
updatestage
end repeat
end
on MARKBUTTON
global NoPoHV,syurui
puppetSprite 28, true
set the castNum of sprite 28 = integer(item 1 of NoPoHV)
set the locH of sprite 28 = integer(item 2 of NoPoHV)
set the locV of sprite 28 = integer(item 3 of NoPoHV)
if syurui = "Γ├Ωl" then
puppetSprite 9, true
set the castNum of sprite 9 = 203
set the locH of sprite 9 = 66
set the locV of sprite 9 = 65
else
if syurui = "Φä╟├π┬╟├Γ├" then
puppetSprite 9, true
set the castNum of sprite 9 = 205
set the locH of sprite 9 = 66
set the locV of sprite 9 = 103
else
if syurui = "Γè╟├π┬╟├Γ├" then
puppetSprite 9, true
set the castNum of sprite 9 = 207
set the locH of sprite 9 = 66
set the locV of sprite 9 = 141
end if
end if
end if
end