author | unc0rr |
Tue, 29 May 2007 21:56:35 +0000 | |
changeset 531 | 1f6c6eb0ea02 |
parent 530 | f0b962214436 |
child 532 | 8136a5363586 |
--- a/hedgewars/uGears.pas Tue May 29 21:55:45 2007 +0000 +++ b/hedgewars/uGears.pas Tue May 29 21:56:35 2007 +0000 @@ -704,7 +704,7 @@ inc(t^.Damage, dmg); if t^.Kind = gtHedgehog then begin - AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, Gear); + AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, t); inc(hh^.DamageGiven, dmg) end; DeleteCI(t);