more achievements

git-svn-id: http://svn.net-core.org/repos/t-engine4@494 51575b47-30f0-44d4-a5cc-537603b46e54

game/engine/interface/WorldAchievements.lua

@@ -66,7 +66,9 @@ end
 -- @param src who did it
 function _M:gainAchievement(id, src)
 	if not self.achiev_defs[id] then error("Unknown achievement "..id) return end
+	if self.achiev_defs[id].can_gain and not self.achiev_defs[id].can_gain(src) then return end
 	if self.achieved[id] then return end
+
 	self.achieved[id] = {turn=game.turn, who=self:achievementWho(src), when=os.date("%Y-%m-%d %H:%M:%S")}
 	game.log("#LIGHT_GREEN#New Achievement: %s!", self.achiev_defs[id].name)
 	Dialog:simplePopup("New Achievement: #LIGHT_GREEN#"..self.achiev_defs[id].name, self.achiev_defs[id].desc)

game/engine/utils.lua

@@ -62,6 +62,12 @@ function table.mergeAdd(dst, src, deep)
 	end
 end
 
+function table.reverse(t)
+	local tt = {}
+	for i, e in ipairs(t) do tt[e] = i end
+	return tt
+end
+
 function string.ordinal(number)
 	local suffix = "th"
 	number = tonumber(number)

game/modules/tome/data/achievements/all.lua

@@ -39,3 +39,11 @@ newAchievement{
 	name = "Size matters",
 	desc = [[Do over 600 damage in one attack]],
 }
+newAchievement{
+	name = "Exterminator",
+	desc = [[Killed 1000 creatures]],
+	can_gain = function(who)
+		who.nb_kill_creatures = (who.nb_kill_creatures or 0) + 1
+		if who.nb_kill_creatures >= 1000 then return true end
+	end
+}

game/modules/tome/data/achievements/talents.lua

+newAchievement{
+	name = "Elementalist",
+	desc = [[Maxed all elemental spells.]],
+	can_gain = function(who)
+		local types = table.reverse{"spell/fire", "spell/earth", "spell/water", "spell/air"}
+		local nb = 0
+		for id, _ in pairs(who.talents) do
+			local t = who:getTalentFromId(id)
+			if types[t.type[1]] then nb = nb + who:getTalentLevelRaw(t) end
+		end
+		return nb >= 4 * 4 * 5
+	end
+}
+
+newAchievement{
+	name = "Warper",
+	desc = [[Maxed all arcane, conveyance, divination and temporal spells.]],
+	can_gain = function(who)
+		local types = table.reverse{"spell/arcane", "spell/temporal", "spell/conveyance", "spell/divination"}
+		local nb = 0
+		for id, _ in pairs(who.talents) do
+			local t = who:getTalentFromId(id)
+			if types[t.type[1]] then nb = nb + who:getTalentLevelRaw(t) end
+		end
+		return nb >= 4 * 4 * 5
+	end
+}

game/modules/tome/data/chats/minas-tirith-elder.lua

@@ -43,6 +43,7 @@ But do not let me trouble you, you brought important news and you are lucky to b
 			local D = require "engine.Dialog"
 			D:simplePopup("Winner!", "#VIOLET#Congratulations you have won the game! At least for now... The quest has only started!")
 
+			world:gainAchievement("A_DANGEROUS_SECRET", player)
 --			game:setAllowedBuild("evil_race", true)
 		end},
 	}

game/modules/tome/data/zones/tol-falas/npcs.lua

@@ -75,6 +75,7 @@ newEntity{ define_as = "THE_MASTER",
 	ai = "dumb_talented_simple", ai_state = { talent_in=1, },
 
 	on_die = function(self, who)
+		world:gainAchievement("VAMPIRE_CRUSHER", who:resolveSource())
 		who:resolveSource():setQuestStatus("tol-falas", engine.Quest.DONE)
 	end,
 }

game/modules/tome/dialogs/LevelupTalentsDialog.lua

@@ -57,7 +57,13 @@ function _M:init(actor, on_finish)
 		MOVE_LEFT = function() self:learn(false) self.changed = true end,
 		MOVE_RIGHT = function() self:learn(true) self.changed = true end,
 		ACCEPT = "EXIT",
-		EXIT = function() game:unregisterDialog(self) if on_finish then on_finish() end end,
+		EXIT = function() game:unregisterDialog(self)
+			-- Achievements checks
+			world:gainAchievement("ELEMENTALIST", self)
+			world:gainAchievement("WARPER", self)
+
+			if on_finish then on_finish() end
+		end,
 	})
 	self:mouseZones{
 		{ x=2, y=45, w=350, h=self.font_h*self.max, fct=function(button, x, y, xrel, yrel, tx, ty)