hedgewars/uGearsHandlersMess.pas
changeset 14338 ce2e67c5af14
parent 14337 94e50f346c57
child 14340 05c1d471694f
equal deleted inserted replaced
14337:94e50f346c57 14338:ce2e67c5af14
  6469                                 end
  6469                                 end
  6470                             else if iter^.Kind = gtAirMine then
  6470                             else if iter^.Kind = gtAirMine then
  6471                                 begin
  6471                                 begin
  6472 								iter^.Damage:= 0;
  6472 								iter^.Damage:= 0;
  6473 								iter^.State:= iter^.State or gstFrozen;
  6473 								iter^.State:= iter^.State or gstFrozen;
       
  6474                 AddCI(iter);
  6474 								if (hwRound(iter^.X) < RightX) and (hwRound(iter^.X) > 0) and 
  6475 								if (hwRound(iter^.X) < RightX) and (hwRound(iter^.X) > 0) and 
  6475 									(hwRound(iter^.Y) < LAND_HEIGHT) and (hwRound(iter^.Y) > 0) then
  6476 									(hwRound(iter^.Y) < LAND_HEIGHT) and (hwRound(iter^.Y) > 0) then
  6476 									begin
  6477 									begin
  6477 									iter^.X:= int2hwFloat(min(RightX-16,max(hwRound(iter^.X), 16)));
  6478 									iter^.X:= int2hwFloat(min(RightX-16,max(hwRound(iter^.X), 16)));
  6478 									iter^.Y:= int2hwFloat(min(LAND_HEIGHT-16,max(hwRound(iter^.Y),16)));
  6479 									iter^.Y:= int2hwFloat(min(LAND_HEIGHT-16,max(hwRound(iter^.Y),16)));