share/hedgewars/Data/Scripts/Utils.lua
changeset 13215 bc95df84395f
parent 4873 98dbb9b985e5
child 13665 5664650befcd
equal deleted inserted replaced
13214:9c81e34f1933 13215:bc95df84395f
    18     if r ^ 2 >= (x - gx) ^ 2 + (y - gy) ^ 2 then
    18     if r ^ 2 >= (x - gx) ^ 2 + (y - gy) ^ 2 then
    19         return true
    19         return true
    20     end
    20     end
    21     return false
    21     return false
    22 end
    22 end
       
    23 
       
    24 local function drawFullMap(erase, flush)
       
    25 	for x = 200,4000,600 do
       
    26 		for y = 100,2000,150 do
       
    27 			AddPoint(x, y, 63, erase)
       
    28 		end
       
    29 	end
       
    30 	if flush ~= false then
       
    31 		FlushPoints()
       
    32 	end
       
    33 end
       
    34 
       
    35 -- Completely fill the map with land. Requires MapGen=mgDrawn.
       
    36 -- If flush is false, FlushPoints() is not called.
       
    37 function fillMap(flush)
       
    38 	drawFullMap(false, flush)
       
    39 end
       
    40 
       
    41 -- Completely erase all land from drawn maps. Requires MapGen=mgDrawn.
       
    42 -- If flush is false, FlushPoints() is not called.
       
    43 function eraseMap(flush)
       
    44 	drawFullMap(true, flush)
       
    45 end
       
    46