XProfan

Italia

p.specht

Down? Wütend? Alles Idioten!? Das folgende Divertimento-Programm soll die Stimmung wieder heben: Man muß nur daran glauben und lange genug auf den Bildschirm starren. Kaum ist die Laune wieder besser, beendet ein längerer Tastendruck den Spuk! Have fun!

P.S.: Dzt. nur per Bildschirmauflösung 1366 x 768 optimiert - aber ihr può den Sch**** ja jederzeit anpassen!

Kompilieren Markieren Separieren

WindowTitle "    MOTIVATOR 1.0"
'(CL) CopyLeft for_non-commercial use 2018-08 by P.Specht, Vienna/EU
WindowStyle 24:Window 0,0-%maxx,%maxy:Showmax
Declare 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!)
        TextColor 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