AI is slow .. really too slow

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

game/engine/LogDisplay.lua

@@ -26,7 +26,7 @@ end
 function _M:call(str, ...)
 	local lines = str:format(...):splitLines(self.w - 4, self.font)
 	for i = 1, #lines do
-		print("[LOG]", lines[i])
+--		print("[LOG]", lines[i])
 		table.insert(self.log, 1, lines[i])
 	end
 	while #self.log > self.max do

game/engine/ai/simple.lua

@@ -5,39 +5,41 @@ newAI("move_simple", function(self)
 	if self.ai_target.actor then
 		local l = line.new(self.x, self.y, self.ai_target.actor.x, self.ai_target.actor.y)
 		local lx, ly = l()
-		self:move(lx, ly)
+		if lx and ly then
+			self:move(lx, ly)
+		end
 	elseif self.ai_target.x and self.ai_target.y then
 		local l = line.new(self.x, self.y, self.ai_target.x, self.ai_target.y)
 		local lx, ly = l()
-		self:move(lx, ly)
+		if lx and ly then
+			self:move(lx, ly)
+		end
 	end
 end)
 
 newAI("target_simple", function(self)
 	-- Find new target every 10 +0speed turns or when no target exist
-	if self.ai_state.actor and game.turn % 100 ~= 0 then return end
+	if self.ai_target.actor then return end
 
 	-- Find closer ennemy and target it
 	self.ai_target.actor = nil
-	core.fov.calc_circle(self.x, self.y, self.sight, function(self, lx, ly)
-		if game.level.map:checkEntity(lx, ly, Map.TERRAIN, "block_sight") then return true end
-		if not self:canMove(lx, ly, true) then return end
-
-		-- get and test the actor, if we are neutral or friendly, ignore it
-		local act = game.level.map(lx, ly, Map.ACTOR)
-		if not act then return end
-		if self:reactionToward(act) >= 0 then return end
-
-		-- If it is closer to the current target, target it
-		if not self.ai_target.actor then
-			self.ai_target.actor = act
-		elseif core.fov.distance(self.x, self.y, act.x, act.y) < core.fov.distance(self.x, self.y, self.ai_target.actor.x, self.ai_target.actor.y) then
-			self.ai_target.actor = act
+	for uid, act in pairs(game.level.entities) do
+		if act ~= self and self:reactionToward(act) < 0 then
+--		if game.level.map:checkEntity(lx, ly, Map.TERRAIN, "block_sight") then return true end
+--		if not self:canMove(lx, ly, true) then return end
+			-- If it is closer to the current target, target it
+			if not self.ai_target.actor then
+				self.ai_target.actor = act
+			elseif core.fov.distance(self.x, self.y, act.x, act.y) < core.fov.distance(self.x, self.y, self.ai_target.actor.x, self.ai_target.actor.y) then
+				self.ai_target.actor = act
+			end
 		end
-	end, function()end, self)
+	end
+--print("target=>", self.ai_target.actor)
 end)
 
 newAI("simple", function(self)
 	self:runAI("target_simple")
+--	self.ai_target.actor = game.player
 	self:runAI("move_simple")
 end)

game/modules/tome/class/Game.lua

@@ -32,6 +32,8 @@ local LevelupTalentsDialog = require "mod.dialogs.LevelupTalentsDialog"
 
 module(..., package.seeall, class.inherit(engine.GameTurnBased))
 
+collectgarbage("stop")
+
 function _M:init()
 	engine.GameTurnBased.init(self, engine.KeyCommand.new(), 1000, 100)
 
@@ -90,7 +92,6 @@ function _M:newGame()
 	self.zone = Zone.new("ancient_ruins")
 	self.player = Player.new{
 		name=self.player_name, max_life=10000, display='@', color_r=230, color_g=230, color_b=230,
-		level = 10,
 	}
 	self:changeLevel(1)
 end

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

 return {
 	name = "ancient ruins",
 	max_level = 5,
-	width = 40, height = 30,
+	width = 100, height = 100,
 --	all_remembered = true,
 	all_lited = true,
 --	persistant = true,
@@ -16,7 +16,7 @@ return {
 		},
 		actor = {
 			class = "engine.generator.actor.Random",
-			nb_npc = {40, 40},
+			nb_npc = {100, 100},
 			level_range = {5, 10},
 			adjust_level_to_player = {-2, 2},
 		},