hedgewars/uTeams.pas
changeset 1355 8e167aa3b2e4
parent 1354 a8dcdeb88a43
child 1356 77ab8735401d
equal deleted inserted replaced
1354:a8dcdeb88a43 1355:8e167aa3b2e4
   370 with TeamsArray[i]^ do
   370 with TeamsArray[i]^ do
   371 	begin
   371 	begin
   372 	AddChatString('* '+ TeamName + ' is gone');
   372 	AddChatString('* '+ TeamName + ' is gone');
   373 	for i:= 0 to cMaxHHIndex do
   373 	for i:= 0 to cMaxHHIndex do
   374 		with Hedgehogs[i] do
   374 		with Hedgehogs[i] do
   375 			Gear^.State:= Gear^.State and not gstHHDriven;
   375 			if Gear <> nil then
       
   376 				begin
       
   377 				if Gear^.State and gstAttacking <> 0 then
       
   378 					AttackBar:= 0;
       
   379 					
       
   380 				Gear^.State:= Gear^.State and not gstHHDriven
       
   381 				end;
       
   382 
   376 	hasGone:= true
   383 	hasGone:= true
   377 	end
   384 	end;
       
   385 	
       
   386 RecountTeamHealth(TeamsArray[i])
   378 end;
   387 end;
   379 
   388 
   380 initialization
   389 initialization
   381 
   390 
   382 finalization
   391 finalization