equal
deleted
inserted
replaced
1665 begin |
1665 begin |
1666 Gear^.Radius:= cShotgunRadius; |
1666 Gear^.Radius:= cShotgunRadius; |
1667 t:= GearsList; |
1667 t:= GearsList; |
1668 while t <> nil do |
1668 while t <> nil do |
1669 begin |
1669 begin |
1670 dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), Gear); |
1670 dmg:= ModifyDamage(min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25), t); |
1671 if dmg > 0 then |
1671 if dmg > 0 then |
1672 case t^.Kind of |
1672 case t^.Kind of |
1673 gtHedgehog, |
1673 gtHedgehog, |
1674 gtMine, |
1674 gtMine, |
1675 gtCase, |
1675 gtCase, |