hedgewars/uScript.pas
changeset 6763 8a06161ede49
parent 6752 11d898afe582
child 6764 e56ff0231540
equal deleted inserted replaced
6762:85ba0c55d077 6763:8a06161ede49
    61     uGearsList,
    61     uGearsList,
    62     uGearsUtils,
    62     uGearsUtils,
    63     uFloat,
    63     uFloat,
    64     uWorld,
    64     uWorld,
    65     uAmmos,
    65     uAmmos,
       
    66     uTeams,
    66     uSound,
    67     uSound,
    67     uChat,
    68     uChat,
    68     uStats,
    69     uStats,
    69     uStore,
    70     uStore,
    70     uRandom,
    71     uRandom,
  1055             begin
  1056             begin
  1056             gear^.Health:= lua_tointeger(L, 2);
  1057             gear^.Health:= lua_tointeger(L, 2);
  1057 
  1058 
  1058         if (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
  1059         if (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
  1059             begin  
  1060             begin  
  1060         RenderHealth(gear^.Hedgehog^);
  1061             RenderHealth(gear^.Hedgehog^);
       
  1062             RecountTeamHealth(gear^.Hedgehog^.Team)
  1061             end;
  1063             end;
  1062 
  1064 
  1063             SetAllToActive;
  1065             SetAllToActive;
  1064             end
  1066             end
  1065         end;
  1067         end;