home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / FishingHole.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  607 b   |  28 lines
  1. property pATimer
  2. global gFishFollowingBait, gRemaindingTime, gScore, gFishCaught
  3.  
  4. on new me
  5.   gRemaindingTime = 120
  6.   displayTime()
  7.   pATimer = the ticks
  8.   gNumFishCaught = 0
  9.   gScore = 0
  10.   member("FishesDisplay").text = "0"
  11.   member("ScoreDisplay").text = "0"
  12. end
  13.  
  14. on exitFrame me
  15.   if (pATimer + 60) < the ticks then
  16.     gRemaindingTime = gRemaindingTime - 1
  17.     if gRemaindingTime < 0 then
  18.       member("YourScore").text = "Your Score: " & string(gScore)
  19.       go(the frame + 1)
  20.       puppetSound(5, "win10")
  21.     else
  22.       pATimer = the ticks
  23.       displayTime()
  24.     end if
  25.   end if
  26.   go(the frame)
  27. end
  28.