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

equal deleted inserted replaced

-:368669bf6cb3
+:86c59c34cdd5
 loadfile(GetDataPath() .. "Scripts/Tracker.lua")()
 ---------------------------------------------------
 ---------------------------------------------------
 ---------------------------------------------------
---- Space Invasion Code Follows (0.8.1)
+--- Space Invasion Code Follows (0.9)
 ---------------------------------------------------
 ---------------------------------------------------
 -- VERSION HISTORY
 ----------------
 -- version 0.1
 -- Drone Hunter (Destroy 5 red circles for + 10 points)
 -- Shield Seeker (Destroy 3 purple circles for +10 points)
 -- Boss Slayer (Destroy 2 blue circles for +25 points)
 -- Shield Master (disolve 5 shells for +10 points)
--- Shield Miser (don't use your shield at all +20 points)
+-- Shield Miser (don't use your shield at all (2.5*roundkills)+2 points)
 -- Depleted Kamikaze! (kamikaze into a blue/red circ when you are out of ammo) 5pts
 -- Timed Kamikaze! (kamikaze into a blue/red circ when you only have 5s left) 10pts
 -- Kamikaze Expert (combination of the above two) 15pts
--- Multi-shot (destroy more than 1 invader with a single bullet) 5pts
+-- Multi-shot (destroy more than 1 invader with a single bullet) 15pts
 -- X-Hit Combo (destroy another invader in less than 3 seconds) chainLength*2 points
 -- 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
 -- version 0.8.1
 ------------------------
 -- stop hiding non-existant 4th Tag
 -- redraw HUD on screen resolution change
+------------------------
+-- version 0.9
+------------------------
+-- time for more 'EXPERIMENTS' mwahahahahahaha D:
+-- (hopefully) balanced Shield Miser
+-- bosses are no longer a redunkulous 50 points, but toned down to 30
+-- experimental radar (it's INTERACTIVE and math-heavy :D) (visual gears are safe... right? D:)
+-- bugfix and balance for multishot
 --------------------------
 --notes for later
 --------------------------
 -- maybe add a check for a tie, NAH
 -----------------
 capgrpAmmostate
 -----------------
 AddCaption( chainLength .. LOC_NOT("-chain! +") .. chainLength*2 .. LOC_NOT(" points!"),0xffba00ff,capgrpAmmostate)
-AddCaption(LOC_NOT("Multi-shot! +5 points!"),0xffba00ff,capgrpAmmostate)
+AddCaption(LOC_NOT("Multi-shot! +15 points!"),0xffba00ff,capgrpAmmostate)
 -----------------
 capgrpAmmoinfo
 -----------------
 AddCaption(LOC_NOT("Shield Miser! +20 points!"),0xffba00ff,capgrpAmmoinfo)
 -- stats variables
 --local teamRed = {}
 --local teamBlue = {}
 --local teamOrange = {}
 --local teamGreen = {}
+local roundKills = 0
 local RK = 0
 local GK = 0
 local BK = 0
 local OK = 0
 local SK = 0
 local circAdjustTimer = 0		-- handle adjustment of circs direction
 local m2Count = 0		-- handle speed of circs
 local vCirc = {}
 local vCCount = 0
+local rCirc = {}
+local rCircX = {}
+local rCircY = {}
+local rAlpha = 255
+local rPingTimer = 0
+local radShotsLeft = 0
 local vCircActive = {}
 local vCircHealth = {}
 local vType = {}
 local vCounter = {}		-- how often this circ gets to "fire" etc
 end
 function AwardKills(t)
+	roundKills = roundKills + 1
 	for i = 0,(TeamsCount-1) do
 		if teamClan[i] == GetHogClan(CurrentHedgehog) then
 			teamCircsKilled[i] = teamCircsKilled[i] + 1
 			if teamCircsKilled[i] == 10 then
 			AddCaption(loc("Shield OFF:") .. " " .. shieldHealth - 80 .. " " .. loc("Power Remaining") )
 		end
 	end
 end
+function onHJump()
+	if (CurrentHedgehog ~= nil) and (stopMovement == false) and (tumbleStarted == true) and
+	(rAlpha == 255) and (radShotsLeft > 0) then
+		rPingTimer = 0
+		rAlpha = 0
+		radShotsLeft = radShotsLeft -1
+		AddCaption(loc("Pings left:") .. " " .. radShotsLeft,GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage)
+	end
+end
 -----------------
 -- movement keys
 -----------------
 function onLeft()
 				" " .. "|" ..
 				loc("Movement: [Up], [Down], [Left], [Right]") .. "|" ..
 				loc("Fire") .. ": " .. loc("[Left Shift]") .. "|" ..
 				loc("Toggle Shield") .. ": " .. loc("[Enter]") .. "|" ..
+				loc("Radar Ping") .. ": " .. loc("[Backspace]") .. "|" ..
 				--" " .. "|" ..
 				--LOC_NOT("Invaders List: ") .. "|" ..
 				--LOC_NOT("Blue Jabberwock: (50 points)") .. "|" ..
 				--LOC_NOT("Red Warbler: (10 points)") .. "|" ..
 end
 function onNewTurn()
 	primShotsLeft = primShotsMax
+	radShotsLeft = 2
 	stopMovement = false
 	tumbleStarted = false
 	beam = false
 	shieldHealth = 30 + 80 -- 50 = 5 secs, roughly
 	RK = 0
 	GK = 0
 	BK = 0
 	OK = 0
 	SK = 0
+	roundKills = 0
 	shieldMiser = true
 	shotsFired = 0
 	shotsHit = 0
 	chainLength = 0
 	chainCounter = 0
 		if (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then
 			--AddCaption(LOC_NOT("Good to go!"))
 			tumbleStarted = true
 			TimeLeft = (TurnTime/1000)	--45
 			FadeAlpha = 0
+			rAlpha = 255
 			AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtGrenade, 0, 0, 0, 1)
 			DrawTag(0)
 			DrawTag(1)
 			DrawTag(2)
 			SetMyCircles(true)
 				down = false
 				leftOn = false
 				rightOn = false
 				SetMyCircles(false)
 				HideTags()
+				rAlpha = 255
 				--nw WriteLnToConsole("Player is out of luck")
 				if shieldMiser == true then
-					AddCaption(loc("Shield Miser!") .. " +20 " .. loc("points") .. "!",0xffba00ff,capgrpAmmoinfo)
-					AwardPoints(20)
+					p = (roundKills*2.5) - ((roundKills*2.5)%1) + 2
+					--p = (roundKills*2.5) + 2
+					--if (p%2 ~= 0) then
+					--	p = p -0.5
+					--end
+					AddCaption(loc("Shield Miser!") .." +" .. p .." ".. loc("points") .. "!",0xffba00ff,capgrpAmmoinfo)
+					AwardPoints(p)
 				end
 				if ((shotsHit / shotsFired * 100) >= 80) and (shotsFired > 4) then
 					AddCaption(loc("Accuracy Bonus!") .. " +15 " .. loc("points") .. "!",0xffba00ff,capgrpVolume)
 					AwardPoints(15)
 		end -- new end I put here to check if he's still alive or not
 	end
 	--WriteLnToConsole("End of GameTick")
 end
 function onGearResurrect(gear)
 	-- did I fall into the water? well, that was a stupid thing to do
 ------------------------------------------------------------
 ------------------------------------------------------------
 ------------------------------------------------------------
 ------------------------------------------------------------
+function DoHorribleThings(cUID)
+	-- maybe
+	-- add a check to draw it inside the circ and not past it if
+	-- it is closer than 150 or w/e
+	-- work out the distance to the target
+	g1X, g1Y = GetGearPosition(CurrentHedgehog)
+	g2X, g2Y = vCircX[cUID], vCircY[cUID]
+	q = g1X - g2X
+	w = g1Y - g2Y
+	r = math.sqrt( (q*q) + (w*w) )	--alternate
+	opp = w
+	if opp < 0 then
+		opp = opp*-1
+	end
+	-- work out the angle (theta) to the target
+	t = math.deg ( math.asin(opp / r) )
+	-- based on the radius of the radar, calculate what x/y displacement should be
+	NR = 150 -- radius at which to draw circs
+	NX = math.cos( math.rad(t) ) * NR
+	NY = math.sin( math.rad(t) ) * NR
+	-- displace xy based on where this thing actually is
+	if q > 0 then
+		rCircX[cUID] = g1X - NX
+	else
+		rCircX[cUID] = g1X + NX
+	end
+	if w > 0 then
+		rCircY[cUID] = g1Y - NY
+	else
+		rCircY[cUID] = g1Y + NY
+	end
+end
 function PlayerIsFine()
 	return (playerIsFine)
 end
 function CreateMeSomeCircles()
 	for i = 0, 7 do
 		vCCount = vCCount +1
 		vCirc[i] = AddVisualGear(0,0,vgtCircle,0,true)
+		rCirc[i] = AddVisualGear(0,0,vgtCircle,0,true)
+		rCircX[i] = 0
+		rCircY[i] = 0
 		vCircDX[i] = 0
 		vCircDY[i] = 0
 		vType[i] = "generic"
 		vCircX[i], vCircY[i] = 0,0
 		vCircCol[i] = 0xff00ffff
 		SetVisualGearValues(vCirc[i], vCircX[i], vCircY[i], vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])
+		SetVisualGearValues(rCirc[i], 0, 0, 100, 255, 1, 10, 0, 40, 3, vCircCol[i])
 	end
 	pShield = AddVisualGear(0,0,vgtCircle,0,true)
 	--SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), 80, 200, 1, 10, 0, 200, 5, 0xff00ffff)
 				AwardPoints(10)
 			end
 		elseif (vType[i] == "blueboss") then
 			PlaySound(sndHellishImpact3)
-			AddCaption(loc("Boss defeated!") .. " +50 " .. loc("points") .. "!", 0x0050ffff,capgrpMessage)
+			AddCaption(loc("Boss defeated!") .. " +30 " .. loc("points") .. "!", 0x0050ffff,capgrpMessage)
 			morte = AddGear(vCircX[i], vCircY[i], gtExplosives, 0, 0, 0, 1)
 			SetHealth(morte, 0)
 			BK = BK + 1
 			vType[i] = "blueboss"
 			vCircRadMin[i] = 100*5
 			vCircRadMax[i] = 180*5
 			vCircWidth[i] = 1
 			vCounterLim[i] = 2000
-			vCircScore[i] = 50
+			vCircScore[i] = 30
 			vCircHealth[i] = 3
 		else
 		--elseif r == 1 then
 			--vCircCol[i] = 0xffae00ff -- orange
 			vCircCol[i] = 0xa800ffff -- purp
 	vCircRadius[i] = vCircRadMax[i] - GetRandom(vCircRadMin[i])
 	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vCirc[i])
 	SetVisualGearValues(vCirc[i], vCircX[i], vCircY[i], g3, g4, g5, g6, g7, vCircRadius[i], vCircWidth[i], vCircCol[i]-0x000000ff)
 	-- - -0x000000ff
+	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(rCirc[i])
+	SetVisualGearValues(rCirc[i], 0, 0, g3, g4, g5, g6, g7, g8, g9, vCircCol[i]-0x000000ff)
 	vCircActive[i] = true -- new
 	--nw WriteLnToConsole("CIRC " .. i .. ": X: " .. vCircX[i] .. "; Y: " .. vCircY[i])
 	--nw WriteLnToConsole("CIRC " .. i .. ": dX: " .. vCircDX[i] .. "; dY: " .. vCircDY[i])
 	--nw WriteLnToConsole("CIRC " .. i .. ": RAD:" .. vCircRadius[i])
 					CircleDamaged(i)
 					circsHit = circsHit + 1
 					if circsHit > 1 then
-						AddCaption(loc("Multi-shot!") .. " +5 " .. loc("points") .. "!",0xffba00ff,capgrpAmmostate)
+						AddCaption(loc("Multi-shot!") .. " +15 " .. loc("points") .. "!",0xffba00ff,capgrpAmmostate)
+						AwardPoints(15)
+						circsHit = 0
 					end
 					shotsHit = shotsHit + 1
 				end
 		g2X, g2Y = vCircX[i], vCircY[i]
 		g1X = g1X - g2X
 		g1Y = g1Y - g2Y
 		dist = (g1X*g1X) + (g1Y*g1Y)
+		--DoHorribleThings(i, g1X, g1Y, g2X, g2Y, dist)
 		--nw WriteLnToConsole("Calcs done. Dist to CurrentHedgehog is " .. dist)
 		-- calculate my real radius if I am an aura
 		if vCircType[i] == 0 then
 end
 function HandleCircles()
 	--[[if CirclesAreGo == true then
 		--CheckDistances()
 		--runOnGears(CheckVarious)	-- used to be in handletracking for some bizarre reason
 		--	runOnGears(ProjectileTrack)
 		--end
 	end]]
+	if rAlpha ~= 255 then
+		rPingTimer = rPingTimer + 1
+		if rPingTimer == 100 then
+			rPingTimer = 0
+			rAlpha = rAlpha + 5
+			if rAlpha >= 255 then
+				rAlpha = 255
+			end
+		end
+	end
 	for i = 0,(vCCount-1) do
+		--if (vCircActive[i] == true) then
+			SetVisualGearValues(rCirc[i], rCircX[i], rCircY[i], 100, 255, 1, 10, 0, 40, 3, vCircCol[i]-rAlpha)
+		--end
 		vCounter[i] = vCounter[i] + 1
 		if vCounter[i] >= vCounterLim[i] then
 			vCounter[i] = 0
 		m2Count = 0
 		for i = 0,(vCCount-1) do
 			vCircX[i] = vCircX[i] + vCircDX[i]
 			vCircY[i] = vCircY[i] + vCircDY[i]
+			if (CurrentHedgehog ~= nil) and (rAlpha ~= 255) then
+				DoHorribleThings(i)--(i, g1X, g1Y, g2X, g2Y, dist)
+			end
 		end
 		if (TimeLeft == 0) and (tumbleStarted == true) then
 			FadeAlpha = FadeAlpha + 1

changeset 5894	86c59c34cdd5
parent 5827	a416f1070fdf
child 6253	d73317579ae4