XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Texto en 3D gestalten (con una pocos Spielereien)
Lauffähig de Profano-Versión 7.0
Ein pocos 3D-Texteffekte erzeugen y todavía
pocos Spielereien ;)
Rolf Koch Roko-Software 2001
Viel Spaß beim probieren
declarar font%,texto%,font2%,texto2%,font3%,texto3%,zeit%,ende%
** Einfache Spielerei a Texto 2 ******

PROC TEXT2

    SetText texto2%,
    sleep 100
    SetText texto2%,u
    sleep 100
    settext texto2%,un
    sleep 100
    settext texto2%,y
    sleep 100
    settext texto2%,y n
    sleep 100
    settext texto2%,y no
    sleep 100
    settext texto2%,y noc
    sleep 100
    settext texto2%,y todavía
    sleep 100
    settext texto2%,y todavía e
    sleep 100
    settext texto2%,y todavía ei
    sleep 100
    settext texto2%,y todavía una
    sleep 100
    settext texto2%,y todavía una T
    sleep 100
    settext texto2%,y todavía una Te
    sleep 100
    settext texto2%,y todavía una Tes
    sleep 100
    settext texto2%,y todavía una Test

ENDPROC

SetTrueColor 1
Cls RGB(192,192,192)
SetTrueColor 1
Windowtitle Einfach 3D-Texto 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 es una Test,5,5,300,50)
text2%=CreateText (%hwnd,y todavía una Test,5,75,500,50)
text3%=CreateText (%hwnd,3D TEXT,5,175,600,150)
SetFont texto%,font%
SetFont texto2%,font2%
SetFont texto3%,font3%
EnableWindow texto%,0
EnableWindow texto2%,0
EnableWindow texto3%,0

whilenot ende%

    TEXT2		Spielerei ;)
    EnableWindow texto3%,0
    EnableWindow texto2%,1
    sleep 500	en el normalen Programa natürlich Temporizador
    así el Programa weiterläuft!
    EnableWindow texto3%,1
    EnableWindow texto2%,0
    sleep 500

wend

Deleteobject font%
Deleteobject font2%
DeleteObject font3%