equal
deleted
inserted
replaced
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); |