1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 |
-- Read textfile
-- Reads a texfile of ASCII digits (0 to 9) into current layer
-- columns must be smaller than map width
function main ()
local w = mappy.getValue(mappy.MAPWIDTH)
local h = mappy.getValue(mappy.MAPHEIGHT)
if (w == 0) then
mappy.msgBox ("Read textfile", "You need to load or create a map first", mappy.MMB_OK, mappy.MMB_ICONINFO)
else
local isok,asname = mappy.fileRequester (".", "Textfile (*.txt)", "*.txt", mappy.MMB_OPEN)
if isok == mappy.MMB_OK then
mappy.copyLayer(mappy.getValue(mappy.CURLAYER),mappy.MPY_UNDO)
infile = io.open (asname, "r")
local y = 0
while y < h do
local x = 0
while x < w do
local blk = tonumber (infile:read (1))
if (blk ~= nil) then
mappy.setBlock (x, y, blk)
x = x + 1
else
x = w
end
end
y = y + 1
end
infile:close ()
mappy.updateScreen()
end
end
end
test, errormsg = pcall( main )
if not test then
mappy.msgBox("Error ...", errormsg, mappy.MMB_OK, mappy.MMB_ICONEXCLAMATION)
end |
