Converting Integers to Sprites - GameCreators Forum

Author

Message

Rwilson

23

Years of Service

User Offline

Joined: 19th May 2003

Location: United States

Posted: 16th Nov 2003 04:22 Edited at: 16th Nov 2003 04:23

Link

My question is, what is a good method of converting a variable that consist of a number into a sprite/s? Below, I have a not-quite-finished function that would (Hopefully) place a sprite on screen based on what number it was.

+ Code Snippet

load image "numbers1.jpg",51
load image "numbers2.jpg",52
load image "numbers3.jpg",53
load image "numbers4.jpg",54
load image "numbers5.jpg",55
load image "numbers6.jpg",56
load image "numbers7.jpg",57
load image "numbers8.jpg",58
load image "numbers9.jpg",59

Function ConvertToSprite(X,Y,Num$)
temp1=len(Num$)

rem X Loop
for T = 1 to temp1
Temp2 = val(left$(Num$,T)

select Temp2
case 1
sprite 21,X,Y,51
endcase
case 2
sprite 22,x,y,52
endcase
case 3
sprite 23,x,y,53
endcase
case 4
sprite 24,x,y,54
endcase
case 5
sprite 25,x,y,55
endcase
case 6
sprite 26,x,y,56
endcase
case 7
sprite 27,x,y,57
endcase
case 8
sprite 28,x,y,58
endcase
case 9
sprite 29,x,y,59
endcase
endselect
return

Endfunction

I've already tested a smaller, more complete version (on a different PC), but in the process, I found two problems/questions. 1: I'm hoping to make numbers up in their 1000's, so what would I do if the number consisted of several of the smae digit, such as 1552?

2: I doubt my method is the best way of going about what I want to acheive, or the easiest. Does someone know of a better method?

All suggestions/corrections appreciated!

Usermlsra - Causing Havoc with a Smile

Back to top

Profile PM Email Website

CloseToPerfect

23

Years of Service

User Offline

Joined: 20th Dec 2002

Location: United States

Posted: 16th Nov 2003 04:52

Link

heres mine
I always load in my number pictures 1000-1009 and set my sprites 1000-1010 for 11 digits make more if needed.
Mine is set to use 24 pixel wide number pictures
and I send a number not a string to my function, but you can change that real easy.
anyway now that you know how it works here it is.

+ Code Snippet

Function display_number(x,y,Number)
number$=str$(number)
numberlenght=len(Number$)
for i = 1 to numberlenght
sprite 1000+i,x+(i*24),y,val(mid$(number$,i))+1000
next i
Endfunction

Back to top

Profile PM Email

Rwilson

23

Years of Service

User Offline

Joined: 19th May 2003

Location: United States

Posted: 16th Nov 2003 09:04 Edited at: 16th Nov 2003 09:06

Link

! Why didn't I think of that! Darn you brain, the problems you cause by not working right!

That little funtion will work very well indeed! However, one little thing. Each time you run it, it will replace the previous number printed on screen, thus limiting it to one task. However, this could be resolved by being able to enter the sprite starter number, like so:

+ Code Snippet

Function display_number(x,y,Number,SpriteNum)
number$=str$(number)
numberlenght=len(Number$)
for i = 1 to numberlenght
sprite SpriteNum+i,x+(i*24),y,val(mid$(number$,i))+1000
next i
Endfunction

On a final note, you should put this in the code base, I'd been looking through there for something like this and saw nothing. And I doubt I'm the only one whose looking for something like this.

Usermlsra - Causing Havoc with a Smile

Back to top

Profile PM Email Website

CloseToPerfect

23

Years of Service

User Offline

Joined: 20th Dec 2002

Location: United States

Posted: 16th Nov 2003 16:33

Link

Ok, I put it in the code base. I didn't have anything in there anyway. I did modify it so it won't matter what size your numbers images are.

heres the up date and a example file.

+ Code Snippet

Rem Project: sprite numbers
Rem Created: 11/16/03 8:14:48 AM
rem By: John Chase
rem email: [email protected]
rem find me on the Dark Basic forums or Blitz Basic forums as CloseToPerfect

Rem ***** Main Source File *****

load image "0.bmp", 1000
load image "1.bmp", 1001
load image "2.bmp", 1002
load image "3.bmp", 1003
load image "4.bmp", 1004
load image "5.bmp", 1005
load image "6.bmp", 1006
load image "7.bmp", 1007
load image "8.bmp", 1008
load image "9.bmp", 1009

for i = 1000 to 1010
sprite i, -50, -50, 1000
set sprite i, 0, 1
next i

do
cls
inc score, rnd(100)
display_number(100, 100, score, 1000)
wait 50
loop

Function display_number(x,y,Number,SpriteNumber)
number$=str$(number)
numberlenght=len(Number$)
for i = 1 to numberlenght
sprite SpriteNumber+i,x+(i*sprite width(SpriteNumber+i)),y,val(mid$(number$,i))+1000
next i
Endfunction

CTP

Lifes short, try to enjoy it and not take it to seriously!

Back to top

Profile PM Email

Rob K

Retired Moderator

23

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 16th Nov 2003 17:24

Link

I strongly suggest that you don't worry about assigning ranges of image no.s just write a function to return an available (unused) image id and assign it to a variable.

+ Code Snippet

dim num(9) as integer

for i=0 to 9
  num(i)=FreeImage()
  Load Image "media\numbers\"+str$(i)+".png",num(i)
next i


function FreeImage()
	repeat
		inc i
		if image exist(i)=0 then found=1
	until found
endfunction i

BLUE GUI Plugin: http://blue.robert-knight.net / BLUE IDE [href]http://blueide.sf.net/ - Replacement editor for DBPro[/href]

Back to top

Profile PM Email Website

CloseToPerfect

23

Years of Service

User Offline

Joined: 20th Dec 2002

Location: United States

Posted: 16th Nov 2003 20:18

Link

in Blitz thats how I would do it, just load the image into the array but I way trying to keey it simple in Dark Basic for him.

you could do it like rob suggests the sprite line would be

sprite SpriteNumber+i,x+(i*sprite width(SpriteNumber+i)),y,num(val(mid$(number$,i)))

Just remember if you load some of your images this way you must load all of them this way or you could overwrite a image slot.

personnally with a range of 65000 images slots in DB I just plan out my image usage first 0-100 background image 100-200 objects 200-300 foreground ect. I find it fairly simple to manage them all this way, even when there are several hundred.

On another note Robs method makes deleting the image after the program a little faster as with mine I check the whole range of images where Robs once you found the last image to delete your done.

"everything in its place and a place for everything"

CTP

Lifes short, try to enjoy it and not take it to seriously!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Converting Integers to Sprites