home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / chromo_g.dxr / 00002_Timer scripts.ls < prev    next >
Encoding:
Text File  |  1996-09-01  |  538 b   |  22 lines
  1. on idle
  2.   global timer
  3.   if (timer = 1) and (the frame > 2) then
  4.     if (the movieRate of sprite 11 = 0) or (the movieTime of sprite 11 = 21600) then
  5.       TimeUp()
  6.     end if
  7.   end if
  8.   GameIdle()
  9.   PopIdle()
  10. end
  11.  
  12. on TimeUp
  13.   global timer, myWindow, Start, Wrong, NumChromosomes, NumMatches, GameScore
  14.   close(myWindow)
  15.   set Start to 1
  16.   set Temp to NumMatches
  17.   set timer to 0
  18.   put "Timeup.  You matched " & Temp & " sets of chromosomes.  Your score is " & score() & "." into field "MsgBox"
  19.   puppetSound("Game Over")
  20.   ShowBox()
  21. end
  22.