hedgewars: comparison share/hedgewars/Data/Scripts/Multiplayer/Racer.lua

equal deleted inserted replaced

-:0c3db82e9f4d
+:37516a3bdb0e
 -- allow gameflags
 -- extend time to 90s
 -- remove other air-attack based weps
 -- turn off water rise for sd
+-------
+-- 0.3
+-------
+-- prevent WP being placed in land
+-- prevent waypoints being placed outside border
 -----------------------------
 -- SCRIPT BEGINS
 -----------------------------
 loadfile(GetDataPath() .. "Scripts/Locale.lua")()
 local wpCirc = {}
 local wpX = {}
 local wpY = {}
 local wpCol = {}
 local wpActive = {}
 local wpRad = 450 --75
 local wpCount = 0
 local wpLimit = 5
 -------------------
 -- general methods
 -----------------
 function CheckWaypoints()
 	trackFinished = true
 	for i = 0, (wpCount-1) do
 		g1X, g1Y = GetGearPosition(CurrentHedgehog)
 		g2X, g2Y = wpX[i], wpY[i]
 		--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)
 		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)
 		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)
 	end
 	--------
 	if GetHogClan(CurrentHedgehog) == firstClan then
 		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
 	RebuildTeamInfo()
 	ShowMission	(
 				loc("RACER"),
 				loc("a Hedgewars mini-game"),
 				loc("Build a track and race.") .. "|" ..
 				loc("Round Limit:") .. " " .. roundLimit .. "|" ..
 				"", 4, 4000
 				)
 end
 		wpX[wpCount] = x
 		wpY[wpCount] = y
 		wpCol[wpCount] = 0xffffffff
 		wpCirc[wpCount] = AddVisualGear(wpX[wpCount],wpY[wpCount],vgtCircle,0,true)
 																		--100
 		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))
-		-- for some reason the code doesnt function if placed here
-		--[[if wpCount == wpLimit then
-			AddCaption(loc("Race complexity limit reached."))
-			--DisableTumbler()
-		end]]
 	end
 end
 function onNewTurn()
 	CheckForNewRound()
 	racerActive = false
 	trackTime = 0
 	currCount = 0 -- hopefully this solves problem
 	AddAmmo(CurrentHedgehog, amAirAttack, 0)
 	gTimer = 0
 	-- Handle Starting Stage of Game
 	if (gameOver == false) and (gameBegun == false) then
 		if wpCount >= 3 then
 			gameBegun = true
 			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)
 		end
 	end
 end
 function onGameTick()
-	-- convert airstrikes into waypoints
+	-- airstrike detected, convert this into a potential waypoint spot
 	if cGear ~= nil then
 		x,y = GetGearTarget(cGear)
-		PlaceWayPoint(x, y)
 		DeleteGear(cGear)
-		if wpCount == wpLimit then
-			AddCaption(loc("Race complexity limit reached."))
+		if TestRectForObstacle(x-20, y-20, x+20, y+20, true) then
-			DisableTumbler()
+			AddCaption(loc("Please place the way-point in the open."))
-		end
+		else
-	end
+			PlaceWayPoint(x, y)
+			if wpCount == wpLimit then
+				AddCaption(loc("Race complexity limit reached."))
+				DisableTumbler()
+			end
+		end
+	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 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)
 				FollowGear(CurrentHedgehog)
 				ShowMission("...", "...", "...", 2, 1)
 			else
 				-- still in placement mode
 			end
 		end
 	end
 	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 (gameBegun == true) then
 			--ghost
 			gTimer = gTimer + 1
 			if gTimer == 15 then
 				gTimer = 0
 				HandleGhost()
 			end
 			trackTime = trackTime + 1
 			wpCheckCounter = wpCheckCounter + 1
 			if (wpCheckCounter == 100) then
 				wpCheckCounter = 0
 				AddCaption(trackTime/1000,GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage2)
 				if (CheckWaypoints() == true) then
 					AdjustScores()
 					racerActive = false
 					DisableTumbler()
 				end
 			end
 		end
 		-- if the player has expended his tunbling time, stop him tumbling
 		if TurnTimeLeft <= 1 then
 			DisableTumbler()
 		end
 	AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
 	-- if the player stops and "dies" or flies into water, stop him racing
 	--[[if gear == CurrentHedgehog then
 		DisableTumbler()
 		ShowMission(loc("RACER"),
 		loc("TRACK FAILED!"),
 		loc("WINNING TIME: ") .. bestTimeComment, -amSkip, 4000)
 	end]]
 end
 		numhhs = numhhs + 1
 		SetEffect(gear, heResurrectable, true)
 	end
 	if GetGearType(gear) == gtAirAttack then
 		cGear = gear
 	end
 end
 function onGearDelete(gear)
 	if CurrentHedgehog ~= nil then
 		FollowGear(CurrentHedgehog)
 	end
 	if GetGearType(gear) == gtAirAttack then
 		cGear = nil
 	end
 end
 --[[function onAmmoStoreInit()
 	SetAmmo(amRope, 9, 0, 0, 0)
 	SetAmmo(amJetpack, 9, 0, 0, 0)
 	SetAmmo(amSkip, 9, 0, 0, 0)
 end]]

changeset 5900	37516a3bdb0e
parent 5894	86c59c34cdd5
child 5901	a00e567005be