GetMapSize ->sizeZ ->sizeX
<-sizeZ 0 do
    <-sizeX 0 do
        if (GetTerrainSpecial(i j) eq0)
            SetTerrainSpecial(i j 0)
        endif
    loop
loop