home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today (BR) Volume 2 #6
/
CDRTV2N6.iso
/
makers
/
power
/
globe.dir
/
00013_Script_13
< prev
next >
Wrap
Text File
|
1996-03-11
|
5KB
|
175 lines
on startMovie
global LandSighn,ToGo,StartCast,LoopQt,fixpal,CurrRoll
global prevMovie
set prevMovie = "power"
set CurrRoll = FALSE
if the machineType <> 256 then
openxlib "FIXPAL.OBJ"
set fixpal=FixPalette(mNew, the stageLeft, the stageTop, the stageRight, the stageTop)
patchpal
end if
sound stop 1
sound stop 2
repeat with i=4 to 14
puppetSprite i,TRUE
end repeat
put the number of cast "rolette0" into StartCast
set the itemDelimiter to ","
put TRUE into LoopQt
end
on patchpal
global fixpal
fixpal(mPatchIt)
end patchpal
on stopmovie
global fixpal
if the machineType <> 256 then
fixpal(mDispose)
closexlib "FIXPAL.OBJ"
end if
end stopmovie
on rollOvers
global CurrRoll
set CurrRoll = TRUE
if rollOver(6) then
hilite 6
else if rollOver(9) then
check10
else if the mouseCast = 28 then
changeCast 28,11
else if the mouseCast = 30 then
changeCast 30,13
else if rollOver(14) then
roll 14
end if
updateStage
end
on changeCast theRoll,theSprite
if not(the name of cast the castNum of sprite theSprite contains "down") then
set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
updatestage
repeat while the mouseCast = theRoll + 1 and not the mouseDown
checkQT
updateStage
end repeat
set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
end if
end
on roll theRoll
if not(the name of cast the castNum of sprite theRoll contains "down") then
set the castNum of sprite theRoll to (the castNum of sprite theRoll) + 1
updatestage
repeat while rollover(theRoll) and not the mousedown
checkQT
updateStage
end repeat
set the castNum of sprite theRoll to (the castNum of sprite theRoll) - 1
end if
end
on unRoll theRoll
if the name of cast the castNum of sprite theRoll contains "down" then
set the castNum of sprite theRoll to (the castNum of sprite theRoll) - 1
updateStage
end if
end
on hilite theRoll
global LoopQt
if LoopQt then
if not(the name of cast the castNum of sprite theRoll contains "down") then
set the castNum of sprite theRoll to (the castNum of sprite theRoll) + 1
updatestage
repeat while rollover(theRoll) and not the mousedown
checkQT
updateStage
go the frame
end repeat
set the castNum of sprite theRoll to (the castNum of sprite theRoll) - 1
updateStage
end if
end if
end
on check10
global StartCast
set the LocH of sprite 19 to -210
updateStage
set the castnum of sprite 9 = (the castnum of sprite 9) + 1
set endcast = startcast + 30
put the ticks into Stime
repeat while rollover(9) and not the mousedown
if the ticks - Stime > 2 then
if the castNum of sprite 10 < endcast then set the castNum of sprite 10 to (the castNum of sprite 10) + 1
else set the castNum of sprite 10 to (startcast+1)
checkQT
updateStage
put the ticks into Stime
end if
end repeat
set the castnum of sprite 9 = (the castnum of sprite 9) - 1
set the castNum of sprite 10 to startcast
end
on checkQT
global LoopQt
--(240 / 12 * 60) = 1200 etc.
if LoopQt then
if the movieTime of sprite 2 > 1200 then
set the movieTime of sprite 2 to 0
updateStage
end if
end if
end
on rollQt toFrame
global LoopQt,ToGo
put FALSE into LoopQt
put the name of cast the castNum of sprite the clickOn into ToFile
if toFrame = 110 and the clickOn <> 7 then --Middle
set the movieTime of sprite 2 to 1450
set the movieRate of sprite 2 to 1
moveToFrame 1560
else if toFrame = 110 then --Europe
set the movieTime of sprite 2 to 1335
set the movieRate of sprite 2 to 1
moveToFrame 1440
else if toFrame = 230 then --Russia
set the movieTime of sprite 2 to 1575
set the movieRate of sprite 2 to 1
moveToFrame 1680
else if toFrame = 380 then --Asia
set the movieTime of sprite 2 to 1210
set the movieRate of sprite 2 to 1
moveToFrame 1320
else if toFrame = 925 then --USA
set the movieTime of sprite 2 to 1690
set the movieRate of sprite 2 to 1
moveToFrame 1805
end if
put "open" into ToGo
go frame "fade" of movie string(ToFile&"E.dir")
end
on moveToFrame toFrame
repeat while the movieTime of sprite 2 < toFrame
-- go the frame
updateStage
end repeat
end