[Dehardcode]Customize damaged speed (#1606)

- In vanilla, units using drive/ship loco will has hardcoded speed
multiplier when damaged. Now you can customize it.
- The max valuebale value is 1.0, you cannot make unit get faster on
yellow condition by it.

In `rulesmd.ini`
```ini
[General]
DamagedSpeed=0.75        ; double

[SOMEUNIT]
DamagedSpeed=            ; double
```

Author: NetsuNegi

CREDITS.md

@@ -364,6 +364,7 @@ This page lists all the individual contributions to the project by their author.
    - Fix `DefaultDisguise` showing wrong house colors for different players
    - Taking over Ares' AlphaImage respawn logic to reduce lags from it
    - Allow voxel projectiles to use AnimPalette and FirersPalette
+   - Customize damaged speed ratio of drive/ship loco
 - **Apollo** - Translucent SHP drawing patches
 - **ststl**:
    - Customizable `ShowTimer` priority of superweapons

docs/Fixed-or-Improved-Logics.md

@@ -546,6 +546,21 @@ ProneSpeed.NoCrawls=1.5       ; floating point value, multiplier
 ProneSpeed=                   ; floating point value, multiplier, by default, use the corresponding global value according to Crawls
 ```
 
+## Unit
+
+### Damaged speed customization
+
+- In vanilla, units using drive/ship loco will has hardcoded speed multiplier when damaged. Now you can customize it.
+- The max valuebale value is 1.0, you cannot make unit get faster on yellow condition by it.
+
+In `rulesmd.ini`
+```ini
+[General]
+DamagedSpeed=0.75        ; double
+
+[SOMEUNIT]
+DamagedSpeed=            ; double
+
 ## Particle systems
 
 ### Fire particle target coordinate adjustment when firer rotates

docs/Whats-New.md

@@ -352,6 +352,7 @@ New:
 - [Airburst weapon firing/source coordinate customizations](Fixed-or-Improved-Logics.md#airburst--splits) (by Starkku)
 - [AlternateFLH on-turret toggle](Fixed-or-Improved-Logics.md#alternate-flh-customizations) (by Starkku)
 - Prone speed customization (by TaranDahl)
+- Customize damaged speed ratio of drive/ship loco (by NetsuNegi)
 
 Vanilla fixes:
 - Prevent the units with locomotors that cause problems from entering the tank bunker (by TaranDahl)

src/Ext/Rules/Body.cpp

@@ -249,6 +249,8 @@ void RulesExt::ExtData::LoadBeforeTypeData(RulesClass* pThis, CCINIClass* pINI)
 	this->ProneSpeed_Crawls.Read(exINI, GameStrings::General, "ProneSpeed.Crawls");
 	this->ProneSpeed_NoCrawls.Read(exINI, GameStrings::General, "ProneSpeed.NoCrawls");
 
+  	this->DamagedSpeed.Read(exINI, GameStrings::General, "DamagedSpeed");
+
 	// Section AITargetTypes
 	int itemsCount = pINI->GetKeyCount("AITargetTypes");
 	for (int i = 0; i < itemsCount; ++i)
@@ -461,6 +463,7 @@ void RulesExt::ExtData::Serialize(T& Stm)
 		.Process(this->BuildingTypeSelectable)
 		.Process(this->ProneSpeed_Crawls)
 		.Process(this->ProneSpeed_NoCrawls)
+    	.Process(this->DamagedSpeed)
 		;
 }
 

src/Ext/Rules/Body.h

@@ -205,6 +205,8 @@ class RulesExt
 		Valueable<double> ProneSpeed_Crawls;
 		Valueable<double> ProneSpeed_NoCrawls;
 
+    	Valueable<double> DamagedSpeed;
+
 		ExtData(RulesClass* OwnerObject) : Extension<RulesClass>(OwnerObject)
 			, Storage_TiberiumIndex { -1 }
 			, InfantryGainSelfHealCap {}
@@ -358,6 +360,8 @@ class RulesExt
 			, BuildingTypeSelectable { false }
 			, ProneSpeed_Crawls { 0.67 }
 			, ProneSpeed_NoCrawls { 1.5 }
+
+      		, DamagedSpeed { 0.75 }
 		{ }
 
 		virtual ~ExtData() = default;

src/Ext/Techno/Hooks.cpp

@@ -727,3 +727,15 @@ DEFINE_HOOK(0x521D94, InfantryClass_CurrentSpeed_ProneSpeed, 0x6)
 	R->ECX(currentSpeed);
 	return 0x521DC5;
 }
+
+DEFINE_HOOK_AGAIN(0x6A343F, LocomotionClass_Process_DamagedSpeedMultiplier, 0x6)// Ship
+DEFINE_HOOK(0x4B3DF0, LocomotionClass_Process_DamagedSpeedMultiplier, 0x6)// Drive
+{
+	GET(FootClass*, pLinkedTo, ECX);
+	const auto pTypeExt = TechnoTypeExt::ExtMap.Find(pLinkedTo->GetTechnoType());
+
+	const double multiplier = pTypeExt->DamagedSpeed.Get(RulesExt::Global()->DamagedSpeed);
+	__asm fmul multiplier;
+
+	return R->Origin() + 0x6;
+}

src/Ext/TechnoType/Body.cpp

@@ -503,9 +503,11 @@ void TechnoTypeExt::ExtData::LoadFromINIFile(CCINIClass* const pINI)
 	this->Sinkable.Read(exINI, pSection, "Sinkable");
 	this->Sinkable_SquidGrab.Read(exINI, pSection, "Sinkable.SquidGrab");
 	this->SinkSpeed.Read(exINI, pSection, "SinkSpeed");
-	
+
 	this->ProneSpeed.Read(exINI, pSection, "ProneSpeed");
 
+	this->DamagedSpeed.Read(exINI, pSection, "DamagedSpeed");
+
 	this->SuppressKillWeapons.Read(exINI, pSection, "SuppressKillWeapons");
 	this->SuppressKillWeapons_Types.Read(exINI, pSection, "SuppressKillWeapons.Types");
 
@@ -932,6 +934,8 @@ void TechnoTypeExt::ExtData::Serialize(T& Stm)
 		.Process(this->Sinkable_SquidGrab)
 		.Process(this->SinkSpeed)
 
+		.Process(this->DamagedSpeed)
+
 		.Process(this->SuppressKillWeapons)
 		.Process(this->SuppressKillWeapons_Types)
 

src/Ext/TechnoType/Body.h

@@ -280,7 +280,9 @@ class TechnoTypeExt
 		Valueable<int> SinkSpeed;
 
 		Nullable<double> ProneSpeed;
-		
+
+    	Nullable<double> DamagedSpeed;
+
 		struct LaserTrailDataEntry
 		{
 			ValueableIdx<LaserTrailTypeClass> idxType;
@@ -557,6 +559,8 @@ class TechnoTypeExt
 			, Sinkable_SquidGrab { true }
 			, SinkSpeed { 5 }
 
+			, DamagedSpeed { }
+
 			, SuppressKillWeapons { false }
 			, SuppressKillWeapons_Types {}