|map>[(display: "Map")](set: $map to "")\
|workarea>[
(for: each _y, ...(range: 1, $dungeon's length))[
(for: each _x, ...(range: 1, $dungeon's (_y)'s length))[
(if: _x is $positionX and _y is $positionY)[
(set: $map to it + "P ")
]
(else-if: $dungeon's (_y)'s (_x) is 0)[
(set: $map to it + "# ")
]
(else-if: $dungeon's (_y)'s (_x) is 1)[
(set: $map to it + ". ")
]
(else-if: $dungeon's (_y)'s (_x) is 2)[
(set: $map to it + "E ")
]
]
(set: $map to it + " <br>")
]
]\
$map
{
(set: $seperator to "")\
(set: _north to $dungeon's ($positionY - 1)'s ($positionX))
(set: _east to $dungeon's ($positionY)'s ($positionX + 1))
(set: _south to $dungeon's ($positionY + 1)'s ($positionX))
(set: _west to $dungeon's ($positionY)'s ($positionX - 1))
(if: _north is 1)[
$seperator
(link: "North")[
(set: $positionY to it - 1)
(replace: ?map)[(display: "Map")]
]
(set: $seperator to " | ")
]
(else-if: _north is 2)[
$seperator[[Exit]]
(set: $seperator to " | ")
]
(if: _east is 1)[
$seperator
(link: "East")[
(set: $positionX to it + 1)
(replace: ?map)[(display: "Map")]
]
(set: $seperator to " | ")
]
(else-if: _east is 2)[
$seperator[[Exit]]
(set: $seperator to " | ")
]
(if: _south is 1)[
$seperator
(link: "South")[
(set: $positionY to it + 1)
(replace: ?map)[(display: "Map")]
]
(set: $seperator to " | ")
]
(else-if: _south is 2)[
$seperator[[Exit]]
(set: $seperator to " | ")
]
(if: _west is 1)[
$seperator
(link: "West")[
(set: $positionX to it - 1)
(replace: ?map)[(display: "Map")]
]
]
(else-if: _west is 2)[
$seperator[[Exit]]
]
}{
(set: $dungeon to (array:
(a: 0,0,0,0,0,0,0,0,0,0,0),
(a: 0,1,1,1,0,1,1,1,1,1,0),
(a: 0,0,0,1,0,0,0,0,0,1,0),
(a: 0,1,0,1,1,1,1,1,0,1,0),
(a: 0,1,0,0,0,0,0,1,0,1,0),
(a: 0,1,1,1,1,1,1,1,0,1,0),
(a: 0,0,0,0,0,0,0,1,0,1,0),
(a: 0,1,0,1,1,1,1,1,1,1,0),
(a: 0,1,0,1,0,0,0,1,0,0,0),
(a: 0,1,1,1,0,1,1,1,1,2,0),
(a: 0,0,0,0,0,0,0,0,0,0,0)
)
)
(set: $positionX to 2)
(set: $positionY to 2)
}