Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/Democd3/oasquiz.dxr/00097.ls

Text File | 1997-06-04 | 1.8 KB | 56 lines

on mouseDown
  global ans1, true_answer, Rand_Quest, guess, counter, checkcounter, n, level, m, scored, Rand_Sound, oldlevel, leveldiff, vert, x, highest, qright, qwrong, notend
  set checkcounter to 1
  set the visible of sprite 20 to 0
  puppetSound("click")
  set the locH of sprite 6 to the locH of sprite 6 + 2
  set the locV of sprite 6 to the locV of sprite 6 + 2
  set the locH of sprite 23 to the locH of sprite 23 + 2
  set the locV of sprite 23 to the locV of sprite 23 + 2
  updateStage()
  startTimer()
  repeat while the timer < 15
    nothing()
  end repeat
  set the locH of sprite 6 to the locH of sprite 6 - 2
  set the locV of sprite 6 to the locV of sprite 6 - 2
  set the locH of sprite 23 to the locH of sprite 23 - 2
  set the locV of sprite 23 to the locV of sprite 23 - 2
  updateStage()
  set the visible of sprite 26 to 1
  set the locH of sprite 26 to 395
  set the locV of sprite 26 to 270
  repeat with n = 155 to 160
    set the castNum of sprite 26 to n
    updateStage()
    startTimer()
    repeat while the timer < 5
      nothing()
    end repeat
  end repeat
  startTimer()
  repeat while the timer < 35
    nothing()
  end repeat
  set the visible of sprite 26 to 0
  set Rand_Sound to random(5)
  set the visible of sprite 8 to 0
  set the visible of sprite 19 to 1
  set the text of cast "quest" to " "
  set the visible of sprite 28 to 1
  set the visible of sprite 29 to 1
  set the visible of sprite 30 to 1
  set the visible of sprite 13 to 1
  set the text of cast "one" to " " & highest
  set the text of cast "two" to " " & qright
  set the text of cast "three" to " " & qwrong
  set the blend of sprite 15 to 0
  set the visible of sprite 8 to 0
  startTimer()
  set the visible of sprite 20 to 0
  updateStage()
  if notend = 0 then
    pause()
  end if
end