home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / oasquiz.dxr / 00200.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  1.1 KB  |  43 lines
  1. on mouseDown
  2.   global ans1, true_answer, Rand_Quest, guess, counter, checkcounter, n, level, m, scored, Rand_Sound, oldlevel, leveldiff, vert, x
  3.   set checkcounter to 1
  4.   set the visible of sprite 20 to 0
  5.   puppetSound("click")
  6.   set the blend of sprite 5 to 100
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 11
  10.   end repeat
  11.   set the blend of sprite 5 to 65
  12.   updateStage()
  13.   set the soundEnabled to 1
  14.   set the visible of sprite 8 to 1
  15.   set the locV of sprite 8 to 250
  16.   repeat with n = 1 to 100
  17.     set the locH of sprite 8 to n
  18.     updateStage()
  19.   end repeat
  20.   set the castNum of sprite 8 to 173
  21.   updateStage()
  22.   repeat with n = 1 to 50
  23.     set vert to the locV of sprite 8
  24.     set the locV of sprite 8 to vert - n
  25.     startTimer()
  26.     repeat while the timer < 2
  27.       nothing()
  28.     end repeat
  29.     updateStage()
  30.   end repeat
  31.   set the visible of sprite 8 to 0
  32.   startTimer()
  33.   set true_answer to 0
  34.   set the visible of sprite 23 to 1
  35.   set the visible of sprite 24 to 1
  36.   set the blend of sprite 15 to 0
  37.   set checkcounter to 1
  38.   set counter to counter + 1
  39.   updateStage()
  40.   set Rand_Sound to 10
  41.   go(1, "quiztemp2")
  42. end
  43.