DBC - For - Next Loop Problem - GameCreators Forum

Author

Message

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 16th Oct 2005 16:19 Edited at: 25th Oct 2005 02:41

Link

Levels = 2
Level = 1
largestmap = 69
tilesize = 64
playerx = 0
playery = 0
direction = 2
windowsizex = 4
windowsizey = 3
Dim mapsize(2,2)
mapsize(1,1) = 68: mapsize(1,2) = 65
mapsize(2,1) = 69: mapsize(2,2) = 69
Dim Map$(largestmap,largestmap,levels,2)

Load image "title.jpg",1
Load image "door.jpg",2
Load image "floor.jpg",3
Load image "key.jpg",4
Load image "locked door.jpg",5
Load image "open door.jpg",6
Load image "stairs up.jpg",7
Load image "stairs down.jpg",8
Load image "wall.jpg",9
Load image "playerup.bmp",10
Load image "playerdown.bmp",11
Load image "playerleft.bmp",12
Load image "playerright.bmp",13

Sync on

gosub Loadmap

gosub refreshscreen

suspend for key

Do

If shiftkey() = 1 then end

gosub refreshscreen

sync

Loop

`***SUBPROGRAM: LOADMAP***
LOADMAP:

For I = 1 to levels
    Filename$ = "level"+str$(I)+".map"
    open to read 1,filename$
    For y = 1 to mapsize(I,2)
        For x = 1 to mapsize(I,1)
            read string 1,map$(x,y,I,1)
        next x
    next y
    close file 1
next I

For y = 1 to mapsize(level)
    For x = 1 to mapsize(level)
        If map$(x,y,level,1) = "down"
           playerx = x
           playery = y
        endif
    next x
next y

return

`***SUBPROGRAM: REFRESHSCREEN***
REFRESHSCREEN:

xpos = 0
ypos = 0

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - screensizex)
      ypos = y - (playery - screensizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesixe,ypos*tilesize
   next x
   ypos = ypos + tilesize
next y

If direction = 1 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,10
   If direction = 2 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,11
   If direction = 3 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,12
   If direction = 4 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,13

Return

+ Code Snippet

Levels = 2
Level = 1
largestmap = 69
tilesize = 64
playerx = 0
playery = 0
direction = 2
windowsizex = 4
windowsizey = 3
Dim mapsize(2,2)
mapsize(1,1) = 68: mapsize(1,2) = 65
mapsize(2,1) = 69: mapsize(2,2) = 69
Dim Map$(largestmap,largestmap,levels,2)

Load image "title.jpg",1
Load image "door.jpg",2
Load image "floor.jpg",3
Load image "key.jpg",4
Load image "locked door.jpg",5
Load image "open door.jpg",6
Load image "stairs up.jpg",7
Load image "stairs down.jpg",8
Load image "wall.jpg",9
Load image "playerup.bmp",10
Load image "playerdown.bmp",11
Load image "playerleft.bmp",12
Load image "playerright.bmp",13

Sync on

gosub Loadmap

gosub refreshscreen

suspend for key

Do

If shiftkey() = 1 then end

gosub refreshscreen

sync

Loop



`***SUBPROGRAM: LOADMAP***
LOADMAP:

For I = 1 to levels
    Filename$ = "level"+str$(I)+".map"
    open to read 1,filename$
    For y = 1 to mapsize(I,2)
        For x = 1 to mapsize(I,1)
            read string 1,map$(x,y,I,1)
        next x
    next y
    close file 1
next I

For y = 1 to mapsize(level)
    For x = 1 to mapsize(level)
        If map$(x,y,level,1) = "down"
           playerx = x
           playery = y
        endif
    next x
next y

return

`***SUBPROGRAM: REFRESHSCREEN***
REFRESHSCREEN:

xpos = 0
ypos = 0

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - screensizex)
      ypos = y - (playery - screensizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesixe,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesixe,ypos*tilesize
   next x
   ypos = ypos + tilesize
next y

   If direction = 1 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,10
   If direction = 2 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,11
   If direction = 3 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,12
   If direction = 4 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,13

Return

A screenshot is attached. Please help. I know the problem is in the For - Next loop where it draws the tiles on the screen.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 17th Oct 2005 00:05

Link

Please explain your plroblem in details.
What happens? What was SUPPOSED to happen?

Back to top

Profile PM Email

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 17th Oct 2005 00:25

Link

You are positioning your tiles relative to a variable called tilesixe which has no value and so zero will be used.

Perhaps you mean tilesize which does have a value

Great Britain would be Amazing Britain if it wasn't for idiots like you bringing down the average!

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 17th Oct 2005 00:50 Edited at: 25th Oct 2005 02:41

Link

whoops. That is the problem. Thanks.

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 17th Oct 2005 01:21 Edited at: 25th Oct 2005 02:41

Link

Here is the new code:

Levels = 2
Level = 1
largestmap = 69
tilesize = 64
playerx = 0
playery = 0
direction = 2
windowsizex = 4
windowsizey = 3
Dim mapsize(2,2)
mapsize(1,1) = 68: mapsize(1,2) = 65
mapsize(2,1) = 69: mapsize(2,2) = 69
Dim Map$(largestmap,largestmap,levels,2)

Load image "title.jpg",1
Load image "door.jpg",2
Load image "floor.jpg",3
Load image "key.jpg",4
Load image "locked door.jpg",5
Load image "open door.jpg",6
Load image "stairs up.jpg",7
Load image "stairs down.jpg",8
Load image "wall.jpg",9
Load image "playerup.bmp",10
Load image "playerdown.bmp",11
Load image "playerleft.bmp",12
Load image "playerright.bmp",13

Sync on

gosub Loadmap

gosub refreshscreen

suspend for key

Do

If shiftkey() = 1 then end

gosub refreshscreen

sync

Loop

`***SUBPROGRAM: LOADMAP***
LOADMAP:

For I = 1 to levels
    Filename$ = "level"+str$(I)+".map"
    open to read 1,filename$
    For y = 1 to mapsize(I,2)
        For x = 1 to mapsize(I,1)
            read string 1,map$(x,y,I,1)
        next x
    next y
    close file 1
next I

For y = 1 to mapsize(level)
    For x = 1 to mapsize(level)
        If map$(x,y,level,1) = "down"
           playerx = x
           playery = y
        endif
    next x
next y

return

`***SUBPROGRAM: REFRESHSCREEN***
REFRESHSCREEN:

xpos = 0
ypos = 0

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - windowsizex)
      ypos = y - (playery - windowsizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesize,ypos*tilesize
   next x
   ypos = ypos + tilesize
next y

If direction = 1 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,10
   If direction = 2 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,11
   If direction = 3 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,12
   If direction = 4 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,13

Return

+ Code Snippet

Levels = 2
Level = 1
largestmap = 69
tilesize = 64
playerx = 0
playery = 0
direction = 2
windowsizex = 4
windowsizey = 3
Dim mapsize(2,2)
mapsize(1,1) = 68: mapsize(1,2) = 65
mapsize(2,1) = 69: mapsize(2,2) = 69
Dim Map$(largestmap,largestmap,levels,2)

Load image "title.jpg",1
Load image "door.jpg",2
Load image "floor.jpg",3
Load image "key.jpg",4
Load image "locked door.jpg",5
Load image "open door.jpg",6
Load image "stairs up.jpg",7
Load image "stairs down.jpg",8
Load image "wall.jpg",9
Load image "playerup.bmp",10
Load image "playerdown.bmp",11
Load image "playerleft.bmp",12
Load image "playerright.bmp",13

Sync on

gosub Loadmap

gosub refreshscreen

suspend for key

Do

If shiftkey() = 1 then end

gosub refreshscreen

sync

Loop



`***SUBPROGRAM: LOADMAP***
LOADMAP:

For I = 1 to levels
    Filename$ = "level"+str$(I)+".map"
    open to read 1,filename$
    For y = 1 to mapsize(I,2)
        For x = 1 to mapsize(I,1)
            read string 1,map$(x,y,I,1)
        next x
    next y
    close file 1
next I

For y = 1 to mapsize(level)
    For x = 1 to mapsize(level)
        If map$(x,y,level,1) = "down"
           playerx = x
           playery = y
        endif
    next x
next y

return

`***SUBPROGRAM: REFRESHSCREEN***
REFRESHSCREEN:

xpos = 0
ypos = 0

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - windowsizex)
      ypos = y - (playery - windowsizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesize,ypos*tilesize
   next x
   ypos = ypos + tilesize
next y

   If direction = 1 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,10
   If direction = 2 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,11
   If direction = 3 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,12
   If direction = 4 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,13

Return

It still doesn't work. It looks like this now:

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 17th Oct 2005 04:07

Link

Did you know if you used numbers instead of strings you can save yourself some trouble?

If the map data are all numbers you can use them as the image numbers... saving yourself some extra coding checking the string to determine what image number to use.

I hope you don't take offense to this.

Code example of using numbers instead:

+ Code Snippet

sync rate 0
sync on
hide mouse

for t=1 to 20
 ink rgb(0,255,0),0
 box 0,0,32,24
 ink rgb(0,0,255),0
 center text 15,5,str$(t)
 get image t,0,0,32,24,1
next t

dim Map(1000,1000)

for x=0 to 1000
 for y=0 to 1000
  Map(x,y)=rnd(19)+1
 next y
next x

mx=0:my=0
a=timer()
do
 gosub DrawMap
 if timer()>a+100 then inc mx:a=timer()
 sync
loop

DrawMap:
 x=0:y=0:sx=mx:sy=my
 do
  paste image Map(mx,my),x,y
  inc mx
  inc x,32
  if x>608
   x=0
   mx=sx
   inc my
   inc y,24
   if y>456
    my=sy
    exit  
   endif
  endif
 loop
return

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 18th Oct 2005 02:06 Edited at: 25th Oct 2005 02:42

Link

I will do that once it gets fixed. I don't want another thing that could cause a bug untill after I get rid of all the bugs already there.

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 21st Oct 2005 00:48 Edited at: 25th Oct 2005 02:42

Link

*bump*
Please help!!!

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 21st Oct 2005 02:15

Link

Without all the media it's hard to test... but it seems to me your overcomplicating the tile placement.

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 22nd Oct 2005 01:09 Edited at: 25th Oct 2005 02:42

Link

Here is the media...

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 22nd Oct 2005 05:39 Edited at: 22nd Oct 2005 05:47

Link

It's just as I thought... overcomplicating. It's the for/next loops. The following code does not fix it... it just shows you why it's not working. I added a screenshot for quick reference.

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - windowsizex)
      ypos = y - (playery - windowsizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesize,ypos*tilesize
      
      ` These 4 lines will show the current x and y of the map data
      if map$(x,y,level,1)="" then map$(x,y,level,1)="Nothing"
      text xpos*tilesize,ypos*tilesize,map$(x,y,level,1)
      text xpos*tilesize,ypos*tilesize+20,"X="+str$(x)
      text xpos*tilesize,ypos*tilesize+40,"Y="+str$(y)
   
   next x
   ypos = ypos + tilesize
next y

+ Code Snippet

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - windowsizex)
      ypos = y - (playery - windowsizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesize,ypos*tilesize
      
      ` These 4 lines will show the current x and y of the map data
      if map$(x,y,level,1)="" then map$(x,y,level,1)="Nothing"
      text xpos*tilesize,ypos*tilesize,map$(x,y,level,1)
      text xpos*tilesize,ypos*tilesize+20,"X="+str$(x)
      text xpos*tilesize,ypos*tilesize+40,"Y="+str$(y)
   
   next x
   ypos = ypos + tilesize
next y

Because the x and y start way beyond the map data you get a whole bunch of "Nothing"'s.

Attachments

Login to view attachments

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 22nd Oct 2005 16:15 Edited at: 25th Oct 2005 02:42

Link

What should I do then?

I'm not sure what you mean by

Quote: "Because the x and y start way beyond the map data you get a whole bunch of "Nothing"'s"

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 22nd Oct 2005 21:01

Link

Quote: "What should I do then?

I'm not sure what you mean by

Quote: "Because the x and y start way beyond the map data you get a whole bunch of "Nothing"'s""

Look at the picture. In the first tile location (upper left corner) it says "Nothing" and right under that it says that "x=-4" and "y=-3". In the code the map data loaded goes from 1 to 68 for x and 1 to 65 for y. So if x is -4 and y is -3 then you don't have any data for that tile location because it is beyond 1 to 68 and 1 to 65. "Nothing" is written because of this line:

+ Code Snippet

if map$(x,y,level,1)="" then map$(x,y,level,1)="Nothing"

Meaning if map$(x,y,level,1) = no text at all... change it to "Nothing". I did that to show you that when you see "Nothing" that means the data for that location is non-existant.

You need to change x to start at 1 and y to start at 1... or move the "down" farther into the map so that you don't see "Nothing" data.

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 23rd Oct 2005 00:35 Edited at: 25th Oct 2005 02:42

Link

Ok. Your post helped me figure out the problem. The Playerx and Playery variables are 0 when they aren't supposed to be. I had this code in the program that got the playerx and Playery coordinates from the Level.map file. For some reason it doesn't work. The part in the file that says "down" is where the player is supposed to start. Here is the code that was supposed to do that:

+ Code Snippet

`***SUBPROGRAM: LOADMAP***
LOADMAP:

For I = 1 to levels
    Filename$ = "level"+str$(I)+".map"
    open to read 1,filename$
    For y = 1 to mapsize(I,2)
        For x = 1 to mapsize(I,1)
            read string 1,map$(x,y,I,1)
        next x
    next y
    close file 1
next I

For y = 1 to mapsize(level)
    For x = 1 to mapsize(level)
        If map$(x,y,level,1) = "down"
           playerx = x
           playery = y
        endif
    next x
next y

return

The second part is the part that looks through the map array for the down thingy.

Edit: After it looks for "down" I added:

+ Code Snippet

Playerx = 27
Playery = 37

which is what they are supposed to be and it worked. I attached the screenshot. So the problem is in the Load Map part.

Edit (again): Ok. I fixed it. I had Mapsize(level) instead of Mapsize(level,1).

Thanks for your help!

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 23rd Oct 2005 01:26

Link

Quote: "which is what they are supposed to be and it worked. I attached the screenshot. So the problem is in the Load Map part.

Edit (again): Ok. I fixed it. I had Mapsize(level) instead of Mapsize(level,1)."

(looking at the picture) Ah... much better.

Quote: "Thanks for your help! "

np

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 24th Oct 2005 00:21 Edited at: 25th Oct 2005 02:42

Link

ok. I added some more, but encountered another bug I con't figure out.

Levels = 2
Level = 1
largestmap = 69
tilesize = 64
playerx = 0
playery = 0
direction = 2
windowsizex = 4
windowsizey = 3
Dim mapsize(2,2)
mapsize(1,1) = 68: mapsize(1,2) = 65
mapsize(2,1) = 69: mapsize(2,2) = 69
Dim Map$(largestmap,largestmap,levels,2)

Load image "title.jpg",1
Load image "door.jpg",2
Load image "floor.jpg",3
Load image "key.jpg",4
Load image "locked door.jpg",5
Load image "open door.jpg",6
Load image "stairs up.jpg",7
Load image "stairs down.jpg",8
Load image "wall.jpg",9
Load image "playerup.bmp",10
Load image "playerdown.bmp",11
Load image "playerleft.bmp",12
Load image "playerright.bmp",13

Sync on
sync rate 0

gosub Loadmap

gosub refreshscreen

suspend for key

Do

gosub keystuff

sync

Loop

`***SUBPROGRAM: LOADMAP***
LOADMAP:

For I = 1 to levels
    Filename$ = "level"+str$(I)+".map"
    open to read 1,filename$
    For y = 1 to mapsize(I,2)
        For x = 1 to mapsize(I,1)
            read string 1,map$(x,y,I,1)
        next x
    next y
    close file 1
next I

For y = 1 to mapsize(level,2)
    For x = 1 to mapsize(level,1)
        If map$(x,y,level,1) = "down"
           playerx = x
           playery = y
        endif
    next x
next y

return

`***SUBPROGRAM: REFRESHSCREEN***
REFRESHSCREEN:

xpos = 0
ypos = 0

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - windowsizex)
      ypos = y - (playery - windowsizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesize,ypos*tilesize

next x
next y

If direction = 1 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,10
   If direction = 2 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,11
   If direction = 3 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,12
   If direction = 4 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,13

Return

`***SUBPROGRAM: KEYSTUFF***
Keystuff:

If upkey() = 1
   direction = 1
   playery = playery - 1
   gosub refreshscreen
endif

If downkey() = 1
   direction = 2
   playery = playery = 1
   gosub refreshscreen
endif

If leftkey() = 1
   direction = 3
   playerx = playerx - 1
   gosub refreshscreen
endif

If rightkey() = 1
   direction = 4
   playerx = playerx + 1
   gosub refreshscreen
endif

return

+ Code Snippet

Levels = 2
Level = 1
largestmap = 69
tilesize = 64
playerx = 0
playery = 0
direction = 2
windowsizex = 4
windowsizey = 3
Dim mapsize(2,2)
mapsize(1,1) = 68: mapsize(1,2) = 65
mapsize(2,1) = 69: mapsize(2,2) = 69
Dim Map$(largestmap,largestmap,levels,2)

Load image "title.jpg",1
Load image "door.jpg",2
Load image "floor.jpg",3
Load image "key.jpg",4
Load image "locked door.jpg",5
Load image "open door.jpg",6
Load image "stairs up.jpg",7
Load image "stairs down.jpg",8
Load image "wall.jpg",9
Load image "playerup.bmp",10
Load image "playerdown.bmp",11
Load image "playerleft.bmp",12
Load image "playerright.bmp",13

Sync on
sync rate 0

gosub Loadmap

gosub refreshscreen

suspend for key

Do

gosub keystuff

sync

Loop



`***SUBPROGRAM: LOADMAP***
LOADMAP:

For I = 1 to levels
    Filename$ = "level"+str$(I)+".map"
    open to read 1,filename$
    For y = 1 to mapsize(I,2)
        For x = 1 to mapsize(I,1)
            read string 1,map$(x,y,I,1)
        next x
    next y
    close file 1
next I

For y = 1 to mapsize(level,2)
    For x = 1 to mapsize(level,1)
        If map$(x,y,level,1) = "down"
           playerx = x
           playery = y
        endif
    next x
next y

return

`***SUBPROGRAM: REFRESHSCREEN***
REFRESHSCREEN:

xpos = 0
ypos = 0

For y = playery - windowsizey to playery + windowsizey
   For x = playerx - windowsizex to playerx + windowsizex
      xpos = x - (playerx - windowsizex)
      ypos = y - (playery - windowsizey)
      If map$(x,y,level,1) = "wall" then paste image 9,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "door" then paste image 2,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "floor" then paste image 3,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "key" then paste image 4,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "lock" then paste image 5,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "open" then paste image 6,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "up" then paste image 7,xpos*tilesize,ypos*tilesize
      If map$(x,y,level,1) = "down" then paste image 8,xpos*tilesize,ypos*tilesize

   next x
next y

   If direction = 1 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,10
   If direction = 2 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,11
   If direction = 3 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,12
   If direction = 4 then sprite 1,windowsizex*tilesize,windowsizey*tilesize,13

Return

`***SUBPROGRAM: KEYSTUFF***
Keystuff:

If upkey() = 1
   direction = 1
   playery = playery - 1
   gosub refreshscreen
endif

If downkey() = 1
   direction = 2
   playery = playery = 1
   gosub refreshscreen
endif

If leftkey() = 1
   direction = 3
   playerx = playerx - 1
   gosub refreshscreen
endif

If rightkey() = 1
   direction = 4
   playerx = playerx + 1
   gosub refreshscreen
endif

return

The player won't move.

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 24th Oct 2005 05:30

Link

Quote: "The player won't move."

It seems to be working to me. It's just a little messed up because you don't have any checks for the player limits... so it goes off the map data pretty quick.

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 24th Oct 2005 14:51 Edited at: 25th Oct 2005 02:42

Link

Whenever I push the arrow keys the player just stays there and doesn't turn or anything. It isn't picking up the keyboard. I added
If shiftkey() = 1 then end
in the loop, but it didn't do anythingy if I pressed that either.

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 24th Oct 2005 20:26

Link

Quote: "Whenever I push the arrow keys the player just stays there and doesn't turn or anything. It isn't picking up the keyboard. I added
If shiftkey() = 1 then end
in the loop, but it didn't do anythingy if I pressed that either.
"

Sorry I looked at it with Pro. I messed with it a little bit... it's strange because in Classic your code tends to freeze up. When I remed off the placement of the players sprite it worked... but the map routine is still flawed so it's not working properly. I really think you need to convert your string map to numbers before you go on.

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 24th Oct 2005 23:50 Edited at: 25th Oct 2005 02:42

Link

I'll try that when I have time.

Thanks

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 29th Oct 2005 16:49

Link

I tried getting rid of the pasting the player sprite, but it still doesn't work. I haven't been able to try this because I have been busy with my Map Editor Program.

Quote: "I really think you need to convert your string map to numbers before you go on."

Um...sorry. I don't want to do that because it always ends up making more bugs. I don't want to use numbers because it would be hard for me to know which number is what tile. I know there are probably a hundred reasons why it would be easier, but that is how I program.

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 30th Oct 2005 03:22

Link

Quote: "I tried getting rid of the pasting the player sprite, but it still doesn't work. I haven't been able to try this because I have been busy with my Map Editor Program.

Um...sorry. I don't want to do that because it always ends up making more bugs. I don't want to use numbers because it would be hard for me to know which number is what tile. I know there are probably a hundred reasons why it would be easier, but that is how I program."

Right.

One of the first things that people do is make an editor like you're doing. You don't need to know what number equals what tile because you can make it so you don't even see the numbers because you load/save maps in the editor.

It's ok... we all have our own styles of programming.

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 30th Oct 2005 14:59 Edited at: 30th Oct 2005 14:59

Link

Never Mind...
I trashed this project. I will try again once I finish my editor.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / DBC - For - Next Loop Problem

Attachments

Attachments

Attachments

Attachments