hedgewars/uAIAmmoTests.pas
changeset 1024 a6942122c31d
parent 1001 502508979713
child 1066 1f1b3686a2b0
equal deleted inserted replaced
1023:2a32ee7affa3 1024:a6942122c31d
   215 		if EY < 1000 then
   215 		if EY < 1000 then
   216 			begin
   216 			begin
   217 			Result:= RateExplosion(Me, EX, EY, 91);
   217 			Result:= RateExplosion(Me, EX, EY, 91);
   218 			if (Result = 0) then
   218 			if (Result = 0) then
   219 				if (dY > _0_15) then
   219 				if (dY > _0_15) then
   220 					begin
   220 					Result:= - abs(Targ.Y - EY) div 32
   221 					Result:= - abs(Targ.Y - EY) div 32;
       
   222 					AddFileLog('dY > _0_15');
       
   223 					end
       
   224 				else
   221 				else
   225 					Result:= BadTurn
   222 					Result:= BadTurn
   226 			else if (Result < 0) then Result:= BadTurn
   223 			else if (Result < 0) then Result:= BadTurn
   227 			end
   224 			end
   228 		else
   225 		else