OK, you need two files here (provided by me) one is the font bitmpa and the other a reference file for the possible characters that it can load, (all the ones you can make with a keyboard)
By the way you need DB enhanced, in DB PRO it looks $hite cuz of the anti-aliasing.
Here's the code:
-------------------------------------------------------
sync on : sync rate 0
open to read 1,"font.txt"
load image "base.bmp",1
dim stringref$(200)
dim strings$(20)
dim strings_exist(20)
dim strings_x(20)
dim strings_y(20)
dim strings_d(20)
strings_exist(1)=1 : strings$(1)= ".:Welcome to Al's program:." : strings_x(1)=320 : strings_y(1)=150
strings_exist(2)=1 : strings$(2)= ".:Hello:." : strings_x(2)=320 : strings_y(2)=70
strings_exist(3)=1 : strings$(3)= "" : strings_x(3)=0 : strings_y(3)=300 : strings_d(3)=2
strings_exist(4)=1 : strings$(4)= "" : strings_x(4)=0 : strings_y(4)=14 : strings_d(4)=2
strings_exist(5)=1 : strings$(5)= "Frame rate:" : strings_x(5)=320 : strings_y(5)=14
strings_exist(6)=1 : strings$(6)= "total_dysfunction@hotmail.com" : strings_x(6)=320 : strings_y(6)=400
cls
paste image 1,0,0
count = 1
get image count,0,0,16,20,1
stringref$(count)=" "
for y = 1 to 5
for x = 1 to 20
inc count
read string 1,name$
get image count,(19*x)+2,(25*y)+2,(19*x)+18,(25*y)+23,1
stringref$(count)=name$
next x
next y
close file 1
backdrop on
do
gosub fps
gosub draw_strings
gosub command
gosub _enter_thisentry
sync
loop
draw_strings:
for checker = 1 to 10
if strings_exist(checker)=1
xposition = strings_x(checker)
yposition = strings_y(checker)
value$ = strings$(checker)
lengthc = len(value$)
for ex = 1 to lengthc
extract$ = left$(value$,ex)
extract$ = right$(extract$,1)
value2 = 100
for find = 1 to 100
if stringref$(find) = extract$ then value2 = find : goto found
next find
found:
if strings_d(checker)=0
length = (lengthc*12)/2
paste image value2,((xposition-length)+(ex*12))-12,yposition-11,1
endif
if strings_d(checker)=2
paste image value2,((xposition-12)+(ex*12)),yposition-11,1
endif
next ex
endif
next checker
return
command:
id$ = left$(command$,1)
if id$ = "\"
length = len(command$)-1
rest$ = right$(command$,length)
if rest$ = "exit" then end
command$ = "error: illegal call"
endif
strings$(4) = command$
return
fps:
strings$(5) = "Frame rate " + str$(screen fps())
strings_x(5) = mousex()
strings_y(5) = mousey()
return
_enter_thisentry:
if scancode() 28
cc=1-cc : if cc=0 then cc$="_" else cc$=" "
k$=entry$()
clear entry buffer
for k=1 to len(k$)
y$=mid$(k$,k)
if asc(y$)=8
strings$(3)=left$(strings$(3),len(strings$(3))-1)
else
if asc(y$)>=32
strings$(3)=strings$(3)+y$
endif
endif
next k
else
if oldk$ = ""
command$ = strings$(3) : strings$(3) = "" : oldk$ = inkey$() : return
endif
endif
oldk$ = inkey$()
return
--------------------------------------------------------
Here is the contents of the text file you will need, should be called font.txt,
--------------------------------------------------------
!
"
#
$
%
&
'
(
)
*
+
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
£
*
*
*
*
*
-----------------------------------------------------------
This bitmap should also be in the same directory, called
base.bmp
-----------------------------------------------------------
[img]D:\Dark Basic Software\Dark Basic\myproj\ownfont\font.bmp[/img]
