hedgewars-draft: comparison share/hedgewars/Data/Scripts/Multiplayer/Space

equal deleted inserted replaced

-:82e1811c5e70
+:c24d29a538af
 loadfile(GetDataPath() .. "Scripts/Tracker.lua")()
 ---------------------------------------------------
 ---------------------------------------------------
 ---------------------------------------------------
---- Space Invasion Code Follows (0.7)
+--- Space Invasion Code Follows (0.8)
 ---------------------------------------------------
 ---------------------------------------------------
 -- VERSION HISTORY
 ----------------
 -- version 0.1
 -- Accuracy Bonus (80% accuracy at the end of your turn with more than 5 shots fired) 15pts
 --(during the length of the game) aka non-repeatable
 -- 10/25/50 kills (+25/+50/+100 points)
+-----------------
+--0.8
+-----------------
+-- added a HUD for turntimeleft, ammo, shield
+-- shieldhealth hits 0 properly
 --------------------------
 --notes for later
 --------------------------
 -- maybe add a check for a tie, NAH
 local pShield
 local shieldHealth
 local Timer100 = 0
+local vTag = {}
 -----------------------------------------------
 -- CIRCLY GOODIES
 -----------------------------------------------
 local vCircCol = {}
 -------------------------------------------
 -- some lazy copypasta/modified methods
 -------------------------------------------
+function HideTags()
+	for i = 0, 3 do
+		SetVisualGearValues(vTag[i],0,0,0,0,0,1,0, 0, 240000, 0xffffff00)
+	end
+end
+function DrawTag(i)
+	zoomL = 1.3
+	xOffset = 40
+	if i == 0 then
+		yOffset = 40
+		tCol = 0xffba00ff
+		tValue = TimeLeft
+	elseif i == 1 then
+		zoomL = 1.1
+		yOffset = 70
+		tCol = 0x00ff00ff
+		tValue = primShotsLeft
+	elseif i == 2 then
+		zoomL = 1.1
+		xOffset = 40 + 35
+		yOffset = 70
+		tCol = 0xa800ffff
+		tValue = shieldHealth - 80
+	end
+	DeleteVisualGear(vTag[i])
+	vTag[i] = AddVisualGear(0, 0, vgtHealthTag, 0, false)
+	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vTag[i])
+	SetVisualGearValues	(
+				vTag[i], 		--id
+				-(ScreenWidth/2) + xOffset,	--xoffset
+				ScreenHeight - yOffset, --yoffset
+				0, 			--dx
+				0, 			--dy
+				zoomL, 			--zoom
+				1, 			--~= 0 means align to screen
+				g7, 			--frameticks
+				tValue, 		--value
+				240000, 		--timer
+				tCol		--GetClanColor( GetHogClan(CurrentHedgehog) )
+				)
+end
 function RebuildTeamInfo()
 	-- make a list of individual team names
 	for i = 0, (TeamsCount-1) do
 			PlaySound(sndSuddenDeath)
 			AddCaption(loc("Ammo Depleted!"),0xff0000ff,capgrpMessage)
 		else
 			AddCaption(loc("Ammo") .. ": " .. primShotsLeft)
 		end
+		DrawTag(1)
 		CopyPV(CurrentHedgehog, morte) -- new addition
 		x,y = GetGearVelocity(morte)
 		--WriteLnToConsole("I'm going to shoot a barrel so I just got the velocity of currenthedgehog. It is dx: " .. x .. "; dy: " .. y)
 		--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
 	Theme = "EarthRise"
 	CaseFreq = 0
 	HealthCaseProb = 0
 	MinesNum = 0
 	Explosives = 0
+	for i = 0, 3 do
+		vTag[0] = AddVisualGear(0, 0, vgtHealthTag, 0, false)
+	end
+	HideTags()
 end
 function onGameStart()
 	if (MinesTime == -1000) or (MinesTime == 0) then
 		gameBegun = false
 		stopMovement = true
 		tumbleStarted = false
 		SetMyCircles(false)
 	end
+	HideTags()
 	---------------
 	---------------
 	--AddCaption("num g: " .. numGears() )
 	--WriteLnToConsole("onNewTurn, I just set a bunch of variables to their necessary states. This was done at:")
 	if Timer100 >= 100 then
 		Timer100 = 0
 		if beam == true then
 			shieldHealth = shieldHealth - 1
-			if shieldHealth <= 80 then
+			if shieldHealth < 80 then -- <= 80
 				shieldHealth = 80
 				beam = false
 				AddCaption(loc("Shield Depleted"),0xff0000ff,capgrpMessage)
 				PlaySound(sndMineTick)
 				PlaySound(sndSwitchHog)
 			--AddCaption(LOC_NOT("Good to go!"))
 			tumbleStarted = true
 			TimeLeft = (TurnTime/1000)	--45
 			FadeAlpha = 0
 			AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtGrenade, 0, 0, 0, 1)
+			DrawTag(0)
+			DrawTag(1)
+			DrawTag(2)
 			SetMyCircles(true)
 		end
 	end
 	--WriteLnToConsole("Finished initial check")
 			TimeLeftCounter = 0
 			TimeLeft = TimeLeft - 1
 			if TimeLeft >= 0 then
 				--AddCaption(LOC_NOT("Time Left: ") .. TimeLeft)
+				DrawTag(0)
 			end
 		end
 		--WriteLnToConsole("Finished timeleft calculations")
 				upOn = false
 				down = false
 				leftOn = false
 				rightOn = false
 				SetMyCircles(false)
+				HideTags()
 				--nw WriteLnToConsole("Player is out of luck")
 				if shieldMiser == true then
 					AddCaption(loc("Shield Miser!") .. " +20 " .. loc("points") .. "!",0xffba00ff,capgrpAmmoinfo)
 					AwardPoints(20)
 		if (vType[i] == "drone") then
 			PlaySound(sndHellishImpact4)
 			TimeLeft = TimeLeft + 4
 			AddCaption(loc("Time Extended!") .. "+" .. 4 .. loc("sec"), 0xff0000ff,capgrpMessage )
+			DrawTag(0)
 			morte = AddGear(vCircX[i], vCircY[i], gtExplosives, 0, 0, 0, 1)
 			SetHealth(morte, 0)
 			RK = RK + 1
 			AddVisualGear(vCircX[i], vCircY[i], vgtExplosion, 0, false)
 			PlaySound(sndExplosion)
 			PlaySound(sndShotgunReload)
 			primShotsLeft = primShotsLeft + 3
 			AddCaption("+" .. 3 .. " " .. loc("Ammo"), 0x00ff00ff,capgrpMessage)
+			DrawTag(1)
 			GK = GK + 1
 			if GK == 3 then
 				GK = 0
 				AddCaption(loc("Ammo Maniac!") .. " +5 " .. loc("points") .. "!",0xffba00ff,capgrpMessage2)
 			AddCaption(loc("Shield boosted! +30 power"), 0xa800ffff,capgrpMessage)
 			if shieldHealth >= 250 then
 				shieldHealth = 250
 				AddCaption(loc("Shield is fully recharged!"),0xa800ffff,capgrpMessage)
 			end
+			DrawTag(2)
 			OK = OK + 1
 			if OK == 3 then
 				OK = 0
 				AddCaption(loc("Shield Seeker!") .. " + 10 " .. loc("points") .. "!",0xffba00ff,capgrpMessage2)
 	if (CurrentHedgehog ~= nil) and (beam == true) then
 		g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(pShield)
 		--SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, 200, g9, g10 )
 		SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, 200, g9, 0xa800ffff-0x000000ff - -shieldHealth )
+		DrawTag(2)
 	else
 		SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, 0, g9, g10 )
 	end
 end

changeset 5629	c24d29a538af
parent 5334	ce404661aac6
child 5825	a6eab1b7c00d