Add scenario: Big Armory
authorWuzzy <almikes@aol.com>
Tue, 11 Apr 2017 05:29:44 +0200
changeset 12235 f9565e2e0424
parent 12234 04535e6dc15a
child 12236 b4878d6cd96e
Add scenario: Big Armory
CREDITS
ChangeLog.txt
share/hedgewars/Data/Graphics/Missions/Scenario/Big_Armory@2x.png
share/hedgewars/Data/Locale/missions_de.txt
share/hedgewars/Data/Locale/missions_en.txt
share/hedgewars/Data/Missions/Scenario/Big_Armory.lua
--- a/CREDITS	Tue Apr 11 04:48:58 2017 +0200
+++ b/CREDITS	Tue Apr 11 05:29:44 2017 +0200
@@ -69,6 +69,7 @@
 = MISSIONS
 ==========
 - Arkhnen -> Teamwork 2 (2012)
+- Wuzzy -> Big Armory (2016)
 
 ==========
 = SOUNDS
--- a/ChangeLog.txt	Tue Apr 11 04:48:58 2017 +0200
+++ b/ChangeLog.txt	Tue Apr 11 05:29:44 2017 +0200
@@ -162,6 +162,7 @@
 
 Missions and Campaigns:
  + New scenario: Teamwork 2
+ + New scenario: Big Armory
  + New training: Basic Flying Saucer Training
  + Rope-Knocking Challenge was improved (now awards score based on kills and time; taunts for knocking out hedgehogs)
  + A few campaign missions now save your personal best successes (e.g. fastest finish in Hard Flying) which get shown after you finish them agin
Binary file share/hedgewars/Data/Graphics/Missions/Scenario/Big_Armory@2x.png has changed
--- a/share/hedgewars/Data/Locale/missions_de.txt	Tue Apr 11 04:48:58 2017 +0200
+++ b/share/hedgewars/Data/Locale/missions_de.txt	Tue Apr 11 05:29:44 2017 +0200
@@ -52,6 +52,9 @@
 portal.name=Knifflige Portalherausforderung
 portal.desc="Benutze das Portalgerät, um dich schnell und weit zu bewegen; benutze es zum Töten; benutze es mit Vorsicht!"
 
+Big_Armory.name=Großes Arsenal
+Big_Armory.desc="Du bist alleine, hast ein volles Arsenal und musst 8 Igel besiegen, bevor die Zeit abläuft."
+
 Target_Practice_-_Bazooka_easy.name=Zielübung: Bazooka (einfach)
 Target_Practice_-_Bazooka_easy.desc="Nun gut, Soldat: Zerstör einfach die Zielscheiben so schnell, wie du kannst!"
 
--- a/share/hedgewars/Data/Locale/missions_en.txt	Tue Apr 11 04:48:58 2017 +0200
+++ b/share/hedgewars/Data/Locale/missions_en.txt	Tue Apr 11 05:29:44 2017 +0200
@@ -46,6 +46,9 @@
 User_Mission_-_RCPlane_Challenge.name=RC Plane Challenge
 User_Mission_-_RCPlane_Challenge.desc="Feeling pretty confident, eh, flyboy?"
 
+Big_Armory.name=Big Armory
+Big_Armory.desc="You are alone, have a full armory and must defeat 8 hedgehogs before the time runs out."
+
 ClimbHome.name=Climb Home
 ClimbHome.desc="You are far away from home and the water is rising. Climb as high as you can!"
 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/hedgewars/Data/Missions/Scenario/Big_Armory.lua	Tue Apr 11 05:29:44 2017 +0200
@@ -0,0 +1,319 @@
+HedgewarsScriptLoad("/Scripts/Locale.lua")
+
+local playerHog
+local playerTeamName = loc("Pro Killers")
+local enemyTeamName = loc("Galaxy Guardians")
+local enemyTeam1 = {
+	{name=loc("Rocket"), x=796, y=1184},
+	{name=loc("Star"), x=733, y=1525},
+	{name=loc("Asteroid"), x=738, y=1855},
+	{name=loc("Comet"), x=937, y=1318},
+	{name=loc("Sunflame"), x=3424, y=1536},
+	{name=loc("Eclipse"), x=3417, y=1081},
+	{name=loc("Jetpack"), x=2256, y=1246},
+	{name=loc("Void"), x=1587, y=1231},
+}
+local gameStarted = false
+local turnNo = 0
+local toleranceTimer = nil
+local enemyHogsLeft = #enemyTeam1
+local pendingDeaths = {}
+local enemyHogs = {}
+local gameEnded = false
+local waitGears = 0
+local hasAttacked = false
+local minePlaced = false
+local delayGear = nil
+
+function onGameInit()
+	Seed = "{7e34a56b-ee7b-4fe1-8f30-352a998f3f6a}"
+	GameFlags = gfDisableWind + gfDisableLandObjects
+	TurnTime= 45000
+	CaseFreq = 0 
+	MinesNum = 0 
+	Explosives = 0 
+	Theme = "EarthRise" 
+	MapGen = mgRandom
+	MapFeatureSize = 12
+	-- Disable Sudden Death
+	WaterRise = 0
+	HealthDecrease = 0
+	
+	AddTeam(playerTeamName, 0xFF0000, "Bone", "Island", "Classic", "cm_scout")
+	playerHog = AddHog(loc("Ultrasoldier"), 0, 100, "Terminator_Glasses")
+	SetGearPosition(playerHog, 543, 1167)
+
+	AddTeam(enemyTeamName, 0xF5F808, "Earth", "Island", "Classic", "cm_galaxy")
+	for i=1,8 do
+		local hogID = AddHog(enemyTeam1[i].name, 0, 100, "NoHat")
+		table.insert(enemyHogs, hogID)
+		SetGearPosition(hogID, enemyTeam1[i].x, enemyTeam1[i].y)
+	end
+end
+
+function onAmmoStoreInit()
+
+	SetAmmo(amGrenade, 9, 0, 0, 1)
+	SetAmmo(amClusterBomb, 9, 0, 0, 1)
+	SetAmmo(amBazooka, 9, 0, 0, 1)
+	SetAmmo(amBee, 9, 0, 0, 1)
+	SetAmmo(amShotgun, 9, 0, 0, 1)
+	SetAmmo(amPickHammer, 9, 0, 0, 1)
+	SetAmmo(amSkip, 9, 0, 0, 1)
+	SetAmmo(amRope, 9, 0, 0, 1)
+	SetAmmo(amMine, 9, 0, 0, 1)
+	SetAmmo(amDEagle, 9, 0, 0, 1)
+	SetAmmo(amDynamite, 9, 0, 0, 1)
+	SetAmmo(amFirePunch, 9, 0, 0, 1)
+	SetAmmo(amWhip, 9, 0, 0, 1)
+	SetAmmo(amBaseballBat, 9, 0, 0, 1)
+	SetAmmo(amParachute, 9, 0, 0, 1)
+	SetAmmo(amAirAttack, 9, 0, 0, 1)
+	SetAmmo(amMineStrike, 9, 0, 0, 1)
+	SetAmmo(amBlowTorch, 9, 0, 0, 1)
+	SetAmmo(amGirder, 9, 0, 0, 1)
+	SetAmmo(amTeleport, 9, 0, 0, 1)
+	SetAmmo(amSwitch, 9, 0, 0, 1)
+	SetAmmo(amMortar, 9, 0, 0, 1)
+	SetAmmo(amKamikaze, 9, 0, 0, 1)
+	SetAmmo(amCake, 9, 0, 0, 1)
+	SetAmmo(amSeduction, 9, 0, 0, 1)
+	SetAmmo(amWatermelon, 9, 0, 0, 1)
+	SetAmmo(amHellishBomb, 9, 0, 0, 1)
+	SetAmmo(amNapalm, 9, 0, 0, 1)
+	SetAmmo(amDrill, 9, 0, 0, 1)
+	SetAmmo(amBallgun, 9, 0, 0, 1)
+	SetAmmo(amRCPlane, 9, 0, 0, 1)
+	SetAmmo(amLowGravity, 9, 0, 0, 1)
+	SetAmmo(amExtraDamage, 9, 0, 0, 1)
+	SetAmmo(amInvulnerable, 9, 0, 0, 1)
+	SetAmmo(amLaserSight, 9, 0, 0, 1)
+	SetAmmo(amVampiric, 9, 0, 0, 1)
+	SetAmmo(amSniperRifle, 9, 0, 0, 1)
+	SetAmmo(amJetpack, 9, 0, 0, 1)
+	SetAmmo(amMolotov, 9, 0, 0, 1)
+	SetAmmo(amBirdy, 9, 0, 0, 1)
+	SetAmmo(amPortalGun, 9, 0, 0, 1)
+	SetAmmo(amPiano, 9, 0, 0, 1)
+	SetAmmo(amGasBomb, 9, 0, 0, 1)
+	SetAmmo(amSineGun, 9, 0, 0, 1)
+	SetAmmo(amFlamethrower, 9, 0, 0, 1)
+	SetAmmo(amSMine, 9, 0, 0, 1)
+	SetAmmo(amHammer, 9, 0, 0, 1)
+	SetAmmo(amResurrector, 9, 0, 0, 1)
+	SetAmmo(amDrillStrike, 9, 0, 0, 1)
+	SetAmmo(amSnowball, 9, 0, 0, 1)
+	SetAmmo(amTardis, 9, 0, 0, 1)
+	SetAmmo(amLandGun, 9, 0, 0, 1)
+	SetAmmo(amIceGun, 9, 0, 0, 1)
+	SetAmmo(amKnife, 9, 0, 0, 1)
+	SetAmmo(amRubber, 9, 0, 0, 1)
+	SetAmmo(amAirMine, 9, 0, 0, 1)
+	SetAmmo(amDuck, 9, 0, 0, 1)
+
+	SetAmmo(amExtraTime, 2, 0, 0, 0)
+
+end
+
+function onGameStart()
+	SendHealthStatsOff()
+	ShowMission(loc("Big Armory"), loc("Scenario"), loc("Kill all enemy hedgehogs in a single turn."), -amBazooka, 0) 
+	SetWind(15)
+end
+
+function onGameTick20()
+	if not gameStarted and turnNo == 1 and TurnTimeLeft < TurnTime then
+		gameStarted = true
+	elseif gameStarted and not gameEnded then
+		if isPlayerAlive() then
+			if enemyHogsLeft - countPending() <= 0 then
+				TurnTimeLeft = 0
+				if delayGear then
+					DeleteGear(delayGear)
+				end
+				return
+			elseif (enemyHogsLeft > 0) and TurnTimeLeft < 40 then
+				if not toleranceTimer and waitGears <= 0 then
+					SetInputMask(0)
+					SetGearMessage(playerHog, 0)
+					if not minePlaced then
+						TurnTimeLeft = 10000000
+					end
+					if hasAttacked then
+						if minePlaced then
+							toleranceTimer = 12000
+						else
+							toleranceTimer = 7500
+						end
+					else
+						PlaySound(sndBoring, playerHog)
+						toleranceTimer = 5020
+					end
+					return
+				end
+			end
+			if toleranceTimer ~= nil then
+				if toleranceTimer % 1000 == 0 and toleranceTimer > 0 and toleranceTimer <= 5000 then
+					AddCaption(string.format(loc("Mission failure in %d s"), div(toleranceTimer, 1000)), 0xFFFFFFFF, capgrpGameState)
+				end
+				if toleranceTimer == 4000 then
+					PlaySound(sndCountdown4)
+				elseif toleranceTimer == 3000 then
+					PlaySound(sndCountdown3)
+				elseif toleranceTimer == 2000 then
+					PlaySound(sndCountdown2)
+				elseif toleranceTimer == 1000 then
+					PlaySound(sndCountdown1)
+				end
+				if waitGears <= 0 then
+					if toleranceTimer <= 0 then
+						lose()
+						return
+					end
+					toleranceTimer = toleranceTimer - 20
+				end
+				return
+			end
+		end
+	end
+end
+
+function onGearAdd(gear)
+	local gt = GetGearType(gear)
+	if gt == gtIceGun or gt == gtPickHammer or gt == gtSineGunShot or gt == gtCake
+	or gt == gtTeleport or gt == gtFlamethrower or gt == gtBallGun or gt == gtSeduction
+	or gt == gtAirAttack or gt == gtMine or gt == gtSMine or gt == gtAirMine
+	or (isWaitGear(gear) and gt ~= gtFlame) then
+		--[[ This is a hack to prevent the turn from instantly ending
+		after using a weapon with a retreat time of 0. For some reason, there would be
+		are also problems with the hellish-hand grenade without this hack.
+		It spawns an invisible grenade with disabled gravity at (0,0) with a
+		high timer, which will delay the end of the turn. ]]
+		if delayGear == nil then
+			delayGear = AddGear(0, 0, gtGrenade, gstNoGravity + gstInvisible, 0, 0, 2147483647)
+		end
+	end
+	if gt == gtMine or gt == gtSMine or gt == gtAirMine then
+		minePlaced = true
+	end
+	if isWaitGear(gear) then
+		waitGears = waitGears + 1
+	end
+	if gt == gtAirAttack then
+		hasAttacked = true
+	end
+end
+
+function onGearDelete(gear)
+	if isWaitGear(gear) then
+		waitGears = waitGears - 1
+	end
+	if GetGearType(gear) == gtHedgehog then
+		if GetHogTeamName(gear) == enemyTeamName then
+			enemyHogsLeft = enemyHogsLeft - 1
+			pendingDeaths[gear] = nil
+			if enemyHogsLeft <= 0 then
+				win()
+			end
+		end
+	end
+end
+
+function countPending()
+	local p = 0
+	for h, v in pairs(pendingDeaths) do
+		if v then
+			p = p + 1
+		end
+	end
+	return p
+end
+
+function isPlayerAlive()
+	if GetGearType(playerHog) == gtHedgehog then
+		if GetHealth(playerHog) == 0 then
+			return false
+		else
+			local _, gearDamage
+			_, _, _, _, _, _, _, _, _, _, _, gearDamage = GetGearValues(playerHog)
+			return (GetHealth(playerHog) - gearDamage) > 0
+		end
+	else
+		return false
+	end
+end
+
+function onGearDamage(gear, damage)
+	if GetGearType(gear) == gtHedgehog then
+		if GetHogTeamName(gear) == enemyTeamName then
+			local _, gearDamage
+			_, _, _, _, _, _, _, _, _, _, _, gearDamage = GetGearValues(gear)
+			if (GetHealth(gear) - gearDamage) <= 0 then
+				pendingDeaths[gear] = true
+			end
+		end
+	end
+end
+
+function isWaitGear(gear)
+	local gt = GetGearType(gear)
+	return gt == gtBall or gt == gtHellishBomb or gt == gtWatermelon or gt == gtMelonPiece
+		or (gt == gtFlame and band(GetState(gear), gsttmpFlag) == 0)
+		or gt == gtDrill or gt == gtAirAttack or gt == gtAirBomb or gt == gtCluster
+		or gt == gtEgg or gt == gtHammerHit or gt == gtNapalmBomb or gt == gtPoisonCloud
+		or gt == gtGasBomb
+end
+
+function onNewTurn()
+	turnNo = turnNo + 1
+	if turnNo > 1 then
+		PlaySound(sndBoring, playerHog)
+		lose()
+	end
+end
+
+function onHogAttack(ammoType)
+	-- Set hasAttacked if hog attacked NOT with a non-turn ending weapon
+	if ammoType ~= amNothing and ammoType ~= amSkip and ammoType ~= amJetpack and ammoType ~= amGirder and ammoType ~= amRubber
+		and ammoType ~= amLandGun and ammoType ~= amParachute and ammoType ~= amResurrector and ammoType ~= amRope and ammoType ~= amSwitcher
+		and ammoType ~= amExtraDamage and ammoType ~= amExtraTime and ammoType ~= amLowGravity and ammoType ~= amInvulnerable
+		and ammoType ~= amLaserSight and ammoType ~= amVampiric and ammoType ~= amPortalGun and ammoType ~= amSnowball then
+		hasAttacked = true
+	end
+	if ammoType == amSkip and enemyHogsLeft > 0 then
+		PlaySound(sndCoward, playerHog)
+		lose()
+		return
+	end
+end
+
+function lose()
+	if not gameEnded then
+		PlaySound(sndStupid, playerHog)
+		local mission, achievement
+		mission = loc("You failed to kill all enemies in this turn.")
+		achievement = loc("You failed to kill all enemies in a single turn.")
+		AddCaption(loc("Mission failed!"), 0xFFFFFFFF, capgrpGameState)
+		ShowMission(loc("Big Armory"), loc("Scenario"), mission, -amBazooka, 5000) 
+		SendStat(siGameResult, loc("You lose!"))
+		SendStat(siCustomAchievement, achievement)
+		SendStat(siPlayerKills, tostring(0), enemyTeamName)
+		SendStat(siPlayerKills, tostring(8-enemyHogsLeft), playerTeamName)
+		gameEnded = true
+		EndGame()
+	end
+end
+
+function win()
+	if not gameEnded then
+		AddCaption(loc("Victory!"), 0xFFFFFFFF, capgrpGameState)
+		ShowMission(loc("Big Armory"), loc("Scenario"), loc("Congratulations! You win."), 4, 5000) 
+		PlaySound(sndVictory, playerHog)
+		SendStat(siGameResult, loc("You win!"))
+		SendStat(siCustomAchievement, loc("You have killed all enemies."))
+		SendStat(siPlayerKills, tostring(8-enemyHogsLeft), playerTeamName)
+		SendStat(siPlayerKills, tostring(0), enemyTeamName)
+		gameEnded = true
+		EndGame()
+	end
+end