XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Texto: Texto en el Ventana bewegen
Def @CSleep(1) !KERNEL32,Sleep

Proc moveText

    Declarar way%
    Parámetros frompos%,topos%,delays%,txt$
    let way%=0

    Sinestar encargado equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        StartPaint GetActiveWindow()
        DrawText frompos%,20,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,20),getpixel(frompos%-1,20)
            StartPaint GetActiveWindow()
            DrawText frompos%,20,txt$
            EndPaint

        endif

        dec frompos%
        inc way%

    Wend

ENDPROC

Proc FlyText

    Declarar way%,fly%
    Parámetros frompos%,topos%,delays%,txt$
    let fly%=20
    let way%=0

    Sinestar encargado equ(way%,topos%)

        textcolor rgb(0,0,255),-1
        StartPaint GetActiveWindow()
        DrawText frompos%,fly%,txt$
        EndPaint
        @CSleep(delays%)

        ifnot equ(way%,topos%-1)

            textcolor getpixel(frompos%-1,fly%),getpixel(frompos%-1,fly%)
            StartPaint GetActiveWindow()
            DrawText frompos%,fly%,txt$
            EndPaint

        endif

        dec frompos%
        inc way%
        caso mod(frompos%,5):inc fly%

    Wend

ENDPROC

Ejemplo
Settruecolor 1
Cls Rgb(0,255,0)
textcolor rgb(0,0,255),-1
UseFont Arial,30,0,0,0,0
moveText 550,500,10,Wenn Yo stehe drücke una Taste
waitinput
textcolor rgb(0,0,255),-1
UseFont Arial,40,0,0,0,0
flyText 550,450,10,Copyright by Dieter Zornow
waitinput