Added a small speak bubble to creatures that can talk

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

game/modules/tome/class/Actor.lua

@@ -535,6 +535,7 @@ function _M:defineDisplayCallback()
 	local f_friend = nil
 	local f_enemy = nil
 	local f_neutral = nil
+	local ichat = nil
 
 	self._mo:displayCallback(function(x, y, w, h, zoom, on_map)
 		-- Tactical info
@@ -595,6 +596,16 @@ function _M:defineDisplayCallback()
 			end
 		end
 
+		-- Chat
+		if game.level and self.can_talk then
+			local map = game.level.map
+			if not ichat then
+				ichat = game.level.map.tilesTactic:get(nil, 0,0,0, 0,0,0, "speak_bubble.png")
+			end
+
+			ichat:toScreen(x + w - 8, y, 8, 8)
+		end
+
 		local e
 		for i = 1, #ps do
 			e = ps[i]