If you want it pokemin style try using my source, this might help:
SET DISPLAY MODE 320, 200, 16
HIDE MOUSE
REM * LOADING FILES
LOAD IMAGE "MAN.BMP", 1
LOAD IMAGE "0001.BMP", 101
REM * LOADING VARIABLES
MANX = 150
MANY = 90
WORLDX = 0
WORLDY = 0
REM * SYNC SETTINGS
SYNC ON
SYNC RATE 0
REM * START LOOP
DO
CLS
REM * LOADING VARIABLES
OLDMANX = MANX
OLDMANY = MANY
OLDWORLDX = WORLDX
OLDWORLDY = WORLDY
REM * CONTROLS
IF DOWNKEY() = 1 AND MANY < 170 THEN MANY = MANY + 2
IF DOWNKEY() = 1 AND MANY = 170 THEN WORLDY = WORLDY - 2
IF LEFTKEY() = 1 AND MANX > 60 THEN MANX = MANX - 2
IF LEFTKEY() = 1 AND MANX = 60 THEN WORLDX = WORLDX + 2
IF RIGHTKEY() = 1 AND MANX < 260 THEN MANX = MANX + 2
IF RIGHTKEY() = 1 AND MANX = 260 THEN WORLDX = WORLDX - 2
IF UPKEY() = 1 AND MANY > 60 THEN MANY = MANY - 2
IF UPKEY() = 1 AND MANY = 60 THEN WORLDY = WORLDY + 2
REM * PRINT LEVEL + TILE PROPERTIES
FOR A = 0 TO 19
FOR B = 0 TO 19
READ DATA
REM * TILES START
REM * TILE 1
REM ****************************************************
REM * ONLY SHOW TILES ON SCREEN
IF (B*16)+WORLDX > 320 OR (B*16)+WORLDX < -16 OR (A*16)+WORLDY > 200 OR (A*16)+WORLDY < -16
ELSE
REM * PRINT IMAGES
IF DATA = 1
PASTE IMAGE 101,(B*16)+WORLDX,(A*16)+WORLDY,1
REM * HIT TEST
IF MANX+8=>(B*16)+WORLDX AND MANX-8<=(B*16)+(16+WORLDX) AND MANY+8=>(A*16)+WORLDY AND MANY-8<=(A*16)+(16+WORLDY)
MANX=OLDMANX
MANY=OLDMANY
ENDIF
ENDIF
ENDIF
REM ****************************************************
REM * TILES END
NEXT B
NEXT A
REM * PRINT LEVEL END
PASTE IMAGE 1,MANX-8,MANY-8,1
REM * END LOOP + LOOP
RESTORE
SYNC
LOOP
REM * DATA FILE
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1, , , , , , , , , , , , , , , , , , ,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
or if you want it zelda style then have a look at this, it was made in flash but it has some useful programming which i think might be quite easy to convert over to dark basic,
Click here
erm...