hedgewars/uTeams.pas
changeset 14039 f9281c294a4c
parent 14029 03a5d9f0bcc9
child 14047 006f97a6f6a7
equal deleted inserted replaced
14029:03a5d9f0bcc9 14039:f9281c294a4c
   706         end
   706         end
   707     else CurrentHedgehog^.AmmoStore:= TeamsCount - 1;
   707     else CurrentHedgehog^.AmmoStore:= TeamsCount - 1;
   708     CurrentHedgehog^.Gear:= Gear;
   708     CurrentHedgehog^.Gear:= Gear;
   709     CurrentHedgehog^.Name:= id;
   709     CurrentHedgehog^.Name:= id;
   710     CurrentHedgehog^.InitialHealth:= Gear^.Health;
   710     CurrentHedgehog^.InitialHealth:= Gear^.Health;
       
   711     CurrentHedgehog^.RevengeHog:= nil;
   711     CurrHedgehog:= HedgehogsNumber;
   712     CurrHedgehog:= HedgehogsNumber;
   712     inc(HedgehogsNumber)
   713     inc(HedgehogsNumber)
   713     end
   714     end
   714 end;
   715 end;
   715 
   716