View.Set ("graphics:max,max")
const NORMAL := 2
const SEA := 9
var map : array 1 .. 100, 1 .. 100 of int
var mx, my, mb : int

for i : 1 .. 100
    for j : 1 .. 100
        map (i, j) := 2
    end for
end for

proc changeTerrType (mx, my : int)
    map (mx div 16, my div 16) += 1
end changeTerrType

proc drawMap
    for i : 1 .. 100
        for j : 1 .. 100
            drawfillbox (i * 16, j * 16, i * 16 + 16, j * 16 + 16, map (i, j))
        end for
    end for
end drawMap

drawMap
loop
    mousewhere (mx, my, mb)
    if mb = 1 then
        changeTerrType (mx, my)
        drawMap
    end if
end loop