--- a/hedgewars/uGears.pas Sun May 31 15:17:03 2009 +0000
+++ b/hedgewars/uGears.pas Sun May 31 17:56:15 2009 +0000
@@ -46,7 +46,7 @@
Friction : hwFloat;
Message, MsgParam : Longword;
Hedgehog: pointer;
- Health, Damage: LongInt;
+ Health, Damage, Karma: LongInt;
CollisionIndex: LongInt;
Tag: LongInt;
Tex: PTexture;
@@ -449,6 +449,7 @@
begin
if Gear^.Kind = gtHedgehog then
begin
+ if (not isInMultiShoot) then inc(Gear^.Damage, Gear^.Karma);
if (Gear^.Damage <> 0) and
(not Gear^.Invulnerable) then
begin
@@ -461,6 +462,7 @@
dec(Gear^.Health, dmg);
if (PHedgehog(Gear^.Hedgehog)^.Team = CurrentTeam) and
+ (Gear^.Damage <> Gear^.Karma) and
not SuddenDeathDmg then
Gear^.State:= Gear^.State or gstLoser;
@@ -471,7 +473,8 @@
RecountTeamHealth(PHedgehog(Gear^.Hedgehog)^.Team);
end;
- Gear^.Damage:= 0;
+ if (not isInMultiShoot) then Gear^.Karma:= 0;
+ Gear^.Damage:= 0
end;
Gear:= Gear^.NextGear
end;
@@ -692,19 +695,10 @@
((GameFlags and gfInvulnerable) = 0) and
not CurrentHedgehog^.Gear^.Invulnerable then
begin // this cannot just use Damage or it interrupts shotgun and gets you called stupid
- if CurrentHedgehog^.Gear^.Health < int(tmpDmg) then
- begin
- // Add damage to trigger normal resolution
- CurrentHedgehog^.Gear^.Health := 0;
- inc(CurrentHedgehog^.Gear^.Damage);
- end
- else
- dec(CurrentHedgehog^.Gear^.Health, tmpDmg);
+ inc(CurrentHedgehog^.Gear^.Karma, tmpDmg);
AddGear(hwRound(CurrentHedgehog^.Gear^.X),
hwRound(CurrentHedgehog^.Gear^.Y),
gtHealthTag, tmpDmg, _0, _0, 0)^.Hedgehog:= CurrentHedgehog;
- RenderHealth(CurrentHedgehog^);
- RecountTeamHealth(CurrentHedgehog^.Team);
end;
end;
end;