Armageddon - Interactive Preview/Interactive Preview: Armageddon.iso/pc/quizgame.dxr/00164_MovieScript.ls

Text File | 1998-05-15 | 4.8 KB | 216 lines

global gTime, gPlayList, gQuestionList, gcheckQ, n, gQuitB, gFinal, gPauseState, gQ1List, gQ2List, gQ3List, gBuzzState, gWhoA, g1stTimeout, g2ndTimeout, gAnswer, gP1Money, gP2Money, gP3Money, gOldtimer, gHowLong

on startMovie
  puppetSprite(90, 1)
  puppetSprite(115, 1)
  puppetSprite(116, 1)
  set the visible of sprite 90 to 0
  set the soundLevel to 7
  set the volume of sound 1 to 210
  set the volume of sound 2 to 210
  puppetSound(2, "MUSIC")
  updateStage()
  repeat with x = 3 to 5
    puppetSprite(x, 1)
  end repeat
  repeat with x = 98 to 113
    puppetSprite(x, 1)
  end repeat
  set gPlayList to []
  put EMPTY into field 161
  put EMPTY into field 203
  set gcheckQ to 0
  set gQuestionList to []
  repeat with x = 14 to 25
    add(gQuestionList, x)
    updateStage()
  end repeat
  set gPauseState to 0
  set gBuzzState to 0
  set gOldtimer to 0
  set gPauseB to 0
  set gQuitB to 0
  set gOK to 0
  set gFinal to 0
  set gWhoA to 0
  set gQ1List to []
  set gQ2List to []
  set gQ3List to []
  set g1stTimeout to 0
  set g2ndTimeout to 0
  set gAnswer to 0
  set gP1Money to 0
  set gP2Money to 0
  set gP3Money to 0
  set gHowLong to 0
  put gP1Money into field 200
  put gP2Money into field 201
  put gP3Money into field 202
  repeat with x = 260 to 265
    add(gQ1List, x)
    updateStage()
  end repeat
  repeat with x = 266 to 271
    add(gQ2List, x)
    updateStage()
  end repeat
  repeat with x = 272 to 278
    add(gQ3List, x)
    updateStage()
  end repeat
end

on keyDown
  if the key = "p" then
    case gPauseState of
      0:
        set gPauseState to 1
        set gOldtimer to the timer
        puppetSound(1, "soft metal")
        set the visible of sprite 115 to 1
        set the loc of sprite 115 to point(320, 240)
        set the member of sprite 95 to "SOUND D"
        set the member of sprite 97 to "Q D"
        set the visible of sprite 90 to 1
        set the loc of sprite 90 to point(320, 240)
        updateStage()
        pause()
      1:
        set gPauseState to 0
        puppetSound(1, "soft metal")
        set the visible of sprite 115 to 0
        set the member of sprite 95 to "SOUND NORMAL"
        set the member of sprite 97 to "Q NORMAL"
        set the visible of sprite 90 to 0
        startTimer()
        continue()
    end case
  end if
  if gBuzzState = 1 then
    case n of
      1:
        if the key = "z" then
          puppetSound(1, "buzz")
          set gWhoA to 1
          startTimer()
          updateStage()
        end if
      2:
        if the key = "z" then
          puppetSound(1, "buzz")
          set gWhoA to 1
          startTimer()
          updateStage()
        end if
        if the key = "n" then
          puppetSound(1, "buzz")
          set gWhoA to 2
          startTimer()
          updateStage()
        end if
      3:
        if the key = "z" then
          puppetSound(1, "buzz")
          set gWhoA to 1
          startTimer()
          updateStage()
        end if
        if the key = "n" then
          puppetSound(1, "buzz")
          set gWhoA to 2
          startTimer()
          updateStage()
        end if
        if the key = "/" then
          puppetSound(1, "buzz")
          set gWhoA to 3
          startTimer()
          updateStage()
        end if
    end case
  end if
  if gWhoA <> 0 then
    if the key = "a" then
      set gAnswer to 1
    end if
    if the key = "b" then
      set gAnswer to 2
    end if
    if the key = "c" then
      set gAnswer to 3
    end if
  end if
end

on PlayerB
  if rollOver(3) then
    cursor(280)
    repeat with x = 13 to 18
      set the memberNum of sprite 3 to x
      updateStage()
      SlowDown()
    end repeat
    repeat with x = 18 down to 13
      set the memberNum of sprite 3 to x
      updateStage()
      SlowDown()
    end repeat
  else
    cursor(0)
    set the memberNum of sprite 3 to 13
  end if
  if rollOver(4) then
    cursor(280)
    repeat with x = 20 to 25
      set the memberNum of sprite 4 to x
      updateStage()
      SlowDown()
    end repeat
    repeat with x = 25 down to 20
      set the memberNum of sprite 4 to x
      updateStage()
      SlowDown()
    end repeat
  else
    cursor(0)
    set the memberNum of sprite 4 to 20
  end if
  if rollOver(5) then
    cursor(280)
    repeat with x = 27 to 32
      set the memberNum of sprite 5 to x
      updateStage()
      SlowDown()
    end repeat
    repeat with x = 32 down to 27
      set the memberNum of sprite 5 to x
      updateStage()
      SlowDown()
    end repeat
  else
    cursor(0)
    set the memberNum of sprite 5 to 27
  end if
end

on SlowDown
  startTimer()
  repeat while the timer < 3
    nothing()
  end repeat
end

on SlowDown2
  startTimer()
  repeat while the timer < 8
    nothing()
  end repeat
end

on SlowDown3
  startTimer()
  repeat while the timer < 60
    nothing()
  end repeat
end