It convets a text file to a map.
I've don a pacman map with that.
Here is the source:
PRINT "text to map converter by LDDW"
PRINT "In a text file you can have:"
PRINT "a # for a box"
PRINT "a X for a flag zone"
PRINT "a 0 for nothing"
PRINT "size of each box"
PRINT "conseilled is 10"
INPUT s
IF s = 0 THEN s = 10
PRINT "height of each box"
PRINT "conseilled is 15"
INPUT height
IF height = 0 THEN height = 15
PRINT "text input:"
PRINT "conseilled is C:\test.txt"
PRINT "if the text file is C:\pic.txt you enter c:\pic.txt"
INPUT "What text file do you want to use ", tex$
IF tex$ = "" THEN tex$ = "C:\test.txt"
PRINT "map output:"
PRINT "conseilled is C:\map\map.bzw"
PRINT "if the map file is C:\map.bzw you enter c:\map.bzw"
INPUT "What text file do you want to use ", map$
IF map$ = "" THEN map$ = "C:\map\map.bzw"
p = 0
's = 10
OPEN "i", #1, tex$'"c:\test.txt"
WHILE NOT EOF(1)
LINE INPUT #1, a$
q = q + 1
IF LEN(a$) > p THEN p = LEN(a$)
WEND
'p = 800 / p
'q = 800 / q
CLOSE
p = p * s
q = q * s
OPEN "i", #1, tex$ '"c:\test.txt"
OPEN "o", #2, map$ '"c:\map\output.bzw"
CLS
x = p - s
y = -q + s
PRINT #2, " world"
PRINT #2, " name Simple World"
PRINT #2, " size "; p; " "; q
PRINT #2, " END"
WHILE NOT EOF(1)
INPUT #1, a$
FOR e = 1 TO LEN(a$)
aa$ = MID$(a$, e, 1)
IF a$ = "#" THEN a = 1
IF aa$ = "M" THEN
PRINT #2, "box"
PRINT #2, "name Box"
PRINT #2, " position "; x; " "; y; "0"
PRINT #2, " rotation 0"
PRINT #2, " size "; s; " "; s; " "; height; ""
PRINT #2, "end"
PRINT #2,
er = er + 1
END IF
IF aa$ = "X" THEN
PRINT #2, "zone"
PRINT #2, " position "; x; " "; y; "0"
PRINT #2, " rotation 0"
PRINT #2, " size 0.01 0.01 0.01"
PRINT #2, " flag good"
PRINT #2, " flag bad"
PRINT #2, "end"
PRINT #2,
er = er + 1
END IF
x = x - 2 * s
NEXT e
y = y + 2 * s
x = p - s
WEND
CLOSE
PRINT "Conversion finie"
PRINT "conversion finished"
PRINT "your map is on "; map$
PRINT "X", "Y", "XxY", "boxes"
PRINT p, q, p * q, er
SLEEP