# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1594046798 -7200
# Node ID e55c4bad720a770e824f7ad4094eab630abb3385
# Parent  c6675acd3c8212867a4cfa89cba427d1b6a5282e
AI: Reset remembered gravity on Think and TestAmmos

diff -r c6675acd3c82 -r e55c4bad720a hedgewars/uAI.pas
--- a/hedgewars/uAI.pas	Mon Jul 06 15:41:22 2020 +0200
+++ b/hedgewars/uAI.pas	Mon Jul 06 16:46:38 2020 +0200
@@ -107,6 +107,8 @@
 BotLevel:= Me^.Hedgehog^.BotLevel;
 aiWindSpeed:= hwFloat2Float(cWindSpeed);
 aiLaserSighting:= (cLaserSighting) or (HHHasAmmo(Me^.Hedgehog^, amLaserSight) > 0);
+aiGravity:= cGravity;
+aiGravityf:= cGravityf;
 hasLowGrav:= HHHasAmmo(Me^.Hedgehog^, amLowGravity) > 0;
 useThisActions:= false;
 Me^.AIHints:= Me^.AIHints and (not aihAmmosChanged);
@@ -293,6 +295,8 @@
             or StopThinking
         end
 end;
+aiGravity:= cGravity;
+aiGravityf:= cGravityf;
 end;
 
 procedure Walk(Me: PGear; var Actions: TActions);
@@ -481,6 +485,8 @@
     Actions: TActions;
 begin
 dmgMod:= 0.01 * hwFloat2Float(cDamageModifier) * cDamagePercent;
+aiGravity:= cGravity;
+aiGravityf:= cGravityf;
 StartTicks:= GameTicks;
 
 currHedgehogIndex:= CurrentTeam^.CurrHedgehog;