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

Text File | 1997-06-04 | 2.4 KB | 81 lines

on mouseDown
  global timeoption, timerate, diff, n, helpon, y, z
  puppetSound("click")
  set the visible of sprite 7 to 1
  if timeoption = 0 then
    set diff to 1
    set the castNum of sprite 1 to 270
  end if
  if timeoption = 1 then
    set timerate to 2
  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 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 the visible of sprite 26 to 1
  set the locH of sprite 26 to 285
  set the locV of sprite 26 to 190
  if helpon = 1 then
    set the locH of sprite 26 to 390
  end if
  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 1
    set the visible of sprite 23 to 1
    set the visible of sprite 24 to 1
    set the visible of sprite 13 to 0
    set the visible of sprite 12 to 0
    set the text of cast "quest" to "At the start, click on the timer in the top left hand corner, and select the timer speed you want"
    set the text of cast "answer1" to "Back To Game"
    set the text of cast "answer2" to "Back To Game"
    set the text of cast "answer3" to "Back To Game"
    updateStage()
    startTimer()
    repeat while the mouseDown = 0
      nothing()
    end repeat
  end if
  if (timeoption = 0) and (helpon = 0) then
    set the castNum of sprite 43 to 306
    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