New achievement

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

game/modules/tome/class/UserChatExtension.lua

@@ -35,6 +35,10 @@ function _M:sendObjectLink(o)
 end
 
 function _M:sendActorLink(m)
+	if m == game:getPlayer(true) then
+		world:gainAchievement("SELF_CENTERED", game.player)
+	end
+
 	local rank, rank_color = m:TextRank()
 	local name = rank_color..m.name:removeUIDCodes().."#LAST#"
 	local desc = tostring(m:tooltip(m.x, m.y, game.player) or "???"):removeUIDCodes()

game/modules/tome/class/uiset/Minimalist.lua

@@ -214,6 +214,7 @@ function _M:toggleUI()
 	self.tbuff = {}
 	self.pbuff = {}
 	if game.level then self:setupMinimap(game.level) end
+	game.player.changed = true
 end
 
 function _M:activate()

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

@@ -94,3 +94,9 @@ newAchievement{
 		end
 	end,
 }
+
+newAchievement{
+	name = "Look at me, I'm playing a roguelike!", id = "SELF_CENTERED",
+	show = "name",
+	desc = [[Linking yourself in the ingame chat.]],
+}