556             begin

   556             begin

   557             t:= max(Gear^.Damage, Gear^.Health);

   557             t:= max(Gear^.Damage, Gear^.Health);

   558             Gear^.Damage:= t;

   558             Gear^.Damage:= t;

   559             if ((not SuddenDeathDmg and (cWaterOpacity < $FF)) or (SuddenDeathDmg and (cWaterOpacity < $FF))) and (hwRound(Gear^.Y) < cWaterLine + 256) then

   559             if ((not SuddenDeathDmg and (cWaterOpacity < $FF)) or (SuddenDeathDmg and (cWaterOpacity < $FF))) and (hwRound(Gear^.Y) < cWaterLine + 256) then

   560                 spawnHealthTagForHH(Gear, t);

   560                 spawnHealthTagForHH(Gear, t);

   561             uStats.HedgehogDamaged(Gear, CurrentHedgehog^.Gear)

   563             uStats.HedgehogDamaged(Gear, CurrentHedgehog^.Gear)

   562             end;

   564             end;

   563 

   565 

   564         team:= Gear^.Hedgehog^.Team;

   566         team:= Gear^.Hedgehog^.Team;

   565         if CurrentHedgehog^.Gear = Gear then

   567         if CurrentHedgehog^.Gear = Gear then

  1026            begin // this cannot just use Damage or it interrupts shotgun and gets you called stupid

  1028            begin // this cannot just use Damage or it interrupts shotgun and gets you called stupid

  1027            inc(CurrentHedgehog^.Gear^.Karma, tmpDmg);

  1029            inc(CurrentHedgehog^.Gear^.Karma, tmpDmg);

  1028            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);

  1030            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);

  1029            end;

  1031            end;

  1030         end;

  1032         end;

  1032     inc(Gear^.Damage, Damage);

  1035     inc(Gear^.Damage, Damage);

  1033     ScriptCall('onGearDamage', Gear^.UID, Damage);

  1036     ScriptCall('onGearDamage', Gear^.UID, Damage);

  1034 end;

  1037 end;

  1035 

  1038 

  1036 procedure SetAllToActive;

  1039 procedure SetAllToActive;