home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
cngrkpl.dir
/
00130_Script_130
< prev
next >
Wrap
Text File
|
1996-05-30
|
1KB
|
59 lines
on setTimer
timeOutOff
global allotedSeconds
put 40 into allotedSeconds
global gameStartTicks
put the ticks into gameStartTicks
set the text of cast "GameTimer" to string(allotedSeconds)
end
on updateTimer
global gameStartTicks, allotedSeconds, gameOver
put allotedSeconds - ((the ticks - gameStartTicks) / 60) into gameSecondsRemain
set the text of cast "GameTimer" to string(gameSecondsRemain)
put false into gameOver
if gameSecondsRemain <= 0 then
put true into gameOver
gameOutOfTime
end if
end
on gameOutOfTime
global totalPlaced
endGeoGame
if totalPlaced < 10 then
puppetSound "bad"
updateStage
else
puppetSound "good"
updateStage
end if
go frame "CNGrkPlSt1"
end
on endGeoGame
global firstPlacedOutline,lastPlacedOutline
repeat with i = (firstPlacedOutline - 1) to lastPlacedOutline
puppetSprite i, FALSE
end repeat
when mouseDown then nothing
end
on success
endGeoGame
puppetSound "success"
updateStage
go frame "CNGrkPlSt1"
end