--- /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
+
+
+