223         until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam);

   223         until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam);

   224         end

   224         end

   225 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);

   225 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);

   226 

   226 

   227 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);

   227 CurrentHedgehog:= @(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);

   229 end;

   228 end;

   230 

   229 

   231 procedure AfterSwitchHedgehog;

   230 procedure AfterSwitchHedgehog;

   232 var g: PGear;

   231 var g: PGear;

   233     i, t: LongInt;

   232     i, t: LongInt;

   295 else

   294 else

   296     begin

   295     begin

   297     if TurnTimeLeft > 0 then

   296     if TurnTimeLeft > 0 then

   298         PlaySound(sndIllGetYou, CurrentTeam^.voicepack);

   297         PlaySound(sndIllGetYou, CurrentTeam^.voicepack);

   299     ReadyTimeLeft:= 0

   298     ReadyTimeLeft:= 0

   301 end;

   302 end;

   302 

   303 

   303 function AddTeam(TeamColor: Longword): PTeam;

   304 function AddTeam(TeamColor: Longword): PTeam;

   304 var team: PTeam;

   305 var team: PTeam;

   305     c: LongInt;

   306     c: LongInt;