81 if (Land[y - dx, i] > 0) and (Land[y - dx, i] < 256) then dec(Land[y - dx, i]); |
81 if (Land[y - dx, i] > 0) and (Land[y - dx, i] < 256) then dec(Land[y - dx, i]); |
82 end else |
82 end else |
83 begin |
83 begin |
84 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then |
84 if ((y + dy) and LAND_HEIGHT_MASK) = 0 then |
85 for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do |
85 for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do |
86 if (Land[y + dy, i] < 256) then |
86 if (Land[y + dy, i] < 255) then |
87 inc(Land[y + dy, i]); |
87 inc(Land[y + dy, i]); |
88 if ((y - dy) and LAND_HEIGHT_MASK) = 0 then |
88 if ((y - dy) and LAND_HEIGHT_MASK) = 0 then |
89 for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do |
89 for i:= max(x - dx, 0) to min(x + dx, LAND_WIDTH - 1) do |
90 if (Land[y - dy, i] < 256) then |
90 if (Land[y - dy, i] < 255) then |
91 inc(Land[y - dy, i]); |
91 inc(Land[y - dy, i]); |
92 if ((y + dx) and LAND_HEIGHT_MASK) = 0 then |
92 if ((y + dx) and LAND_HEIGHT_MASK) = 0 then |
93 for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do |
93 for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do |
94 if (Land[y + dx, i] < 256) then |
94 if (Land[y + dx, i] < 255) then |
95 inc(Land[y + dx, i]); |
95 inc(Land[y + dx, i]); |
96 if ((y - dx) and LAND_HEIGHT_MASK) = 0 then |
96 if ((y - dx) and LAND_HEIGHT_MASK) = 0 then |
97 for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do |
97 for i:= max(x - dy, 0) to min(x + dy, LAND_WIDTH - 1) do |
98 if (Land[y - dx, i] < 256) then |
98 if (Land[y - dx, i] < 255) then |
99 inc(Land[y - dx, i]); |
99 inc(Land[y - dx, i]); |
100 end |
100 end |
101 end; |
101 end; |
102 |
102 |
103 procedure FillRoundInLand(X, Y, Radius: LongInt; Value: Longword); |
103 procedure FillRoundInLand(X, Y, Radius: LongInt; Value: Longword); |