Help me? - GameCreators Forum

Author

Message

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 6th Apr 2010 18:16 Edited at: 6th Apr 2010 18:18

Link

Right now, all i've got to program with is Pro.

Can some one test this to make sure it runs in Classic? You'll need a joystick.

REM Rts map + movement...
REM By DD, The one and only DARKDragon.....
REM 4/4/10 5:34.....started.

rem 100x100 Map with up to 5 layers
Dim Map(100,100,5)
Dim Unit(5,50)
` active?
Unit(1,0) = 1
`x;y
Unit(1,1) = 2
Unit(1,2) = 2

`img?
Unit(1,5) = 301

Dim Cursor(5,5)
Cursor(1,1) = 4
Cursor(1,2) = 4
Cursor(1,5) = 300

Dim Selection(100,5)

load image "Cursor.png",300
load image "unit.png",301

rem sound load
load sound "Sounds/cancel1.wav",1
load sound "Sounds/switch02.wav",2
load sound "Sounds/clock.wav",3

Sync on
Sync Rate 29
MapsizeX = 100
MapsizeY = 100

load array "MAP.TXT",Map(0)
load music "JakeTheme_v7.mid",1
play music 1
load image "untitled.png",1000
paste image 1000,0,0

for row = 0 to 0

for tiles = 0 to 4
get image tiles+1,32*tiles,row*32,(32*tiles)+32,(row*32)+32

next tiles

next row
REM Declared for Scrolling our map....
` notice how i used a float value!
ScrollX# = 0
ScrollY# = 0

currentlayer = 1

REM I wont explain.......not part of the "lesson", but basically
REM Controls the camera(ScrollX and ScrollY) smoothly.......
Camera_Velx# = 1
Camera_Vely# = 1

do
cls

REM Map viewing update stuff.......

if Camera_Velx# => 0.1 then Camera_Velx# = Camera_Velx# - 0.5
if Camera_Vely# => 0.1 then Camera_Vely# = Camera_Vely# - 0.5
if Camera_Velx# =< -0.1 then Camera_Velx# = Camera_Velx# + 0.5
if Camera_Vely# =< -0.1 then Camera_Vely# = Camera_Vely# + 0.5

` if Camera_Velx# =< 0.06 and Camera_Velx# => -0.06 then Camera_Velx# = 0
` if Camera_Vely# =< 0.06 and Camera_Vely# => -0.06 then Camera_Vely# = 0

ScrollX# = ScrollX# - Camera_Velx#
ScrollY# = ScrollY# - Camera_Vely#

Print Camera_Vely#

if inkey$() = "1" then currentlayer = 1

if inkey$() = "2" then currentlayer = 2

if inkey$() = "3" then currentlayer = 3

if inkey$() = "0" then currentlayer = 0

rem This is the "for....next" loop that "Prints" the map
REM Even more useful if you were to make a function
REM out of it.....
for layer = 0 to 3

for x = 1 to mapsizeX
      for y = 1 to mapsizeY

if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),(x*32) - ScrollX#,(y*32) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#,1

next y
   next x

next layer

oldx = Cursor(1,1)
oldy = Cursor(1,2)
oldpad = pad

if selectstate = 0
inc ss

if ss > 2
if joystick up() = 1 then Cursor(1,2) = Cursor(1,2) - 1 : play sound 2
if joystick down() = 1 then Cursor(1,2) = Cursor(1,2) + 1 : play sound 2
if joystick left() = 1 then Cursor(1,1) = Cursor(1,1) - 1 : play sound 2
if joystick right() = 1 then Cursor(1,1) = Cursor(1,1) + 1 : play sound 2
if joystick fire b()=0 then Bpushed = 0

If upkey() = 1 then Cursor(1,2) = Cursor(1,2) - 1
If downkey() = 1 then Cursor(1,2) = Cursor(1,2) + 1

If leftkey() = 1 then Cursor(1,1) = Cursor(1,1) - 1
If rightkey() = 1 then Cursor(1,1) = Cursor(1,1) + 1

if joystick fire b()=1 and Cursor(1,1)= Unit(1,1) and Cursor(1,2)= Unit(1,2) and Bpushed = 0  then selectstate = 1 : Bpushed = 1 : play sound 3
ss = 0

endif

if selectstate = 1
inc ss

if ss > 2

if joystick up() = 1 then Cursor(1,2) = Cursor(1,2) - 1 : play sound 2
if joystick down() = 1 then Cursor(1,2) = Cursor(1,2) + 1 : play sound 2
if joystick left() = 1 then Cursor(1,1) = Cursor(1,1) - 1 : play sound 2
if joystick right() = 1 then Cursor(1,1) = Cursor(1,1) + 1 : play sound 2
if joystick fire b()=0 then Bpushed = 0

gosub showmoverange

if joystick fire b()=1 and Bpushed = 0

sfxflag = 0

for sel = 1 to 100
if Cursor(1,1) = Selection(sel,1) and Cursor(1,2) = Selection(sel,2)
 Unit(1,1)= Cursor(1,1) : Unit(1,2)= Cursor(1,2) : selectstate = 0 : play sound 3

else
 selectstate = 0
sfxflag = sfxflag + 1
if sfxflag = 100 then play sound 1

endif

next sel

Bpushed = 1
ss = 0
endif

endif

if joystick fire a()=1 and Cursor(1,1)= Unit(1,1) and Cursor(1,2)= Unit(1,2) then gosub showmoverange

if Map(Unit(1,1),Unit(1,2),0) > 0 then Unit(1,1) = oldx : Unit(1,2) = oldy
if Map(Unit(1,1),Unit(1,2),0) > 0 then Unit(1,1) = oldx : Unit(1,2) = oldy

Cx# = curvevalue(Cursor(1,1),Cx#,9)
Cy# = curvevalue(Cursor(1,2),Cy#,9)

for u = 1 to 50

if Unit(u,0) = 1
paste image Unit(u,5),(Unit(u,1)*32) - ScrollX#,(Unit(u,2)*32) - ScrollY#,1
endif

next u

paste image Cursor(1,5),(Cx#*32) - ScrollX#,(Cy#*32) - ScrollY#,1

ScrolX = ScrollX#
Print (MouseX() - ScrolX)/32
ScrolY = ScrollY#
Print ScrolX/32
Print (MouseY() - ScrolY)/32

if Cursor(1,2) > (ScrolY/32) + 6 then dec Camera_Vely#,1
if Cursor(1,2) < (ScrolY/32) + 6 then inc Camera_Vely#,1

if Cursor(1,1) >   (ScrolX/32) + 9 then dec Camera_Velx#,1
if Cursor(1,1) <   (ScrolX/32) + 9 then inc Camera_Velx#,1

if Mouseclick() > 0
Map((MouseX() + ScrolX)/32,(MouseY() + ScrolY)/32,currentlayer) = Mouseclick()
endif

if spacekey() = 1 then save array "MAP.TXT",Map(0)

sync
loop

showmoverange:
mrange = 3
sel = 0

for px = mrange*-1 to mrange*1
paste image 3,((Unit(1,1)-px)*32+Rnd(2)) - ScrollX#,((Unit(1,2))*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1)-px)
Selection(sel,2) = (Unit(1,2))

next px

for y = (mrange-1)*-1 to (mrange-1)*1

for px = (mrange-(mrange-1))*-1 to (mrange-(mrange-1))*1
paste image 3,((Unit(1,1)-px)*32+Rnd(2)) - ScrollX#,((Unit(1,2)-y)*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1)-px)
Selection(sel,2) = (Unit(1,2)-y)

next px

next y

for x = (mrange-1)*-1 to (mrange-1)*1

for py = (mrange-(mrange-1))*-1 to (mrange-(mrange-1))*1
paste image 3,((Unit(1,1)-x)*32+Rnd(2)) - ScrollX#,((Unit(1,2)-py)*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1)-x)
Selection(sel,2) = (Unit(1,2)-py)

next py

next x

for py = mrange*-1 to mrange*1
paste image 3,((Unit(1,1))*32+Rnd(2)) - ScrollX#,((Unit(1,2)-py)*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1))
Selection(sel,2) = (Unit(1,2)-py)

next py

remstart
for l = 1 to mrange-2
for px = (mrange-(mrange-l))*-1 to (mrange-(mrange-l))*1
for py = (mrange-(mrange-l))*-1 to (mrange-(mrange-l))*1
paste image Unit(1,5)-1,((Unit(1,1)-(px))*32+Rnd(2)) - ScrollX#,((Unit(1,2)-(py))*32+Rnd(2)) - ScrollY#
next py
next px
next l
remend

return

+ Code Snippet

REM Rts map + movement...
REM By DD, The one and only DARKDragon.....
REM 4/4/10 5:34.....started.



rem 100x100 Map with up to 5 layers
Dim Map(100,100,5)
Dim Unit(5,50)
` active?
Unit(1,0) = 1
`x;y
Unit(1,1) = 2
Unit(1,2) = 2

`img?
Unit(1,5) = 301

Dim Cursor(5,5)
Cursor(1,1) = 4
Cursor(1,2) = 4
Cursor(1,5) = 300

Dim Selection(100,5)

load image "Cursor.png",300
load image "unit.png",301

rem sound load
load sound "Sounds/cancel1.wav",1
load sound "Sounds/switch02.wav",2
load sound "Sounds/clock.wav",3



Sync on
Sync Rate 29
MapsizeX = 100
MapsizeY = 100

load array "MAP.TXT",Map(0)
load music "JakeTheme_v7.mid",1
play music 1
load image "untitled.png",1000
paste image 1000,0,0

for row = 0 to 0

for tiles = 0 to 4
get image tiles+1,32*tiles,row*32,(32*tiles)+32,(row*32)+32

next tiles

next row
REM Declared for Scrolling our map....
` notice how i used a float value!
ScrollX# = 0
ScrollY# = 0

currentlayer = 1



REM I wont explain.......not part of the "lesson", but basically
REM Controls the camera(ScrollX and ScrollY) smoothly.......
Camera_Velx# = 1
Camera_Vely# = 1




do
cls




REM Map viewing update stuff.......


if Camera_Velx# => 0.1 then Camera_Velx# = Camera_Velx# - 0.5
if Camera_Vely# => 0.1 then Camera_Vely# = Camera_Vely# - 0.5
if Camera_Velx# =< -0.1 then Camera_Velx# = Camera_Velx# + 0.5
if Camera_Vely# =< -0.1 then Camera_Vely# = Camera_Vely# + 0.5

` if Camera_Velx# =< 0.06 and Camera_Velx# => -0.06 then Camera_Velx# = 0
` if Camera_Vely# =< 0.06 and Camera_Vely# => -0.06 then Camera_Vely# = 0

ScrollX# = ScrollX# - Camera_Velx#
ScrollY# = ScrollY# - Camera_Vely#

Print Camera_Vely#














if inkey$() = "1" then currentlayer = 1

if inkey$() = "2" then currentlayer = 2

if inkey$() = "3" then currentlayer = 3

if inkey$() = "0" then currentlayer = 0

rem This is the "for....next" loop that "Prints" the map
REM Even more useful if you were to make a function
REM out of it.....
for layer = 0 to 3

   for x = 1 to mapsizeX
      for y = 1 to mapsizeY

      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),(x*32) - ScrollX#,(y*32) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#,1

      next y
   next x

next layer











oldx = Cursor(1,1)
oldy = Cursor(1,2)
oldpad = pad



if selectstate = 0
inc ss

if ss > 2
if joystick up() = 1 then Cursor(1,2) = Cursor(1,2) - 1 : play sound 2
if joystick down() = 1 then Cursor(1,2) = Cursor(1,2) + 1 : play sound 2
if joystick left() = 1 then Cursor(1,1) = Cursor(1,1) - 1 : play sound 2
if joystick right() = 1 then Cursor(1,1) = Cursor(1,1) + 1 : play sound 2
if joystick fire b()=0 then Bpushed = 0


If upkey() = 1 then Cursor(1,2) = Cursor(1,2) - 1
If downkey() = 1 then Cursor(1,2) = Cursor(1,2) + 1

If leftkey() = 1 then Cursor(1,1) = Cursor(1,1) - 1
If rightkey() = 1 then Cursor(1,1) = Cursor(1,1) + 1

if joystick fire b()=1 and Cursor(1,1)= Unit(1,1) and Cursor(1,2)= Unit(1,2) and Bpushed = 0  then selectstate = 1 : Bpushed = 1 : play sound 3
ss = 0


endif

endif








if selectstate = 1
inc ss

if ss > 2

if joystick up() = 1 then Cursor(1,2) = Cursor(1,2) - 1 : play sound 2
if joystick down() = 1 then Cursor(1,2) = Cursor(1,2) + 1 : play sound 2
if joystick left() = 1 then Cursor(1,1) = Cursor(1,1) - 1 : play sound 2
if joystick right() = 1 then Cursor(1,1) = Cursor(1,1) + 1 : play sound 2
if joystick fire b()=0 then Bpushed = 0

gosub showmoverange

if joystick fire b()=1 and Bpushed = 0

sfxflag = 0

for sel = 1 to 100
if Cursor(1,1) = Selection(sel,1) and Cursor(1,2) = Selection(sel,2)
 Unit(1,1)= Cursor(1,1) : Unit(1,2)= Cursor(1,2) : selectstate = 0 : play sound 3

else
 selectstate = 0
sfxflag = sfxflag + 1
if sfxflag = 100 then play sound 1

 endif

next sel

Bpushed = 1
ss = 0
endif










endif













 endif






if joystick fire a()=1 and Cursor(1,1)= Unit(1,1) and Cursor(1,2)= Unit(1,2) then gosub showmoverange

if Map(Unit(1,1),Unit(1,2),0) > 0 then Unit(1,1) = oldx : Unit(1,2) = oldy
if Map(Unit(1,1),Unit(1,2),0) > 0 then Unit(1,1) = oldx : Unit(1,2) = oldy











Cx# = curvevalue(Cursor(1,1),Cx#,9)
Cy# = curvevalue(Cursor(1,2),Cy#,9)

for u = 1 to 50

if Unit(u,0) = 1
paste image Unit(u,5),(Unit(u,1)*32) - ScrollX#,(Unit(u,2)*32) - ScrollY#,1
endif

next u

paste image Cursor(1,5),(Cx#*32) - ScrollX#,(Cy#*32) - ScrollY#,1



ScrolX = ScrollX#
Print (MouseX() - ScrolX)/32
ScrolY = ScrollY#
Print ScrolX/32
Print (MouseY() - ScrolY)/32

if Cursor(1,2) > (ScrolY/32) + 6 then dec Camera_Vely#,1
if Cursor(1,2) < (ScrolY/32) + 6 then inc Camera_Vely#,1

if Cursor(1,1) >   (ScrolX/32) + 9 then dec Camera_Velx#,1
if Cursor(1,1) <   (ScrolX/32) + 9 then inc Camera_Velx#,1

if Mouseclick() > 0
Map((MouseX() + ScrolX)/32,(MouseY() + ScrolY)/32,currentlayer) = Mouseclick()
endif

if spacekey() = 1 then save array "MAP.TXT",Map(0)

sync
loop








showmoverange:
mrange = 3
sel = 0

for px = mrange*-1 to mrange*1
paste image 3,((Unit(1,1)-px)*32+Rnd(2)) - ScrollX#,((Unit(1,2))*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1)-px)
Selection(sel,2) = (Unit(1,2))


next px

for y = (mrange-1)*-1 to (mrange-1)*1

for px = (mrange-(mrange-1))*-1 to (mrange-(mrange-1))*1
paste image 3,((Unit(1,1)-px)*32+Rnd(2)) - ScrollX#,((Unit(1,2)-y)*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1)-px)
Selection(sel,2) = (Unit(1,2)-y)


next px



next y



for x = (mrange-1)*-1 to (mrange-1)*1



for py = (mrange-(mrange-1))*-1 to (mrange-(mrange-1))*1
paste image 3,((Unit(1,1)-x)*32+Rnd(2)) - ScrollX#,((Unit(1,2)-py)*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1)-x)
Selection(sel,2) = (Unit(1,2)-py)


next py



next x





for py = mrange*-1 to mrange*1
paste image 3,((Unit(1,1))*32+Rnd(2)) - ScrollX#,((Unit(1,2)-py)*32+Rnd(2)) - ScrollY#,1

inc sel
Selection(sel,1) = (Unit(1,1))
Selection(sel,2) = (Unit(1,2)-py)


next py

remstart
for l = 1 to mrange-2
for px = (mrange-(mrange-l))*-1 to (mrange-(mrange-l))*1
for py = (mrange-(mrange-l))*-1 to (mrange-(mrange-l))*1
paste image Unit(1,5)-1,((Unit(1,1)-(px))*32+Rnd(2)) - ScrollX#,((Unit(1,2)-(py))*32+Rnd(2)) - ScrollY#
next py
next px
next l
remend


return

Please, i know the code is jumbled

Use D-pad to move cursor(Check out the camera; its Cool!),
Second button to select and move.

And the media..........
The music was so i wouldnt get bored while programing.....
Idk why but i also included an ExE......

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Attachments

Login to view attachments

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 6th Apr 2010 18:51 Edited at: 1st May 2010 18:02

Link

It gives runtime error at line 293 (which is the end of the main loop, so it's not the right line) - image does not exist.

EDIT:

When I remmed out this section of code, it kept running:

+ Code Snippet

remstart
for layer = 0 to 3

   for x = 1 to mapsizeX
      for y = 1 to mapsizeY

      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),(x*32) - ScrollX#,(y*32) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#,1

      next y
   next x

next layer
remend

I don't know what all I am supposed to see. I saw the cursor and a character scrambling toward the center of the screen, but there were no background tiles.

Back to top

Profile PM Email

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 6th Apr 2010 18:58

Link

oh. You were running inside DBC right?(most likely,right?) oh well. I might just go ahead and right this one in DBP, because it seems to only want to work in it!

Thanks for the help tho.....Did you try the exe, LBFN?

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

Robert The Robot

17

Years of Service

User Offline

Joined: 8th Jan 2007

Location: Fireball XL5

Posted: 6th Apr 2010 18:59 Edited at: 6th Apr 2010 19:00

Link

Could be "Untitled.png" that's in error then.

DBC often makes a habit of not registering an error until it reaches the next Sync command - especially if its tied in with graphics or objects.

Haven't got my joystick connected up at the moment, what's the code for? Is it a 2D tile map level?

[Edit] Drat! I always take too long to type...

"I wish I was a spaceman, the fastest guy alive. I'd fly you round the universe, in Fireball XL5..."

Back to top

Profile PM Website

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 6th Apr 2010 19:00

Link

Quote: "I don't know what all I am supposed to see. I saw the cursor and a character scrambling toward the center of the screen, but there were no background tiles."

The section you remed out was the tile drawing section.

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 6th Apr 2010 19:04

Link

Quote: "Could be "Untitled.png" that's in error then."

Its got transparency, might that have someting to do with it?

Quote: "
Haven't got my joystick connected up at the moment, what's the code for? Is it a 2D tile map level?"

Actually, i was coding a little demo of an Rts, for my cousin who just got DBPRO, to show him what it can do. then, it started looking cooler and cooler, and then I thought about DBC

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

Robert The Robot

17

Years of Service

User Offline

Joined: 8th Jan 2007

Location: Fireball XL5

Posted: 6th Apr 2010 19:06

Link

Ah, sounds like fun.

DBC doesn't like transparency, but it accepts it - it just puts it to a block color fill of something like RGB(128,128,128). Possibly the PNG file format isn't recognised, I think there are multiple types...

"I wish I was a spaceman, the fastest guy alive. I'd fly you round the universe, in Fireball XL5..."

Back to top

Profile PM Website

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 6th Apr 2010 19:10

Link

hmm....let me take off transparency, then i'll reupload it.

...................
.............
...
..
There.

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Attachments

Login to view attachments

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 6th Apr 2010 19:35 Edited at: 1st May 2010 18:02

Link

If I run the .exe it works. If I run the code you posted, it errors.

Back to top

Profile PM Email

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 7th Apr 2010 01:41 Edited at: 7th Apr 2010 01:42

Link

Weird............I dont get it.....could it be the transparency, or............what? Well, i've got 2 more days up here so i guess i'll look into it when i get home. Strange tho, i've used images with transparecy in DBC before.........maybe its somthing else.

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 7th Apr 2010 02:56

Link

@DD
It has something to do with your map array I think. DBPro and DBC may not save the array with the same values. In the code where you loop through the images to tile on layers:

+ Code Snippet

rem This is the "for....next" loop that "Prints" the map
REM Even more useful if you were to make a function
REM out of it.....
for layer = 0 to 3

   for x = 1 to mapsizeX
      for y = 1 to mapsizeY

      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),(x*32) - ScrollX#,(y*32) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#,1

      next y
   next x

next layer

The values returned from Map(x,y,layer), are above 5000 and I don't think you have any image assigned to those numbers.

Enjoy your day.

Back to top

Profile PM

Caleb1994

15

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 7th Apr 2010 07:26 Edited at: 7th Apr 2010 07:28

Link

+ Code Snippet

for layer = 0 to 3

   for x = 1 to mapsizeX
      for y = 1 to mapsizeY

      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),(x*32) - ScrollX#,(y*32) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#
      if Map(x,y,layer) > 0 and layer = currentlayer then paste image Map(x,y,layer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#,1

      next y
   next x

next layer

Why are you going through all the layers? I know this doesn't have anything to do with your question, but i have to ask. You only paste if the layer = currentLayer. So why not just go through the tiles on currentLayer? like this:

+ Code Snippet

   for x = 1 to mapsizeX
      for y = 1 to mapsizeY

      if Map(x,y,currentlayer) > 0 then paste image Map(x,y,currentlayer),(x*32) - ScrollX#,(y*32) - ScrollY#
      if Map(x,y,currentlayer) > 0 then paste image Map(x,y,currentlayer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#
      if Map(x,y,currentlayer) > 0 then paste image Map(x,y,currentlayer),( (x)*32 ) - ScrollX#,( (y)*32 ) - ScrollY#,1

      next y
   next x

I would suggest adding a 'image exist' call in there lol

New Site! Check it out \/

Back to top

Profile PM Website

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 7th Apr 2010 20:47

Link

Quote: "It has something to do with your map array I think. DBPro and DBC may not save the array with the same values. In the code where you loop through the images to tile on layers:"

That popped into my head a couple of hours ago......

@Caleb1994
Yea, ur right, i'm calling it when layer = currentlayer, so that needs to be optimized. must have been the "other me" programming.

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

Caleb1994

15

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 8th Apr 2010 07:04 Edited at: 8th Apr 2010 07:07

Link

+ Code Snippet

must have been the "other me" programming.

Ha I hate those days...

A few days later... You look back and think 'What idiot did this!?' or 'There's my memory leak!'(not as applicable to dbc though as all your memory is managed)

latch mentioned putting it in a function. Just a suggestion, but you could put it in a function like 'DrawMap(offsetx, offsety, layer)' although i don't know how you handle your offsets, but you get the picture.

EDIT:

Oh btw that quote was in no way intended to call you a idiot

just realized, it might be taken the wrong way. lol

New Site! Check it out \/

Back to top

Profile PM Website

Dark Dragon

16

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 8th Apr 2010 18:01

Link

Quote: "Ha I hate those days... A few days later... You look back and think 'What idiot did this!?' or 'There's my memory leak!'(not as applicable to dbc though as all your memory is managed)"

Lol, Yeah,Totally.....

Quote: "
Oh btw that quote was in no way intended to call you a idiot just realized, it might be taken the wrong way. lol"

Lol, I know.

Quote: "
latch mentioned putting it in a function. Just a suggestion, but you could put it in a function like 'DrawMap(offsetx, offsety, layer)' although i don't know how you handle your offsets, but you get the picture."

Might take that into consideration.......Thanks!

(\__/) HHAHAHAHAHAH!
(O.o ) / WORLD DOMINATION!!!!!!!!!!
(> < )

Back to top

Profile PM

dark basic code

14

Years of Service

User Offline

Joined: 26th Jan 2010

Location: US

Posted: 1st May 2010 17:24

Link

i have DB classic on my computer disinged for windows 98. the edetor runs fine but when i exicuite even when the compilation is sucessful i get this error message; "system error:surfaces couldnt be created .D3D devices do not support backbuffer bit dephth and HW acceleration." how do fix this or is thes mean i cant play the games i made

.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Help me?

Attachments

Attachments