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

Text File | 1997-06-04 | 4.6 KB | 174 lines

on mouseDown
  global ans2, true_answer, Rand_Quest, guess, counter, n, oldlevel, x, leveldiff, scored, Rand_Sound, level, highest, qright, qwrong, plost, pwon, pend, notend, inarow, gameover, soundon
  set the visible of sprite 20 to 0
  set the volume of sound 1 to 250
  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 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 12 to 0
  set the blend of sprite 47 to 60
  set the blend of sprite 37 to 45
  set the blend of sprite 39 to 45
  set Rand_Sound to random(5)
  if true_answer = "2" then
    set inarow to inarow + 1
    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 the visible of sprite 26 to 1
    set the locH of sprite 26 to 433
    set the locV of sprite 26 to 270
    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 qright to qright + 1
    set scored to scored + 1
    set the visible of sprite 20 to 1
  end if
  if true_answer <> "2" 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
    set the locV of sprite 26 to 270
    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
    startTimer()
    repeat while the timer < 50
      nothing()
    end repeat
    set oldlevel to level
    set level to level - random(level)
    if gameover = 1 then
      set level to 0
    end if
    set the visible of sprite 21 to 1
  end if
  set the visible of sprite 22 to 0
  set the visible of sprite 24 to 0
  updateStage()
  startTimer()
  set the blend of sprite 16 to 0
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 23 to 0
  updateStage()
  set counter to counter + 1
  if level < 0 then
    set level to 0
  end if
  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) and (oldlevel <> 0) then
      puppetSound("fall1")
    end if
  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 > highest then
    set highest to level
  end if
  if level = 0 then
    puppetSound("fall1")
    set plost to 1
    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 pend to 1
    set notend to 0
    go("end")
    exit
  end if
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 8 to 0
  set the visible of sprite 19 to 0
  set the visible of sprite 20 to 1
  updateStage()
  set the visible of sprite 20 to 0
  updateStage()
  set notend to 1
  go("end")
end