100 Plus Great Games 2/100PLUSV2.BIN/games/TrafficEscape.dxr/00005_gameMovie.ls

Text File | 2002-01-25 | 17.6 KB | 467 lines

global gGameBoard, gX, gY, gCar, gCarMove, gLeft, gTop, gKounta, gMoves, gLevel, gSpeed, gScore, gScore2, gFixxxer, gSomething, gColumn, gRow, temp

on prepareMovie
  gX = 2
  gY = 2
  gCar = 10
  gCarMove = 0
  gKounta = 0
  gSpeed = 2
  gFixxxer = 1
  gMoves = 0
  member("MovesText").text = "Moves" && string(gMoves)
  member("MovesText2").text = "Moves" && string(gMoves)
  gLevel = 1
  member("LevelText").text = "Level" && string(gLevel)
  member("LevelText2").text = "Level" && string(gLevel)
  gScore2 = 0
  gScore = 0
  member("ScoreText").text = "Score" && string(gScore)
  member("ScoreText2").text = "Score" && string(gScore)
  member("minMovesText1").text = "Minimum 5"
  member("minMovesText2").text = "Minimum 5"
  gGameBoard = [[99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 0, 12, 12, 0, 0, 99, 99, 99, 99], [99, 99, 99, 99, 14, 0, 0, 0, 0, 99, 99, 99, 99], [99, 99, 99, 99, 14, 0, 13, 10, 10, 99, 99, 99, 99], [99, 99, 99, 99, 15, 15, 13, 0, 0, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99]]
  sprite(5).member = "car-crazy-bkgrd1"
  gSomething = 130
  repeat with gRunY = 0 to 9
    repeat with gRunX = 0 to 12
      sprite(gSomething).loc = point(128 + (gRunX * 25), 100 + (gRunY * 24))
      gSomething = gSomething + 1
    end repeat
  end repeat
end

on carAnimation
  if sprite(gCar).rotation = 0 then
    gKounta = gKounta + gSpeed
    if gLeft = 1 then
      sprite(gCar).locH = sprite(gCar).locH - gSpeed
    else
      if gLeft = 0 then
        sprite(gCar).locH = sprite(gCar).locH + gSpeed
      end if
    end if
  else
    if sprite(gCar).rotation = 90 then
      gKounta = gKounta + gSpeed
      if gTop = 1 then
        sprite(gCar).locV = sprite(gCar).locV - gSpeed
      else
        if gTop = 0 then
          sprite(gCar).locV = sprite(gCar).locV + gSpeed
        end if
      end if
    end if
  end if
  if gKounta >= 24 then
    gCarMove = 0
    gKounta = 0
    Check4Win()
    gFixxxer = 1
  end if
end

on Check4Win
  if gLevel = 1 then
    if gGameBoard[6][9] = 10 then
      if (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][8] = 10 then
      if (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][7] = 10 then
      if (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][6] = 10 then
      if gGameBoard[6][5] = 0 then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][9] = 10 then
      if (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][8] = 10 then
      if (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][7] = 10 then
      if (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][6] = 10 then
      if gGameBoard[5][5] = 0 then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
  end if
  if gLevel = 2 then
    if gGameBoard[6][10] = 10 then
      if (gGameBoard[6][9] = 0) and (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][9] = 10 then
      if (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][8] = 10 then
      if (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][7] = 10 then
      if (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][6] = 10 then
      if (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][10] = 10 then
      if (gGameBoard[5][9] = 0) and (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][9] = 10 then
      if (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][8] = 10 then
      if (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][7] = 10 then
      if (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][6] = 10 then
      if (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
  end if
  if (gLevel = 3) or (gLevel = 4) then
    if gGameBoard[6][10] = 10 then
      if (gGameBoard[6][9] = 0) and (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][9] = 10 then
      if (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][8] = 10 then
      if (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][7] = 10 then
      if (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][6] = 10 then
      if (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][10] = 10 then
      if (gGameBoard[5][9] = 0) and (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][9] = 10 then
      if (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][8] = 10 then
      if (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][7] = 10 then
      if (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][6] = 10 then
      if (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
  end if
  if gLevel = 5 then
    if gGameBoard[6][11] = 10 then
      if (gGameBoard[6][10] = 0) and (gGameBoard[6][9] = 0) and (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) and (gGameBoard[6][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][10] = 10 then
      if (gGameBoard[6][9] = 0) and (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) and (gGameBoard[6][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][9] = 10 then
      if (gGameBoard[6][8] = 0) and (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) and (gGameBoard[6][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][8] = 10 then
      if (gGameBoard[6][7] = 0) and (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) and (gGameBoard[6][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][7] = 10 then
      if (gGameBoard[6][6] = 0) and (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) and (gGameBoard[6][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[6][6] = 10 then
      if (gGameBoard[6][5] = 0) and (gGameBoard[6][4] = 0) and (gGameBoard[6][3] = 0) and (gGameBoard[6][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][11] = 10 then
      if (gGameBoard[5][10] = 0) and (gGameBoard[5][9] = 0) and (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) and (gGameBoard[5][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][10] = 10 then
      if (gGameBoard[5][9] = 0) and (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) and (gGameBoard[5][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][9] = 10 then
      if (gGameBoard[5][8] = 0) and (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) and (gGameBoard[5][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][8] = 10 then
      if (gGameBoard[5][7] = 0) and (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) and (gGameBoard[5][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][7] = 10 then
      if (gGameBoard[5][6] = 0) and (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) and (gGameBoard[5][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
    if gGameBoard[5][6] = 10 then
      if (gGameBoard[5][5] = 0) and (gGameBoard[5][4] = 0) and (gGameBoard[5][3] = 0) and (gGameBoard[5][2] = 0) then
        gCarMove = 1
        gCar = 10
        gLeft = 1
        gSpeed = 4
      end if
    end if
  end if
  if sprite(10).locH < -24 then
    gCarMove = 0
    gSpeed = 2
    sprite(10).locH = 50
    if gLevel = 1 then
      gScore2 = 500 + (gLevel * 300) - ((gMoves - 5) * 50)
      if gScore2 <= 0 then
        gScore2 = 100
      end if
      gScore = gScore + gScore2
      member("ScoreText").text = "Score" && string(gScore)
      member("ScoreText2").text = "Score" && string(gScore)
      member("levelScoreText1").text = "Level Score:" && string(gScore)
      member("levelScoreText2").text = "Level Score:" && string(gScore)
      gGameBoard = [[99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 16, 16, 0, 18, 18, 0, 0, 99, 99, 99], [99, 99, 99, 15, 14, 14, 0, 17, 0, 0, 99, 99, 99], [99, 99, 99, 15, 0, 13, 0, 17, 10, 10, 99, 99, 99], [99, 99, 99, 0, 0, 13, 0, 0, 0, 0, 99, 99, 99], [99, 99, 99, 0, 0, 13, 0, 0, 0, 0, 99, 99, 99], [99, 99, 99, 0, 12, 12, 12, 0, 0, 0, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99]]
      go(11)
    else
      if gLevel = 2 then
        gScore2 = 500 + (gLevel * 300) - ((gMoves - 5) * 50)
        if gScore2 <= 0 then
          gScore2 = 100
        end if
        gScore = gScore + gScore2
        member("ScoreText").text = "Score" && string(gScore)
        member("ScoreText2").text = "Score" && string(gScore)
        member("levelScoreText1").text = "Level Score:" && string(gScore)
        member("levelScoreText2").text = "Level Score:" && string(gScore)
        gGameBoard = [[99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 0, 0, 0, 16, 0, 22, 22, 0, 12, 99, 99], [99, 99, 0, 0, 0, 16, 15, 15, 15, 0, 12, 99, 99], [99, 99, 0, 19, 17, 17, 17, 14, 0, 13, 13, 99, 99], [99, 99, 20, 19, 0, 0, 0, 14, 10, 10, 0, 99, 99], [99, 99, 20, 0, 0, 0, 0, 14, 0, 0, 0, 99, 99], [99, 99, 0, 18, 18, 0, 0, 21, 21, 0, 0, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99]]
        go(22)
      else
        if gLevel = 3 then
          gScore2 = 500 + (gLevel * 300) - ((gMoves - 5) * 50)
          if gScore2 <= 0 then
            gScore2 = 100
          end if
          gScore = gScore + gScore2
          member("ScoreText").text = "Score" && string(gScore)
          member("ScoreText2").text = "Score" && string(gScore)
          member("levelScoreText1").text = "Level Score:" && string(gScore)
          member("levelScoreText2").text = "Level Score:" && string(gScore)
          gGameBoard = [[99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 99, 22, 22, 0, 19, 19, 0, 0, 0, 0, 99, 99], [99, 99, 0, 0, 25, 17, 16, 16, 16, 18, 18, 99, 99], [99, 99, 0, 23, 25, 17, 13, 0, 0, 0, 0, 99, 99], [99, 99, 0, 23, 25, 17, 13, 10, 10, 0, 0, 99, 99], [99, 99, 0, 0, 21, 0, 13, 14, 0, 0, 0, 99, 99], [99, 99, 0, 0, 21, 12, 12, 14, 20, 20, 20, 99, 99], [99, 99, 24, 24, 24, 0, 0, 15, 0, 0, 0, 99, 99], [99, 99, 0, 0, 0, 0, 0, 15, 0, 0, 0, 99, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99]]
          go(32)
        else
          if gLevel = 4 then
            gScore2 = 500 + (gLevel * 300) - ((gMoves - 5) * 50)
            if gScore2 <= 0 then
              gScore2 = 100
            end if
            gScore = gScore + gScore2
            member("ScoreText").text = "Score" && string(gScore)
            member("ScoreText2").text = "Score" && string(gScore)
            member("levelScoreText1").text = "Level Score:" && string(gScore)
            member("levelScoreText2").text = "Level Score:" && string(gScore)
            gGameBoard = [[99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99], [99, 31, 31, 0, 0, 0, 27, 27, 17, 17, 17, 0, 99], [99, 0, 0, 0, 0, 25, 25, 0, 16, 15, 15, 15, 99], [99, 30, 0, 0, 26, 26, 21, 0, 16, 0, 13, 0, 99], [99, 30, 0, 32, 0, 24, 21, 0, 10, 10, 13, 14, 99], [99, 30, 0, 32, 0, 24, 21, 12, 12, 12, 0, 14, 99], [99, 29, 29, 29, 0, 0, 22, 22, 0, 19, 18, 18, 99], [99, 0, 0, 0, 0, 0, 23, 0, 0, 19, 0, 0, 99], [99, 0, 0, 0, 28, 28, 23, 0, 0, 20, 20, 20, 99], [99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99]]
            go(42)
          else
            if gLevel = 5 then
              gScore2 = 500 + (gLevel * 300) - ((gMoves - 5) * 50)
              if gScore2 <= 0 then
                gScore2 = 100
              end if
              gScore = gScore + gScore2
              member("ScoreText").text = "Score" && string(gScore)
              member("ScoreText2").text = "Score" && string(gScore)
              member("levelScoreText1").text = "Total Score:" && string(gScore)
              member("levelScoreText2").text = "Total Score:" && string(gScore)
              go(52)
            end if
          end if
        end if
      end if
    end if
  end if
end