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

Text File | 1997-06-04 | 4.5 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, disable
  if disable = 0 then
    set disable to 1
    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 12 to 1
      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 n to random(level - 1)
      set level to level - n
      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 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("ding2")
    end if
    if level < oldlevel then
      puppetSound("jewharp1")
    end if
    if the castNum of sprite 12 <> 296 then
      set the castNum of sprite 12 to level + 275
      updateStage()
    end if
    if level > highest then
      set highest to level
    end if
    set the visible of sprite 19 to 0
    updateStage()
    if level = 0 then
      set plost to 1
      puppetSound("jewharp1")
      set notend to 0
      go("end")
      exit
    end if
    if level >= 22 then
      set notend to 0
      set pwon to 1
      go("end")
      exit
    end if
    if (counter = 24) and (level <> 22) 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 26 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("trans")
  end if
end