XProfan

Español

p.specht

Down? Wütend? Alles Idioten!? Das folgende Spaß-Programa se el Stimmung otra vez heben: Man muß sólo daran glauben y largo genug en el Bildschirm starren. Kaum Es el Laune otra vez mejor, final una längerer Tastendruck el Spuk! Have fun!

P.S.: Dzt. sólo para Bildschirmauflösung 1366 x 768 optimiert - aber ihr könnt el Sch**** sí en cualquier momento adaptar!

Kompilieren Marca Separación

Título de la ventana "    MOTIVATOR 1.0"
'(CL) CopyLeft for_non-commercial use 2018-08 by P.Pájaro carpintero, Vienna/EU
Ventana de Estilo 24:Ventana 0,0-%maxx,%maxy:Showmax
Declarar xh&,yh&,x&,y&,r!,a!,b!,f!,c&
xh&=width(%hwnd)/2:yh&=height(%hwnd)/2
f!=pi()/180

REPEAT

    Whileloop 0,359,12:b!=&Loop*f!

        r!=3:x&=r!*cos(a!):y&=r!*sin(a!)
        MCLS %maxx,%maxy,$FFFFFF:StartPaint -1
        moveto xh&+x&,yh&-y&

        whileloop 0,2553,2

            a!=&Loop*f! + b!
            x&=r!*cos(a!):y&=r!*sin(a!)
            usepen 0,r!/11,rgb(70,70,90+130*cos(15*a!))
            lineto xh&+x&+1,yh&-y&
            r!=r!*0.9998+0.3333333333

        endwhile

        usefont Arial,170,70,1,0,0
        c&=120+120*cos(b!)
        Color del texto rgb(255,c&,c&),-1
        Drawtext 35,yh&-90,"ALLES WIRD GUT!"
        'Drawtext 35,yh&-90," DU BIST SPITZE! "
        EndPaint:MCopyBMP 0,0-%maxx,%maxy>1,0;0

    EndWhile

UNTIL 0