I just refreshed the page; looks like Diggsey beat me to it
. I added the numbers (billion, trillion, etc.) that he has in there, but DBP has problems with large numbers so it might be for naught.
Anyway here's another number to name conversion function (with hyphens!):
Function ConvertNumberToName(num as integer)
rem Define stuff
DIM Digits$(9)
Digits$(0)=""
Digits$(1)="One"
Digits$(2)="Two"
Digits$(3)="Three"
Digits$(4)="Four"
Digits$(5)="Five"
Digits$(6)="Six"
Digits$(7)="Seven"
Digits$(8)="Eight"
Digits$(9)="Nine"
DIM Teens$(9)
Teens$(0)="Ten"
Teens$(1)="Eleven"
Teens$(2)="Twelve"
Teens$(3)="Thirteen"
Teens$(4)="Fourteen"
Teens$(5)="Fifteen"
Teens$(6)="Sixteen"
Teens$(7)="Seventeen"
Teens$(8)="Eightteen"
Teens$(9)="Nineteen"
DIM Tens$(9)
Tens$(0)=""
Tens$(1)="Ten"
Tens$(2)="Twenty"
Tens$(3)="Thirty"
Tens$(4)="Forty"
Tens$(5)="Fifty"
Tens$(6)="Sixty"
Tens$(7)="Seventy"
Tens$(8)="Eighty"
Tens$(9)="Ninety"
DIM Higher$(10)
Higher$(0)=""
Higher$(1)="Thousand"
Higher$(2)="Million"
Higher$(3)="Billion"
Higher$(4)="Trillion"
Higher$(5)="Quadrillion"
Higher$(6)="Quintillion"
Higher$(7)="Sextillion"
Higher$(8)="Septillion"
Higher$(9)="Octillion"
Higher$(10)="Nonillion"
rem Divide the number up into parts. Part 1 is the first 3 digits, part 2 is the second 3 digits, etc.. Each part contains 3 digits. The last part may contain fewer if there are only 1 or 2 digits left.
num$=str$(num)
Parts=ceil(len(num$)/3.0)
DIM Parts$(Parts)
pos=1
for p = Parts to 1 step -1
if p=Parts then count=len(num$)-3*floor(len(num$)/3.0) : else : count=3
if count=0 then count=3
repeat
Parts$(p)=Parts$(p)+mid$(num$,pos)
inc pos,1
dec count,1
until count<=0
next p
rem Start building up the number! Do it part by part, first converting it to a hundred number and then adding the needed extra (thousand, million, etc.)
build$=""
for p = 1 to Parts
section$=""
length=0
for c = len(Parts$(p)) to 1 step -1
n = val( mid$(Parts$(p),c) )
Select length
Case 0
section$=Digits$( n )
Endcase
Case 1
if n<>0
if n<>1
if val( mid$(Parts$(p),c+1) )>0 `Check if the previous digit was not a 0. If so then we need a hyphen.
section$=Tens$( n ) + "-" + section$
else
section$=Tens$( n ) + section$
endif
else
section$=Teens$( int(val( mid$(Parts$(p),c) )) ) + section$
endif
endif
Endcase
Case 2
if n<>0
section$ = Digits$( n ) + " Hundred " + section$
endif
Endcase
Endselect
inc length,1
next c
rem Add the extra. No space required if there wasn't an actual number (ex. 1000's 3 digits are just 0's, so there's no actual # and thus no space needed.)
if section$<>""
section$ = section$ + " " + Higher$( p-1 )
else
if val(section$)<>0 then section$ = Higher$( p-1 )
endif
build$ = section$ + " " + build$
next p
Endfunction build$
And here's a function to add commas to your numbers (makes numbers look nicer
)
Function AddCommas(num as integer)
num$=str$(num)
count=0
for s = len(num$) to 1 step -1
inc count,1
build$=mid$(num$,s)+build$
if count=3 and s<>1 then build$=","+build$ : count=0
next s
Endfunction build$
Finally, here's an example:
set text font "Verdana"
set text size 14
while escapekey()=0
input "Enter Number: ",v
print AddCommas(v)
print ConvertNumberToName(v)
print " "
endwhile
end
Function ConvertNumberToName(num as integer)
rem Define stuff
DIM Digits$(9)
Digits$(0)=""
Digits$(1)="One"
Digits$(2)="Two"
Digits$(3)="Three"
Digits$(4)="Four"
Digits$(5)="Five"
Digits$(6)="Six"
Digits$(7)="Seven"
Digits$(8)="Eight"
Digits$(9)="Nine"
DIM Teens$(9)
Teens$(0)="Ten"
Teens$(1)="Eleven"
Teens$(2)="Twelve"
Teens$(3)="Thirteen"
Teens$(4)="Fourteen"
Teens$(5)="Fifteen"
Teens$(6)="Sixteen"
Teens$(7)="Seventeen"
Teens$(8)="Eightteen"
Teens$(9)="Nineteen"
DIM Tens$(9)
Tens$(0)=""
Tens$(1)="Ten"
Tens$(2)="Twenty"
Tens$(3)="Thirty"
Tens$(4)="Forty"
Tens$(5)="Fifty"
Tens$(6)="Sixty"
Tens$(7)="Seventy"
Tens$(8)="Eighty"
Tens$(9)="Ninety"
DIM Higher$(10)
Higher$(0)=""
Higher$(1)="Thousand"
Higher$(2)="Million"
Higher$(3)="Billion"
Higher$(4)="Trillion"
Higher$(5)="Quadrillion"
Higher$(6)="Quintillion"
Higher$(7)="Sextillion"
Higher$(8)="Septillion"
Higher$(9)="Octillion"
Higher$(10)="Nonillion"
rem Divide the number up into parts. Part 1 is the first 3 digits, part 2 is the second 3 digits, etc.. Each part contains 3 digits. The last part may contain fewer if there are only 1 or 2 digits left.
num$=str$(num)
Parts=ceil(len(num$)/3.0)
DIM Parts$(Parts)
pos=1
for p = Parts to 1 step -1
if p=Parts then count=len(num$)-3*floor(len(num$)/3.0) : else : count=3
if count=0 then count=3
repeat
Parts$(p)=Parts$(p)+mid$(num$,pos)
inc pos,1
dec count,1
until count<=0
next p
rem Start building up the number! Do it part by part, first converting it to a hundred number and then adding the needed extra (thousand, million, etc.)
build$=""
for p = 1 to Parts
section$=""
length=0
for c = len(Parts$(p)) to 1 step -1
n = val( mid$(Parts$(p),c) )
Select length
Case 0
section$=Digits$( n )
Endcase
Case 1
if n<>0
if n<>1
if val( mid$(Parts$(p),c+1) )>0 `Check if the previous digit was not a 0. If so then we need a hyphen.
section$=Tens$( n ) + "-" + section$
else
section$=Tens$( n ) + section$
endif
else
section$=Teens$( int(val( mid$(Parts$(p),c) )) ) + section$
endif
endif
Endcase
Case 2
if n<>0
section$ = Digits$( n ) + " Hundred " + section$
endif
Endcase
Endselect
inc length,1
next c
rem Add the extra. No space required if there wasn't an actual number (ex. 1000's 3 digits are just 0's, so there's no actual # and thus no space needed.)
if section$<>""
section$ = section$ + " " + Higher$( p-1 )
else
if val(section$)<>0 then section$ = Higher$( p-1 )
endif
build$ = section$ + " " + build$
next p
Endfunction build$
Function AddCommas(num as integer)
num$=str$(num)
count=0
for s = len(num$) to 1 step -1
inc count,1
build$=mid$(num$,s)+build$
if count=3 and s<>1 then build$=","+build$ : count=0
next s
Endfunction build$
Guns, cinematics, stealth, items and more!
