Enable resetting of weapons after each turn - useful in combination with a limited weaponset and unlimited attacks
authornemo
Sun, 10 Oct 2010 12:53:16 -0400
changeset 3946 41e06b74c991
parent 3945 c3d5eace0a32
child 3947 709fdb89f76c
Enable resetting of weapons after each turn - useful in combination with a limited weaponset and unlimited attacks
hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Oct 10 12:32:12 2010 -0400
+++ b/hedgewars/uGears.pas	Sun Oct 10 12:53:16 2010 -0400
@@ -924,7 +924,10 @@
         begin
         t^.PortalCounter:= 0;
         t:= t^.NextGear
-        end
+        end;
+   
+    if (GameFlags and gfResetWeps) <> 0 then
+        ResetWeapons
 end;
 
 procedure ApplyDamage(Gear: PGear; Damage: Longword; Source: TDamageSource);