--- lib/core/auto.lua.orig	Sun Jul 20 17:10:14 2003
+++ lib/core/auto.lua	Mon Aug 25 21:43:31 2003
@@ -243,6 +243,10 @@
 			local s = find_skill_i(r[1])
 			assert(s ~= -1, "no skill "..r[1])
 			return function(object) if get_skill(%s) >= tonumber(%r.args.min) and get_skill(%s) <= tonumber(%r.args.max) then return TRUE end end
+		elseif r.label == "ability" then
+			local s = find_ability(r[1])
+			assert(s ~= -1, "no ability "..r[1])
+			return function(object) if has_ability(%s) == TRUE then return TRUE end end
 		end
 	end
 end
@@ -721,6 +725,17 @@
 
 			return xml:collect(s)
 	       	end,
+	},
+	["ability"] =
+	{
+		"Check is true if player has the ability",
+		xml:collect([[<ability>Ammo creation</ability>]]),
+		function()
+			local n = input_box("Ability name?", 79)
+			if n == "" then return end
+			if find_ability(n) == -1 then return end
+			return xml:collect("<ability>"..n.."</ability>")
+		end,
 	},
 }
 
--- lib/core/xml.lua.orig	Sun Jul 20 17:10:14 2003
+++ lib/core/xml.lua	Mon Aug 25 21:51:28 2003
@@ -198,6 +198,21 @@
 		xml.write(TERM_WHITE, tostring(t.args.max))
 		xml.write(TERM_WHITE, "\n")
 	    end
+	elseif t.label == "ability" then
+	    local s = t[1]
+	    if not_flag then
+		xml.write(TERM_WHITE, tab)
+		xml.write(ecol, "You do not have the ")
+		xml.write(bcol, s)
+		xml.write(ecol, " ability")
+		xml.write(TERM_WHITE, "\n")
+	    else
+		xml.write(TERM_WHITE, tab)
+		xml.write(ecol, "You have the ")
+		xml.write(bcol, s)
+		xml.write(ecol, " ability")
+		xml.write(TERM_WHITE, "\n")
+	    end
 	elseif t.label == "level" then
 	    if not_flag then
 		xml.write(TERM_WHITE, tab)
--- src/squeltch.c.orig	Sun Jul 20 17:10:16 2003
+++ src/squeltch.c	Sun Aug 24 12:07:16 2003
@@ -154,6 +154,7 @@
 	"class",
 	"level",
 	"skill",
+	"ability",
 	"comment",
 	NULL,
 };