# HG changeset patch
# User sheepluva
# Date 1475364419 -7200
# Node ID 0abbe6f1e4f29614adef31bfccee7fcd521d00d0
# Parent  dea589cb6b6e86966a776534d306e994ca7576c0
increase heart count in seduction effect. FPS are overrated anyway

diff -r dea589cb6b6e -r 0abbe6f1e4f2 hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Sun Oct 02 01:17:33 2016 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Oct 02 01:26:59 2016 +0200
@@ -3418,7 +3418,7 @@
 
 
     // note: use GameTicks, not RealTicks, otherwise amount can vary greatly
-    if (Gear^.Pos = 14) and (GameTicks and $3 = 0) then
+    if (Gear^.Pos = 14) and (GameTicks and $1 = 0) then
         begin
         heart:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot);
         if heart <> nil then