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

Text File | 1997-06-04 | 6.9 KB | 259 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)
  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 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 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
    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