hedgewars/uAIMisc.pas
branchtransitional_engine
changeset 15930 f39f0f614dbf
parent 15929 128ace913837
child 16004 2146cb7be36f
equal deleted inserted replaced
15929:128ace913837 15930:f39f0f614dbf
   525         y:= y + dY;
   525         y:= y + dY;
   526         dY:= dY + aiGravityf;
   526         dY:= dY + aiGravityf;
   527 
   527 
   528 {        if ((trunc(y) and LAND_HEIGHT_MASK) = 0) and ((trunc(x) and LAND_WIDTH_MASK) = 0) then
   528 {        if ((trunc(y) and LAND_HEIGHT_MASK) = 0) and ((trunc(x) and LAND_WIDTH_MASK) = 0) then
   529             begin
   529             begin
   530             LandPixels[trunc(y), trunc(x)]:= v;
   530             LandPixelGet(trunc(y), trunc(x)):= v;
   531             UpdateLandTexture(trunc(X), 1, trunc(Y), 1, true);
   531             UpdateLandTexture(trunc(X), 1, trunc(Y), 1, true);
   532             end;}
   532             end;}
   533 
   533 
   534         if TestCollExcludingObjects(trunc(x), trunc(y), Target.Radius) then
   534         if TestCollExcludingObjects(trunc(x), trunc(y), Target.Radius) then
   535             with Target do
   535             with Target do
  1081 end;
  1081 end;
  1082 
  1082 
  1083 repeat
  1083 repeat
  1084         {if ((hwRound(Gear^.Y) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X) and LAND_WIDTH_MASK) = 0) then
  1084         {if ((hwRound(Gear^.Y) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X) and LAND_WIDTH_MASK) = 0) then
  1085             begin
  1085             begin
  1086             LandPixels[hwRound(Gear^.Y), hwRound(Gear^.X)]:= Gear^.Hedgehog^.Team^.Clan^.Color;
  1086             LandPixelGet(hwRound(Gear^.Y), hwRound(Gear^.X)):= Gear^.Hedgehog^.Team^.Clan^.Color;
  1087             UpdateLandTexture(hwRound(Gear^.X), 1, hwRound(Gear^.Y), 1, true);
  1087             UpdateLandTexture(hwRound(Gear^.X), 1, hwRound(Gear^.Y), 1, true);
  1088             end;}
  1088             end;}
  1089 
  1089 
  1090     if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius) then
  1090     if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius) then
  1091         exit(false);
  1091         exit(false);
  1147 GoInfo.JumpType:= jmpNone;
  1147 GoInfo.JumpType:= jmpNone;
  1148 tY:= hwRound(Gear^.Y);
  1148 tY:= hwRound(Gear^.Y);
  1149 repeat
  1149 repeat
  1150         {if ((hwRound(Gear^.Y) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X) and LAND_WIDTH_MASK) = 0) then
  1150         {if ((hwRound(Gear^.Y) and LAND_HEIGHT_MASK) = 0) and ((hwRound(Gear^.X) and LAND_WIDTH_MASK) = 0) then
  1151             begin
  1151             begin
  1152             LandPixels[hwRound(Gear^.Y), hwRound(Gear^.X)]:= random($FFFFFFFF);//Gear^.Hedgehog^.Team^.Clan^.Color;
  1152             LandPixelGet(hwRound(Gear^.Y), hwRound(Gear^.X)):= random($FFFFFFFF);//Gear^.Hedgehog^.Team^.Clan^.Color;
  1153             UpdateLandTexture(hwRound(Gear^.X), 1, hwRound(Gear^.Y), 1, true);
  1153             UpdateLandTexture(hwRound(Gear^.X), 1, hwRound(Gear^.Y), 1, true);
  1154             end;}
  1154             end;}
  1155 
  1155 
  1156     pX:= hwRound(Gear^.X);
  1156     pX:= hwRound(Gear^.X);
  1157     pY:= hwRound(Gear^.Y);
  1157     pY:= hwRound(Gear^.Y);