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

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

on enterFrame
  global level, highest, rightq, wrongq, plost, pwon, pend, notend, inarow, timerate, gameover, rest, diff, beenhere
  set the visible of sprite 14 to 0
  updateStage()
  set the visible of sprite 8 to 0
  set the visible of sprite 2 to 0
  set the visible of sprite 26 to 0
  updateStage()
  set the cursor of sprite 5 to [111, 112]
  set the cursor of sprite 6 to [111, 112]
  set the cursor of sprite 7 to [111, 112]
  set the castNum of sprite 1 to 270
  updateStage()
  if (inarow = 6) and (timerate < 7) then
    set the text of cast "quest" to "You're obviously finding this too easy.  Let's speed the timer up just a little bit"
    set timerate to timerate + 1
  end if
  if (inarow = 6) and (timerate >= 5) and (beenhere = 0) then
    set the text of cast "quest" to "This is just too easy for you.  If you get one more wrong now, game over."
    set beenhere to 1
    set gameover to 1
  end if
  if notend = 0 then
    set the text of cast "answer1" to "New Game"
    set the text of cast "answer2" to "Statistics"
    set the text of cast "answer3" to "Quit The Quiz"
    if plost then
      set the text of cast "quest" to "You need to find out more about Oasis. Go back to the biography section to read up on them!"
    end if
    if pwon then
      if diff = 1 then
        set rest to " Password for medium level: Type '*' (Shift Key + 8) when asked for a diffuculty level. Then click  'Medium'!"
      end if
      if diff = 2 then
        set rest to "Password for hard level: Type '!' (Shift Key + 1) when asked for a diffuculty level. Then click on 'Hard'"
      end if
      if diff = 3 then
        set rest to "Why don't you spend more time learning to play music, though?"
      end if
      set the text of cast "quest" to "Brilliant! " & rest
      updateStage()
      puppetSound(1, "finished")
      repeat while soundBusy(1) = 1
      end repeat
    end if
    if pend = 1 then
      set the text of cast "quest" to "You got through all the questions on this level but didn't get to the top rating!"
      updateStage()
    end if
    set the castNum of sprite 12 to 275
  end if
  if notend = 1 then
    if (inarow < 6) and not pwon and not plost then
      set the text of cast "quest" to "Choose an option"
    end if
    set the text of cast "answer1" to "Next Question"
    set the text of cast "answer2" to "Statistics"
  end if
  set the text of cast "answer3" to " "
  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 5 to 1
  set the visible of sprite 6 to 1
  set the visible of sprite 7 to 1
  set the visible of sprite 19 to 1
  if plost = 1 then
    startTimer()
    repeat while the timer < 150
      nothing()
    end repeat
  end if
  updateStage()
  if inarow = 6 then
    set inarow to 0
  end if
  if level = 0 then
    set the locV of sprite 14 to 370
  else
    if level = 1 then
      set the locV of sprite 14 to 355
    else
      if level = 2 then
        set the locV of sprite 14 to 340
      else
        if level = 3 then
          set the locV of sprite 14 to 325
        else
          if level = 4 then
            set the locV of sprite 14 to 310
          else
            if level = 5 then
              set the locV of sprite 14 to 295
            else
              if level = 6 then
                set the locV of sprite 14 to 280
              else
                if level = 7 then
                  set the locV of sprite 14 to 265
                else
                  if level = 8 then
                    set the locV of sprite 14 to 250
                  else
                    if level = 9 then
                      set the locV of sprite 14 to 235
                    else
                      if level = 10 then
                        set the locV of sprite 14 to 220
                      else
                        if level = 11 then
                          set the locV of sprite 14 to 205
                        else
                          if level = 12 then
                            set the locV of sprite 14 to 190
                          else
                            if level = 13 then
                              set the locV of sprite 14 to 175
                            else
                              if level = 14 then
                                set the locV of sprite 14 to 160
                              else
                                if level = 15 then
                                  set the locV of sprite 14 to 145
                                else
                                  if level = 16 then
                                    set the locV of sprite 14 to 130
                                  else
                                    if level = 17 then
                                      set the locV of sprite 14 to 115
                                    else
                                      if level = 18 then
                                        set the locV of sprite 14 to 100
                                      else
                                        if level = 19 then
                                          set the locV of sprite 14 to 85
                                        else
                                          if level = 20 then
                                            set the locV of sprite 14 to 70
                                          end if
                                        end if
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  set the visible of sprite 14 to 1
  updateStage()
  pause()
end

on exitFrame
  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()
end