Hi All
Heres a bit of code that grabs the numbers 0-9 and turns them into a roll down counter.(bad discription run code make more sence).
Rem Project: mileometewr2
Rem Created: 11/03/2006 22:13:36
Rem ***** Main Source File *****
set display mode 1024,768,32
set text font "Airal"
backdrop on
color backdrop 0
set image colorkey 255,0,255
dim sp(9)
global imagenumber tw text_size set_x set_y set_num background spinspeed
text_size=250
set_x=948
set_y=112
set_num=12
imagenumber=2000
background=1
spinspeed=5
getspritenumbers()
do
movenumbers()
sync
loop
function movenumbers()
for i=0 to 7
sprite set_num+i,set_x-(tw*i),set_y,sp(i)
set sprite diffuse set_num,255,0,0
next i
for i=0 to 7
if sp(i)>=imagenumber-1 then sp(i)=2000 : if i<=7 then inc sp(i+1)
next i
inc sp(0)
for i=0 to 6
if sp(i)>imagenumber-10 then inc sp(i+1)
next i
endfunction
function getspritenumbers()
for k=0 to 9
sp(k)=2000
next k
rem punt number on screen to grab
set text size text_size
set text to bold
set cursor 0,0
print "1234567890"
print "0123456789"
rem height
th=text height("8")
rem width
tw=text width("8")
rem image start number
rem grab 10 parts of number and make sprites
for w=0 to 9
for i=0 to 9
get image imagenumber,w*tw,th-((th/9)*i),(w*tw)+tw,th*2-((th/9)*i)
inc imagenumber
next i
next w
rem background
box 0,0,screen width(),screen height(),RGB(0,64,128),RGB(128,128,255),RGB(0,0,255),RGB(0,0,160)
get image background,0,0,screen width(),screen height()
sprite 1,0,0,1
rem set timer
time=timer()
rem start image
`sp=2000
sprite set_num+1,0,0,background
endfunction
ps can use any size font and be positon anywhere on screen x,y point taken from top right.
I'm not getting you down am I, Ho Look! another fancy Door?
