diff -r 67c6de2a0213 -r 48e9b1099ff4 share/hedgewars/Data/Scripts/Multiplayer/TechRacer.lua --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/share/hedgewars/Data/Scripts/Multiplayer/TechRacer.lua Thu Nov 27 22:32:03 2014 +0900 @@ -0,0 +1,1417 @@ +------------------------------------------ +-- TECH RACER +----------------------------------------- + +----------------------------- +-- SCRIPT BEGINS +----------------------------- + +HedgewarsScriptLoad("/Scripts/Locale.lua") +--HedgewarsScriptLoad("/Scripts/OfficialChallenges.lua") +HedgewarsScriptLoad("/Scripts/Tracker.lua") +HedgewarsScriptLoad("/Scripts/Params.lua") + +------------------ +-- Got Variables? +------------------ + + local activationStage = 0 + local jet = nil + +local fMod = 1000000 -- 1 +local roundLimit = 3 +local roundNumber = 0 +local firstClan = 10 + +local fastX = {} +local fastY = {} +local fastCount = 0 +local fastIndex = 0 +local fastColour + +local currX = {} +local currY = {} +local currCount = 0 + +local specialPointsX = {} +local specialPointsY = {} +local specialPointsCount = 0 + +mapID = 22 + +-------------------------- +-- hog and team tracking variales +-------------------------- + +local numhhs = 0 -- store number of hedgehogs +local hhs = {} -- store hedgehog gears + +local numTeams -- store the number of teams in the game +local teamNameArr = {} -- store the list of teams +local teamClan = {} +local teamSize = {} -- store how many hogs per team +local teamIndex = {} -- at what point in the hhs{} does each team begin + +local teamComment = {} +local teamScore = {} + +------- +-- racer vars +-------- + +local cGear = nil + +local bestClan = nil +local bestTime = nil + +local gameBegun = false +local gameOver = false +local racerActive = false +local trackTime = 0 + +local wpCirc = {} +local wpX = {} +local wpY = {} +local wpCol = {} +local wpActive = {} +local wpRad = 450 --75 +local wpCount = 0 +local wpLimit = 8 + +local usedWeapons = {} + +local roundN +local lastRound +local RoundHasChanged + +------------------- +-- general methods +------------------- + +function onPrecise() + AddCaption(mapID) +end + +function RebuildTeamInfo() + + + -- make a list of individual team names + for i = 0, (TeamsCount-1) do + teamNameArr[i] = " " -- = i + teamSize[i] = 0 + teamIndex[i] = 0 + teamScore[i] = 100000 + end + numTeams = 0 + + for i = 0, (numhhs-1) do + + z = 0 + unfinished = true + while(unfinished == true) do + + newTeam = true + tempHogTeamName = GetHogTeamName(hhs[i]) -- this is the new name + + if tempHogTeamName == teamNameArr[z] then + newTeam = false + unfinished = false + end + + z = z + 1 + + if z == TeamsCount then + unfinished = false + if newTeam == true then + teamNameArr[numTeams] = tempHogTeamName + numTeams = numTeams + 1 + end + end + + end + + end + + -- find out how many hogs per team, and the index of the first hog in hhs + for i = 0, (numTeams-1) do + for z = 0, (numhhs-1) do + if GetHogTeamName(hhs[z]) == teamNameArr[i] then + teamClan[i] = GetHogClan(hhs[z]) + if teamSize[i] == 0 then + teamIndex[i] = z -- should give starting index + end + teamSize[i] = teamSize[i] + 1 + --add a pointer so this hog appears at i in hhs + end + end + + end + +end + + +----------------- +-- RACER METHODS +----------------- + +function CheckWaypoints() + + trackFinished = true + + for i = 0, (wpCount-1) do + + g1X, g1Y = GetGearPosition(CurrentHedgehog) + g2X, g2Y = wpX[i], wpY[i] + + g1X = g1X - g2X + g1Y = g1Y - g2Y + dist = (g1X*g1X) + (g1Y*g1Y) + + --if i == 0 then + -- AddCaption(dist .. "/" .. (wpRad*wpRad) ) + --end + + NR = (48/100*wpRad)/2 + + if dist < (NR*NR) then + --if dist < (wpRad*wpRad) then + --AddCaption("howdy") + wpActive[i] = true + wpCol[i] = GetClanColor(GetHogClan(CurrentHedgehog)) -- new --GetClanColor(1) + SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i]) + + wpRem = 0 + for k = 0, (wpCount-1) do + if wpActive[k] == false then + wpRem = wpRem + 1 + end + end + + AddCaption(loc("Way-Points Remaining") .. ": " .. wpRem,0xffba00ff,capgrpAmmoinfo) + + end + + if wpActive[i] == false then + trackFinished = false + end + + end + + return(trackFinished) + +end + +function AdjustScores() + + if bestTime == nil then + bestTime = 100000 + bestClan = 10 + bestTimeComment = "N/A" + end + + newScore = false + + -- update this clan's time if the new track is better + for i = 0, (numTeams-1) do + if teamClan[i] == GetHogClan(CurrentHedgehog) then + if trackTime < teamScore[i] then + teamScore[i] = trackTime + newScore = true + else + newScore = false + end + end + end + + --bestTime = 100000 + --bestClan = 10 + + -- find the best time out of those so far + for i = 0, (numTeams-1) do + if teamScore[i] < bestTime then + bestTime = teamScore[i] + bestClan = teamClan[i] + end + end + + if bestTime ~= 100000 then + bestTimeComment = (bestTime/1000) ..loc("s") + end + + if newScore == true then + if trackTime == bestTime then -- best time of the race + ShowMission(loc("RACER"), + loc("TRACK COMPLETED"), + loc("NEW RACE RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" .. + loc("WINNING TIME: ") .. bestTimeComment, 0, 4000) + PlaySound(sndHomerun) + else -- best time for the clan + ShowMission(loc("RACER"), + loc("TRACK COMPLETED"), + loc("NEW CLAN RECORD: ") .. (trackTime/1000) ..loc("s") .. "|" .. + loc("WINNING TIME: ") .. bestTimeComment, 4, 4000) + end + else -- not any kind of new score + ShowMission(loc("RACER"), + loc("TRACK COMPLETED"), + loc("TIME: ") .. (trackTime/1000) ..loc("s") .. "|" .. + loc("WINNING TIME: ") .. bestTimeComment, -amSkip, 4000) + PlaySound(sndHellish) + end + + + -------- + --new + -------- + + if bestTime == trackTime then + --AddCaption("wooooooooooooooooooooooooooooo") + + fastColour = GetClanColor(GetHogClan(CurrentHedgehog)) + + for i = 0, (currCount-1) do + fastX[i] = currX[i] + fastY[i] = currY[i] + end + + fastCount = currCount + fastIndex = 0 + + --currCount = 0 -- is this needed? + + else + currCount = 0 + fastIndex = 0 + end + + +end + +function onNewRound() + + roundNumber = roundNumber + 1 + + totalComment = "" + for i = 0, (TeamsCount-1) do + if teamNameArr[i] ~= " " then -- teamScore[teamClan[i]] + teamComment[i] = teamNameArr[i] .. ": " .. (teamScore[i]/1000) .. loc("s|") + totalComment = totalComment .. teamComment[i] + elseif teamNameArr[i] == " " then + teamComment[i] = "|" + end + end + + ShowMission( loc("RACER"), + loc("STATUS UPDATE"), + loc("Rounds Complete: ") .. roundNumber .. "/" .. roundLimit .. "|" .. " " .. "|" .. + loc("Best Team Times: ") .. "|" .. totalComment, 0, 4000) + + -- end game if its at round limit + if roundNumber >= roundLimit then + for i = 0, (numhhs-1) do + if GetHogClan(hhs[i]) ~= bestClan then + SetEffect(hhs[i], heResurrectable, 0) + SetHealth(hhs[i],0) + end + end + gameOver = true + TurnTimeLeft = 1 + end + +end + +function CheckForNewRound() + + ------------- + ------ new + ------------- + + --[[turnN = turnN + 1 + if gameBegun == false then + if turnN == 2 then + for i = 0, (numhhs-1) do + if hhs[i] ~= nil then + SetEffect(hhs[i], heResurrectable, 0) + SetHealth(hhs[i],0) + end + end + gameOver = true + TurnTimeLeft = 1 + end + else + + + end]] + + --[[if roundBegun == true then + + if RoundHasChanged == true then + roundN = roundN + 1 + RoundHasChanged = false + onNewRound() + end + + if lastRound ~= TotalRounds then -- new round, but not really + + if RoundHasChanged == false then + RoundHasChanged = true + end + + end + + AddCaption("RoundN:" .. roundN .. "; " .. "TR: " .. TotalRounds) + + lastRound = TotalRounds + + end]] + + ------------ + ----- old + ------------ + + if GetHogClan(CurrentHedgehog) == firstClan then + onNewRound() + end + +end + +function DisableTumbler() + currCount = 0 + fastIndex = 0 + TurnTimeLeft = 0 + racerActive = false -- newadd +end + +function HandleGhost() + + -- get the current xy of the racer at this point + currX[currCount] = GetX(CurrentHedgehog) + currY[currCount] = GetY(CurrentHedgehog) + currCount = currCount + 1 + + -- draw a ping of smoke where the fastest player was at this point + if (fastCount ~= 0) and (fastIndex < fastCount) then + + fastIndex = fastIndex + 1 + + tempE = AddVisualGear(fastX[fastIndex], fastY[fastIndex], vgtSmoke, 0, false) + g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE) + SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, fastColour ) + + --AddCaption("fC: " .. fastIndex .. " / " .. fastCount) + + else + + --AddCaption("excep fC: " .. fastIndex .. " / " .. fastCount) + + end + + + +end + +function BoomGirder(x,y,rot) + girTime = 1 + if rot < 4 then + AddGear(x, y, gtGrenade, 0, 0, 0, girTime) + elseif rot == 4 then + g = AddGear(x-45, y, gtGrenade, 0, 0, 0, girTime) -- needed? + g = AddGear(x-30, y, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed? + g = AddGear(x+30, y, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x+45, y, gtGrenade, 0, 0, 0, girTime) -- needed? + elseif rot == 5 then ------- diag + g = AddGear(x+45, y+45, gtGrenade, 0, 0, 0, girTime) --n + g = AddGear(x+30, y+30, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed? + g = AddGear(x-30, y-30, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x-45, y-45, gtGrenade, 0, 0, 0, girTime) --n + elseif rot == 6 then + g = AddGear(x, y-45, gtGrenade, 0, 0, 0, girTime) -- needed? + g = AddGear(x, y+30, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed? + g = AddGear(x, y-30, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x, y+45, gtGrenade, 0, 0, 0, girTime) -- needed? + elseif rot == 7 then ------- + g = AddGear(x+45, y-45, gtGrenade, 0, 0, 0, girTime) --n + g = AddGear(x+30, y-30, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x, y, gtGrenade, 0, 0, 0, girTime) -- needed? + g = AddGear(x-30, y+30, gtGrenade, 0, 0, 0, girTime) + g = AddGear(x-45, y+45, gtGrenade, 0, 0, 0, girTime) --n + end +end + +function RemoveGear(gear) + if (isATrackedGear(gear) == true) and (GetGearType(gear) ~= gtHedgehog) then + DeleteGear(gear) + end +end + +function ClearMap() + + runOnGears(RemoveGear) + +end + +function HandleFreshMapCreation() + + -- the boom stage, boom girders, reset ammo, and delete other map objects + if activationStage == 1 then + + + ClearMap() + activationStage = activationStage + 1 + + -- the creation stage, place girders and needed gears, grant ammo + elseif activationStage == 2 then + + -- these are from onParameters() + if mapID == "0" then + --AddCaption("zero") + elseif mapID == "1" then + + --testmap1 + ------ GIRDER LIST ------ + PlaceGirder(306, 530, 7) + PlaceGirder(451, 474, 4) + PlaceGirder(595, 531, 5) + PlaceGirder(245, 679, 6) + PlaceGirder(305, 822, 5) + PlaceGirder(449, 887, 4) + PlaceGirder(593, 825, 7) + PlaceGirder(657, 681, 6) + PlaceGirder(1063, 682, 6) + PlaceGirder(1121, 532, 7) + PlaceGirder(1266, 476, 4) + PlaceGirder(1411, 535, 5) + PlaceGirder(1472, 684, 6) + PlaceGirder(1415, 828, 7) + PlaceGirder(1271, 892, 4) + PlaceGirder(1126, 827, 5) + PlaceGirder(841, 1079, 4) + PlaceGirder(709, 1153, 7) + PlaceGirder(975, 1154, 5) + PlaceGirder(653, 1265, 2) + PlaceGirder(1021, 1266, 2) + PlaceGirder(713, 1369, 5) + PlaceGirder(960, 1371, 7) + PlaceGirder(835, 1454, 4) + PlaceGirder(185, 1617, 2) + PlaceGirder(1317, 1399, 2) + PlaceGirder(1711, 1811, 2) + PlaceGirder(2087, 1424, 2) + PlaceGirder(2373, 1804, 2) + PlaceGirder(2646, 1434, 2) + PlaceGirder(1876, 667, 6) + PlaceGirder(1934, 517, 7) + PlaceGirder(2079, 461, 4) + PlaceGirder(2224, 519, 5) + PlaceGirder(1935, 810, 5) + PlaceGirder(2080, 875, 4) + PlaceGirder(2224, 811, 7) + PlaceGirder(2370, 582, 4) + PlaceGirder(2370, 759, 4) + PlaceGirder(2530, 582, 4) + PlaceGirder(2690, 582, 4) + PlaceGirder(2530, 759, 4) + PlaceGirder(2690, 759, 4) + PlaceGirder(2836, 634, 5) + PlaceGirder(2835, 822, 5) + PlaceGirder(2951, 751, 5) + PlaceGirder(2950, 939, 5) + PlaceGirder(2964, 1054, 7) + PlaceGirder(2978, 1172, 5) + PlaceGirder(3095, 1185, 7) + PlaceGirder(3211, 1069, 7) + PlaceGirder(3038, 843, 1) + PlaceGirder(3126, 825, 7) + PlaceGirder(3271, 768, 4) + PlaceGirder(3357, 1014, 4) + PlaceGirder(3416, 826, 5) + PlaceGirder(3454, 969, 6) + PlaceGirder(3439, 369, 6) + PlaceGirder(3500, 220, 7) + PlaceGirder(3502, 513, 5) + PlaceGirder(3646, 162, 4) + PlaceGirder(3791, 224, 5) + PlaceGirder(3851, 374, 6) + PlaceGirder(3792, 518, 7) + PlaceGirder(3994, 1731, 7) + PlaceGirder(3877, 1848, 7) + PlaceGirder(3789, 1942, 3) + PlaceGirder(3986, 1929, 2) + PlaceGirder(2837, 1937, 4) + PlaceGirder(2997, 1938, 4) + PlaceGirder(3157, 1938, 4) + PlaceGirder(1152, 1844, 4) + PlaceGirder(1299, 1898, 5) + PlaceGirder(1005, 1900, 7) + PlaceGirder(3578, 575, 6) + PlaceGirder(3714, 576, 6) + PlaceGirder(3579, 740, 6) + PlaceGirder(3714, 741, 6) + PlaceGirder(3580, 903, 6) + PlaceGirder(3715, 904, 6) + PlaceGirder(3552, 452, 1) + PlaceGirder(3528, 370, 2) + PlaceGirder(3568, 297, 3) + PlaceGirder(3736, 455, 3) + PlaceGirder(3757, 378, 2) + PlaceGirder(3725, 299, 1) + PlaceGirder(3646, 261, 0) + PlaceGirder(3648, 997, 4) + PlaceGirder(3649, 1275, 2) + PlaceGirder(3514, 1750, 0) + + ------ RUBBER BAND LIST ------ + + ------ LAND SPRITE LIST ------ + + ------ HEALTH CRATE LIST ------ + + ------ AMMO CRATE LIST ------ + tempG = SpawnAmmoCrate(1707, 1755, amBazooka) + tempG = SpawnAmmoCrate(3983, 1873, amBazooka) + tempG = SpawnAmmoCrate(184, 1561, amBazooka) + tempG = SpawnAmmoCrate(2644, 1378, amBazooka) + tempG = SpawnAmmoCrate(2914, 865, amBazooka) + + ------ MINE LIST ------ + SetTimer(AddGear(2340, 580, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2399, 580, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2448, 580, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2517, 579, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2575, 581, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2647, 582, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2720, 582, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2760, 581, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2331, 757, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2409, 758, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2477, 758, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2545, 759, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2613, 760, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2679, 758, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2744, 757, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2813, 610, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2855, 650, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2887, 686, gtMine, 0, 0, 0, 0), 1) + + elseif mapID == "2" then + + + -- land flags test map + + + + ------ GIRDER LIST ------ + PlaceSprite(335, 622, sprAmGirder, 16,16384) + PlaceSprite(474, 569, sprAmGirder, 13,16384) + PlaceSprite(343, 748, sprAmGirder, 14,16384) + PlaceSprite(466, 756, sprAmGirder, 16,16384) + PlaceSprite(609, 702, sprAmGirder, 13,16384) + PlaceSprite(635, 570, sprAmGirder, 13,16384) + PlaceSprite(770, 702, sprAmGirder, 13,16384) + PlaceSprite(960, 730, sprAmGirder, 18,2048) + PlaceSprite(1061, 608, sprAmGirder, 16,16384) + PlaceSprite(1207, 552, sprAmGirder, 13,16384) + PlaceSprite(1205, 409, sprAmGirder, 13,16384) + PlaceSprite(2312, 637, sprAmGirder, 6,0) + PlaceSprite(2312, 472, sprAmGirder, 6,0) + PlaceSprite(2311, 308, sprAmGirder, 6,0) + PlaceSprite(2292, 155, sprAmGirder, 6,0) + PlaceSprite(727, 611, sprAmGirder, 6,0) + PlaceSprite(1298, 480, sprAmGirder, 6,0) + + ------ RUBBER BAND LIST ------ + PlaceSprite(1411, 625, sprAmRubber, 1, lfBouncy) + PlaceSprite(1525, 739, sprAmRubber, 1, lfBouncy) + PlaceSprite(1638, 852, sprAmRubber, 1, lfBouncy) + PlaceSprite(1754, 963, sprAmRubber, 1, lfBouncy) + PlaceSprite(1870, 1076, sprAmRubber, 1, lfBouncy) + PlaceSprite(2013, 1131, sprAmRubber, 0, lfBouncy) + PlaceSprite(2159, 1070, sprAmRubber, 3, lfBouncy) + PlaceSprite(2268, 952, sprAmRubber, 3, lfBouncy) + PlaceSprite(2315, 802, sprAmRubber, 2, lfBouncy) + + ------ AMMO CRATE LIST ------ + tempG = SpawnAmmoCrate(472, 711, amBazooka) + + tempG = SpawnUtilityCrate(540, 660, amParachute) + + tempG = SpawnAmmoCrate(1155, 528, amBazooka) + + ------ UTILITY CRATE LIST ------ + tempG = SpawnUtilityCrate(2006, 1102, amRope) + + + + else + + + + + + + + + + + -- first test epic multi map + ------ GIRDER LIST ------ + PlaceSprite(430, 1871, sprAmGirder, 2, lfNormal) + PlaceSprite(1249, 1914, sprAmGirder, 4, lfNormal) + PlaceSprite(1394, 1849, sprAmGirder, 7, lfNormal) + PlaceSprite(1522, 1848, sprAmGirder, 5, lfNormal) + PlaceSprite(1578, 1959, sprAmGirder, 2, lfNormal) + PlaceSprite(1545, 2011, sprAmGirder, 0, lfNormal) + PlaceSprite(430, 1749, sprAmGirder, 6, lfNormal) + PlaceSprite(430, 1589, sprAmGirder, 6, lfNormal) + PlaceSprite(358, 1499, sprAmGirder, 4, lfNormal) + PlaceSprite(198, 1499, sprAmGirder, 4, lfNormal) + PlaceSprite(72, 1571, sprAmGirder, 7, lfNormal) + PlaceSprite(339, 1618, sprAmGirder, 4, lfNormal) + PlaceSprite(520, 1499, sprAmGirder, 4, lfNormal) + PlaceSprite(680, 1499, sprAmGirder, 4, lfNormal) + PlaceSprite(839, 1499, sprAmGirder, 4, lfNormal) + PlaceSprite(1000, 1499, sprAmGirder, 4, lfNormal) + PlaceSprite(1404, 1730, sprAmGirder, 5, lfNormal) + PlaceSprite(1288, 1613, sprAmGirder, 5, lfNormal) + PlaceSprite(1200, 1529, sprAmGirder, 1, lfNormal) + PlaceSprite(1125, 1495, sprAmGirder, 0, lfNormal) + PlaceSprite(1667, 2011, sprAmGirder, 4, lfNormal) + PlaceSprite(1812, 1951, sprAmGirder, 7, lfNormal) + PlaceSprite(1964, 2024, sprAmGirder, 0, lfNormal) + PlaceSprite(1957, 1892, sprAmGirder, 4, lfNormal) + PlaceSprite(2103, 1949, sprAmGirder, 5, lfNormal) + PlaceSprite(2242, 2017, sprAmGirder, 4, lfNormal) + PlaceSprite(2404, 2017, sprAmGirder, 4, lfNormal) + PlaceSprite(2548, 1955, sprAmGirder, 7, lfNormal) + PlaceSprite(2635, 1871, sprAmGirder, 3, lfNormal) + PlaceSprite(2749, 1836, sprAmGirder, 4, lfNormal) + PlaceSprite(2751, 1999, sprAmGirder, 2, lfNormal) + PlaceSprite(2749, 1947, sprAmGirder, 0, lfNormal) + PlaceSprite(2865, 1870, sprAmGirder, 1, lfNormal) + PlaceSprite(2954, 1954, sprAmGirder, 5, lfNormal) + PlaceSprite(3061, 2017, sprAmGirder, 0, lfNormal) + PlaceSprite(3137, 1984, sprAmGirder, 3, lfNormal) + PlaceSprite(3169, 1864, sprAmGirder, 6, lfNormal) + PlaceSprite(3169, 1702, sprAmGirder, 6, lfNormal) + PlaceSprite(3170, 1540, sprAmGirder, 6, lfNormal) + PlaceSprite(3170, 1418, sprAmGirder, 2, lfNormal) + PlaceSprite(3138, 1339, sprAmGirder, 1, lfNormal) + PlaceSprite(3107, 1260, sprAmGirder, 2, lfNormal) + PlaceSprite(3153, 1194, sprAmGirder, 3, lfNormal) + PlaceSprite(3230, 1163, sprAmGirder, 0, lfNormal) + PlaceSprite(3305, 1201, sprAmGirder, 1, lfNormal) + PlaceSprite(3334, 1277, sprAmGirder, 2, lfNormal) + PlaceSprite(3227, 1540, sprAmGirder, 6, lfNormal) + PlaceSprite(3228, 1419, sprAmGirder, 2, lfNormal) + PlaceSprite(3334, 1358, sprAmGirder, 2, lfNormal) + PlaceSprite(3280, 1387, sprAmGirder, 0, lfNormal) + PlaceSprite(3227, 1702, sprAmGirder, 6, lfNormal) + PlaceSprite(3227, 1864, sprAmGirder, 6, lfNormal) + PlaceSprite(3253, 1981, sprAmGirder, 1, lfNormal) + PlaceSprite(3366, 2017, sprAmGirder, 4, lfNormal) + PlaceSprite(3528, 2018, sprAmGirder, 4, lfNormal) + PlaceSprite(3689, 2018, sprAmGirder, 4, lfNormal) + PlaceSprite(246, 1262, sprAmGirder, 4, lfNormal) + PlaceSprite(407, 1262, sprAmGirder, 4, lfNormal) + PlaceSprite(568, 1262, sprAmGirder, 4, lfNormal) + PlaceSprite(731, 1262, sprAmGirder, 4, lfNormal) + PlaceSprite(894, 1261, sprAmGirder, 4, lfNormal) + PlaceSprite(1056, 1261, sprAmGirder, 4, lfNormal) + PlaceSprite(1179, 1262, sprAmGirder, 0, lfNormal) + PlaceSprite(1288, 1314, sprAmGirder, 5, lfNormal) + PlaceSprite(1406, 1433, sprAmGirder, 5, lfNormal) + PlaceSprite(1525, 1549, sprAmGirder, 5, lfNormal) + PlaceSprite(1642, 1666, sprAmGirder, 5, lfNormal) + PlaceSprite(1749, 1728, sprAmGirder, 0, lfNormal) + PlaceSprite(1956, 1802, sprAmGirder, 6, lfNormal) + PlaceSprite(1956, 1640, sprAmGirder, 6, lfNormal) + PlaceSprite(1782, 1638, sprAmGirder, 6, lfNormal) + PlaceSprite(1835, 1487, sprAmGirder, 7, lfNormal) + PlaceSprite(1942, 1430, sprAmGirder, 0, lfNormal) + PlaceSprite(2051, 1486, sprAmGirder, 5, lfNormal) + PlaceSprite(2109, 1639, sprAmGirder, 6, lfNormal) + PlaceSprite(2177, 1778, sprAmGirder, 5, lfNormal) + PlaceSprite(2323, 1840, sprAmGirder, 4, lfNormal) + PlaceSprite(49, 1029, sprAmGirder, 0, lfNormal) + PlaceSprite(499, 1172, sprAmGirder, 6, lfNormal) + PlaceSprite(527, 1054, sprAmGirder, 3, lfNormal) + PlaceSprite(604, 1026, sprAmGirder, 0, lfNormal) + PlaceSprite(680, 1056, sprAmGirder, 1, lfNormal) + PlaceSprite(719, 1168, sprAmGirder, 6, lfNormal) + PlaceSprite(89, 728, sprAmGirder, 4, lfNormal) + PlaceSprite(251, 728, sprAmGirder, 4, lfNormal) + PlaceSprite(412, 728, sprAmGirder, 4, lfNormal) + PlaceSprite(572, 728, sprAmGirder, 4, lfNormal) + PlaceSprite(733, 728, sprAmGirder, 4, lfNormal) + PlaceSprite(894, 728, sprAmGirder, 4, lfNormal) + PlaceSprite(1016, 728, sprAmGirder, 0, lfNormal) + PlaceSprite(1067, 799, sprAmGirder, 6, lfNormal) + PlaceSprite(1139, 891, sprAmGirder, 4, lfNormal) + PlaceSprite(1067, 1171, sprAmGirder, 6, lfNormal) + PlaceSprite(1067, 1049, sprAmGirder, 2, lfNormal) + PlaceSprite(1136, 999, sprAmGirder, 4, lfNormal) + PlaceSprite(1005, 854, sprAmGirder, 2, lfNormal) + PlaceSprite(972, 803, sprAmGirder, 0, lfNormal) + PlaceSprite(920, 780, sprAmGirder, 2, lfNormal) + PlaceSprite(891, 1206, sprAmGirder, 2, lfNormal) + PlaceSprite(887, 1150, sprAmGirder, 0, lfNormal) + PlaceSprite(3018, 1311, sprAmGirder, 4, lfNormal) + PlaceSprite(2871, 1369, sprAmGirder, 7, lfNormal) + PlaceSprite(2809, 1523, sprAmGirder, 6, lfNormal) + PlaceSprite(2809, 1647, sprAmGirder, 2, lfNormal) + PlaceSprite(2469, 1777, sprAmGirder, 7, lfNormal) + PlaceSprite(2612, 1715, sprAmGirder, 4, lfNormal) + PlaceSprite(2809, 1702, sprAmGirder, 0, lfNormal) + PlaceSprite(2727, 1694, sprAmGirder, 0, lfNormal) + + PlaceSprite(3334, 1481, sprAmGirder, 6, lfNormal) + PlaceSprite(3334, 1643, sprAmGirder, 6, lfNormal) + PlaceSprite(3334, 1804, sprAmGirder, 6, lfNormal) + PlaceSprite(3403, 1940, sprAmGirder, 5, lfNormal) + PlaceSprite(1120, 944, sprAmGirder, 2, lfNormal) + PlaceSprite(1163, 945, sprAmGirder, 2, lfNormal) + PlaceSprite(1141, 781, sprAmGirder, 5, lfNormal) + PlaceSprite(81, 629, sprAmGirder, 1, lfNormal) + PlaceSprite(102, 498, sprAmGirder, 3, lfNormal) + PlaceSprite(81, 373, sprAmGirder, 1, lfNormal) + PlaceSprite(179, 453, sprAmGirder, 6, lfNormal) + PlaceSprite(100, 260, sprAmGirder, 3, lfNormal) + PlaceSprite(179, 330, sprAmGirder, 2, lfNormal) + PlaceSprite(249, 544, sprAmGirder, 4, lfNormal) + PlaceSprite(410, 545, sprAmGirder, 4, lfNormal) + PlaceSprite(571, 543, sprAmGirder, 4, lfNormal) + PlaceSprite(731, 543, sprAmGirder, 4, lfNormal) + PlaceSprite(891, 544, sprAmGirder, 4, lfNormal) + PlaceSprite(1014, 544, sprAmGirder, 0, lfNormal) + PlaceSprite(1779, 1321, sprAmGirder, 6, lfNormal) + PlaceSprite(1779, 1159, sprAmGirder, 6, lfNormal) + PlaceSprite(1779, 997, sprAmGirder, 6, lfNormal) + PlaceSprite(1779, 836, sprAmGirder, 6, lfNormal) + PlaceSprite(1722, 684, sprAmGirder, 5, lfNormal) + PlaceSprite(1137, 545, sprAmGirder, 4, lfNormal) + PlaceSprite(1298, 545, sprAmGirder, 4, lfNormal) + PlaceSprite(1460, 546, sprAmGirder, 4, lfNormal) + PlaceSprite(1608, 600, sprAmGirder, 5, lfNormal) + PlaceSprite(1508, 1005, sprAmGirder, 4, lfNormal) + PlaceSprite(160, 246, sprAmGirder, 1, lfNormal) + PlaceSprite(1821, 1356, sprAmGirder, 3, lfNormal) + PlaceSprite(1938, 1323, sprAmGirder, 4, lfNormal) + PlaceSprite(2086, 1381, sprAmGirder, 5, lfNormal) + PlaceSprite(4004, 2018, sprAmGirder, 4, lfNormal) + PlaceSprite(3934, 1926, sprAmGirder, 6, lfNormal) + PlaceSprite(3965, 1835, sprAmGirder, 0, lfNormal) + PlaceSprite(4015, 1763, sprAmGirder, 6, lfNormal) + PlaceSprite(4015, 1603, sprAmGirder, 6, lfNormal) + PlaceSprite(4015, 1442, sprAmGirder, 6, lfNormal) + PlaceSprite(4015, 1280, sprAmGirder, 6, lfNormal) + PlaceSprite(4014, 1118, sprAmGirder, 6, lfNormal) + PlaceSprite(4014, 956, sprAmGirder, 6, lfNormal) + PlaceSprite(4014, 793, sprAmGirder, 6, lfNormal) + PlaceSprite(4014, 632, sprAmGirder, 6, lfNormal) + PlaceSprite(4014, 469, sprAmGirder, 6, lfNormal) + PlaceSprite(3981, 351, sprAmGirder, 1, lfNormal) + PlaceSprite(3985, 204, sprAmGirder, 3, lfNormal) + PlaceSprite(4045, 156, sprAmGirder, 0, lfNormal) + PlaceSprite(3667, 344, sprAmGirder, 0, lfNormal) + PlaceSprite(4016, 1925, sprAmGirder, 6, lfNormal) + PlaceSprite(3998, 1926, sprAmGirder, 6, lfNormal) + PlaceSprite(3980, 1925, sprAmGirder, 6, lfNormal) + PlaceSprite(3957, 1926, sprAmGirder, 6, lfNormal) + PlaceSprite(3843, 1832, sprAmGirder, 4, lfNormal) + PlaceSprite(3682, 1832, sprAmGirder, 4, lfNormal) + PlaceSprite(3561, 1833, sprAmGirder, 0, lfNormal) + PlaceSprite(3484, 1796, sprAmGirder, 1, lfNormal) + PlaceSprite(3455, 1675, sprAmGirder, 6, lfNormal) + PlaceSprite(3455, 1513, sprAmGirder, 6, lfNormal) + PlaceSprite(3455, 1351, sprAmGirder, 6, lfNormal) + PlaceSprite(1601, 476, sprAmGirder, 7, lfNormal) + PlaceSprite(1706, 421, sprAmGirder, 0, lfNormal) + PlaceSprite(1888, 366, sprAmGirder, 6, lfNormal) + + PlaceSprite(3997, 1743, sprAmGirder, 6, lfNormal) + PlaceSprite(3979, 1742, sprAmGirder, 6, lfNormal) + PlaceSprite(3962, 1741, sprAmGirder, 6, lfNormal) + PlaceSprite(3943, 1741, sprAmGirder, 6, lfNormal) + PlaceSprite(2199, 393, sprAmGirder, 7, lfNormal) + PlaceSprite(2304, 337, sprAmGirder, 0, lfNormal) + PlaceSprite(2409, 392, sprAmGirder, 5, lfNormal) + PlaceSprite(2470, 502, sprAmGirder, 2, lfNormal) + PlaceSprite(2412, 606, sprAmGirder, 7, lfNormal) + PlaceSprite(2308, 673, sprAmGirder, 0, lfNormal) + PlaceSprite(2202, 612, sprAmGirder, 5, lfNormal) + PlaceSprite(2138, 507, sprAmGirder, 2, lfNormal) + PlaceSprite(2739, 378, sprAmGirder, 7, lfNormal) + PlaceSprite(2847, 322, sprAmGirder, 0, lfNormal) + PlaceSprite(2953, 378, sprAmGirder, 5, lfNormal) + PlaceSprite(2680, 489, sprAmGirder, 2, lfNormal) + PlaceSprite(3012, 489, sprAmGirder, 2, lfNormal) + PlaceSprite(2736, 594, sprAmGirder, 5, lfNormal) + PlaceSprite(2841, 657, sprAmGirder, 0, lfNormal) + PlaceSprite(2949, 594, sprAmGirder, 7, lfNormal) + PlaceSprite(2448, 837, sprAmGirder, 7, lfNormal) + PlaceSprite(2594, 779, sprAmGirder, 4, lfNormal) + PlaceSprite(2739, 836, sprAmGirder, 5, lfNormal) + PlaceSprite(2390, 950, sprAmGirder, 2, lfNormal) + PlaceSprite(2789, 950, sprAmGirder, 2, lfNormal) + PlaceSprite(2593, 904, sprAmGirder, 4, lfNormal) + PlaceSprite(2727, 1056, sprAmGirder, 7, lfNormal) + PlaceSprite(2452, 1058, sprAmGirder, 5, lfNormal) + PlaceSprite(2510, 1215, sprAmGirder, 6, lfNormal) + PlaceSprite(2663, 1208, sprAmGirder, 6, lfNormal) + PlaceSprite(2510, 1378, sprAmGirder, 6, lfNormal) + PlaceSprite(2664, 1369, sprAmGirder, 6, lfNormal) + PlaceSprite(300, 275, sprAmGirder, 0, lfNormal) + PlaceSprite(439, 274, sprAmGirder, 0, lfNormal) + PlaceSprite(628, 273, sprAmGirder, 4, lfNormal) + PlaceSprite(811, 271, sprAmGirder, 0, lfNormal) + PlaceSprite(737, 373, sprAmGirder, 4, lfNormal) + PlaceSprite(934, 440, sprAmGirder, 0, lfNormal) + PlaceSprite(1075, 439, sprAmGirder, 0, lfNormal) + PlaceSprite(1209, 438, sprAmGirder, 0, lfNormal) + PlaceSprite(1383, 439, sprAmGirder, 4, lfNormal) + --PlaceSprite(2159, 1525, sprAmGirder, 6, lfNormal) + PlaceSprite(3547, 344, sprAmGirder, 4, lfNormal) + PlaceSprite(3584, 254, sprAmGirder, 6, lfNormal) + PlaceSprite(3508, 132, sprAmGirder, 5, lfNormal) + PlaceSprite(3335, 1117, sprAmGirder, 6, lfNormal) + PlaceSprite(3335, 956, sprAmGirder, 6, lfNormal) + PlaceSprite(3335, 795, sprAmGirder, 6, lfNormal) + PlaceSprite(3335, 634, sprAmGirder, 6, lfNormal) + PlaceSprite(3335, 513, sprAmGirder, 2, lfNormal) + PlaceSprite(3401, 404, sprAmGirder, 7, lfNormal) + PlaceSprite(3455, 1190, sprAmGirder, 6, lfNormal) + PlaceSprite(3455, 1029, sprAmGirder, 6, lfNormal) + PlaceSprite(3455, 868, sprAmGirder, 6, lfNormal) + PlaceSprite(3455, 705, sprAmGirder, 6, lfNormal) + PlaceSprite(3455, 582, sprAmGirder, 2, lfNormal) + PlaceSprite(3485, 503, sprAmGirder, 3, lfNormal) + PlaceSprite(3601, 475, sprAmGirder, 4, lfNormal) + PlaceSprite(3719, 444, sprAmGirder, 3, lfNormal) + PlaceSprite(3094, 828, sprAmGirder, 5, lfNormal) + PlaceSprite(2064, 947, sprAmGirder, 7, lfNormal) + PlaceSprite(1826, 512, sprAmGirder, 7, lfNormal) + + PlaceSprite(3420, 49, sprAmGirder, 1, lfNormal) + PlaceSprite(410, 682, sprAmGirder, 3, lfNormal) + PlaceSprite(528, 653, sprAmGirder, 4, lfNormal) + PlaceSprite(688, 653, sprAmGirder, 4, lfNormal) + PlaceSprite(805, 684, sprAmGirder, 1, lfNormal) + PlaceSprite(528, 672, sprAmGirder, 4, lfNormal) + PlaceSprite(688, 672, sprAmGirder, 4, lfNormal) + PlaceSprite(500, 696, sprAmGirder, 4, lfNormal) + PlaceSprite(701, 696, sprAmGirder, 4, lfNormal) + + ------ AMMO CRATE LIST ------ + tempG = SpawnAmmoCrate(889, 1126, amBaseballBat) + + tempG = SpawnAmmoCrate(1211, 975, amSineGun) + tempG = SpawnAmmoCrate(3619, 451, amFirePunch) + + ------ UTILITY CRATE LIST ------ + tempG = SpawnUtilityCrate(304, 1594, amRope) + tempG = SpawnUtilityCrate(1538, 1987, amJetpack) + tempG = SpawnUtilityCrate(1958, 2000, amExtraTime) + tempG = SpawnUtilityCrate(2744, 1923, amJetpack) + tempG = SpawnUtilityCrate(3283, 1363, amParachute) + tempG = SpawnUtilityCrate(2749, 1812, amRope) + tempG = SpawnUtilityCrate(970, 779, amJetpack) + + tempG = SpawnUtilityCrate(3284, 1332, amExtraTime) + tempG = SpawnUtilityCrate(1082, 975, amBlowTorch) + tempG = SpawnUtilityCrate(1547, 981, amJetpack) + tempG = SpawnUtilityCrate(1707, 397, amRope) + tempG = SpawnUtilityCrate(2309, 649, amExtraTime) + tempG = SpawnUtilityCrate(1116, 867, amExtraTime) + + ------ AMMO CRATE LIST ------ + tempG = SpawnAmmoCrate(2559, 880, amBazooka) + tempG = SpawnAmmoCrate(2630, 880, amBazooka) + tempG = SpawnAmmoCrate(1951, 1406, amGrenade) + + ------ UTILITY CRATE LIST ------ + tempG = SpawnUtilityCrate(3536, 320, amBlowTorch) + tempG = SpawnUtilityCrate(3582, 1994, amJetpack) + tempG = SpawnUtilityCrate(682, 349, amExtraTime) + tempG = SpawnUtilityCrate(2842, 633, amExtraTime) + + ------ BARREL LIST ------ + SetHealth(AddGear(506, 1034, gtExplosives, 0, 0, 0, 0), 1) + SetHealth(AddGear(556, 1002, gtExplosives, 0, 0, 0, 0), 1) + SetHealth(AddGear(615, 1002, gtExplosives, 0, 0, 0, 0), 1) + SetHealth(AddGear(676, 1010, gtExplosives, 0, 0, 0, 0), 1) + SetHealth(AddGear(716, 1050, gtExplosives, 0, 0, 0, 0), 1) + SetHealth(AddGear(67, 1005, gtExplosives, 0, 0, 0, 0), 50) + + ------ MINE LIST ------ + SetTimer(AddGear(1187, 1908, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1235, 1908, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1283, 1908, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1323, 1908, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1361, 1875, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1399, 1837, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1426, 1810, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(234, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(308, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(377, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(460, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(550, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(633, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(722, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(795, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(881, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(975, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1060, 1493, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1127, 1489, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1207, 1526, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1261, 1580, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1315, 1634, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1372, 1692, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1416, 1736, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1465, 1792, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1518, 1838, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1566, 1886, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1623, 2005, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1686, 2005, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1799, 1957, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1839, 1917, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1902, 1886, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1933, 1886, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2076, 1916, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2138, 1978, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2221, 2011, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2305, 2011, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2390, 2011, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2578, 1918, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(2494, 2002, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1758, 1728, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1683, 1707, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1635, 1657, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1572, 1596, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1517, 1542, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1447, 1477, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1401, 1432, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1338, 1365, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1290, 1310, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1230, 1266, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1149, 1260, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1054, 1257, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(978, 1257, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(895, 1258, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(819, 1257, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(753, 1258, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(671, 1260, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(599, 1260, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(526, 1259, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(466, 1259, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(408, 1261, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(336, 1260, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(290, 1259, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(218, 1260, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1777, 1263, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1776, 1198, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1778, 1141, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1781, 1078, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1778, 1027, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1778, 985, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1779, 925, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(1777, 882, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(4052, 2010, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(3965, 226, gtMine, 0, 0, 0, 0), 1) + SetTimer(AddGear(3962, 326, gtMine, 0, 0, 0, 0), 1) + + ------ STICKY MINE LIST ------ + tempG = AddGear(3170, 1907, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3170, 1860, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3169, 1809, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3170, 1761, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3170, 1711, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3172, 1668, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3170, 1624, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3169, 1579, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3171, 1526, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3168, 1469, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3171, 1418, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3227, 1416, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3226, 1465, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3225, 1523, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3224, 1576, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3225, 1624, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3228, 1667, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3228, 1707, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3230, 1757, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3228, 1803, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3229, 1856, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3228, 1910, gtSMine, 0, 0, 0, 0) + tempG = AddGear(258, 534, gtSMine, 0, 0, 0, 0) + tempG = AddGear(329, 534, gtSMine, 0, 0, 0, 0) + tempG = AddGear(410, 535, gtSMine, 0, 0, 0, 0) + tempG = AddGear(482, 535, gtSMine, 0, 0, 0, 0) + tempG = AddGear(565, 533, gtSMine, 0, 0, 0, 0) + tempG = AddGear(670, 533, gtSMine, 0, 0, 0, 0) + tempG = AddGear(763, 533, gtSMine, 0, 0, 0, 0) + tempG = AddGear(858, 534, gtSMine, 0, 0, 0, 0) + tempG = AddGear(917, 534, gtSMine, 0, 0, 0, 0) + tempG = AddGear(1012, 534, gtSMine, 0, 0, 0, 0) + tempG = AddGear(1147, 535, gtSMine, 0, 0, 0, 0) + tempG = AddGear(1102, 535, gtSMine, 0, 0, 0, 0) + tempG = AddGear(1220, 535, gtSMine, 0, 0, 0, 0) + tempG = AddGear(1293, 535, gtSMine, 0, 0, 0, 0) + tempG = AddGear(1368, 535, gtSMine, 0, 0, 0, 0) + tempG = AddGear(1440, 536, gtSMine, 0, 0, 0, 0) + tempG = AddGear(223, 534, gtSMine, 0, 0, 0, 0) + tempG = AddGear(814, 534, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3909, 1822, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3867, 1822, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3824, 1822, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3784, 1822, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3732, 1822, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3682, 1822, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3627, 1822, gtSMine, 0, 0, 0, 0) + tempG = AddGear(3557, 1823, gtSMine, 0, 0, 0, 0) + end + + + activationStage = 200 + + --runOnHogs(RestoreHog) + + end + +end + +function TryRepositionHogs() + + if MapHasBorder() == true then + + for i = 0, (numhhs-1) do + if hhs[i] ~= nil then + SetGearPosition(hhs[i],GetX(hhs[i]), TopY-10) + end + end + + end + +end + +---------------------------------- +-- GAME METHODS / EVENT HANDLERS +---------------------------------- + +function onParameters() + parseParams() + mapID = params["m"] +end + +function onGameInit() + --EnableGameFlags(gfInfAttack, gfInvulnerable) + EnableGameFlags(gfInfAttack, gfDisableWind) + DisableGameFlags(gfSolidLand) + CaseFreq = 0 + TurnTime = 90000 + WaterRise = 0 +end + + +function onGameStart() + + + trackTeams() + roundN = 0 + lastRound = TotalRounds + RoundHasChanged = false -- true + + for i = 0, (specialPointsCount-1) do + PlaceWayPoint(specialPointsX[i], specialPointsY[i]) + end + + RebuildTeamInfo() + + ShowMission ( + loc("RACER"), + loc("a Hedgewars mini-game"), + + loc("Build a track and race.") .. "|" .. + loc("Round Limit:") .. " " .. roundLimit .. "|" .. + + "", 4, 4000 + ) + + TryRepositionHogs() + +end + +function PlaceWayPoint(x,y) + if not racerActive then + if wpCount == 0 or wpX[wpCount - 1] ~= x or wpY[wpCount - 1] ~= y then + + wpX[wpCount] = x + wpY[wpCount] = y + wpCol[wpCount] = 0xffffffff + wpCirc[wpCount] = AddVisualGear(wpX[wpCount],wpY[wpCount],vgtCircle,0,true) + + SetVisualGearValues(wpCirc[wpCount], wpX[wpCount], wpY[wpCount], 20, 100, 1, 10, 0, wpRad, 5, wpCol[wpCount]) + + wpCount = wpCount + 1 + + AddCaption(loc("Waypoint placed.") .. " " .. loc("Available points remaining: ") .. (wpLimit-wpCount)) + end + end +end + +function onSpecialPoint(x,y,flag) + specialPointsX[specialPointsCount] = x + specialPointsY[specialPointsCount] = y + specialPointsCount = specialPointsCount + 1 +end + + + +function onNewTurn() + + --runOnHogs(HideHog) + + CheckForNewRound() + TryRepositionHogs() + + racerActive = false + + activationStage = 1 + + --AddAmmo(CurrentHedgehog, amBazooka, 100) + --AddAmmo(CurrentHedgehog, amJetpack, 100) + + --ClearMap() + + + trackTime = 0 + + currCount = 0 -- hopefully this solves problem + AddAmmo(CurrentHedgehog, amAirAttack, 0) + gTimer = 0 + + -- Set the waypoints to unactive on new round + for i = 0,(wpCount-1) do + wpActive[i] = false + wpCol[i] = 0xffffffff + SetVisualGearValues(wpCirc[i], wpX[i], wpY[i], 20, 100, 1, 10, 0, wpRad, 5, wpCol[i]) + end + + -- Handle Starting Stage of Game + if (gameOver == false) and (gameBegun == false) then + if wpCount >= 3 then + gameBegun = true + --activationStage = 200 + roundNumber = 0 + firstClan = GetHogClan(CurrentHedgehog) + ShowMission(loc("RACER"), + loc("GAME BEGUN!!!"), + loc("Complete the track as fast as you can!"), 2, 4000) + else + ShowMission(loc("RACER"), + loc("NOT ENOUGH WAYPOINTS"), + loc("Place more waypoints using the 'Air Attack' weapon."), 2, 4000) + AddAmmo(CurrentHedgehog, amAirAttack, 4000) + ParseCommand("setweap " .. string.char(amAirAttack)) + end + end + + if gameOver == true then + gameBegun = false + racerActive = false -- newadd + end + + AddAmmo(CurrentHedgehog, amTardis, 0) + AddAmmo(CurrentHedgehog, amDrillStrike, 0) + AddAmmo(CurrentHedgehog, amMineStrike, 0) + AddAmmo(CurrentHedgehog, amNapalm, 0) + AddAmmo(CurrentHedgehog, amPiano, 0) + +end + +function onGameTick20() + + + if jet ~= nil then + --SetHealth(jet, 2000) + end + + -- airstrike detected, convert this into a potential waypoint spot + if cGear ~= nil then + x,y = GetGearPosition(cGear) + if x > -9000 then + x,y = GetGearTarget(cGear) + + + if TestRectForObstacle(x-20, y-20, x+20, y+20, true) then + AddCaption(loc("Please place the way-point in the open, within the map boundaries.")) + PlaySound(sndDenied) + elseif (y > WaterLine-50) then + AddCaption(loc("Please place the way-point further from the waterline.")) + PlaySound(sndDenied) + else + PlaceWayPoint(x, y) + if wpCount == wpLimit then + AddCaption(loc("Race complexity limit reached.")) + DisableTumbler() + end + end + else + DeleteGear(cGear) + end + SetGearPosition(cGear, -10000, 0) + end + + + if activationStage < 10 then + HandleFreshMapCreation() + end + + + -- start the player tumbling with a boom once their turn has actually begun + if racerActive == false then + + if (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then + + -- if the gamehas started put the player in the middle of the first + --waypoint that was placed + --if activationStage == 200 then + if gameBegun == true then + AddCaption(loc("Good to go!")) + racerActive = true + trackTime = 0 + + + SetGearPosition(CurrentHedgehog, wpX[0], wpY[0]) + --AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtGrenade, 0, 0, 0, 1) + --SetGearVelocity(CurrentHedgehog,1000000,1000000) + SetGearMessage(CurrentHedgehog,gmLeft) + + + FollowGear(CurrentHedgehog) + + HideMission() + activationStage = 201 + + else + -- still in placement mode + end + + end + + elseif (activationStage == 201) and (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then + SetGearMessage(CurrentHedgehog,0) + activationStage = 202 + end + + + + -- has the player started his tumbling spree? + if (CurrentHedgehog ~= nil) then + + --airstrike conversion used to be here + + -- if the RACE has started, show tracktimes and keep tabs on waypoints + if (racerActive == true) and (activationStage == 202) then + + --ghost + if GameTime%40 == 0 then + HandleGhost() + end + + trackTime = trackTime + 20 + + if GameTime%100 == 0 then + + if trackTime%1000 == 0 then + AddCaption((trackTime/1000)..'.0',GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2) + else + AddCaption(trackTime/1000,GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2) + end + + if (CheckWaypoints() == true) then + AdjustScores() + DisableTumbler() + end + + end + + end + + -- if the player has expended his tunbling time, stop him tumbling + if TurnTimeLeft <= 20 then + DisableTumbler() + end + + end + +end + +function onGearResurrect(gear) + + AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false) + + if gear == CurrentHedgehog then + DisableTumbler() + end + +end + +function isATrackedGear(gear) + if (GetGearType(gear) == gtHedgehog) or + (GetGearType(gear) == gtGrenade) or + (GetGearType(gear) == gtTarget) or + (GetGearType(gear) == gtFlame) or + (GetGearType(gear) == gtExplosives) or + (GetGearType(gear) == gtMine) or + (GetGearType(gear) == gtSMine) or + (GetGearType(gear) == gtCase) + then + return(true) + else + return(false) + end +end + +function onGearAdd(gear) + + if isATrackedGear(gear) then + trackGear(gear) + end + + if GetGearType(gear) == gtHedgehog then + hhs[numhhs] = gear + numhhs = numhhs + 1 + SetEffect(gear, heResurrectable, 1) + end + + if GetGearType(gear) == gtAirAttack then + cGear = gear + elseif GetGearType(gear) == gtJetpack then + jet = gear + end + +end + +function onGearDelete(gear) + + if isATrackedGear(gear) then + trackDeletion(gear) + elseif GetGearType(gear) == gtAirAttack then + cGear = nil + elseif GetGearType(gear) == gtJetpack then + jet = nil + end + +end + +function onAttack() + at = GetCurAmmoType() + + usedWeapons[at] = 0 +end + + +