# HG changeset patch
# User nemo
# Date 1264955718 0
# Node ID c216de4d0c93bc5476a782c2c6b24de254a86df5
# Parent  640916bedea7b6d71fc502698e4cbcca43db64c5
Pass correct gear to modifydamage in shotgun

diff -r 640916bedea7 -r c216de4d0c93 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Jan 31 16:31:45 2010 +0000
+++ b/hedgewars/uGears.pas	Sun Jan 31 16:35:18 2010 +0000
@@ -1667,7 +1667,7 @@
 t:= GearsList;
 while t <> nil do
 	begin
-	dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), Gear);
+	dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), t);
 	if dmg > 0 then
 	case t^.Kind of
 		gtHedgehog,