bloody deathhhhhh!!! yeahhhh

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

game/engine/Map.lua

@@ -65,6 +65,7 @@ end
 -- @param pos what kind of entity to set(Map.TERRAIN, Map.OBJECT, Map.ACTOR)
 -- @param entity the entity to set, if null it will return the current one
 function _M:call(x, y, pos, entity)
+	if x < 0 or y < 0 or x >= self.w or y >= self.h then return end
 	if entity then
 		self.map[x + y * self.w][pos] = entity
 		self.changed = true

game/engine/interface/BloodyDeath.lua

+require "engine.class"
+
+--- Interface to add a bloodyDeath() method to actords
+-- When this method is called, the floor or walls around the late actor is covered in blood
+module(..., package.seeall, class.make)
+
+--- Makes the bloody death happen
+function _M:bloodyDeath()
+	if not self.has_blood then return end
+	local color = {255,0,100}
+	local done = 3
+	if type(self.has_blood) == "table" then
+		done = self.has_blood.nb
+		color = self.has_blood.color
+	end
+	for i = 1, done do
+		local x, y = rng.range(self.x - 1, self.x + 1), rng.range(self.y - 1, self.y + 1)
+		if game.level.map(x, y, engine.Map.TERRAIN) then
+			-- Get the grid, clone it and alter its color
+			game.level.map(x, y, engine.Map.TERRAIN, game.level.map(x, y, engine.Map.TERRAIN):clone{color_r=color[1],color_g=color[2],color_b=color[3]})
+		end
+	end
+end

game/modules/tome/class/Actor.lua

@@ -2,8 +2,9 @@ require "engine.class"
 require "engine.Actor"
 require "engine.interface.ActorLife"
 require "engine.interface.ActorLevel"
+require "engine.interface.BloodyDeath"
 
-module(..., package.seeall, class.inherit(engine.Actor, engine.interface.ActorLife, engine.interface.ActorLevel))
+module(..., package.seeall, class.inherit(engine.Actor, engine.interface.ActorLife, engine.interface.ActorLevel, engine.interface.BloodyDeath))
 
 function _M:init(t)
 	engine.Actor.init(self, t)
@@ -29,6 +30,7 @@ function _M:die(src)
 	if src then
 		src:gainExp(self:worthExp())
 	end
+	self:bloodyDeath()
 end
 
 function _M:levelup()

game/modules/tome/data/zones/ancient_ruins/npcs.lua

@@ -7,6 +7,7 @@ return {
 	life = 20,
 	mana = 1000,
 	energy = { mod=0.8 },
+	has_blood = true,
 },
 {
 	name = "baby dragon",
@@ -15,6 +16,7 @@ return {
 	life = 30,
 	mana = 1000,
 	energy = { mod=0.3 },
+	has_blood = true,
 },
 
 }
\ No newline at end of file

game/modules/tome/data/zones/ancient_ruins/zone.lua

@@ -7,7 +7,7 @@ return {
 	level_npcs = {5, 10},
 	generator =  {
 		map = {
-			class= "engine.generator.map.Empty",
+			class= "engine.generator.map.Rooms",
 			floor = "FLOOR",
 			wall = "WALL",
 			up = "UP",