equal
deleted
inserted
replaced
279 var x, y: LongInt; |
279 var x, y: LongInt; |
280 begin |
280 begin |
281 for x:= 0 to LANDTEXARW - 1 do |
281 for x:= 0 to LANDTEXARW - 1 do |
282 for y:= 0 to LANDTEXARH - 1 do |
282 for y:= 0 to LANDTEXARH - 1 do |
283 with LandTextures[x, y] do |
283 with LandTextures[x, y] do |
284 if tex <> nil then |
284 FreeAndNilTexture(tex); |
285 FreeAndNilTexture(tex) |
|
286 end; |
285 end; |
287 |
286 |
288 procedure freeModule; |
287 procedure freeModule; |
289 begin |
288 begin |
290 ResetLand; |
289 ResetLand; |