home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today (BR) Volume 2 #6
/
CDRTV2N6.iso
/
makers
/
power
/
ue.dir
/
00192_Script_192
< prev
next >
Wrap
Text File
|
1996-03-13
|
9KB
|
292 lines
on startMovie
global PrevFrame,fixpal,startcast,MensFrames,ColorCrsr
puppetSprite 17,TRUE
set the castNum of sprite 17 to the number of cast string("v"&the soundLevel)
put EMPTY into PrevFrame
initMap
repeat with i=20 to 25
puppetSprite i,TRUE
end repeat
repeat with i=11 to 17
puppetSprite i,TRUE
end repeat
if the machineType <> 256 then
openxlib "FixPal.obj"
set fixpal=FixPalette(mNew, the stageLeft, the stageTop, the stageRight, the stageTop)
patchpal
openxlib "ColourM.Obj"
end if
put the number of cast "rolet0" into startcast
put "059,054,104,056,056,098,100,078,030,014,015,017,046,047,048,048" into MensFrames
put EMPTY into ColorCrsr
end startmovie
on patchpal
global fixpal
fixpal(mPatchIt)
end patchpal
on stopmovie
global fixpal,ColorCrsr
sound stop 1
sound stop 2
unLoad
unLoadCast
if the machineType <> 256 then
fixpal(mDispose)
closexlib "FixPal.obj"
if objectP(ColorCrsr) then
colorcrsr(mDispose)
closexlib "ColourM.Obj"
end if
end if
end stopmovie
on chooseBack currFrame,theItem
global PrevFrame,FramesMap,CameFromFile,ToGo
if currFrame = 39 then
if PrevFrame = 64 then go frame "064"
else go frame "077"
else if currFrame = 46 then
if PrevFrame = 37 then go frame "037"
else go frame "045"
else if currFrame = 50 then
if PrevFrame = 44 then go frame "044"
else go frame "051"
else if currFrame = 77 then
if PrevFrame = 51 then go frame "051"
else go frame "044"
else if currFrame = 80 then
if PrevFrame = 75 then go frame "075"
else go frame "079"
else if currFrame = 94 then
-- put "america" into CameFromFile
-- put "042" into ToGo
-- go frame "black"
-- go frame "fade" of movie "terror.dir"
DemoOnly 48 , 105 , -130
else if currFrame = 98 then
-- put "america" into CameFromFile
-- put "002" into ToGo
-- go frame "black"
-- go frame "fade" of movie "terror.dir"
DemoOnly 48 , 105 , -130
end if
end
on hilitDirections
global FramesMap
put ((the frame) + 2) / 3 into theLine
if the locV of sprite 2 <> 308 then set the locV of sprite 2 to 308
set the movieTime of sprite 2 to (theLine * 60) - 1
updateStage
repeat with i=1 to 6
if string(item i of line theLine of FramesMap) <> "000" then
set the castNum of sprite (i + 19) to the number of cast string(char 1 to 2 of the name of cast the castNum of sprite (i + 19)&"H")
else
set the castNum of sprite (i + 19) to the number of cast string(char 1 to 2 of the name of cast the castNum of sprite (i + 19)&"E")
end if
end repeat
updateStage
end
on rollOvers
if rollOver(2) then
check2
else if rollOver(11) then
check12
else if the mouseCast = 119 then
changeCast 119,13
else if the mouseCast = 117 then
changeCast 117,14
else if the mouseCast = 121 then
changeCast 121,15
else if rollOver(16) then
roll 16
else if rollOver(27) then
roll 27
else
ReleasCursor
cursor 0
end if
updateStage
end
on changeCast theRoll,theSprite
ReleasCursor
cursor 0
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
end repeat
set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
end if
end
on roll theRoll
ReleasCursor
cursor 0
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
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 check12
global startcast,ItemDel
set the castnum of sprite 11 = (the castnum of sprite 11) + 1
set endcast = startcast + 30
put the ticks into Stime
repeat while rollover(11) and not the mousedown
if the ticks - Stime > 2 then
if the castNum of sprite 12 < endcast then set the castNum of sprite 12 to (the castNum of sprite 12) + 1
else set the castNum of sprite 12 to (startcast+1)
updateStage
put the ticks into Stime
end if
end repeat
if the mouseDown then
put the pathName into temp
set the itemDelimiter to ItemDel
delete item the number of items of temp of temp
delete item the number of items of temp of temp
set the itemDelimiter to ","
unload
unloadCast
set the visible of sprite 2 to false
updateStage
go frame "black"
go movie string(temp&ItemDel&"random.dir")
end if
if the movie <> "random.dir" then
set the castnum of sprite 11 = (the castnum of sprite 11) - 1
set the castNum of sprite 12 to startcast
end if
end
on GoDatabase num
global gMakerNum,ItemDel,MensFrames
put "32,127,78,pool,pool,098,184,149,14,102,115,140,152,148,mount,mount" into temp
put 1 into i
repeat while i < the number of items of temp
if num = item i of MensFrames then
exit repeat
else
put i+1 into i
end if
end repeat
if item i of temp <> "pool" and item i of temp <> "mount" then
put value(item i of temp) into x
else if item i of temp = "pool" then
if the mouseH < 314 then put 45 into x
else put 63 into x
else
if the mouseH > 376 then put 99 into x
else if the mouseH > 239 then put 132 into x
end if
put x into num
set gMakerNum = num
sound stop 1
sound stop 2
unload
unloadCast
puppetSprite 2,FALSE
set the itemDelimiter to ItemDel
put item 1 of the pathName into temp
set the itemDelimiter to ","
set the visible of sprite 2 to false
updateStage
go frame "black"
go to frame "database" of movie temp&ItemDel&"DATABASE"&ItemDel&"POWER.DIR"
end
on check2
global FramesMap,MensFrames
put line (((the frame) + 2) / 3) of FramesMap into temp
if inside(point(the mouseH,the mouseV), rect(22, 189, 122, 429)) and string(item 2 of temp) <> "000" then --left
MyCursor 254,255
else if inside(point(the mouseH,the mouseV), rect(512, 189, 612, 429)) and string(item 1 of temp) <> "000" then --right
MyCursor 252,253
else if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and string(item 3 of temp) <> "000" then --forward
MyCursor 258,259
else if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and MensFrames contains string(((the frame) + 2) / 3) and string(((the frame) + 2) / 3) <> 9 then --DataBase
SetCursor
else if inside(point(the mouseH,the mouseV), rect(122, 189, 512, 229)) and string(item 5 of temp) <> "000" then --up
MyCursor 250,251
else if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 4 of temp) <> "000" then --back
MyCursor 256,257
else if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 6 of temp) <> "000" then --down
MyCursor 248,249
else
ReleasCursor
cursor 0
end if
end
on MyCursor a,b
ReleasCursor
cursor [a,b]
end
on SetCursor
global colorcrsr
if the machineType <> 256 then
if not objectP(ColorCrsr) then
set colorcrsr = colorcursor(mNew)
end if
colorcrsr(mGetSetCursor,9000)
else
cursor [275,276]
end if
end
on ReleasCursor
global ColorCrsr
if the machineType <> 256 then
if objectP(ColorCrsr) then
colorcrsr(mReleaseCursor)
colorcrsr(mDispose)
updateStage
cursor 4
end if
end if
end
on hiliteBtn 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 mousedown
end repeat
set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
end if
end