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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65 |
-- Export Flash XML
-- Mdified the Export to Actionscript file
function main ()
if mappy.msgBox ("Export XML", "This will export the current layer as an XML file (anims are replaced with block 0)\n\nRun the script (you will be prompted for a filename to save as)?", mappy.MMB_OKCANCEL, mappy.MMB_ICONQUESTION) == mappy.MMB_OK then
local w = mappy.getValue(mappy.MAPWIDTH)
local h = mappy.getValue(mappy.MAPHEIGHT)
if (w == 0) then
mappy.msgBox ("Export Flash actionscript", "You need to load or create a map first", mappy.MMB_OK, mappy.MMB_ICONINFO)
else
local isok,asname = mappy.fileRequester (".", "Flash actionscript (*.xml)", "*.xml", mappy.MMB_SAVE)
if isok == mappy.MMB_OK then
if (not (string.sub (string.lower (asname), -3) == ".xml")) then
asname = asname .. ".xml"
end
local isok,adjust = mappy.doDialogue ("Export XML", "Adjust exported values by:", "0", mappy.MMB_DIALOGUE1)
if isok == mappy.MMB_OK then
adjust = tonumber (adjust)
outas = io.open (asname, "w")
outas:write ("<map>\n");
local y = 0
while y < h do
outas:write ("<tilerow>\n")
local x = 0
while x < w do
local mapval = mappy.getBlockValue (mappy.getBlock (x, y), mappy.BLKBG)
mapval = mapval + adjust
if mapval < 0 then
mapval = 0
end
outas:write ("<tilecol>")
outas:write (tostring(mapval))
if x < (w-1) then
outas:write ("</tilecol>")
else
if y < (h-1) then
outas:write ("</tilecol>\n</tilerow>\n")
else
outas:write ("</tilecol>\n</tilerow>\n</map>\n")
end
end
x = x + 1
end
y = y + 1
end
outas:write ("\n")
outas:close ()
end
end
end
end
end
test, errormsg = pcall( main )
if not test then
mappy.msgBox("Error ...", errormsg, mappy.MMB_OK, mappy.MMB_ICONEXCLAMATION)
end |
