Pass correct gear to modifydamage in shotgun
authornemo
Sun, 31 Jan 2010 16:35:18 +0000
changeset 2729 c216de4d0c93
parent 2728 640916bedea7
child 2730 f56592281526
Pass correct gear to modifydamage in shotgun
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,