hedgewars/HHHandlers.inc
changeset 435 25820c10c849
parent 434 2c6ccce17f39
child 498 9c8b385dc9a1
equal deleted inserted replaced
434:2c6ccce17f39 435:25820c10c849
   124                     s:= '+' + s;
   124                     s:= '+' + s;
   125                     AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Color, capgrpAmmoinfo);
   125                     AddCaption(s, PHedgehog(HH^.Hedgehog)^.Team^.Color, capgrpAmmoinfo);
   126                     RenderHealth(PHedgehog(HH^.Hedgehog)^);
   126                     RenderHealth(PHedgehog(HH^.Hedgehog)^);
   127                     RecountTeamHealth(PHedgehog(HH^.Hedgehog)^.Team)
   127                     RecountTeamHealth(PHedgehog(HH^.Hedgehog)^.Team)
   128                     end;
   128                     end;
   129      end;
   129      end
   130 FreeActionsList
       
   131 end;
   130 end;
   132 
   131 
   133 const StepTicks: LongWord = 0;
   132 const StepTicks: LongWord = 0;
   134 
   133 
   135 procedure HedgehogStep(Gear: PGear);
   134 procedure HedgehogStep(Gear: PGear);