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

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

on mouseDown
  global ans1, true_answer, Rand_Quest, guess, counter, checkcounter, n, level, m, scored, Rand_Sound, oldlevel, leveldiff, vert, x, notend
  set checkcounter to 1
  puppetSprite(13, 0)
  puppetSprite(9, 0)
  set the visible of sprite 20 to 0
  puppetSound("click")
  set the locH of sprite 5 to the locH of sprite 5 + 2
  set the locV of sprite 5 to the locV of sprite 5 + 2
  set the locH of sprite 22 to the locH of sprite 22 + 2
  set the locV of sprite 22 to the locV of sprite 22 + 2
  updateStage()
  startTimer()
  repeat while the timer < 15
    nothing()
  end repeat
  set the locH of sprite 5 to the locH of sprite 5 - 2
  set the locV of sprite 5 to the locV of sprite 5 - 2
  set the locH of sprite 22 to the locH of sprite 22 - 2
  set the locV of sprite 22 to the locV of sprite 22 - 2
  updateStage()
  set the visible of sprite 26 to 1
  set the locH of sprite 26 to 345
  set the locV of sprite 26 to 190
  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 20 to 1
  set the visible of sprite 23 to 1
  set the visible of sprite 24 to 1
  set the blend of sprite 15 to 0
  updateStage()
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 8 to 0
  set the visible of sprite 19 to 0
  updateStage()
  startTimer()
  set the visible of sprite 20 to 0
  updateStage()
  if notend = 0 then
    go(1, "oasquiz")
  end if
  if notend = 1 then
    set notend to 0
    go("s")
  end if
end