RBM ALL POSITIONS

math.randomseed(os.time())
os.cpu(333) --A little powah for loading all
lcb = 0
function loadcallback()
screen.print(370,255,"Cargandeh"..string.sub("...",1,math.floor(lcb)))
screen.flip()
lcb = lcb + 0.05 if lcb > 4 then lcb = 0 end
end


prism = {obj=model.load("models/prism.obj")}
exit = {obj=model.load("models/exit.obj")}
cube = {obj=model.load("models/cube.obj")}
floor = {obj=model.load("models/floor.obj")}

map = {
{"","","","c",""},
{"","","e","",""},
{"","","","c",""},
{"","","","",""},
{"c","","","",""},
}
map.height = #map
map.width = #map[1]
map.w=10
map.h=5
map.d=10


--Y->z
--X->x
--Z->y

pos={x=-map.width*5+5,y=0,z=-75}
rot={x=1,y=0,z=0}

prism.x = 1
prism.y = 1
prism.status = "horizontal_up"
list={"vertical","horizontal_up","horizontal_down","horizontal_right","horizontal_left"}
c=1

function blit_map()
    local depth = 0
    local p={x=0,y=0,z=0}
    local r={x=0,y=0,z=0}
    local sp = {x=0,y=0,z=0}
    local sr = {x=0,y=0,z=0}
    local ny = map.height/2
        for y = 1, map.height do
            for x = 1, map.width do
                --Calculate the position of empty models
                    p.x = pos.x +((x-1)*map.w)
                    p.y = pos.y + math.sin(-rot.x)*(y-ny)*map.w
                    p.z = pos.z + math.cos(-rot.x)*(y-ny)*map.w
                --Blit the empty models
                    floor.obj:rotation(rot.x ,rot.y, rot.z)
                    floor.obj:position(p.x, p.y, p.z)
                    floor.obj:blit()
                    if x== prism.x and y == prism.y then
                        if prism.status == "horizontal_up" then
                            sp.x = p.x
                            sp.y = p.y+math.sin(1.57-rot.x)*15
                            sp.z = p.z+math.cos(1.57-rot.x)*15
                            sr.x = rot.x-1.57
                            sr.y = rot.y
                            sr.z = rot.z
                        elseif prism.status == "horizontal_down" then
                            sp.x = p.x
                            sp.y = pos.y + math.sin(-rot.x)*((y-1)-ny)*map.w+math.sin(1.57-rot.x)*5
                            sp.z = pos.z + math.cos(-rot.x)*((y-1)-ny)*map.w+math.cos(1.57-rot.x)*5
                            sr.x = rot.x+1.57
                            sr.y = rot.y
                            sr.z = rot.z
                        elseif prism.status == "horizontal_right" then
                            sp.x = p.x
                            sp.y = pos.y+ math.sin(-rot.x)*((y-1)-ny)*map.w+math.sin(1.57-rot.x)*15
                            sp.z = pos.z + math.cos(-rot.x)*((y-1)-ny)*map.w+math.cos(1.57-rot.x)*15
                            sr.x = rot.x-1.57
                            sr.y = rot.y
                            sr.z = rot.z-1.57
                        elseif prism.status == "horizontal_left" then
                            sp.x = pos.x +(x*map.w)
                            sp.y = p.y+math.sin(1.57-rot.x)*15
                            sp.z = p.z+math.cos(1.57-rot.x)*15
                            sr.x = rot.x-1.57
                            sr.y = rot.y
                            sr.z = rot.z+1.57
                        elseif prism.status == "vertical" then
                            sp.x = p.x
                            sp.y = p.y+math.sin(1.57-rot.x)*5
                            sp.z = p.z+math.cos(1.57-rot.x)*5
                            sr.x = rot.x
                            sr.y = rot.y
                            sr.z = rot.z
                        end
                        prism.obj:rotation(sr.x,sr.y,sr.z)
                        prism.obj:position(sp.x,sp.y,sp.z)
                        prism.obj:blit()

                    end
                    if map[y][x] != "" then
                        if map[y][x] == "c" then
                            cube.obj:position(p.x,p.y+math.sin(1.57-rot.x)*5,p.z+math.cos(1.57-rot.x)*5)
                            cube.obj:rotation(rot.x,rot.y,rot.z)
                            cube.obj:blit()
                        elseif map[y][x] == "e" then
                            exit.obj:position(p.x,p.y+math.sin(1.57-rot.x)*5,p.z+math.cos(1.57-rot.x)*5)
                            exit.obj:rotation(rot.x,rot.y,rot.z)
                            exit.obj:blit()
                        end
                    end
            end
    end

end

function prism.move()
if controls.press("down") then
    prism.y = prism.y+1 if prism.y > map.height then prism.y = 1 end
end
if controls.press("up") then

    prism.y = prism.y-1 if prism.y < 1 then prism.y = map.height end
end
if controls.press("right") then
    prism.x = prism.x+1 if prism.x > map.width then prism.x = 1 end
end
if controls.press("left") then
    prism.x = prism.x-1 if prism.x < 1 then prism.x = map.width end
end
end


while true do
prism.status=list[c]
controls.read()

if controls.start() then
    --POS
    if controls.up() then pos.y = pos.y+0.5 end
    if controls.down() then pos.y = pos.y-0.5 end
    if controls.left() then pos.x = pos.x-0.5 end
    if controls.right() then pos.x = pos.x+0.5 end
    if controls.l() then pos.z = pos.z-0.5 end
    if controls.r() then pos.z = pos.z+0.5 end
    --ROT
    if controls.triangle() then rot.y = rot.y+0.05 end
    if controls.cross() then rot.y = rot.y-0.05 end
    if controls.square() then rot.x = rot.x-0.05 end
    if controls.circle() then rot.x = rot.x+0.05 end
    if math.abs(controls.analogy())> 50 then rot.x = rot.x+controls.analogy()/2000 end
else
prism.move()
if controls.press("l") then c= c-1 if c<1 then c = #list end end
if controls.press("r") then c= c+1 if c>#list then c = 1 end end
end


blit_map()


screen.print(5,5,"ROT: ".." x:"..rot.x.." y:"..rot.y.." z:"..rot.z)
screen.print(5,25,"POS: ".." x:"..pos.x.." y:"..pos.y.." z:"..pos.z)
screen.print(5,45,"Prism: ".." x:"..prism.x.." y:"..prism.y.." status:"..prism.status)
screen.print(425,5,"@"..screen.fps())

if controls.select() then a() end
screen.flip()
end