I just want to show how 2D tile scroller should be done.
I think that when beginners make rpg they all stop in this problem, like i somewere in history.
set display mode 800,600,16 : sync on : hide mouse
dim map(100,100)
for t=1 to 100
for tt=1 to 100
map(t,tt)=rnd(1)
next tt
next t
do
if upkey()=1 then dec y
if downkey()=1 then inc y
if leftkey()=1 then dec x
if rightkey()=1 then inc x
if x90 then x=90
if y90 then y=90
cls : lx=0
for t=x-5 to x+5
ly=0 : inc lx
for tt=y-5 to y+5
inc ly
if map(t,tt)=0 then ink rgb(80,80,80)
if map(t,tt)=1 then ink rgb(30,30,30)
box 300+(lx*20),200+(ly*20),319+(lx*20),219+(ly*20)
next tt
next t
sync
loop
Very simple, heh