hedgewars/uGears.pas
changeset 4895 481dfbe69cd2
parent 4885 bf7f2c1cc235
child 4900 8ad0e23e6d63
equal deleted inserted replaced
4894:efcea232bbf6 4895:481dfbe69cd2
  1044            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);
  1044            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);
  1045            end;
  1045            end;
  1046         end;
  1046         end;
  1047     end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure
  1047     end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure
  1048         begin
  1048         begin
       
  1049         {$IFDEF DEBUGFILE}
  1049         AddFileLog('Assigning hedgehog ' + inttostr(LongInt(AttackerHog)) + ' to gear ' + inttostr(Gear^.uid));
  1050         AddFileLog('Assigning hedgehog ' + inttostr(LongInt(AttackerHog)) + ' to gear ' + inttostr(Gear^.uid));
       
  1051         {$ENDIF}
  1050         Gear^.Hedgehog:= AttackerHog;
  1052         Gear^.Hedgehog:= AttackerHog;
  1051         end;
  1053         end;
  1052     inc(Gear^.Damage, Damage);
  1054     inc(Gear^.Damage, Damage);
  1053     ScriptCall('onGearDamage', Gear^.UID, Damage);
  1055     ScriptCall('onGearDamage', Gear^.UID, Damage);
  1054 end;
  1056 end;