[1.4.5] Old Style Games! Post yours here!

rednet.open("right")
mon = peripheral.wrap("back")
mon.setTextScale(0.5)
term.redirect(mon)
print("computer booted")
local function rmButtons()
    while true do
	    local event,from,message,distance = os.pullEvent("rednet_message")
	    if tonumber(message) then
		    os.queueEvent("key",tonumber(message) or 0)
	    elseif message ~= "nil" then
		    os.queueEvent("char",message)
	    end
    end
end
local function OverShell()
    shell.run("shell")
end
parallel.waitForAny(rmButtons,OverShell)

rednet.open("bottom")
local last = os.startTimer(0.1)
while true do
    local numb = 0
    local event,arg1,arg2 = os.pullEvent()
    if rs.getInput("front") then
	    numb = 208
    elseif rs.getInput("back") then
	    numb = 200
    elseif rs.getInput("left") then
	    numb = 203
    elseif rs.getInput("right") then
	    numb = 205
    elseif rs.getInput("top") then
    elseif rs.getInput("bottom") then
    end
    rednet.broadcast(tostring(numb))
    if event == "timer" and arg1 == last then
	    last = os.startTimer(0.1)
    end
end

rednet.open("back")
print("computer booted")
local function rmButtons()
    while true do
	    local event,from,message,distance = os.pullEvent()
	    if event == "key" or event == "char" then
	    rednet.broadcast(tostring(from))
	    end
    end
end
local function OverShell()
    while true do
    read()
    end
end
parallel.waitForAny(rmButtons,OverShell)

local root = "awdat/"

local curmap = nil
local player = cge.createSprite({8}, {8}, {"@"}, "player", 1)
cge.addSprite(player)

local map1 = cge.readMap(root.."map1.png", true)
local house1 = cge.readMap(root.."house1.png", true)
local house2 = cge.readMap(root.."house2.png", true)
local house3 = cge.readMap(root.."house3.png", true)

local ml1 = {house1, house2, house3}

local ncolb = 0
local ncold = 0

local function loadMap(map)
	for i,v in pairs(map) do
		--print(v)
		local splt = cge.split(v, ":")
		local type = splt[3]
		if type == "&0" then
			--print("CREATED BLOCK: "..tonumber(splt[1])..";"..tonumber(splt[2]))
			ncolb = ncolb + 1
			--print("creating sprite 0")
			local nsp = cge.createSprite({tonumber(splt[1])}, {tonumber(splt[2])}, {type}, "colb"..ncolb, 1)
			--print("CREATED SPRITE")
			cge.addSprite(nsp)
		elseif type == "&8" then
			--print("CREATED DOOR")
			ncold = ncold + 1
			--print("creating sprite 8")
			local nsp = cge.createSprite({tonumber(splt[1])}, {tonumber(splt[2])}, {type}, "cold"..ncold, 1)
			--print("CREATED SPRITE")
			cge.addSprite(nsp)
		end
	end
	curmap = map
	cge.setMap(curmap)
end

local function checkFor(sprite, type_str, type_n)
	local table = {}
	for i=1,type_n,1 do
		local csprite = cge.getSprite(type_str..i)
		if csprite ~= nil then
			table[#table + 1] = csprite
		end
	end
	--print("SIZE("..type_str.."): "..#table)
	return cge.checkCollision(sprite, table)
end

local function checkForBlocks(sprite)
	-- "colb" = collision blocks
	-- ncolb = number of collision blocks
	-- sprite =
	return checkFor(sprite, "colb", ncolb)
end


local function checkForDoors(sprite)
	--"cold" = collision doors
	-- ncold = number of collision doors
	-- sprite = sprite being checked
	return checkFor(sprite, "cold", ncold)
end

local function moveIntoDoor(sprite)
	local curdoor = nil
	for i=1,ncold,1 do
		local csprite = cge.getSprite("cold"..ncold)
		if csprite ~= nil and curdur == nil then
			if cge.checkCollision(sprite, {csprite}) then else
				curdoor = csprite
			end
		end
	end
	if curdor ~= nil then
		local x, y, type, name, mxaf caf, cuv = cge.getSpriteLineData(curdor[1])
		if name ~= nil then
			local nmap = curmap
			local dn = tonumber(name.sub(5, -1))
			if curmap == map1 then
				if dn == 1 or dn == 2 then nmap = house2
				elseif dn == 3 then --map2
				elseif dn == 4 then nmap = house1
				elseif dn == 5 then nmap = house3 end
			end
			if nmap ~= curmap then
				loadMap(nmap)
			end
		end
	end
end

local function move(sprite, dir)
	local nsprite = cge.moveSprite(sprite, dir[1], dir[2], false)
	if checkForBlocks(nsprite) then
		print("HIT BLOCK")
		term.setCursorPos(1,1)
		return sprite
	else
		if checkForDoors(nsprite) then moveIntoDoor(nsprite) end
		return nsprite
	end
end

curmap = loadMap(map1)

local on = true
local timer = os.startTimer(1)

local interval = 0.1

while on do
	local event, p1, p2 = os.pullEvent()
	if event == "timer" and p1 == timer then
		player = cge.getSprite("player")
		timer = os.startTimer(interval)
		term.clear()
		term.setCursorPos(1,1)
		cge.colorDraw(1, 1)
	elseif event == "key" then
		local key = p1
		if key == 200 then --up
			local nplayer = move(player, {0, -1})
			cge.changeSprite(player, nplayer)
		elseif key == 208 then --down
			local nplayer = move(player, {0, 1})
			cge.changeSprite(player, nplayer)
		elseif key == 203 then --left
			local nplayer = move(player, {-1, 0})
			cge.changeSprite(player, nplayer)
		elseif key == 205 then --right
			local nplayer = move(player, {1, 0})
			cge.changeSprite(player, nplayer)
		elseif key == 56 then --alt
			on = false
		end
	end
	player = cge.getSprite("player")
end

cge.reset()
term.clear()
term.setCursorPos(1,1)