home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / maricopa / source / quizzer.dir / 00019.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  241 b   |  14 lines
  1. on mouseUp
  2.   if field "results" contains "CONGRATULATIONS" then
  3.     beep()
  4.     alert("You are certified!")
  5.   end if
  6.   makeQuiz()
  7.   go("quiz")
  8.   repeat with i = 2 to 6
  9.     puppetSprite(i, 1)
  10.   end repeat
  11.   puppetSprite(10, 1)
  12.   newQuiz()
  13. end
  14.