dat/Mon-loca.lua

   1 -- NetHack Monk Mon-loca.lua    $NHDT-Date: 1652196007 2022/05/10 15:20:07 $  $NHDT-Branch: NetHack-3.7 $:$NHDT-Revision: 1.1 $
   2 --      Copyright (c) 1989 by Jean-Christophe Collet
   3 --      Copyright (c) 1991-2 by M. Stephenson
   4 -- NetHack may be freely redistributed.  See license for details.
   5 --
   6 des.level_init({ style = "solidfill", fg = " " });
   7
   8 des.level_flags("mazelevel");
   9
  10 --         1         2         3         4         5         6         7
  11 --123456789012345678901234567890123456789012345678901234567890123456789012345
  12 des.map([[
  13              ----------------------------------------------------   --------
  14            ---.................................................-    --.....|
  15          ---...--------........------........................---     ---...|
  16        ---.....-      --.......-    ----..................----         --.--
  17      ---.....----      ---------       --..................--         --..|
  18    ---...-----                       ----.----.....----.....---      --..||
  19 ----..----                       -----..---  |...---  |.......---   --...|
  20 |...---                       ----....---    |.---    |.........-- --...||
  21 |...-                      ----.....---     ----      |..........---....|
  22 |...----                ----......---       |         |...|.......-....||
  23 |......-----          ---.........-         |     -----...|............|
  24 |..........-----   ----...........---       -------......||...........||
  25 |..............-----................---     |............|||..........|
  26 |-S----...............................---   |...........|| |.........||
  27 |.....|..............------.............-----..........||  ||........|
  28 |.....|.............--    ---.........................||    |.......||
  29 |.....|.............-       ---.....................--|     ||......|
  30 |---S--------.......----      --.................----        |.....||
  31 |...........|..........--------..............-----           ||....|
  32 |...........|............................-----                |....|
  33 ------------------------------------------                    ------
  34 ]]);
  35 -- Random Monsters
  36
  37 -- Dungeon Description
  38 des.region(selection.area(00,00,75,20), "lit")
  39 -- Stairs
  40 des.stair("up")
  41 des.stair("down")
  42 -- Non diggable walls
  43 des.non_diggable(selection.area(00,00,75,20))
  44 -- Objects
  45 des.object()
  46 des.object()
  47 des.object()
  48 des.object()
  49 des.object()
  50 des.object()
  51 des.object()
  52 des.object()
  53 des.object()
  54 des.object()
  55 des.object()
  56 des.object()
  57 des.object()
  58 des.object()
  59 des.object()
  60 -- since vegetarian monks shouldn't eat giant corpses, give a chance for
  61 -- Str boost that isn't throttled by exercise restrictions;
  62 -- make a modest effort (Elbereth only) to prevent xorns from eating the tins
  63 local tinplace = selection.negate():filter_mapchar('.')
  64 local tinloc = tinplace:rndcoord(0)
  65 des.object({ id="tin", coord=tinloc, quantity=2, buc="blessed",
  66              montype="spinach" })
  67 des.engraving({ coord=tinloc, type="burn", text="Elbereth" })
  68 -- Random traps
  69 des.trap()
  70 des.trap()
  71 des.trap()
  72 des.trap()
  73 des.trap()
  74 des.trap()
  75 -- Random monsters.
  76 des.monster("earth elemental")
  77 des.monster("earth elemental")
  78 des.monster("earth elemental")
  79 des.monster("earth elemental")
  80 des.monster("earth elemental")
  81 des.monster("earth elemental")
  82 des.monster("earth elemental")
  83 des.monster("earth elemental")
  84 des.monster("earth elemental")
  85 des.monster("earth elemental")
  86 des.monster("earth elemental")
  87 des.monster("earth elemental")
  88 des.monster("earth elemental")
  89 des.monster("earth elemental")
  90 des.monster("xorn")
  91 des.monster("xorn")
  92 des.monster("xorn")
  93 des.monster("xorn")
  94 des.monster("xorn")
  95 des.monster("xorn")
  96 des.monster("xorn")
  97 des.monster("xorn")
  98 des.monster("xorn")