home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DIGIZINE 1
/
DIGIZINE.BIN
/
main
/
sony
/
payoff.dir
/
00026_Script_26
< prev
next >
Wrap
Text File
|
1995-09-12
|
4KB
|
163 lines
--high des start movie
on STARTMOVIE
global gDesScore,gSndPath,QTKarmic,gKarmicAnimal,gQTSoundChannel
set QTKarmic = 15 --sprite of the karmic QT
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
put 45 into gDesScore --################TEMP
CHECKANIMAL
end
-------------------------------------------------------------
-------------------------------------------------------------
--determine which animal user will become
on CHECKANIMAL
global gDesScore,gKarmicAnimal
if gDesScore < 0 then
set gKarmicAnimal = "germ"
exit
else if gDesScore > -5 and gDesScore < 10 then
set gKarmicAnimal = "beetle"
exit
else if gDesScore > 5 and gDesScore < 20 then
set gKarmicAnimal = "bass"
exit
else if gDesScore > 15 and gDesScore < 30 then
set gKarmicAnimal = "warthog"
exit
else if gDesScore > 25 and gDesScore < 40 then
set gKarmicAnimal = "retriever"
exit
else if gDesScore > 35 and gDesScore < 45 then
set gKarmicAnimal = "penniless"
exit
else if gDesScore > 40 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 "SALLFDG2.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
puppetsprite(7), true
set the castNum of sprite(7) to cast gKarmicAnimal
updatestage
end
-------------------------------------------------------------
-------------------------------------------------------------
on SAYGOODBYE
global gDesScore,gGoodbyeLength
if gDesScore < 0 then
PlayQTSound "SDKG035.MOV", false
put the duration of cast "SDKG035.MOV" into gGoodbyeLength
else if gDesScore > -5 and gDesScore < 25 then
PlayQTSound "SDKG036.MOV", false
put the duration of cast "SDKG036.MOV" into gGoodbyeLength
else if gDesScore > 15 and gDesScore < 45 then
PlayQTSound "SDKG037.MOV", false
put the duration of cast "SDKG037.MOV" into gGoodbyeLength
else if gDesScore > 40 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