Disk/mem/redworks/programs/MineDwarf

shell.run('mem/redworks/apis/redworks')

--Sprites
psprite = {}
psprite.up = '^'
psprite.down = 'V'
psprite.right = '>'
psprite.left = '<'
psprite.select = '-->'

--Functions

player = entity.new('Player', 5, 5, psprite.up, true, true)
entity.addvar(player, 'num', 1)
title = entity.new('title', 1, 1, 'MineDwarf: Beginnings   Press Backspace to Exit', true, false)
entity.setabs(title, true)
debug = entity.new('Debug', 2, 2, ' ', true, false)
entity.setabs(debug, true)

commands = entity.new('Command Bar', 1, window.h, 'E: Interact', true, false)
entity.setabs(commands, true)

wall = {}
wallnum = 1

function wall.new(x,y)
	wall[wallnum] = entity.new('Wall', x, y, '=', true, true )
	wallnum = wallnum+1
end

room = {}

function room.new(x1,y1,x2,y2)
	write('newroom')
	i=0
	while i < x2-x1+1 do
		wall.new(x1+i,y1)
		i= i+1
	end
	i=0
	while i < x2-x1+1 do
		wall.new(x1+i,y2)
		i= i+1
	end
	i=0
	while i < y2-y1+1 do
		if i ~= 4 then
			wall.new(x1, y1+i)
		end
		i= i+1
	end
	i=0
	while i < y2-y1+1 do
		wall.new(x2, y1+i)
		i= i+1
	end
end

room.new(7,7,15,15)

--[[||||| KEY EXECUTION |||||]]--
function exec.key(k)
	--Up
	if k == 17 then
		entity.setpos( player, 0, -1, true )
		entity.setvar(player, 'num', entity.getvar(player, 'num') + 1 )
		entity.setchar( player, psprite.up )
	end
	--Down
	if k == 31 then
		entity.setpos( player, 0, 1, true )
		entity.setvar(player, 'num', entity.getvar(player, 'num') + 1 )
		entity.setchar( player, psprite.down )
	end
	--Left
	if k == 30 then
		entity.setpos( player, -1, 0, true )
		entity.setvar(player, 'num', entity.getvar(player, 'num') + 1 )
		entity.setchar( player, psprite.left )
	end
	--Right
	if k == 32 then
		entity.setpos( player, 1, 0, true )
		entity.setvar(player, 'num', entity.getvar(player, 'num') + 1 )
		entity.setchar( player, psprite.right )
	end

	if k == 18 then
		check = false
		local x = entity.getposx(player)
		local y = entity.getposy(player)
		local facing = entity.getvar(player, 'Character')
		if facing == psprite.up then
			check = get.locphys(x, y-1)
		elseif facing == psprite.down then
			check = get.locphys(x, y+1)
		elseif facing == psprite.right then
			check = get.locphys(x+1, y)
		elseif facing == psprite.left then
			check = get.locphys(x-1, y)
		end

		if check then
			check = entity.getvar(check, 'Name')
			if check == 'Wall' then
				entity.setchar(debug, "That's a wall")
				time.text = 1
			end
		end
	end




	--[[Screen]]--
	--[[
	--Up
	if k == 200 then
		screen.y = screen.y - 1
	end
	--Down
	if k == 208 then
		screen.y = screen.y + 1
	end
	--Left
	if k == 203 then
		screen.x = screen.x - 1
	end
	--Right
	if k == 205 then
		screen.x = screen.x + 1
	end
	]]--
end

time = {}
time.text = 0
function exec.step()
	if time.text ~= 0 then
		time.text = time.text+1
	end
	if time.text == 50 then
		time.text = 0
		entity.setchar(debug, ' ')
	end
	--[[Window Follow]]--
	screen.x = entity.getposx(player) - window.midw
	screen.y = entity.getposy(player) - window.midh
end

exec.start()