1079            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);

  1079            spawnHealthTagForHH(CurrentHedgehog^.Gear, tmpDmg);

  1080            end;

  1080            end;

  1081         end;

  1081         end;

  1082     end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure

  1082     end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure

  1083         begin

  1083         begin

  1085         Gear^.Hedgehog:= AttackerHog;

  1084         Gear^.Hedgehog:= AttackerHog;

  1086         end;

  1085         end;

  1087     inc(Gear^.Damage, Damage);

  1086     inc(Gear^.Damage, Damage);

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

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

  1089 end;

  1088 end;

  1139         Dispose(t)

  1138         Dispose(t)

  1140     end;

  1139     end;

  1141 end;

  1140 end;

  1142 

  1141 

  1143 procedure AddMiscGears;

  1142 procedure AddMiscGears;

  1145     Gear: PGear;

  1144     Gear: PGear;

  1146 begin

  1145 begin

  1147 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);

  1146 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);

  1148 

  1147 

  1149 i:= 0;

  1148 i:= 0;