Qbasicnews.com

hey everyone im working on graphics bitmaps and such, having a great time learning but im stuck. here is the code


it keeps saying out of data...what have i done wrong????? thanks i have only posted the map not the other sprites so as not to take up space. the "out of data" statment occurs right here:
READ map(x, y)

thanks

nothing is wrong with taht part of it (among it not being able to run) so post it all =P

k here is the entire thing thanks

Two things:

1. You are consistent with using NEXT Y and NEXT X, but on one of your READ loops, you only use NEXT and NEXT. It still works, but you might wanna stick with one way or the other (I prefer the first).

2. The program is running out of data because your Wall sprite is looking for a 10x10 grid of numbers but your data statements are only 10x9.

*peace*

Meg.

I learned a new lesson. Don't fall asleep before posting....

i fixed it but its not working, it like not reading fromt the map or somthing. please help

I added one line of 7s to the wall DATA, and it seems to run fine for me. Of course, the jester sprite isn't 10x10 so it won't fit on your map.

What part isn't working for you?

*peace*

Meg.

lol nvm its workign thanks. also can you recommend any programs to add gifs to my programs cause drawing that jester in data statments was a pain. ive looked at tutorals but there to advanced any easy ways to do this?

#1: You can use a library to load pictures for you.

#2: You can make your own picture loading routines, depending on the image format.

I'd recommend #2, because you then get insight about how a file is built up and how it should be loaded. However, it costs more time, depending on the file format you want to load. GIFs are harder than BMPs or PUTs for example. I'd recommend PUTs for sprites (256 colours, generated by PP256), and BMPs for large images, because they're the easiest to be loaded by hand, and the easiest to start with. You can look for file formats at http://www.wotsit.org.
To load a PUT file:
[syntax="QBasic"]SUB LoadPut (PutFile$, Array() AS INTEGER)
FF = FREEFILE
OPEN PutFile$ FOR BINARY AS #FF
l& = LOF(FF) - 7
CLOSE #FF
REDIM Array(l& \ 2 - 1) AS INTEGER
DEF SEG = VARSEG(Array(0))
BLOAD PutFile$, VARPTR(Array(0))
DEF SEG
END SUB[/syntax]
Note: written entirely by heart, don't know if it's correct

Hope it helped you a bit,

Neo

thanks Neo.


meg are you saying my sprite would either have to be 10 by 10 or that my tiles would have to be the same size as the sprite?