achievements!

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

game/engine/Dialog.lua

@@ -30,7 +30,8 @@ tiles = engine.Tiles.new(16, 16)
 function _M:simplePopup(title, text, fct, no_leave)
 	local font = core.display.newFont("/data/font/Vera.ttf", 12)
 	local w, h = font:size(text)
-	local d = new(title, w + 8, h + 25, nil, nil, nil, font)
+	local tw, th = font:size(title)
+	local d = new(title, math.max(w, tw) + 8, h + 25, nil, nil, nil, font)
 	if no_leave then
 		d:keyCommands{}
 	else

game/engine/dialogs/GameMenu.lua

@@ -71,6 +71,11 @@ function _M:generateList(actions)
 			local menu = require("engine.dialogs.DisplayResolution").new()
 			game:registerDialog(menu)
 		end },
+		achievements = { "Show Achievements", function()
+			game:unregisterDialog(self)
+			local menu = require("engine.dialogs.ShowAchievements").new()
+			game:registerDialog(menu)
+		end },
 		save = { "Save Game", function() game:saveGame() end },
 		quit = { "Save and Exit", function() game:onQuit() end },
 	}

game/engine/dialogs/ShowAchievements.lua

+-- TE4 - T-Engine 4
+-- Copyright (C) 2009, 2010 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+require "engine.class"
+require "engine.Dialog"
+
+module(..., package.seeall, class.inherit(engine.Dialog))
+
+function _M:init(title)
+	engine.Dialog.init(self, title or "Achievements", game.w * 0.8, game.h * 0.8, nil, nil, nil, core.display.newFont("/data/font/VeraMono.ttf", 12))
+
+	self:generateList()
+
+	self.sel = 1
+	self.scroll = 1
+	self.max = math.floor((self.ih - 5) / self.font_h) - 1
+
+	self:keyCommands({},{
+		MOVE_UP = function() self.sel = util.boundWrap(self.sel - 1, 1, #self.list) self.scroll = util.scroll(self.sel, self.scroll, self.max) end,
+		MOVE_DOWN = function() self.sel = util.boundWrap(self.sel + 1, 1, #self.list) self.scroll = util.scroll(self.sel, self.scroll, self.max) end,
+		EXIT = function() game:unregisterDialog(self) end,
+	})
+	self:mouseZones{
+		{ x=2, y=5, w=350, h=self.font_h*self.max, fct=function(button, x, y, xrel, yrel, tx, ty)
+			self.sel = util.bound(self.scroll + math.floor(ty / self.font_h), 1, #self.list)
+		end },
+	}
+end
+
+function _M:generateList()
+	-- Makes up the list
+	local list = {}
+	local i = 0
+	for id, data in pairs(world.achieved) do
+		local a = world:getAchievementFromId(id)
+		list[#list+1] = { name=a.name,  desc=a.desc, when=data.when, who=data.who, order=a.order }
+		i = i + 1
+	end
+	table.sort(list, function(a, b) return a.order < b.order end)
+	self.list = list
+end
+
+function _M:drawDialog(s)
+	-- Description part
+	self:drawHBorder(s, self.iw / 2, 2, self.ih - 4)
+
+	local h = 2
+	if self.list[self.sel] then
+		local str = ("#GOLD#Achieved on:#LAST# %s\n#GOLD#Achieved by:#LAST# %s\n\n#GOLD#Description:#LAST# %s"):format(self.list[self.sel].when, self.list[self.sel].who, self.list[self.sel].desc)
+		lines = str:splitLines(self.iw / 2 - 10, self.font)
+	else
+		lines = {}
+	end
+	self:drawWBorder(s, self.iw / 2 + self.iw / 6, h - 0.5 * self.font:lineSkip(), self.iw / 6)
+	for i = 1, #lines do
+		s:drawColorString(self.font, lines[i], self.iw / 2 + 5, 2 + h)
+		h = h + self.font:lineSkip()
+	end
+
+	self:drawSelectionList(s, 2, 5, self.font_h, self.list, self.sel, "name", self.scroll, self.max)
+end

game/engine/interface/WorldAchievements.lua

+-- TE4 - T-Engine 4
+-- Copyright (C) 2009, 2010 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+require "engine.class"
+local Dialog = require "engine.Dialog"
+
+--- Handles archievements in a world
+module(..., package.seeall, class.make)
+
+_M.achiev_defs = {}
+
+--- Loads achievements
+function _M:loadDefinition(dir)
+	for i, file in ipairs(fs.list(dir)) do
+		if file:find("%.lua$") then
+			local f, err = loadfile(dir.."/"..file)
+			if not f and err then error(err) end
+			setfenv(f, setmetatable({
+				newAchievement = function(t) self:newAchievement(t) end,
+			}, {__index=_G}))
+			f()
+		end
+	end
+end
+
+--- Make a new achivement with a name and desc
+function _M:newAchievement(t)
+	assert(t.name, "no achivement name")
+	assert(t.desc, "no achivement desc")
+
+	t.id = t.id or t.name
+	t.id = t.id:upper():gsub("[ ]", "_")
+	t.order = #self.achiev_defs+1
+
+	self.achiev_defs[t.id] = t
+	self.achiev_defs[#self.achiev_defs+1] = t
+	print("[ACHIEVEMENT] defined", t.order, t.id)
+end
+
+function _M:init()
+	self.achieved = {}
+end
+
+function _M:getAchievementFromId(id)
+	return self.achiev_defs[id]
+end
+
+--- Gain an achievement
+-- @param id the achivement to gain
+-- @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.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)
+end
+
+--- Format an achievement source
+-- By default just uses the actor's name, you can overload it to do more
+-- @param src the actor who did it
+function _M:achievementWho(src)
+	return src.name
+end

game/modules/tome/class/Actor.lua

@@ -320,6 +320,12 @@ function _M:onTakeHit(value, src)
 			value = 0
 		end
 	end
+
+	-- Achievements
+	if src and src:resolveSource().player and value >= 600 then
+		world:gainAchievement("SIZE_MATTERS", src:resolveSource())
+	end
+
 	return value
 end
 
@@ -356,6 +362,11 @@ function _M:die(src)
 		src:incStamina(src:getTalentLevel(src.T_UNENDING_FRENZY) * 2)
 	end
 
+	-- Achievements
+	if src and src:resolveSource().player and src:resolveSource().life == 1 then
+		world:gainAchievement("THAT_WAS_CLOSE", src:resolveSource())
+	end
+
 	return true
 end
 

game/modules/tome/class/Game.lua

@@ -588,6 +588,7 @@ function _M:setupCommands()
 		EXIT = function()
 			local menu menu = require("engine.dialogs.GameMenu").new{
 				"resume",
+				"achievements",
 				"keybinds",
 				{"Graphic Mode", function() game:unregisterDialog(menu) game:registerDialog(require("mod.dialogs.GraphicMode").new()) end},
 				"resolution",

game/modules/tome/class/Player.lua

@@ -169,6 +169,12 @@ function _M:levelup()
 	if self.unused_stats > 0 then game.log("You have %d stat point(s) to spend. Press G to use them.", self.unused_stats) end
 	if self.unused_talents > 0 then game.log("You have %d talent point(s) to spend. Press G to use them.", self.unused_talents) end
 	if self.unused_talents_types > 0 then game.log("You have %d talent category point(s) to spend. Press G to use them.", self.unused_talents_types) end
+
+	if self.level == 10 then world:gainAchievement("LEVEL_10", self) end
+	if self.level == 20 then world:gainAchievement("LEVEL_20", self) end
+	if self.level == 30 then world:gainAchievement("LEVEL_30", self) end
+	if self.level == 40 then world:gainAchievement("LEVEL_40", self) end
+	if self.level == 50 then world:gainAchievement("LEVEL_50", self) end
 end
 
 --- Tries to get a target from the user

game/modules/tome/class/World.lua

@@ -19,12 +19,14 @@
 
 require "engine.class"
 require "engine.World"
+require "engine.interface.WorldAchievements"
 local Savefile = require "engine.Savefile"
 
-module(..., package.seeall, class.inherit(engine.World))
+module(..., package.seeall, class.inherit(engine.World, engine.interface.WorldAchievements))
 
 function _M:init()
 	engine.World.init(self)
+	engine.interface.WorldAchievements.init(self)
 end
 
 --- Requests the world to save
@@ -34,3 +36,9 @@ function _M:saveWorld()
 	save:close()
 	game.log("Saved world.")
 end
+
+--- Format an achievement source
+-- @param src the actor who did it
+function _M:achievementWho(src)
+	return src.name.." the "..game.player.descriptor.subrace.." "..game.player.descriptor.subclass
+end

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

+-------------- Levels
+newAchievement{
+	name = "Level 10",
+	desc = [[Got a character to level 10.]],
+}
+newAchievement{
+	name = "Level 20",
+	desc = [[Got a character to level 20.]],
+}
+newAchievement{
+	name = "Level 30",
+	desc = [[Got a character to level 30.]],
+}
+newAchievement{
+	name = "Level 40",
+	desc = [[Got a character to level 40.]],
+}
+newAchievement{
+	name = "Level 50",
+	desc = [[Got a character to level 50.]],
+}
+
+--------------- Main objectives
+newAchievement{
+	name = "Vampire crusher",
+	desc = [[Destroyed the Master in its lair of Tol Falas.]],
+}
+newAchievement{
+	name = "A dangerous secret",
+	desc = [[Found the mysterious staff and told Minas Tirith about it.]],
+}
+
+--------------- Misc
+newAchievement{
+	name = "That was close",
+	desc = [[Kill your target while having only 1 life left.]],
+}
+newAchievement{
+	name = "Size matters",
+	desc = [[Do over 600 damage in one attack]],
+}

game/modules/tome/load.lua

@@ -29,10 +29,14 @@ local ActorInventory = require "engine.interface.ActorInventory"
 local ActorLevel = require "engine.interface.ActorLevel"
 local Birther = require "engine.Birther"
 local Store = require "mod.class.Store"
+local WorldAchievements = require "engine.interface.WorldAchievements"
 
 config.settings.tome = config.settings.tome or {}
 config.settings.tome.allow_build = config.settings.tome.allow_build or {}
 
+-- Achievements
+WorldAchievements:loadDefinition("/data/achievements/")
+
 -- Usefull keybinds
 KeyBind:load("move,hotkeys,inventory,actions,debug")