hedgewars/uGears.pas
changeset 3770 f54e8cb9a12b
parent 3768 39947624dabb
child 3773 f552c7b439fa
equal deleted inserted replaced
3769:bb9ecd0346d8 3770:f54e8cb9a12b
  1547 begin
  1547 begin
  1548     gear^.Health := 100;
  1548     gear^.Health := 100;
  1549     gear^.dX := _0;
  1549     gear^.dX := _0;
  1550     gear^.dY := _0;
  1550     gear^.dY := _0;
  1551     gear^.State := gstWait;
  1551     gear^.State := gstWait;
  1552     FindPlace(Gear, false, 0, LAND_WIDTH); 
  1552     inc(CurrentHedgehog^.Team^.stats.AIKills);
       
  1553     FindPlace(gear, false, 0, LAND_WIDTH); 
  1553     RenderHealth(PHedgehog(gear^.Hedgehog)^);
  1554     RenderHealth(PHedgehog(gear^.Hedgehog)^);
  1554     RecountTeamHealth(PHedgehog(gear^.Hedgehog)^.Team);
  1555     RecountTeamHealth(PHedgehog(gear^.Hedgehog)^.Team);
  1555     ScriptCall('onResurrect', gear^.uid);
  1556     ScriptCall('onResurrect', gear^.uid);
  1556 end;
  1557 end;
  1557 
  1558