XProfan

Français

p.specht

Down? Wütend? Alles Idioten!? cela folgende Amusement-Programme soll qui Stimmung wieder heben: il faut seulement daran croyons et longtemps genug sur den Bildschirm starren. à peine ist qui l'humeur wieder besser, finissez un längerer Tastendruck den Spuk! Have fun!

P.S.: Dzt. seulement pour Bildschirmauflösung 1366 x 768 optimiert - mais vous pouvez den Sch**** oui jederzeit anpassen!

Kompilieren Marque Séparation

Titre de la fenêtre "    MOTIVATOR 1.0"
'(CL) CopyLeft for_non-commercial use 2018-08 by P.Specht, Vienna/EU
Fenêtre Style 24:Fenêtre 0,0-%maxx,%maxy:Showmax
Déclarer 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!=&Boucle*f!

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

        whileloop 0,2553,2

            a!=&Boucle*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!)
        Couleur du texte 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