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

Text File | 1997-06-04 | 4.3 KB | 165 lines

on mouseDown
  global ans1, true_answer, Rand_Quest, guess, counter, checkcounter, n, level, m, scored, Rand_Sound, oldlevel, leveldiff, vert, x, highest, plost, pwon, qright, qwrong, pend, notend, inarow, gameover, soundon
  set the volume of sound 1 to 250
  set checkcounter to 1
  set the visible of sprite 20 to 0
  puppetSound("click")
  set the visible of sprite 13 to 0
  set the visible of sprite 28 to 0
  set the visible of sprite 29 to 0
  set the visible of sprite 30 to 0
  set the blend of sprite 5 to 90
  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 Rand_Sound to random(5)
  if true_answer = "1" then
    if Rand_Sound = 1 then
      puppetSound("funkbit2")
    end if
    if Rand_Sound = 2 then
      puppetSound("funkbit3")
    end if
    if Rand_Sound = 3 then
      puppetSound("funkbit2")
    end if
    if Rand_Sound = 4 then
      puppetSound("rockbit6")
    end if
    if Rand_Sound = 5 then
      puppetSound("rockbit5")
    end if
    set inarow to inarow + 1
    set qright to qright + 1
    set the visible of sprite 26 to 1
    set the locV of sprite 26 to 200
    updateStage()
    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 < 50
      nothing()
    end repeat
    set the visible of sprite 8 to 0
    set oldlevel to level
    set level to level + 1
    set leveldiff to oldlevel - level
    set the visible of sprite 20 to 1
  end if
  if true_answer <> "1" then
    set inarow to 0
    set qwrong to qwrong + 1
    if Rand_Sound = 1 then
      puppetSound("bluebit7")
    end if
    if Rand_Sound = 2 then
      puppetSound("bluebit3")
    end if
    if Rand_Sound = 3 then
      puppetSound("bluebit9")
    end if
    if Rand_Sound = 4 then
      puppetSound("blubit11")
    end if
    if Rand_Sound = 5 then
      puppetSound("bluebit6")
    end if
    set the visible of sprite 26 to 1
    repeat with n = 257 to 265
      set the castNum of sprite 26 to n
      updateStage()
      startTimer()
      repeat while the timer < 5
        nothing()
      end repeat
    end repeat
    set oldlevel to level
    set level to level - random(level - 1)
    if gameover = 1 then
      set level to 0
    end if
    if level < 0 then
      set level to 0
    end if
    set leveldiff to oldlevel - level
    updateStage()
  end if
  startTimer()
  set true_answer to 0
  set the visible of sprite 23 to 1
  set the visible of sprite 24 to 1
  set the blend of sprite 15 to 0
  set checkcounter to 1
  set counter to counter + 1
  updateStage()
  set Rand_Sound to 10
  repeat while soundBusy(1) = 1
  end repeat
  if level > oldlevel then
    puppetSound("rise1")
    if the castNum of sprite 12 <> 296 then
      set the castNum of sprite 12 to the castNum of sprite 12 + 1
      updateStage()
    end if
  else
    if level < oldlevel then
      puppetSound("fall1")
    end if
  end if
  if level > highest then
    set highest to level
  end if
  set the visible of sprite 19 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  updateStage()
  if level = 0 then
    set plost to 1
    puppetSound("fall1")
    set notend to 0
    go("end")
    exit
  end if
  if level = 20 then
    set notend to 0
    set pwon to 1
    go("end")
    exit
  end if
  if (counter = 60) and (level <> 20) then
    set notend to 0
    set pend to 1
    go("end")
    exit
  end if
  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()
  set notend to 1
  go("end")
end