fd55d9118e
Game is playable, and should compile on linux and Windows. Assumes you have a lua 5.3 library available. Removes level compiler and associated files. Replaces special level des-files with lua scripts. Exposes some NetHack internals to lua: - des-table with commands to create special levels - nh-table with NetHack core commands - nhc-table with some constants - u-table with some player-specific data (u-struct) - selection userdata Adds some rudimentary tests. Adds new extended command #wizloadlua to run a specific script, and #wizloaddes to run a specific level-creation script. nhlib.lua is loaded for every lua script. Download and untar lua: mkdir lib cd lib curl -R -O http://www.lua.org/ftp/lua-5.3.5.tar.gz tar zxf lua-5.3.5.tar.gz Then make nethack normally.
138 lines
5.1 KiB
Lua
138 lines
5.1 KiB
Lua
-- NetHack 3.6 mines.des $NHDT-Date: 1548631704 2019/01/27 23:28:24 $ $NHDT-Branch: NetHack-3.6.2-beta01 $:$NHDT-Revision: 1.30 $
|
|
-- Copyright (c) 1989-95 by Jean-Christophe Collet
|
|
-- Copyright (c) 1991-95 by M. Stephenson
|
|
-- NetHack may be freely redistributed. See license for details.
|
|
--
|
|
-- "Grotto Town" by Kelly Bailey
|
|
|
|
des.level_init({ style = "solidfill", fg = " " });
|
|
|
|
des.level_flags("mazelevel");
|
|
|
|
des.map([[
|
|
----- ---------
|
|
|...--- ------.......-- ------- ---------------
|
|
|.....----.........--..| |.....| ------- |.............|
|
|
--..-....-.----------..| |.....| |.....| --+---+--.----+-
|
|
--.--.....---- ---- |.....| ------ --....---- |..-...--.-.+..|
|
|
---.........---- ----- ---+--- |..+.| ---..-..----..---+-..---..|
|
|
----.-....|..----...-- |.| |..|.| ---+-.....-+--........--+-
|
|
-----..|....-.....---- |.| |..|.------......--................|
|
|
------ |..|.............---.-- ----.+..|-.......--..--------+--..--
|
|
|....| --......---...........----- |.|..|-...{....---|.........|..--
|
|
|....| |........-...-...........----.|..|--.......| |.........|...|
|
|
---+--------....-------...---......--.-------....---- -----------...|
|
|
------.---...--...--..-..--...-..---...|.--..-...-....------- |.......--
|
|
|..|-.........-..---..-..---.....--....|........---...-|....| |.-------
|
|
|..+...............-+---+-----..--..........--....--...+....| |.|...S.
|
|
-----.....{....----...............-...........--...-...-|....| |.|...|
|
|
|..............-- --+--.---------.........--..-........------- |.--+-------
|
|
-+-----.........| |...|.|....| --.......------...|....---------.....|....|
|
|
|...| --..------- |...|.+....| ---...--- --..|...--......-...{..+..-+|
|
|
|...| ---- ------|....| ----- -----.....----........|..|.|
|
|
----- ------ ------- ---------------
|
|
]]);
|
|
|
|
if math.random(0, 99) < 75 then
|
|
if math.random(0, 99) < 50 then
|
|
des.terrain(selection.line(25,8, 25,9), "|")
|
|
else
|
|
des.terrain(selection.line(16,13, 17,13), "-")
|
|
end
|
|
end
|
|
if math.random(0, 99) < 75 then
|
|
if math.random(0, 99) < 50 then
|
|
des.terrain(selection.line(36,10, 36,11), "|")
|
|
else
|
|
des.terrain(selection.line(32,15, 33,15), "-")
|
|
end
|
|
end
|
|
if math.random(0, 99) < 50 then
|
|
des.terrain(selection.area(21,4, 22,5), ".")
|
|
des.terrain(selection.line(14,9, 14,10), "|")
|
|
end
|
|
if math.random(0, 99) < 50 then
|
|
des.terrain({46,13}, "|")
|
|
des.terrain(selection.line(43,5, 47,5), "-")
|
|
des.terrain(selection.line(42,6, 46,6), ".")
|
|
des.terrain(selection.line(46,7, 47,7), ".")
|
|
end
|
|
if math.random(0,99) < 50 then
|
|
des.terrain(selection.area(69,11, 71,11), "-")
|
|
end
|
|
|
|
des.stair("up", 01,01)
|
|
des.stair("down", 46,03)
|
|
des.feature("fountain", 50,09)
|
|
des.feature("fountain", 10,15)
|
|
des.feature("fountain", 66,18)
|
|
|
|
des.region(selection.area(00,00,74,20),"unlit")
|
|
des.region(selection.area(09,13,11,17),"lit")
|
|
des.region(selection.area(08,14,12,16),"lit")
|
|
des.region(selection.area(49,07,51,11),"lit")
|
|
des.region(selection.area(48,08,52,10),"lit")
|
|
des.region(selection.area(64,17,68,19),"lit")
|
|
des.region(selection.area(37,13,39,17),"lit")
|
|
des.region(selection.area(36,14,40,17),"lit")
|
|
des.region(selection.area(59,02,72,10),"lit")
|
|
|
|
des.monster({ id = "watchman", peaceful = 1 })
|
|
des.monster({ id = "watchman", peaceful = 1 })
|
|
des.monster({ id = "watchman", peaceful = 1 })
|
|
des.monster({ id = "watchman", peaceful = 1 })
|
|
des.monster({ id = "watch captain", peaceful = 1 })
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome")
|
|
des.monster("gnome lord")
|
|
des.monster("gnome lord")
|
|
des.monster("dwarf")
|
|
des.monster("dwarf")
|
|
des.monster("dwarf")
|
|
|
|
-- The shops
|
|
des.region({ region={25,17, 28,19}, lit=1, type="candle shop", prefilled=0 })
|
|
des.door("closed",24,18)
|
|
des.region({ region={59, 9, 67,10}, lit=1, type="shop", prefilled=0 })
|
|
des.door("closed",66,08)
|
|
des.region({ region={57,13, 60,15}, lit=1, type="tool shop", prefilled=0 })
|
|
des.door("closed",56,14)
|
|
des.region({ region={05,09, 08,10}, lit=1, type="food shop", prefilled=0 })
|
|
des.door("closed",07,11)
|
|
-- Gnome homes
|
|
des.door("closed",04,14)
|
|
des.door("locked",01,17)
|
|
des.monster("gnomish wizard", 02, 19)
|
|
des.door("locked",20,16)
|
|
des.monster("G", 20, 18)
|
|
des.door("random",21,14)
|
|
des.door("random",25,14)
|
|
des.door("random",42,08)
|
|
des.door("locked",40,05)
|
|
des.monster("G", 38, 07)
|
|
des.door("random",59,03)
|
|
des.door("random",58,06)
|
|
des.door("random",63,03)
|
|
des.door("random",63,05)
|
|
des.door("locked",71,03)
|
|
des.door("locked",71,06)
|
|
des.door("closed",69,04)
|
|
des.door("closed",67,16)
|
|
des.monster("gnomish wizard", 67, 14)
|
|
des.object("=", 70, 14)
|
|
des.door("locked",69,18)
|
|
des.monster("gnome lord", 71, 19)
|
|
des.door("locked",73,18)
|
|
des.object("chest", 73, 19)
|
|
des.door("locked",50,06)
|
|
des.object("(", 50, 03)
|
|
des.object({ id = "statue", x=38, y=15, montype="gnome king", historic=1 })
|
|
-- Temple
|
|
des.region({ region={29,02, 33,04}, lit=1, type="temple" })
|
|
des.door("closed",31,05)
|
|
des.altar({ x=31,y=03, align=align[1], type="shrine" })
|