1 files changed, 46 insertions, 0 deletions
diff --git a/crawl-ref/source/lua/trapwalk.lua b/crawl-ref/source/lua/trapwalk.lua
new file mode 100644
index 0000000000..511860353c
--- /dev/null
+++ b/crawl-ref/source/lua/trapwalk.lua
@@ -0,0 +1,46 @@
+---------------------------------------------------------------------------
+-- trapwalk.lua: (requires base.lua)
+-- (Thanks to JPEG <erinacea@hotmail.de> for this script.)
+--
+-- Allows travel to cross traps provided you have sufficient HP to survive the
+-- trap.
+--
+-- To use this, add this line to your init.txt:
+--   lua_file = lua/trapwalk.lua
+-- and add
+--   trapwalk_safe_hp = dart:15, needle:25, spear:50
+-- or similar to your init.txt.
+--
+-- What it does:
+--
+--  * Normally autotravel automatically avoids all traps
+--  * This script allows you to customize at which hp what type of trap is
+--    regarded as safe for autotravel
+--
+-- IMPORTANT: trapwalk options must be defined *after* sourcing trapwalk.lua.
+---------------------------------------------------------------------------
+
+-- Travel will cross certain traps if you have more than safe_hp hp.
+
+function ch_cross_trap(trap)
+
+    if not options.trapwalk_safe_hp then
+	return false
+    end
+
+    local opt = options.trapwalk_safe_hp
+
+    local hpstr
+    _, _, hpstr = string.find(opt, trap .. "%s*:%s*(%d+)")
+
+    if not hpstr then
+	return false
+    end
+
+    local safe_hp = tonumber(hpstr)
+    local hp = you.hp()
+
+    -- finally compare current hp with safe limit
+    return hp >= safe_hp	
+
+end