More variations for bigrm-1

This commit is contained in:
Pasi Kallinen
2015-05-02 23:04:13 +03:00
parent 5d116a892a
commit 862c78530b

View File

@@ -30,6 +30,32 @@ MAP
|.........................................................................|
---------------------------------------------------------------------------
ENDMAP
$terrains = TERRAIN:{'-', 'F', 'L', 'T', 'C'}
SHUFFLE:$terrains
[50%]: SWITCH [ 4 ] {
CASE 0:
TERRAIN:line (10,8),(65, 8), $terrains[0]
BREAK
CASE 1:
TERRAIN:line (15,4),(15, 13), $terrains[0]
TERRAIN:line (59,4),(59, 13), $terrains[0]
BREAK
CASE 2:
TERRAIN:line (10,8),(38, 8), $terrains[0]
TERRAIN:line (37,8),(65, 8), $terrains[0]
TERRAIN:line (37,3),(37, 8), $terrains[0]
TERRAIN:line (37,8),(37,14), $terrains[0]
BREAK
CASE 3:
TERRAIN:rect (4,4,70,13), $terrains[0]
TERRAIN:line (25, 4),(50, 4), '.'
TERRAIN:line (25,13),(50,13), '.'
BREAK
DEFAULT:
}
# Dungeon Description
REGION:(01,01,73,16),lit,"ordinary"
# Stairs