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

Text File | 1997-06-04 | 7.0 KB | 262 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 blend of sprite 6 to 90
  set the locH of sprite 6 to the locH of sprite 6 + 3
  set the locV of sprite 6 to the locV of sprite 6 + 3
  set the locH of sprite 23 to the locH of sprite 23 + 3
  set the locV of sprite 23 to the locV of sprite 23 + 3
  updateStage()
  set the locH of sprite 6 to the locH of sprite 6 - 3
  set the locV of sprite 6 to the locV of sprite 6 - 3
  set the locH of sprite 23 to the locH of sprite 23 - 3
  set the locV of sprite 23 to the locV of sprite 23 - 3
  set the blend of sprite 6 to 60
  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
  if soundon then
    set the soundEnabled to 1
  end if
  set Rand_Sound to random(5)
  set the visible of sprite 8 to 1
  set the locV of sprite 8 to 340
  repeat with n = 1 to 100
    set the locH of sprite 8 to n
    updateStage()
  end repeat
  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 castNum of sprite 8 to 173
    updateStage()
    repeat with n = 1 to 25
      set vert to the locV of sprite 8
      set the locV of sprite 8 to vert - n
      startTimer()
      repeat while the timer < 1
      end repeat
      updateStage()
    end repeat
    set the castNum of sprite 8 to 193
    updateStage()
    startTimer()
    repeat while the timer < 8
      nothing()
    end repeat
    set the castNum of sprite 8 to 194
    updateStage()
    startTimer()
    repeat while the timer < 8
      nothing()
    end repeat
    set the castNum of sprite 8 to 173
    updateStage()
    repeat with n = 1 to 25
      set vert to the locV of sprite 8
      set the locV of sprite 8 to vert + n
      startTimer()
      repeat while the timer < 1
      end repeat
      updateStage()
    end repeat
    set the castNum of sprite 8 to 196
    set the height of sprite 8 to 26
    set the width of sprite 8 to 26
    updateStage()
    repeat with n = 1 to 8
      set the height of sprite 8 to the height of sprite 8 + n
      set the width of sprite 8 to the width of sprite 8 + n
      updateStage()
    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 soundEnabled to 1
    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("rockbit3")
    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 castNum of sprite 8 to 174
    updateStage()
    repeat with n = 1 to 14
      set vert to the locV of sprite 8
      set the locV of sprite 8 to vert + n
      startTimer()
      repeat while the timer < 1
      end repeat
      updateStage()
    end repeat
    set the castNum of sprite 8 to 191
    updateStage()
    startTimer()
    repeat while the timer < 8
      nothing()
    end repeat
    set the castNum of sprite 8 to 192
    updateStage()
    startTimer()
    repeat while the timer < 8
      nothing()
    end repeat
    set the castNum of sprite 8 to 174
    updateStage()
    repeat with n = 1 to 14
      set vert to the locV of sprite 8
      set the locV of sprite 8 to vert - n
      startTimer()
      repeat while the timer < 1
      end repeat
      updateStage()
    end repeat
    set the castNum of sprite 8 to 195
    set the height of sprite 8 to 26
    set the width of sprite 8 to 26
    updateStage()
    repeat with n = 1 to 8
      set the height of sprite 8 to the height of sprite 8 + n
      set the width of sprite 8 to the width of sprite 8 + n
      updateStage()
    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 soundEnabled to 1
    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
  set the blend of sprite 37 to 0
  set the blend of sprite 39 to 0
  set the blend of sprite 47 to 0
  if level < 0 then
    set level to 0
  end if
  repeat while soundBusy(1) = 1
  end repeat
  if level > oldlevel then
    puppetSound("rise1")
    set vert to the locV of sprite 14
    repeat with n = 1 to 15
      set the locV of sprite 14 to vert - n
      startTimer()
      repeat while the timer < 3
      end repeat
      updateStage()
    end repeat
  else
    if (level < oldlevel) and (oldlevel <> 0) then
      puppetSound("fall1")
      repeat with x = 1 to oldlevel - level
        set vert to the locV of sprite 14
        repeat with n = 1 to 15
          set the locV of sprite 14 to vert + n
          startTimer()
          repeat while the timer < 3
          end repeat
          updateStage()
        end repeat
      end repeat
    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
    set the visible of sprite 8 to 0
    updateStage()
    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