XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Lauftext (digital) erstellen
Lauffähig ab Profan-Version 5.0
declare posit#
dim posit#,255

proc disposedigitext

    dispose posit#

endproc

proc startdigitext

    declare string$,aktz%,zeichen$
    let string$= !#$%&()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[]^_
    let aktz%=0

    while neq(aktz%,len(string$))

        inc aktz%
        let zeichen$=mid$(string$,aktz%,1)
        byte posit#,ord(zeichen$)=sub(aktz%,1)

    wend

    mloadbmp Anzeige.bmp

endproc

proc digitext

    parameters x%,y%,string$
    declare aktz%,zeichen$,pos%
    let aktz%=0

    while neq(aktz%,len(string$))

        inc aktz%
        let zeichen$=mid$(string$,aktz%,1)
        let pos%=byte(posit#,ord(zeichen$))
        mcopybmp mul(pos%,16),0-17,19 > x%,y%;0
        add x%,15

    wend

endproc

cls 0
startdigitext
randomize
declare text$,x%,y%,timer&
let text$=lower$(input$(,,))
let y%=100
let x%=640
let timer&=add(&gettickcount,50)
usebrush 1,0
usepen 0,1,0

while neq(%mousepressed,2)

    if gt(&gettickcount,timer&)

        rectangle add(x%,mul(len(text$),15)),y%-add(add(x%,mul(len(text$),15)),8),add(y%,19)
        digitext x%,y%,text$
        sub x%,5

        if lt(x%,mul(mul(len(text$),15),-1))

            let x%=640
            let y%=rnd(height(%hwnd))

        endif

        let timer&=add(&gettickcount,50)

    endif

wend

disposedigitext
end