Attached Files |
ice.des [^] (2,680 bytes) 2012-01-16 13:47 [Show Content] [Hide Content]# "Ice" by dk
#
# Serial vault with an ice theme
{{
function init_ice(e)
e.tags('serial_ice')
e.tags('extra')
e.weight('2')
e.kmons('.-_ = polar bear simulacrum / human simulacrum / \
elf simulacrum / death yak w:2 / \
wolf w:20 / yak w:15 / polar bear w:15 / white imp w:20 / \
ufetubus / w:2000 nothing')
e.subst("- = --.")
e.rtile("x = wall_zot_cyan")
e.colour("x = white")
e.colour(".A@G! = blue")
e.ftile(".A@G! = floor_ice")
e.tile("A = dngn_stone_arch")
e.lua_marker("!", fog_machine { pow_max = 15, cloud_type = "freezing vapour",
delay_min = 50, delay_max = 100, size = 8,
start_clouds = 1, excl_rad = -1 } )
end
}}
NAME: serial_ice
DEPTH: D:7-15
CHANCE: 1%
{{
local c = 4 + crawl.random2(3) * crawl.random2(4)
hook("post_place", function()
dgn.place_maps{tag="serial_ice", count=c}
end)
}}
###############################################################################
NAME: serial_ice_a
: init_ice(_G)
MAP
-----
-...-
-.A.-
-...-
-----
ENDMAP
NAME: serial_ice_b
SUBST: ! = ....!
: init_ice(_G)
MAP
-------
-.....-
-.x.x.-
-..!..-
-.x.x.-
-.....-
-------
ENDMAP
NAME: serial_ice_c
SUBST: ! = ....!
: init_ice(_G)
MAP
xxxxxx
xx....x
xx..!..xx
x.......x
xx.....xx
xx...xx
xxx.x-
-@@@-
---
ENDMAP
NAME: serial_ice_d
: init_ice(_G)
MAP
-------
--xxx--
-xx.xx-
-x...x-
-xx.xx-
--x.x--
--@@@--
ENDMAP
NAME: serial_ice_e
SUBST: ! = ___!
: init_ice(_G)
MAP
.-.-.-
-.-.-.
.-.!.-
-.-.-.
ENDMAP
NAME: serial_ice_f
SUBST: w = wwW, . = ...w
: init_ice(_G)
MAP
---------
-.......-
-..www..-
-.wwWww.-
-.wWWWw.-
-.wwWww.-
-..www..-
-.......-
---------
ENDMAP
NAME: serial_ice_g
SUBST: x = .xx
SUBST: Y = .!!
: init_ice(_G)
MAP
-------
--xxx--
-xx.xx-
-x.!.x-
-xx.xx-
--xxx--
-------
ENDMAP
NAME: serial_ice_h
: init_ice(_G)
MAP
-------
--...--
-.....-
-..G..-
-.....-
--...--
-------
ENDMAP
NAME: serial_ice_i
SUBST: W = wW
SUBST: + = Ww.
: init_ice(_G)
MAP
-------....---
---...wwWW++Www----
-...wW+WWW+++WWWWww--
-wwWW+........+++Ww.-
-wWW....A..A....+Ww.-
-wwW+++......+++Ww..-
-....wWW+WWW+Ww....--
---....wW+WWww..--
-----...-----
ENDMAP
NAME: serial_ice_j
SUBST: w = wwW
SUBST: + = Ww.
: init_ice(_G)
MAP
+++++++++++
+++--+++++-+++++---
-+++wwwwwwwwwwwwww-+
-w++++++....ww...w+++
-wwwwWWWW....w...w++++
--www...w..A...www+++
-w+++.........ww.+-+
-ww++++wwwwwwww++--+
-++++-------...+++-
ENDMAP
|