hedgewars/uGearsHandlersMess.pas
changeset 15661 afeffdb4a712
parent 15657 e229d0cacd37
child 15662 8416b08ffdbb
--- a/hedgewars/uGearsHandlersMess.pas	Thu Jun 25 22:16:11 2020 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Jun 26 17:40:22 2020 +0300
@@ -141,6 +141,7 @@
 procedure doStepMinigunWork(Gear: PGear);
 procedure doStepMinigun(Gear: PGear);
 procedure doStepMinigunBullet(Gear: PGear);
+procedure doStepSentry(Gear: PGear);
 
 var
     upd: Longword;
@@ -7170,4 +7171,11 @@
     Gear^.doStep := @doStepBulletWork
 end;
 
+////////////////////////////////////////////////////////////////////////////////
+procedure doStepSentry(Gear: PGear);
+begin
+    CheckGearDrowning(Gear);
+    doStepFallingGear(Gear);
+end;
+
 end.