home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / oasquiz.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  2.0 KB  |  66 lines
  1. on mouseDown
  2.   global ans1, true_answer, Rand_Quest, guess, counter, checkcounter, n, level, m, scored, Rand_Sound, oldlevel, leveldiff, vert, x, highest, qright, qwrong, notend
  3.   set checkcounter to 1
  4.   set the visible of sprite 20 to 0
  5.   puppetSound("click")
  6.   set the blend of sprite 6 to 90
  7.   set the locH of sprite 6 to the locH of sprite 6 + 2
  8.   set the locV of sprite 6 to the locV of sprite 6 + 2
  9.   set the locH of sprite 23 to the locH of sprite 23 + 2
  10.   set the locV of sprite 23 to the locV of sprite 23 + 2
  11.   updateStage()
  12.   startTimer()
  13.   repeat while the timer < 15
  14.     nothing()
  15.   end repeat
  16.   set the locH of sprite 6 to the locH of sprite 6 - 2
  17.   set the locV of sprite 6 to the locV of sprite 6 - 2
  18.   set the locH of sprite 23 to the locH of sprite 23 - 2
  19.   set the locV of sprite 23 to the locV of sprite 23 - 2
  20.   set the blend of sprite 6 to 60
  21.   updateStage()
  22.   set the visible of sprite 8 to 1
  23.   set the locV of sprite 8 to 340
  24.   repeat with n = 1 to 100
  25.     set the locH of sprite 8 to n
  26.     updateStage()
  27.   end repeat
  28.   set Rand_Sound to random(5)
  29.   set the castNum of sprite 8 to 173
  30.   updateStage()
  31.   repeat with n = 1 to 50
  32.     set vert to the locV of sprite 8
  33.     set the locV of sprite 8 to vert - n
  34.     startTimer()
  35.     repeat while the timer < 2
  36.       nothing()
  37.     end repeat
  38.     updateStage()
  39.   end repeat
  40.   set the visible of sprite 8 to 0
  41.   set the visible of sprite 19 to 1
  42.   set the text of cast "quest" to "Statistics"
  43.   set the visible of sprite 28 to 1
  44.   set the visible of sprite 29 to 1
  45.   set the visible of sprite 30 to 1
  46.   set the visible of sprite 13 to 1
  47.   set the text of cast "one" to " " & highest
  48.   set the text of cast "two" to " " & qright
  49.   set the text of cast "three" to " " & qwrong
  50.   set the blend of sprite 15 to 0
  51.   set the visible of sprite 8 to 0
  52.   startTimer()
  53.   set the visible of sprite 20 to 0
  54.   updateStage()
  55.   if notend = 0 then
  56.     pause()
  57.   end if
  58.   if notend = 1 then
  59.     startTimer()
  60.     repeat while the timer < 250
  61.       nothing()
  62.     end repeat
  63.     go(1, "oasquiz")
  64.   end if
  65. end
  66.