changeset 2716 | b9ca1bfca24f |
parent 2699 | 249adefa9c1c |
child 2948 | 3f21a9dc93d0 |
2715:0e4e0db79e2a | 2716:b9ca1bfca24f |
---|---|
113 end; |
113 end; |
114 |
114 |
115 procedure FreeLand; |
115 procedure FreeLand; |
116 var x, y: LongInt; |
116 var x, y: LongInt; |
117 begin |
117 begin |
118 for x:= 0 to LANDTEXARW -1 do |
118 for x:= 0 to LANDTEXARW -1 do |
119 for y:= 0 to LANDTEXARH - 1 do |
119 for y:= 0 to LANDTEXARH - 1 do |
120 with LandTextures[x, y] do |
120 with LandTextures[x, y] do |
121 FreeTexture(tex) |
121 begin |
122 FreeTexture(tex); |
|
123 tex:= nil; |
|
124 end; |
|
122 end; |
125 end; |
123 |
126 |
124 end. |
127 end. |