[Minor] Speed=0 extension 2 (#1818)

Team attack scripts no longer affect vehicles that cannot move and are
beyond weapon range.
- 作战小队攻击脚本不再对无法移动且超出武器射程的载具生效。

Author: Fly-Star-him

src/Ext/Script/Mission.Attack.cpp

@@ -233,6 +233,14 @@ void ScriptExt::Mission_Attack(TeamClass* pTeam, int calcThreatMode, bool repeat
 
 						const auto whatAmI = pFoot->WhatAmI();
 
+						// If the vehicle cannot be moved, perhaps it is better this way.
+						if (whatAmI == AbstractType::Unit
+							&& TechnoExt::CannotMove(static_cast<UnitClass*>(pFoot))
+							&& !pFoot->IsCloseEnough(pSelectedTarget, pFoot->SelectWeapon(pSelectedTarget)))
+						{
+							continue;
+						}
+
 						// Aircraft hack. I hate how this game auto-manages the aircraft missions.
 						if (whatAmI == AbstractType::Aircraft
 							&& pFoot->Ammo > 0

src/Ext/Unit/Hooks.DisallowMoving.cpp

@@ -152,3 +152,40 @@ DEFINE_HOOK(0x7415A9, UnitClass_ApproachTarget_SetWeaponIndex, 0x6)
 
 	return 0;
 }
+
+DEFINE_HOOK(0x6F7CE2, TechnoClass_CanAutoTargetObject_DisallowMoving, 0x6)
+{
+	GET(TechnoClass* const, pThis, EDI);
+	GET(AbstractClass* const, pTarget, ESI);
+	GET(const int, weaponIndex, EBX);
+
+	if (const auto pUnit = abstract_cast<UnitClass*, true>(pThis))
+	{
+		if (TechnoExt::CannotMove(pUnit))
+		{
+			R->EAX(pUnit->GetFireError(pTarget, weaponIndex, true));
+			return 0x6F7CEE;
+		}
+	}
+
+	return 0;
+}
+
+DEFINE_HOOK(0x7088E3, TechnoClass_ShouldRetaliate_DisallowMoving, 0x6)
+{
+	GET(TechnoClass* const, pThis, EDI);
+	GET(AbstractClass* const, pTarget, EBP);
+	GET(const int, weaponIndex, EBX);
+
+	if (const auto pUnit = abstract_cast<UnitClass*, true>(pThis))
+	{
+		if (TechnoExt::CannotMove(pUnit))
+		{
+			R->Stack(STACK_OFFSET(0x18, 0x4), weaponIndex);
+			R->EAX(pUnit->GetFireError(pTarget, weaponIndex, true));
+			return 0x7088F3;
+		}
+	}
+
+	return 0;
+}