XProfan

Proc LaufText

    declare leerstring$,Lenght%
    Parameters XPos%,YPos%,Länge%,delay%,handle&, txt$
    Lenght%=Len(txt$)

    whileloop Länge%-Lenght%-4

        leerstring$=leerstring$+" "

    Endwhile

    txt$="   "+txt$+leerstring$

    While 1

        Sleep delay%
        txt$=txt$+Mid$(txt$,1,1)
        txt$=Del$(txt$,1,1)
        StartPaint handle&
        DrawText xpos%,ypos%,"   "+Del$(txt$,Länge%,999999999)+"   "
        EndPaint

    Endwhile

EndProc

'Beispiel
cls RGB(0,0,255)
Windowtitle "Lauftext"
UseFont "Times New Roman",33,0,1,1,0
LaufText 50,30,45,170,%hwnd,"Ich bin ein schöner Lauftext!!!"
'LaufText X-Pos, Y-Pos, Länge [Anzahl gleichzeitig ausgegebener Zeichen], Speed[0=Schnell, 300=Langsam], Handle, Text