hedgewars: comparison share/hedgewars/Data/Scripts/Multiplayer/Capture_the

equal deleted inserted replaced

-:a6eab1b7c00d
+:a416f1070fdf
 ----------because someone is too lazy
 ----------to read about tables properly
 ------------------ "Oh well, they probably have the memory"
 local gameStarted = false
 local gameTurns = 0
 --------------------------
 -- hog and team tracking variales
 --------------------------
 		alt = 0
 	end
 	if fCaptures[teamID] == 3 then
 		for i = 0, (numhhs-1) do
 			if hhs[i] ~= nil then
 				if GetHogClan(hhs[i]) == alt then
 					SetEffect(hhs[i], heResurrectable, false)
 					SetHealth(hhs[i],0)
 				end
 			end
 		end
 		if CurrentHedgehog ~= nil then
 			ShowMission(loc("GAME OVER!"), loc("Victory for the ") .. GetHogTeamName(CurrentHedgehog), loc("Hooray!"), 0, 0)
 		end
 	end
 end
 		bbq = 1
 	elseif (gear == fGear[1]) then
 		wtf = 1
 		bbq = 0
 	end
 	-- player has successfully captured the enemy flag
 	if (GetHogClan(CurrentHedgehog) == wtf) and (CurrentHedgehog == fThief[bbq]) and (fIsMissing[wtf] == false) then
 		DeleteVisualGear(fGear[wtf])
 		fGear[wtf] = nil -- the flag has now disappeared
 		fIsMissing[wtf] = false
 		fNeedsRespawn[wtf] = true
 		fIsMissing[bbq] = false
 		fNeedsRespawn[bbq] = true
 		fCaptures[wtf] = fCaptures[wtf] +1
 		ShowMission(loc("You have SCORED!!"), GetHogTeamName(CurrentHedgehog) .. ": " .. fCaptures[wtf], loc("Opposing Team: ") .. fCaptures[bbq], 0, 0)
 		PlaySound(sndVictory)
 		fThief[bbq] = nil -- player no longer has the enemy flag
 		CheckScore(wtf)
 	--if the player is returning the flag
 	elseif (GetHogClan(CurrentHedgehog) == wtf) and (fIsMissing[wtf] == true) then
 		DeleteVisualGear(fGear[wtf])
 		fGear[wtf] = nil -- the flag has now disappeared
 		fNeedsRespawn[wtf] = true
 		HandleRespawns() -- this will set fIsMissing[wtf] to false :)
 		AddCaption(loc("Flag returned!"))
 	--if the player is taking the enemy flag
 	elseif GetHogClan(CurrentHedgehog) == bbq then
 		DeleteVisualGear(fGear[wtf])
 		fGear[wtf] = nil -- the flag has now disappeared
 		fIsMissing[wtf] = true
 		for i = 0,numhhs-1 do
 			if CurrentHedgehog ~= nil then
 				if CurrentHedgehog == hhs[i] then
 					fThief[wtf] = hhs[i]
 				end
 			end
 		end
 		AddCaption(loc("Flag captured!"))
 	end
 end
 function CheckFlagProximity()
 	for i = 0, 1 do
 		if fGear[i] ~= nil then
 			g1X = fGearX[i]
 			g1Y = fGearY[i]
 			g2X, g2Y = GetGearPosition(CurrentHedgehog)
 			q = g1X - g2X
 			w = g1Y - g2Y
 			dist = (q*q) + (w*w)
 			if dist < 500 then --1600
 				DoFlagStuff(fGear[i])
 			end
 		end
 	end
 	for i = 0, 1 do
 		if fNeedsRespawn[i] == true then
 			fGear[i] = AddVisualGear(fSpawnX[i],fSpawnY[i],vgtCircle,0,true)
 			fGearX[i] = fSpawnX[i]
 			fGearY[i] = fSpawnY[i]
 			fNeedsRespawn[i] = false
 			fIsMissing[i] = false -- new, this should solve problems of a respawned flag being "returned" when a player tries to score
 			AddCaption(loc("Flag respawned!"))
 		end
 		wtf = 1
 		bbq = 0
 	end
 	if fThief[wtf] ~= nil then
 		-- falls into water
 		--ShowMission(LAND_HEIGHT,  fThiefY[wtf], (LAND_HEIGHT - fThiefY[wtf]), 0, 0)
 		if (LAND_HEIGHT - fThiefY[wtf]) < 15 then
 			fIsMissing[wtf] = true
 			fNeedsRespawn[wtf] = true
 			HandleRespawns()
 		else	--normally
 			fGearX[wtf]  =  fThiefX[wtf]
 			fGearY[wtf]  =  fThiefY[wtf]
 			fGear[wtf] = AddVisualGear(fGearX[wtf],fGearY[wtf],vgtCircle,0,true)
 		end
 		AddVisualGear(fThiefX[wtf], fThiefY[wtf], vgtBigExplosion, 0, false)
 		fThief[wtf] = nil
 	end
 	fGearTimer = fGearTimer + 1
 	if fGearTimer == 50 then
 		fGearTimer = 0
 		fGearRad = fGearRad + 1
 		if fGearRad > fGearRadMax then
 			fGearRad = fGearRadMin
 		end
 	end
 	for i = 0, 1 do
 		--SetVisualGearValues(fSpawnC[i], fSpawnX[i],fSpawnY[i], 20, 200, 0, 0, 100, 50, 3, fCol[i]) -- draw a circ for spawning area
 		if fIsMissing[i] == false then -- draw a flag marker at the flag's spawning place
 			SetVisualGearValues(fCirc[i], fSpawnX[i],fSpawnY[i], 20, 20, 0, 10, 0, 33, 3, fCol[i])
 			if fGear[i] ~= nil then -- draw the flag gear itself
 				SetVisualGearValues(fGear[i], fSpawnX[i],fSpawnY[i], 20, 200, 0, 0, 100, fGearRad, 2, fCol[i])
 			end
 		elseif (fIsMissing[i] == true) and (fNeedsRespawn[i] == false) then
 			if fThief[i] ~= nil then -- draw circle round flag carrier			-- 33
 				SetVisualGearValues(fCirc[i], fThiefX[i], fThiefY[i], 20, 200, 0, 0, 100, 50, 3, fCol[i])
 				--AddCaption("circle marking carrier")
 			elseif fThief[i] == nil then -- draw cirle round dropped flag
 				--g1X,g1Y,g4,g5,g6,g7,g8,g9,g10,g11 =  GetVisualGearValues(fGear[i])
 				--SetVisualGearValues(fCirc[i], g1X, g1Y, 20, 200, 0, 0, 100, 33, 2, fCol[i])
 				SetVisualGearValues(fCirc[i], fGearX[i], fGearY[i], 20, 200, 0, 0, 100, 33, 3, fCol[i])
 				--AddCaption('dropped circle marker')
 				if fGear[i] ~= nil then -- flag gear itself
 					--SetVisualGearValues(fGear[i], g1X, g1Y, 20, 200, 0, 0, 100, 10, 4, fCol[i])
 					SetVisualGearValues(fGear[i], fGearX[i], fGearY[i], 20, 200, 0, 0, 100, fGearRad, 2, fCol[i])
 					--AddCaption('dropped flag itself')
 				end
 			end
 		end
 	gameStarted = true
 	AddCaption(loc("Game Started!"))
 	for i = 0, 1 do
 		-- if someone uses kamikaze downwards, this can happen as the hog won't respawn
 		if (LAND_HEIGHT - fSpawnY[i]) < 0 then
 			tempG = AddGear(0, 0, gtTarget, 0, 0, 0, 0)
 			FindPlace(tempG, true, 0, LAND_WIDTH, true)
 			fSpawnX[i], fSpawnY[i] = GetGearPosition(tempG)
 			DeleteGear(tempG)
 		end
 		fGear[i] = AddVisualGear(fSpawnX[i],fSpawnY[i],vgtCircle,0,true)
 		fCirc[i] = AddVisualGear(fSpawnX[i],fSpawnY[i],vgtCircle,0,true)
 		fSpawnC[i] = AddVisualGear(fSpawnX[i],fSpawnY[i],vgtCircle,0,true)
 		fCol[i] = GetClanColor(i)
 		fIsMissing[i] = false
 		fNeedsRespawn[i] = false
 		fCaptures[i] = 0
 		--SetVisualGearValues(zxc, 1000,1000, 20, 100, 0,    10,                     1,         100,        5,      GetClanColor(0))
 		SetVisualGearValues(fSpawnC[i], fSpawnX[i],fSpawnY[i], 20, 100, 0, 10, 0, 75, 5, fCol[i])
 	end
 end
 ------------------------
 function onGameInit()
 	GameFlags = band(bor(GameFlags, gfDivideTeams), bnot(gfKing + gfForts))
 	--SuddenDeathTurns = 999 -- suddendeath is off, effectively
 	WaterRise = 0
 	Delay = 10
 end
 function onGameStart()
 	--ShowMission(loc(caption), loc(subcaption), loc(goal), 0, 0)
 	ShowMission(loc("CAPTURE THE FLAG"), loc("Flags, and their home base will be placed where each team ends their first turn."), "", 0, 0)
 	RebuildTeamInfo()
 	-- should gfDivideTeams do this automatically?
 	--[[for i = 0, (TeamsCount-1) do
 		for g = teamIndex[i], (teamIndex[i]+teamSize[i]-1) do
 			if GetHogClan(hhs[g]) == 0 then
 				FindPlace(hhs[g], false, 0, LAND_WIDTH/2)
 			elseif GetHogClan(hhs[g]) == 1 then
 	fPlaced[0] = false
 	fPlaced[1] = false
 	--zxc = AddVisualGear(fSpawnX[i],fSpawnY[i],vgtCircle,0,true)
 	--SetVisualGearValues(zxc, 1000,1000, 20, 255, 1,    10,                     0,         200,        1,      GetClanColor(0))
 					--minO,max0 -glowyornot	--pulsate timer	 -- fuckall      -- radius -- width  -- colour
 end
 function onNewTurn()
 	gameTurns = gameTurns + 1
 	if lastTeam ~= GetHogTeamName(CurrentHedgehog) then
 		lastTeam = GetHogTeamName(CurrentHedgehog)
 	end
 	--AddCaption("Handling respawns")
 	if gameStarted == true then
 		HandleRespawns()
 	--new method of placing starting flags
 	elseif gameTurns == 1 then
 		ShowMission(loc("CAPTURE THE FLAG"), loc("Flags, and their home base will be placed where each team ends their first turn."), "", 0, 0)
 	elseif gameTurns == 2 then
 		fPlaced[0] = true
 		ShowMission(loc("CAPTURE THE FLAG"), loc("RULES OF THE GAME [Press ESC to view]"), loc(" - Return the enemy flag to your base to score | - First team to 3 captures wins | - You may only score when your flag is in your base | - Hogs will drop the flag if killed, or drowned | - Dropped flags may be returned or recaptured | - Hogs respawn when killed"), 0, 0)
 	elseif gameTurns == 3 then
 		fPlaced[1] = true
 		StartTheGame()
 	end
 end
 		HandleCircles()
 		if CurrentHedgehog ~= nil then
 			CheckFlagProximity()
 		end
 	elseif CurrentHedgehog ~= nil then -- if the game hasn't started yet, keep track of where we are gonna put the flags on turn end
 		if GetHogClan(CurrentHedgehog) == 0 then
 			i = 0
 		elseif GetHogClan(CurrentHedgehog) == 1 then
 			i = 1
 		end
 		fSpawnX[i] = GetX(CurrentHedgehog)
 		fSpawnY[i] = GetY(CurrentHedgehog)
 	end
 end
 function onGearResurrect(gear)
 end
 function InABetterPlaceNow(gear)
 	for i = 0, (numhhs-1) do
 		if gear == hhs[i] then
 			for i = 0,1 do
 				if gear == fThief[i] then
 					FlagThiefDead(gear)
 				end
 			end
 			hhs[i] = nil
 		end
 	end
 end
 function onHogHide(gear)
 	 InABetterPlaceNow(gear)
 end
 function onHogRestore(gear)
 	match = false
 	for i = 0, (numhhs-1) do
 		if (hhs[i] == nil) and (match == false) then
 			hhs[i] = gear
 			--AddCaption(GetHogName(gear) .. " has reappeared it seems!")
 			match = true
 		end
 	end
 end
 	if GetGearType(gear) == gtHedgehog then
 		hhs[numhhs] = gear
 		numhhs = numhhs + 1
 		SetEffect(gear, heResurrectable, true)
 	elseif GetGearType(gear) == gtPiano then
 		for i = 0, 1 do
 			if CurrentHedgehog == fThief[i] then
 				FlagThiefDead(gear)
 			end
 		end
 	end
 end
 function onGearDelete(gear)
 	if GetGearType(gear) == gtHedgehog then
 		InABetterPlaceNow(gear)
 	end
 end

changeset 5827	a416f1070fdf
parent 5821	afb988c1a2fe
child 7838	5c2337f8dbb2