hedgewars/uTeams.pas
changeset 2608 cebfea02f8b5
parent 2599 c7153d2348f3
child 2619 bc2786a00fb8
equal deleted inserted replaced
2607:dbeaba78e676 2608:cebfea02f8b5
    44 			HatTex: PTexture;
    44 			HatTex: PTexture;
    45 			Ammo: PHHAmmo;
    45 			Ammo: PHHAmmo;
    46 			AmmoStore: Longword;
    46 			AmmoStore: Longword;
    47 			CurSlot, CurAmmo: LongWord;
    47 			CurSlot, CurAmmo: LongWord;
    48 			Team: PTeam;
    48 			Team: PTeam;
    49 			AttacksNum: Longword;
    49 			MultiShootAttacks: Longword;
    50 			visStepPos: LongWord;
    50 			visStepPos: LongWord;
    51 			BotLevel  : LongWord; // 0 - Human player
    51 			BotLevel  : LongWord; // 0 - Human player
    52 			HatVisibility: GLfloat;
    52 			HatVisibility: GLfloat;
    53 			stats: TStatistics;
    53 			stats: TStatistics;
    54 			Hat: String;
    54 			Hat: String;
   168 PreviousTeam:= CurrentTeam;
   168 PreviousTeam:= CurrentTeam;
   169 
   169 
   170 with CurrentHedgehog^ do
   170 with CurrentHedgehog^ do
   171 	if Gear <> nil then
   171 	if Gear <> nil then
   172 		begin
   172 		begin
   173 		AttacksNum:= 0;
   173 		MultiShootAttacks:= 0;
   174 		Gear^.Message:= 0;
   174 		Gear^.Message:= 0;
   175 		Gear^.Z:= cHHZ;
   175 		Gear^.Z:= cHHZ;
   176 		RemoveGearFromList(Gear);
   176 		RemoveGearFromList(Gear);
   177 		InsertGearToList(Gear)
   177 		InsertGearToList(Gear)
   178 		end;
   178 		end;