home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LAUNCH 2
/
LAUNCH.BIN
/
mac
/
SONY
/
PAYOFF.DIR
/
00001_Script_1
next >
Wrap
Text File
|
1995-06-07
|
5KB
|
182 lines
--high des start movie
on STARTMOVIE
global gDesScore,gSndPath,QTKarmic,gKarmicAnimal,gQTSoundChannel
-- INTBUGFIX
set QTKarmic = 15 --sprite of the karmic QT
set the randomSeed to the ticks
set gQTSoundChannel = 44
puppetSprite gQTSoundChannel, TRUE
set the movierate of sprite(gQTSoundChannel) = 0
if the machineType = 256 then
set gSndPath to the pathname & "sounds\" --PC
else
set gSndPath to the pathname & "sounds:" --Macintosh
end if
CHECKANIMAL
cursor 200 --no cursor visible
end
-------------------------------------------------------------
-------------------------------------------------------------
--determine which animal user will become
on CHECKANIMAL
global gDesScore,gKarmicAnimal
if gDesScore < 0 then
set gKarmicAnimal = "germ"
exit
else if gDesScore > -1 and gDesScore < 10 then
set gKarmicAnimal = "beetle"
exit
else if gDesScore > 9 and gDesScore < 20 then
set gKarmicAnimal = "bass"
exit
else if gDesScore > 19 and gDesScore < 30 then
set gKarmicAnimal = "warthog"
exit
else if gDesScore > 29 and gDesScore < 45 then
set gKarmicAnimal = "penniles"
exit
else if gDesScore > 44 and gDesScore < 50 then
set gKarmicAnimal = "retrieve" --should be penniless
exit
else if gDesScore = 50 then
set gKarmicAnimal = "famous"
exit
end if
end
-------------------------------------------------------------
-------------------------------------------------------------
on SETNEEDLE
global gDesScore,gKarmicAnimal
puppetsprite(9), true
if gDesScore = 0 then exit --needle doesn't move
--score is below 0
if gDesScore < 0 then
set Z = 0 --starting point to count down
repeat while Z <> gDesScore
set Needle to ("score " & Z)
set the castNum of sprite(9) to the number of cast Needle
updatestage
set Z = (Z - 5)
end repeat
end if
--score is better than 0
if gDesScore > 0 then
set Z = 0 --starting point to count up
repeat while Z <> gDesScore
set Needle to ("score " & Z)
set the castNum of sprite(9) to the number of cast Needle
updatestage
set Z = (Z + 5)
end repeat
end if
--set needle to final position and sound it
PlayQTSound "SHDTPCF1.MOV", false
set Needle to ("score " & gDesScore)
set the castNum of sprite(9) to the number of cast Needle
updatestage
startTimer
repeat while the timer < 79 --duration of this sound
nothing
end repeat
KillQTSound
end
-------------------------------------------------------------
-------------------------------------------------------------
on SETANIMAL
global gDesScore,gKarmicAnimal
PlayQTSound "SALLHORN.MOV"
startTimer
repeat while the timer < 73 --duration of this sound
nothing
end repeat
KillQTSound
if gKarmicAnimal = "penniles" then set gKarmicAnimal = "famous"
puppetsprite(7), true
set the castNum of sprite(7) to cast gKarmicAnimal
updatestage
end
-------------------------------------------------------------
-------------------------------------------------------------
on SAYGOODBYE
global gDesScore,gGoodbyeLength,QTSoundChannel
-- if gDesScore < 10 then
-- PlayQTSound "SDKG035.MOV", false
-- put the duration of cast "SDKG035.MOV" into gGoodbyeLength
-- else if gDesScore > 5 and gDesScore < 30 then
-- PlayQTSound "SDKG036.MOV", false
-- put the duration of cast "SDKG036.MOV" into gGoodbyeLength
-- else if gDesScore > 25 and gDesScore < 40 then
PlayQTSound "SKGREV12.MOV", false
put the duration of cast "SKGREV12.MOV" into gGoodbyeLength
-- --SDKG037.MOV DELETE FROM SOUNDS FOLDER
-- else if gDesScore > 35 then
-- PlayQTSound "SDKG038.MOV", false
-- put the duration of cast "SDKG038.MOV" into gGoodbyeLength
-- end if
updatestage
end
-------------------------------------------------------------
-------------------------------------------------------------
on ONESECDELAY
startTimer
repeat while the timer < 60
nothing
end repeat
end
-------------------------------------------------------------
-------------------------------------------------------------
on RETMAINMENU
puppetsprite(7), false
puppetsprite(9), false
go (the frame + 2)
end