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

Text File | 1997-06-04 | 4.7 KB | 172 lines

on mouseDown
  global ans3, true_answer, Rand_Quest, guess, counter, disable, scored, Rand_Sound, level, oldlevel, x, leveldiff, highest, qright, qwrong, plost, pwon, pend, notend, inarow, gameover, soundon
  if disable = 0 then
    set disable to 1
    set the visible of sprite 20 to 0
    set the volume of sound 1 to 250
    puppetSound(2, 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 locH of sprite 7 to the locH of sprite 7 + 2
    set the locV of sprite 7 to the locV of sprite 7 + 2
    set the locH of sprite 24 to the locH of sprite 24 + 2
    set the locV of sprite 24 to the locV of sprite 24 + 2
    updateStage()
    startTimer()
    repeat while the timer < 15
      nothing()
    end repeat
    set the locH of sprite 7 to the locH of sprite 7 - 2
    set the locV of sprite 7 to the locV of sprite 7 - 2
    set the locH of sprite 24 to the locH of sprite 24 - 2
    set the locV of sprite 24 to the locV of sprite 24 - 2
    updateStage()
    set the blend of sprite 37 to 45
    set the blend of sprite 38 to 45
    set the blend of sprite 48 to 65
    set Rand_Sound to random(5)
    if true_answer = "3" 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 locH of sprite 26 to 433
      set the locV of sprite 26 to 350
      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 scored to scored + 1
      set the visible of sprite 20 to 1
    end if
    if true_answer <> "3" then
      set inarow to 0
      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 qwrong to qwrong + 1
      set the visible of sprite 26 to 1
      set the locV of sprite 26 to 350
      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 n to random(level - 1)
      set level to level - n
      if gameover = 1 then
        set level to 0
      end if
      set the visible of sprite 21 to 1
    end if
    set the blend of sprite 17 to 55
    updateStage()
    startTimer()
    set the visible of sprite 20 to 0
    set the visible of sprite 21 to 0
    set counter to counter + 1
    set the blend of sprite 17 to 0
    updateStage()
    set the blend of sprite 37 to 0
    set the blend of sprite 38 to 0
    set the blend of sprite 48 to 0
    if level < 0 then
      set level to 0
    end if
    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
    updateStage()
    if level = 0 then
      puppetSound("jewharp1")
      set plost to 1
      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 26 to 0
    set the visible of sprite 8 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("trans")
  end if
end