:: StoryTitle Harlowe: Moving through Dungeons :: User Style [stylesheet] tw-include[type="startup"], tw-hook[name="workarea"] { display: none; } tw-hook[name="map"] { font-family: monospace; line-height: 1.75; font-size: 16pt; } :: Start |map>[(display: "Map")] :: 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 + "
") ] ]\ $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]] ] } :: Startup [startup] { (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) } :: Exit You have exited the map.