Ok i making my own one and I going fine but I got to a point and it won't wright more maybe you can assist
AppTitle "Tilemap" ;Graphics Graphics 640,480,16,2 ;Buffer SetBuffer BackBuffer() ;Map X and Y map_x=150 map_y=480 ;Dim tiles/letters Dim tilemap(200,150) Dim tile(200) ;Load all the tiles/letters For width=0 To 37 tile(width)=LoadImage("Tiles/tile"+width+".bmp") MaskImage tile(width),255,0,255 Next ;Get tiles/letters Position Gosub gettiles ;End if keyhit esc While Not KeyDown(1) ;Move Text up map_y=map_y-1 ;Text comes back if it disaperes If map_y<=-150 Then map_y=map_y+640 ;Clearscreen Cls ;Draw tiles/letters Gosub updatetiles ;Flip Buffer Flip ;Wend Wend ;End End ;Get Position .gettiles For height=0 To 10 For width=0 To 15 Read tilemap(width,height) Next Next Return ;Draw .updatetiles For height=0 To 10 For width=0 To 16 If tilemap(width,height)>0 And tilemap(width,height)<=37 Then If tilemap(width,height)<>0 Then DrawImage tile(tilemap(width,height)),width*20+map_x,height*20+map_y EndIf EndIf Next Next Return ;Map 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0, 23,5, 12,3,15,13, 5, 0,20,15, 0,20, 8, 5, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0, 0,12, 5,13,15,14, 1, 4, 5, 0, 7, 1,13, 5, 0, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 25,15,21,18, 0, 1,13, 5, 0, 9,19, 0,20,15,0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0, 0, 0, 5, 1,18,14, 0, 1,19, 0,13,21, 3, 8, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0, 0, 0, 0,13,15,14, 5,25, 0, 1,19, 0, 0, 0, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0, 0, 0, 0,16,15,19,19, 9, 2,12, 5, 0, 0, 0, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0, 0, 9,14, 0,30,27, 0, 4, 1,23,19, 0, 0, 0, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0