1 files changed, 90 insertions, 0 deletions
diff --git a/lib/scpt/bounty.lua b/lib/scpt/bounty.lua
new file mode 100644
index 00000000..94c15598
--- /dev/null
+++ b/lib/scpt/bounty.lua
@@ -0,0 +1,90 @@
+-- The bounty quest! bring back corpses to increase your monster lore skill
+
+add_quest
+{
+	["global"] =    "BOUNTY_QUEST",
+	["name"] =      "Bounty quest",
+	["desc"] =      function()
+		if quest(BOUNTY_QUEST).status == QUEST_STATUS_TAKEN then
+			print_hook("#####yBounty quest!\n")
+			print_hook("You must bring back "..monster_race_desc(bounty_quest_monster, 0).." corpse to the beastmaster.\n")
+			print_hook("\n")
+		end
+	end,
+	["level"] =     -1,
+	["data"] =      {
+			["bounty_quest_monster"] = 0,
+	},
+	["hooks"] =     {
+		-- Start the game without the quest, need to request it
+		[HOOK_BIRTH_OBJECTS] = function()
+			quest(BOUNTY_QUEST).status = QUEST_STATUS_UNTAKEN
+		end,
+	},
+}
+
+add_building_action
+{
+	-- Index is used in ba_info.txt to set the actions
+	["index"] =     54,
+	["action"] =    function()
+		if quest(BOUNTY_QUEST).status == QUEST_STATUS_UNTAKEN then
+			quest(BOUNTY_QUEST).status = QUEST_STATUS_TAKEN
+			bounty_quest_monster = get_new_bounty_monster(3 + ((player.lev * 3) / 2))
+
+			msg_print("You must bring me back "..monster_race_desc(bounty_quest_monster, 0).." corpse.")
+		else
+			msg_print("You still must bring me back "..monster_race_desc(bounty_quest_monster, 0).." corpse.")
+		end
+	end
+}
+
+add_building_action
+{
+	-- Index is used in ba_info.txt to set the actions
+	["index"] =     55,
+	["action"] =    function()
+		if quest(BOUNTY_QUEST).status == QUEST_STATUS_TAKEN then
+			local ret, item
+	
+			-- Ask for an item
+			ret, item = get_item("What corpse to return?",
+					     "You have no corpse to return.",
+					     bor(USE_INVEN),
+					     function (obj)
+					     	if (obj.tval == TV_CORPSE) and (obj.pval2 == bounty_quest_monster) then
+							return TRUE
+						end
+						return FALSE
+					     end
+			)
+
+			-- Ok we got the corpse!
+			if ret == TRUE then
+				-- Take the corpse from the inventory
+				inven_item_increase(item, -1)
+				inven_item_optimize(item)
+
+				msg_print("Ah well done adventurer!")
+				msg_print("As a reward I will teach you a bit of monster lore.")
+
+				if skill(SKILL_LORE).mod == 0 then
+					skill(SKILL_LORE).mod = 900
+					skill(SKILL_LORE).dev = TRUE
+				end
+				skill(SKILL_LORE).value = skill(SKILL_LORE).value + skill(SKILL_LORE).mod
+				if skill(SKILL_PRESERVATION).mod == 0 then
+					skill(SKILL_PRESERVATION).value = 800
+					skill(SKILL_PRESERVATION).mod = 800
+					skill(SKILL_PRESERVATION).dev = TRUE
+					msg_print("I see you don't know the corpse preservation skill, I shall teach you it too.")
+				end
+
+				quest(BOUNTY_QUEST).status = QUEST_STATUS_UNTAKEN
+				bounty_quest_monster = 0
+			end
+		else
+			msg_print("You do not have any bounty quest yet.")
+		end
+	end
+}