home *** CD-ROM | disk | FTP | other *** search
/ 15 Beaut Aussie Games 1 / BEAUTGAMESV1.iso / pc / Windows / data1.cab / Program_Files / dswmedia / games / canetoad.dcr / gameControl_4.ls < prev    next >
Encoding:
Text File  |  2002-01-01  |  591 b   |  28 lines
  1. on exitFrame
  2.   global gameControl, hero, gameSpeed
  3.   currentRate = the timer
  4.   startTimer()
  5.   if currentRate < gameSpeed then
  6.     puppetTempo(the frameTempo - 1)
  7.   else
  8.     if (currentRate > gameSpeed) and (the frameTempo < 80) then
  9.       puppetTempo(the frameTempo + 1)
  10.     end if
  11.   end if
  12.   updateGame(gameControl)
  13.   case gameControl.action of
  14.     "levelDone":
  15.       puppetTempo(15)
  16.       if gameControl.levelNum = 3 then
  17.         go("pub")
  18.       else
  19.         go("garage")
  20.       end if
  21.     "dead":
  22.       puppetTempo(15)
  23.       go("deadUte")
  24.     otherwise:
  25.       go(the frame)
  26.   end case
  27. end
  28.