hedgewars/uTeams.pas
changeset 13140 e330feceb662
parent 13068 6369d148cfff
child 13156 26f0c3669b4e
equal deleted inserted replaced
13139:674b76f2d64a 13140:e330feceb662
   537     HH^.GearHidden:= nil;
   537     HH^.GearHidden:= nil;
   538     InsertGearToList(HH^.Gear);
   538     InsertGearToList(HH^.Gear);
   539     HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked;
   539     HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked;
   540     AddCI(HH^.Gear);
   540     AddCI(HH^.Gear);
   541     HH^.Gear^.Active:= true;
   541     HH^.Gear^.Active:= true;
   542     ScriptCall('onHogRestore', HH^.Gear^.Uid)
   542     ScriptCall('onHogRestore', HH^.Gear^.Uid);
       
   543     AddVisualGear(0, 0, vgtTeamHealthSorter);
   543 end;
   544 end;
   544 
   545 
   545 procedure RestoreTeamsFromSave;
   546 procedure RestoreTeamsFromSave;
   546 var t: LongInt;
   547 var t: LongInt;
   547 begin
   548 begin