'Ein paar 3D Texteffekte erzeugen und noch 
'paar Spielereien ;)
'Rolf Koch Roko-Software 2001 
'Viel Spaß beim probieren
declare font%,text%,font2%,text2%,font3%,text3%,zeit%,ende%

'** Einfache Spielerei an Text 2 ******
PROC TEXT2
 SetText text2%,""
 sleep 100
 SetText text2%,"u"
 sleep 100
 settext text2%,"un"
 sleep 100
 settext text2%,"und"
 sleep 100
 settext text2%,"und n"
 sleep 100
 settext text2%,"und no"
 sleep 100
 settext text2%,"und noc"
 sleep 100
 settext text2%,"und noch"
 sleep 100
 settext text2%,"und noch e"
 sleep 100
 settext text2%,"und noch ei"
 sleep 100
 settext text2%,"und noch ein"
 sleep 100
 settext text2%,"und noch ein T"
 sleep 100
 settext text2%,"und noch ein Te"
 sleep 100
 settext text2%,"und noch ein Tes"
 sleep 100
 settext text2%,"und noch ein Test"
ENDPROC

SetTrueColor 1
Cls RGB(192,192,192)
SetTrueColor 1
Windowtitle "Einfach 3 D Text gestalten (c) Rolf Koch"
font%=CreateFont("Times New Roman",50,0,0,1,0)
font2%=CreateFont("COURIER NEW",50,0,0,1,0)
font3%=CreateFont("ARIAL",150,0,1,1,0)
text%=CreateText (%hwnd,"Dies ist ein Test",5,5,300,50)
text2%=CreateText (%hwnd,"und noch ein Test",5,75,500,50)
text3%=CreateText (%hwnd,"3D TEXT",5,175,600,150)
SetFont text%,font%
SetFont text2%,font2%
SetFont text3%,font3%
EnableWindow text%,0
EnableWindow text2%,0
EnableWindow text3%,0
whilenot ende%
TEXT2		'Spielerei ;)
EnableWindow text3%,0
EnableWindow text2%,1
sleep 500	'im normalen Programm natürlich Timer
		'damit das Programm weiterläuft!
EnableWindow text3%,1
EnableWindow text2%,0
sleep 500
wend
Deleteobject font%
Deleteobject font2%
DeleteObject font3%