Quote: "What I mean is if I can't get this done by Friday my Dad's going to cut me off from using DarkBASIC Classic and delete everything I ever made in it."
I know this is your Dad and you should respect his wishes... but what kind of sicko would do that to their kid!!!??? Why is he going to do that to you? Did he give you a reason?
Quote: "I don't want anything done using 3d techniques.
I need to learn how to scroll, and tilemaps. Zen's tutorial is not complete. If I can't get this done I'm toast and bye, bye DBC. "
I tried to find the message I posted this (it's been a while)... so i'll just repost the code and the picture. This is an example of a tile map with scrolling. There aren't very many rem statements but I can answer any questions you may have in this thread. When you run this use the arrow keys and go down a bit then go to the right to see what was added to the map.
set display mode 640,480,32
sync rate 0
sync on
hide mouse
dim Map(500,500)
dim Tex$(12)
load bitmap "zelda.bmp",1
` Get Zelda
x=1:y=18
for t=50 to 54
get image t,x,y,x+21,y+23,1
inc x,22
next t
` Get Map Graphics
x=1:y=1
for t=1 to 20
get image t,x,y,x+16,y+16,1
inc x,17
next t
set current bitmap 0
` Make a random map
x=0:y=0
for t1=0 to 500
for t2=0 to 500
a=rnd(9)+1
b=rnd(60)
if b=60
a=rnd(9)+11
endif
Map(t1,t2)=a
inc x,16
next t1
x=0
inc y,16
next t2
` Add something to the map :-)
x=30:y=30
Tex$(0)="01 01 08 01 01 01 01 01 03 01 01 01 01 01 03 01 01 08 09 "
Tex$(1)="01 15 15 15 15 15 01 01 01 01 01 08 01 01 01 01 04 03 04 "
Tex$(2)="01 15 01 01 01 01 01 09 01 01 03 01 01 01 01 05 01 03 01 "
Tex$(3)="08 15 01 01 01 09 01 01 01 01 01 01 08 01 01 01 01 01 01 "
Tex$(4)="01 15 01 01 01 01 01 01 01 08 01 01 01 01 01 01 01 01 01 "
Tex$(5)="01 15 01 15 15 15 01 15 15 15 01 15 15 15 01 15 15 15 01 "
Tex$(6)="01 15 01 01 01 15 08 15 09 15 01 15 01 15 01 15 01 15 01 "
Tex$(7)="01 15 01 01 01 15 01 15 01 01 01 15 01 15 01 15 01 15 01 "
Tex$(8)="08 15 15 15 15 15 01 15 09 01 01 15 15 15 01 15 15 15 02 "
Tex$(9)="01 01 03 01 01 01 01 01 01 01 01 01 01 09 01 01 01 15 01 "
Tex$(10)="01 01 02 01 01 01 01 03 01 01 01 01 01 01 01 01 01 15 01 "
Tex$(11)="02 01 01 01 01 03 01 01 01 01 01 01 02 09 01 15 15 15 01 "
Tex$(12)="01 01 01 01 01 01 01 02 01 01 01 01 01 01 01 01 01 01 01 "
for t1=0 to 12
a$=""
for t2=1 to len(Tex$(t1))
a$=a$+mid$(Tex$(t1),t2)
if len(a$)=3
Map(x,y)=val(a$)
a$=""
inc x
endif
next t2
x=30:inc y
next t1
` Main Loop
x=0:y=0
sprite 1,320,232,53
ShowMap(x,y)
sync
do
if upkey()>0
if y-1>0
dec y
sprite 1,320,232,52
ShowMap(x,y)
endif
endif
if downkey()>0
if y+1<501-29
inc y
sprite 1,320,232,53
ShowMap(x,y)
endif
endif
if leftkey()>0
if x-1>0
dec x
sprite 1,320,232,50
ShowMap(x,y)
endif
endif
if rightkey()>0
if x+1<501-39
inc x
sprite 1,320,232,51
ShowMap(x,y)
endif
endif
if escapekey()>0
end
endif
loop
` Show map
function ShowMap(mx,my)
x=0:y=0
for t1=my to my+29
for t2=mx to mx+39
paste image Map(t2,t1),x,y
inc x,16
next t2
x=0
inc y,16
next t1
sync
endfunction
