302 end; |
302 end; |
303 inc(i, 5); |
303 inc(i, 5); |
304 end; |
304 end; |
305 end |
305 end |
306 end; |
306 end; |
307 if (GameFlags and gfKarma <> 0) and (GameFlags and gfInvulnerable = 0) and |
307 if (GameFlags and gfKarma <> 0) and (GameFlags and gfInvulnerable = 0) and |
308 (CurrentHedgehog^.Effects[heInvulnerable] = 0) then |
308 (CurrentHedgehog^.Effects[heInvulnerable] = 0) then |
309 begin // this cannot just use Damage or it interrupts shotgun and gets you called stupid |
309 begin // this cannot just use Damage or it interrupts shotgun and gets you called stupid |
310 inc(CurrentHedgehog^.Gear^.Karma, tmpDmg); |
310 inc(CurrentHedgehog^.Gear^.Karma, tmpDmg); |
311 CurrentHedgehog^.Gear^.LastDamage := CurrentHedgehog; |
311 CurrentHedgehog^.Gear^.LastDamage := CurrentHedgehog; |
312 spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg); |
312 spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg); |
|
313 end; |
313 end; |
314 end; |
|
315 |
314 uStats.HedgehogDamaged(Gear, AttackerHog, Damage, false); |
316 uStats.HedgehogDamaged(Gear, AttackerHog, Damage, false); |
315 end; |
|
316 |
317 |
317 if AprilOne and (Gear^.Hedgehog^.Hat = 'fr_tomato') and (Damage > 2) then |
318 if AprilOne and (Gear^.Hedgehog^.Hat = 'fr_tomato') and (Damage > 2) then |
318 for i := 0 to random(min(Damage,20))+5 do |
319 for i := 0 to random(min(Damage,20))+5 do |
319 begin |
320 begin |
320 vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot); |
321 vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot); |