bitmap font sample help needed - GameCreators Forum

Author

Message

battleman100

21

Years of Service

User Offline

Joined: 19th Feb 2003

Location:

Posted: 1st Jul 2003 05:03

Link

Sorry to bring this up again, but can anyone post or direct me to a fully-working bitmap font sample written in DBPro. I have seen several examples before between this forum and the U.S. one, but none of them have worked (in fact, a few have successfully hung my PC

) I only really need it for numbers for my score variable, but I would be happy with anything, as long as it contains code, sample function calls (if needed) and a sample font (just for correct formatting - nothing special, a few letters would do!)

I have been racking my brains over this for the last two days trying to get it to work, but all in vain - please help - pleeeeeeeeeeease!

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 1st Jul 2003 07:56

Link

this small example does this
creates a box the size of the letter +3
places the letter with the text command over the top
grabs it to an image location and does this from 1 to 10

you might might to change it to 0 - 9 thinking about it further.

once its stored them it converts the images to sprites and displays them.

you may wish to make 3d panels perhaps or one 3d panel storing a few images in a row.

+ Code Snippet

sync on
sync rate 60

set text size 16
set text font "verdana"
set text to bold


for i = 1 to 10
cls
ink rgb(0,0,0),1
box 0,0,text width(STR$(i))+3,text height(STR$(i))
ink rgb(250,250,0),1
text 0,0,STR$(i)
get image i,0,0,text width(STR$(i))+3,text height(STR$(i))
cls
next i

for i = 1 to 10
sprite i,20*i,10,i
next i

disable escapekey
while escapekey()=0



sync
endwhile
for i = 1 to 10
delete image i
delete sprite i
next i
end

http://www.lunarpixel.com
http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 1st Jul 2003 09:53

Link

theres a couple of ways you can go next so Ill show you why I look at both ways

the first thing you may be thinking is yeah i can just take 1 away from the i when i print it.

what happens tho is this

sprite 1 = 0
sprite 2 = 1
sprite 3 = 2
sprite 4 = 3
sprite 5 = 4
sprite 6 = 5
sprite 7 = 6
sprite 8 = 7
etc...

and that can be less confusing if you write a condition like in this example

therefore we will assign sprite 10 to represent 0 and the rest will be easier to manage

this example manages the sprites like this

sprite 1 = 1
sprite 2 = 2
sprite 3 = 3
sprite 4 = 4
sprite 5 = 5
sprite 6 = 6
sprite 7 = 7
sprite 8 = 8
sprite 9 = 9
sprite 10 = 0

etc...

+ Code Snippet


sync on
sync rate 60

set text size 32
set text font "verdana"
set text to bold


for i = 1 to 10
cls
ink rgb(0,0,0),1
box 0,0,text width(STR$(i))+3,text height(STR$(i))
ink rgb(250,250,0),1
Letter = i
If Letter = 10 then Letter = 0
text 0,0,STR$(Letter)
get image i,0,0,text width(STR$(i))+3,text height(STR$(i))
cls
next i

for i = 1 to 10
sprite i,20*i,10,i
next i

disable escapekey
while escapekey()=0



sync
endwhile
for i = 1 to 10
delete image i
delete sprite i
next i
end

it depends on what way you want to go but always try to keep it simple and organised to save your sanity