LÖVE

Code: Select all

local player = {x=5,y=5,h=200,
			dir=0,rot=0,speed=0,moveSpeed=4,rotSpeed=60}

local map = {}
local miniMapScale = 12
local mapScale  = 512
local screenWidth = 800;
local screenHeight = 600
local stripWidth = 2;
local stripHeight = 4;
local fov = 60 * math.pi / 180;
local numRays = math.ceil(screenWidth / stripWidth);
local fovHalf = fov / 2;
local viewDist = (screenWidth/2) / math.tan((fov / 2));
local twoPI = math.pi * 2;
local fy0 = screenHeight * 0.6

local function pdist(y)
	return viewDist*player.h/(y-screenHeight*0.5)
end

local function celda(x,y)
	fx =math.floor(x)
	fy=math.floor(y)
	if fx>10 or fy>10 then return 0 end
	if fx<0 or fy<0 then return 0 end
	return map[fx][fy]
end

local function drawHero()
	love.graphics.setColor( 255,255,0)
	love.graphics.rectangle( "fill", 
					player.x * miniMapScale-2,
					player.y * miniMapScale-2,
					miniMapScale*0.5,miniMapScale*0.5
				)
	love.graphics.line(player.x * miniMapScale, player.y * miniMapScale,
				(player.x + math.cos(player.rot) * 4) * miniMapScale,
				(player.y + math.sin(player.rot) * 4) * miniMapScale
				);

end

local function drawMiniMap()
	local wall 
	for x=0,10 do
		for y=0,10 do
			wall=celda(x,y)	
			if (wall > 0)  then
				love.graphics.setColor( wall,wall,wall)
				love.graphics.rectangle( "fill", 
					x * miniMapScale,
					y * miniMapScale,
					miniMapScale,miniMapScale
				)
			end
		end
	end
end

function love.load()
	--valor = 1
	for i=0,10 do
		map[i]={}
		for j=0,10 do
			valor =math.random(0,255)
			map[i][j]= valor
			--valor = 1-valor
		end 
	end

	-- for i=0,10 do
		-- for j=0,10 do
			-- print(i,j,celda(i,j))
		-- end
	-- end
	
end

local function castVerticalFloorRay(x,angulo)
	for y=fy0,screenHeight,stripHeight do
		local coseno = math.cos(angulo-player.rot)
		if coseno ==0 then coseno=0.0001 end
		local dist = (pdist(y)/coseno)/mapScale
		local px = player.x + math.cos(angulo) * dist
		local py = player.y + math.sin(angulo) * dist
		local piso = celda(px,py)		
		if piso>0 then
			love.graphics.setColor( piso,piso,piso)
				love.graphics.rectangle( "fill", 
					x * stripWidth,
					y ,
					stripWidth,1
				)
		end
	end
end

local function floorCasting()
	for i=0,numRays-1 do
		local rayScreenPos = (-numRays/2 + i) * stripWidth;
		local rayViewDist = math.sqrt(rayScreenPos*rayScreenPos + viewDist*viewDist);
		local rayAngle = math.asin(rayScreenPos / rayViewDist);
		castVerticalFloorRay(i,player.rot+rayAngle)
	end
end


function love.draw()
	floorCasting()
	drawMiniMap()
	drawHero()
end

function love.keypressed(key)
   if key == "up" then
      player.speed = 1;
	  return;
   end
   if key == "down" then
      player.speed = -1;
	  return;
   end
   if key == "left" then
      player.dir = -1;
	  return;
   end
   if key == "right" then
      player.dir = 1;
	  return;
   end
end

function love.keyreleased(key)
   if key == "up" then
      player.speed = 0;
	  return
   end
   if key == "down" then
      player.speed = 0;
	  return
   end
   if key == "left" then
      player.dir = 0;
	  return
   end
   if key == "right" then
      player.dir = 0;
	  return
   end
end



local function isBlocking(x,y)
	return false
end

local function move(dt)
    local moveStep = player.speed * player.moveSpeed*dt;	-- player will move this far along the current direction vector
	player.rot = player.rot + player.dir * dt*player.rotSpeed * 3.1415169 / 180; -- add rotation if player is rotating (player.dir != 0)
	local newX = player.x + math.cos(player.rot) * moveStep;	-- calculate new player position with simple trigonometry
	
    if not (isBlocking(newX, player.y)) then
        player.x = newX; 
    end
	
	local newY = player.y + math.sin(player.rot) * moveStep;
	if not (isBlocking(player.x, newY)) then
           player.y = newY;
    end
end

function love.update(dt)
	move(dt)
end