Scores are done just like bitmap fonts. We grab image numbers based on the ASCII character chart. On that chart numbers 0 to 9 are actually numbers 48 to 57. Once the images are grabbed using those ASCII numbers we can convert the score to a string, then use a simple FOR/NEXT loop with the ASC() command and MID$() to find out what ASCII numbers each character in the string actually are. For example if you have a score of 48200 and you did an ASC() check for each number they would be numbers 52 56 50 48 48. So if you grabbed an image of 4 as image number 52 pasting image number 52 would always show 4. It sounds complicated but it isn't.
set text size 60
` Create numbers 0 to 9 as image numbers 48 - 57 on the ASCII chart
for t=48 to 57
` Make the box
ink rgb(0,255,0),0
box 0,0,50,50
` Show the numbers 0 to 9
ink rgb(255,255,255),0
center text 25,25-text height(str$(Num))/2,str$(Num)
` Grab the image as image numbers 48 - 57
get image t,0,0,50,50,1
` Go to next number
inc Num
next t
do
cls
` Show the score at the mouse coordinates
ShowScore(mousex(),mousey(),Score)
` Increase Score
inc Score
` Wait a bit
wait 50
loop
end
function ShowScore(x,y,Score)
` Change the score to a string
Score$=str$(Score)
` Go through each character in the string
for t=1 to len(Score$)
` Paste the ASCII value of each character in the string
paste image asc(mid$(Score$,t)),x,y
` Increase x for the next number
inc x,50
next t
endfunction
Here's the ASCII chart:
