| changeset 6382 | 0e76c5cd4250 |
| parent 6380 | 1ff5ad1d771b |
| child 6383 | c34a8b98d78c |
| 6381:5f3412f6809e | 6382:0e76c5cd4250 |
|---|---|
137 end; |
137 end; |
138 |
138 |
139 procedure ResetLand; |
139 procedure ResetLand; |
140 var x, y: LongInt; |
140 var x, y: LongInt; |
141 begin |
141 begin |
142 for x:= 0 to LANDTEXARW -1 do |
142 for x:= 0 to LANDTEXARW - 1 do |
143 for y:= 0 to LANDTEXARH - 1 do |
143 for y:= 0 to LANDTEXARH - 1 do |
144 with LandTextures[x, y] do |
144 with LandTextures[x, y] do |
145 begin |
145 begin |
146 FreeTexture(tex); |
146 FreeTexture(tex); |
147 tex:= nil; |
147 tex:= nil; |