hedgewars/uTeams.pas
changeset 1495 2b2b89bdb5f3
parent 1363 bcd4cb0245f0
child 1650 a65681cc27c2
equal deleted inserted replaced
1494:6e6baf165e0c 1495:2b2b89bdb5f3
   366 	and (TeamsArray[t]^.TeamName <> s) do inc(t);
   366 	and (TeamsArray[t]^.TeamName <> s) do inc(t);
   367 if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit;
   367 if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit;
   368 
   368 
   369 with TeamsArray[t]^ do
   369 with TeamsArray[t]^ do
   370 	begin
   370 	begin
   371 	AddChatString('* '+ TeamName + ' is gone');
   371 	AddChatString('** '+ TeamName + ' is gone');
   372 	for i:= 0 to cMaxHHIndex do
   372 	for i:= 0 to cMaxHHIndex do
   373 		with Hedgehogs[i] do
   373 		with Hedgehogs[i] do
   374 			if Gear <> nil then
   374 			if Gear <> nil then
   375 				begin
   375 				begin
   376 				if Gear^.State and gstAttacking <> 0 then
   376 				if Gear^.State and gstAttacking <> 0 then