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

Text File | 1997-06-04 | 3.9 KB | 126 lines

on mouseDown
  global diff, timeoption, timerate, helpon
  puppetSound("click")
  if timeoption = 1 then
    set timerate to 4
  end if
  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
  startTimer()
  repeat while the timer < 15
    nothing()
  end repeat
  updateStage()
  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()
  if (timeoption = 0) and (helpon = 0) then
    if the keyCode = 18 then
      set diff to 3
    else
      if the keyCode <> 18 then
        set the text of cast "quest" to "Access Denied! You didn't enter the correct password! Complete the medium level to get the password"
        set the visible of sprite 26 to 1
        set the locH of sprite 26 to 310
        set the locV of sprite 26 to 350
        repeat with n = 256 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 < 200
          nothing()
        end repeat
        go(1, "oasquiz")
        exit
      end if
    end if
  end if
  set the visible of sprite 26 to 1
  set the locH of sprite 26 to 310
  set the locV of sprite 26 to 350
  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 < 35
    nothing()
  end repeat
  set the visible of sprite 26 to 0
  if helpon = 1 then
    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 14 to 1
    set the visible of sprite 10 to 1
    set the visible of sprite 8 to 1
    set the visible of sprite 5 to 0
    set the visible of sprite 6 to 0
    set the visible of sprite 7 to 0
    set the visible of sprite 9 to 0
    set the visible of sprite 21 to 1
    set the visible of sprite 25 to 1
    updateStage()
    set the text of cast "quest" to "The aim of the quiz is to get to a perfect fan rating on the most difficult level.  Get a question right and you move up one, get a question wrong and you move down from one to maybe the bottom.  There's a cheat mode on the easy level but you'll never find it!"
    repeat while the mouseDown = 0
      repeat with z = 370 down to 70
        if the mouseDown then
          set the visible of sprite 10 to 0
          set the visible of sprite 14 to 0
          updateStage()
          go(1, "oasquiz")
          exit
        end if
        set the locV of sprite 14 to z
        updateStage()
      end repeat
      repeat with z = 70 to 370
        set the locV of sprite 14 to z
        if the mouseDown then
          set the visible of sprite 10 to 0
          set the visible of sprite 14 to 0
          updateStage()
          go(1, "oasquiz")
          exit
        end if
        updateStage()
      end repeat
    end repeat
    set the visible of sprite 9 to 1
    set the visible of sprite 8 to 0
    set the visible of sprite 19 to 0
    updateStage()
  end if
  if (timeoption = 0) and (helpon = 0) then
    set the visible of sprite 22 to 0
    set the visible of sprite 23 to 0
    set the visible of sprite 24 to 0
    go("s")
  end if
  if timeoption = 1 then
    set timeoption to 0
    go(the frame)
  end if
  if helpon = 1 then
    set helpon to 0
    go(the frame)
  end if
end