x=20; y=20
-- Mark which tiles we can't walk on
nowalk = { 1, 2 }
function TIC()
wannamovex=x
wannamovey=y
if btn(0) then
wannamovey=y-1
elseif btn(1) then
wannamovey=y+1
elseif btn(2) then
wannamovex=x-1
elseif btn(3) then
wannamovex=x+1
end
tilehere=mget(wannamovex/8,wannamovey/8)
canwalk=true
for id,badtile in pairs(nowalk) do
if tilehere == badtile then
canwalk=false
end
end
if canwalk then
x = wannamovex
y = wannamovey
end
map(0,0)
spr(16,x-4,y-4,0)
-- Debug
print(tilehere,2,136-8,12)
end
--
-- 001:2222222222000022202002022002200220022002202002022200002222222222
-- 002:3333333333000033303003033003300330033003303003033300003333333333
-- 016:0c0000c00cccccc00c9cc9c00cccccc0000cc000cccccccc000cc00000c00c00
-- 017:6666666666666666666666666666666666666666666666666666666666666666
-- 018:5555555555555555555555555555555555555555555555555555555555555555
--
--
--
-- 000:00000000ffffffff00000000ffffffff
-- 001:0123456789abcdeffedcba9876543210
-- 002:0123456789abcdef0123456789abcdef
--
--
-- 000:000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000304000000000
--
--
-- 000:100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
--
--
-- 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
--