areas={}
areas[1]={x=0,y=0,x2=6,y2=6}

function area(x, y, x2, y2, px, py)
		return px>=x and px <= x2 and py >= y and py <= y2
end

addhook("movetile","detectarea")
function detectarea(id,xx,yy)
for k,v in ipairs(areas) do
if area(v.x,v.y,v.x2,v.y2,xx,yy) then
--Unwalk Script i need this one xD
msg("©255000000AREA")
end
end
end

areas={}
areas[1]={x=0,y=0,x2=6,y2=6}

tile={}
for a=1,32 do
	tile[a]={x=0,y=0}
end

function area(x, y, x2, y2, px, py)
          return px>=x and px <= x2 and py >= y and py <= y2
end

addhook("movetile","detectarea")
function detectarea(id,xx,yy)
	for k,v in ipairs(areas) do
		if area(v.x,v.y,v.x2,v.y2,xx,yy) then
			parse('setpos '..id..' '..tile[id].x*32+16 ..' '..tile[id].y*32+16)
			msg("©255000000AREA")
			return 1
		end
	end
	tile[id].x=xx
	tile[id].y=yy
end