LÖVE

Code: Select all

local function setBlockOutline (block)
	local d = 1/20
	local m = {} -- map of outlines
	local tiles = block.tiles -- list of tiles as {x1,y1, x2,y2, x3,y3 ...}
	for i = 1, #tiles, 2 do
		local x, y = tiles[i], tiles[i+1]
		if not m[y] then 
			m[y] = {} 
		end
		if not m[y][x] then 
			m[y][x] = true
		end
	end
	local lines = {}
	for y, xs in pairs (m) do
		for x, tabl in pairs (xs) do
			local h1 = m[y-1] and m[y-1][x]
			local v1 = m[y]   and m[y][x-1]
			local h2 = m[y+1] and m[y+1][x]
			local v2 = m[y]   and m[y][x+1]
			
			if not h1 then
				table.insert (lines, {x+d,y+d, x+1-d, y+d})
			end
			if not h2 then
				table.insert (lines, {x+d,y+1-d, x+1-d, y+1-d})
			end			
			if not v1 then
				table.insert (lines, {x+d,y+d, x+d, y+1-d})
			end
			if not v2 then
				table.insert (lines, {x+1-d,y+d, x+1-d, y+1-d})
			end

		end
	end
	block.lines = lines
end

Code: Select all

push-blocks.lua/233. function pb:moveBlock (block, dx, dy)
	block.x = block.x + dx
	block.y = block.y + dy
	eventobbjectpushed(block) -- call function with block
end

Code: Select all

events.lua/125. function eventobbjectpushed(block) -- now we have block here!

Code: Select all

self.gridSize = (math.min(width/(level.w), height/(level.h)))

Code: Select all

self.gridSize = math.floor(math.min(width/(level.w), height/(level.h)))

Code: Select all

local gridSize = pb.gridSize

Code: Select all

function pb:moveBlocks (blocks, dx, dy)
	for i, block in ipairs (blocks) do
		self:moveBlock (block, dx, dy)
		eventobbjectpushed(block)			--trigers events when objects are pushed
	end
end

Code: Select all

function pb:mainMoving (dx, dy,dt)
	local agent = self.agent -- active agent
	if dx > 0 then 
		agent.direction = "right"
	elseif dx < 0 then
		agent.direction = "left"
	end
	local blocks, canMove = self:getBlocksToMove (agent, dx, dy)
	if canMove then
		self:moveBlock (agent, dx, dy) -- agent is block too
		self:moveBlocks (blocks, dx, dy)
--		self:fallBlocks (self.blocks, dx, dy) 
		self:fallBlocks ( ) 
			
	end
	eventagentposition(block,agent)				-- trigger events when on a specific position
end

Code: Select all

if canMove then
	self:moveBlock (agent, dx, dy) -- agent is block too
	event_on_agent_moves (agent)
	self:moveBlocks (blocks, dx, dy)
	event_on_agent_move_blocks (agent, blocks)
	local fallingBlocks = self:fallBlocks () -- must be changed to return all blocks that falling
	event_on_falling_blocks (fallingBlocks)
else
	-- if agent has tried to move, but it was not possible
	event_on_agent_not_moves (agent)
	-- if agent has tried to move blocks, but it was not possible
	event_on_agent_not_move_blocks (agent, blocks)
end

Code: Select all

		--temporary solution till the events are solved with the new game logic
		if nLevel==23 or nLevel==54 or nLevel==57 or nLevel==60 then
			pb = require ('game/logic/push-blocks')			-- load game logic
		else
			pb = require ('game/logic/push-blocksold')			-- load game logic
		end