home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / arcextra / trivia.dir / 00414_answer4.ls < prev    next >
Encoding:
Text File  |  1998-05-18  |  918 b   |  40 lines
  1. on mouseUp
  2.   global rightnum, correct_count
  3.   if rightnum = 4 then
  4.     if the timer < 200 then
  5.       puppetSound("rgoodans.aif")
  6.     else
  7.       puppetSound("goodans.aif")
  8.     end if
  9.     updateStage()
  10.     repeat while soundBusy(1)
  11.     end repeat
  12.     set correct_count to correct_count + 1
  13.     assignText()
  14.   else
  15.     puppetSound("badans.aif")
  16.     updateStage()
  17.     repeat while soundBusy(1)
  18.     end repeat
  19.     set the visible of sprite 26 to 0
  20.     if rightnum <> 1 then
  21.       set the visible of sprite 16 to 0
  22.     end if
  23.     if rightnum <> 2 then
  24.       set the visible of sprite 17 to 0
  25.     end if
  26.     if rightnum <> 3 then
  27.       set the visible of sprite 18 to 0
  28.     end if
  29.     updateStage()
  30.     set x to the timer + 100
  31.     repeat while x > the timer
  32.     end repeat
  33.     repeat with i = 16 to 18
  34.       set the visible of sprite i to 1
  35.     end repeat
  36.     set the visible of sprite 26 to 1
  37.     assignText()
  38.   end if
  39. end
  40.