XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Text in 3D style (with one couple Spielereien)
executable ex Profan-Version 7.0
One couple 3D-Texteffekte produce and yet
couple Spielereien ;)
Rolf cook Roko-software 2001
plenty Fun at try
declare font%,Text%,font2%,Text2%,font3%,Text3%,time%,end%
** Einfache Spielerei on Text 2 ******

PROC TEXT2

    SetText Text2%,
    sleep 100
    SetText Text2%,u
    sleep 100
    settext Text2%,un
    sleep 100
    settext Text2%,and
    sleep 100
    settext Text2%,and n
    sleep 100
    settext Text2%,and no
    sleep 100
    settext Text2%,and noc
    sleep 100
    settext Text2%,and yet
    sleep 100
    settext Text2%,and yet e
    sleep 100
    settext Text2%,and yet egg
    sleep 100
    settext Text2%,and yet one
    sleep 100
    settext Text2%,and yet one T
    sleep 100
    settext Text2%,and yet one th
    sleep 100
    settext Text2%,and yet one Tes
    sleep 100
    settext Text2%,and yet one Test

ENDPROC

SetTrueColor 1
Cls RGB(192,192,192)
SetTrueColor 1
Windowtitle simply 3D-Text style (c) Rolf cook
font%=CreateFont(Times New novel,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,this is one Test,5,5,300,50)
text2%=CreateText (%hwnd,and yet one 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 end%

    TEXT2		Spielerei ;)
    EnableWindow Text3%,0
    EnableWindow Text2%,1
    sleep 500	in the normalen Program naturally Timer
    so the Program weiterläuft!
    EnableWindow Text3%,1
    EnableWindow Text2%,0
    sleep 500

wend

Deleteobject font%
Deleteobject font2%
DeleteObject font3%