XProfan

Français

KHR

comment im Betreff genannt:

un einfacher Bildschirmschoner. rollende - non gleitende Bullis!

Entstanden ist qui Ausgangsbasis aus ennui, weil je sur mehreren Flughafen sur mon verschobenen ou bien pas plus passenden Anschlussflüge attendre mußte.

on voit y aussi qui liaison trop meinen zweiten großes Hobby - dem Bulli-aller.

Ok, cela Ding ist encore ne chantier et hat plus angefangene idées comme fertige et sichtbare Funktionen.

mais peut-être doit je oui la fois wieder irgendwo longtemps attendre - et ensuite gehts sûrement avec cela plus.

et naturellement - c'est dans qui le principal pour mon Amis im Bulliforum gedacht.

Bulli-SCR-Saver-V0-8A.zip

337 kB

Hochgeladen:

12.02.2009

Downloadcounter:

Download

Bulli-SCR-Saver-V0-8A.zip

337 kB

Kurzbeschreibung:

Update avec "längerem" Puffer

Hochgeladen:

12.02.2009

Downloadcounter:

Download

Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Matthias
Arlt

chez mir fonctionne qui Bulli-Saver soweit. Allerdings finissez il sich toujours(!) au plus tard pour einer rare minute selbst wieder, häufig mais très viel plutôt. qui INI-Dossier wird aussi pas selbstätig erstellt, mais seulement pour Start avec paramètre /c. chez den verchiedenen Geschwindigkeiten peux je keinen signifikanten Unterschied feststellen. ca mag mais subjektiv son...

Salut Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

chez à droite-Klick sur qui .scr-Dossier et sélection de Konfigurieren wird qui Saver gestartet, qui souris ist encore là

(et peux bewegt volonté).
finissons avec Esc...

Saver mit Maus.jpg	4 kB

Hochgeladen:	12.02.2009

Downloadcounter:
		Download

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Funktioniert cette (vieille) Schoner [...]

(encore) ?

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

KHR

allô miteinander,

qui Quellcode ist ne...aucune Geheimnis.

je stell ihn gern rein.

peut-être seulement qui Hinweis, qui Horst ihn seulement dans sa recueil aufnimmt, si il überall richtig funktioniert.

peut-être findet son oui reaus, wohin qui lièvre im poivre liegt.

Incidemment direct kompiliert avec qui Runntime ou bien comme EXE peux il avec ESC abgebrochen volonté. qui souris sollte ensuite encore sichtbar rester.
Kompilieren Marque Séparation

Bulli-Screensaver - Testversion
by Karl-Heinz Rattay / 2009
Time String 8-stellig
def std_min_sek$(0) @left$(@time$(0)+:+time$(1),8)
declare Ini_Name$,SplitZaehler%,ExePathName$ ,ExeName$
declare BackBmp&
declare P$, Ende%, speed%, MengeBusse%
declare Zaehler1& , Zaehler2&, Zaehler3&
declare Gross%, HorPos%,VerPos%, Farbe&, Typ%
declare MaxGross%
declare x_col&, x_hpos%, x_vpos%, x_size%, x_Typ%
declare backCol&, farbwechsel%, farbe%, speedwechsel%
declare zeigeUhr%
Bullis aus einzelnen Linien zusammensetzen.

proc zeichne

    parameters col&, hpos%, vpos%, size%, Typ%
    declare merker%
    merker%  für Sonderformen
    merker% = 1 Abschlepper
    merker% = 0

    if Typ% =14                    Bullizei

        col& = @rgb( 20,200,20 )

    elseif Typ% =15                Feuerwehr

        col& = @rgb( 200,20,20 )

    elseif Typ% =16                Sanka

        col& = @rgb( 230,230,150 )

    elseif Typ% =17                ADAC Bus

        col& = @rgb( 240,255,35 )

    elseif typ% = 18

        typ% = 1
        merker% = 2

    elseif typ% = 8

        typ% = 4

    elseif typ% = 7

        typ% = 5

    elseif typ% = 6

        typ% = 5

    elseif typ% = 5               DoKa

        typ% = 5

    elseif typ% = 12

        typ% = 4

    elseif typ% = 4

        typ% = 4                   Kastenwagen

    elseif typ% = 3               Abschlepper

        merker% = 1
        Typ% = 5
        col& = @rgb( 240,255,35 )

    elseif typ% = 2

        typ% = 2                    Pritsche

    else

        typ% = 1                    Caravelle

    endif

    x_col&  = col&
    x_hpos% = hpos%
    x_vpos% = vpos%
    x_size% = size%
    x_Typ%  = Typ%
    die Reifen
    usepen   0,(size%/4),(col& & 600000)   Farbe für die Reifen neu anmischen
    useBrush 0,col&
    ellipse (hpos%-(Size%/2.5)),(vpos%-(Size%/2.5)) - (hpos%+(Size%/2.5)),(vpos%+(Size%/2.5))
    ellipse (hpos%-(Size%/2.5)+(Size%*3.1)),(vpos%-(Size%/2.5)) - (hpos%+(Size%/2.5)+(Size%*3.1)),(vpos%+(Size%/2.5))
    Karosse Teil 1
    usepen   0,(size%/11),col&
    moveto (hpos%-(Size%*0.6)),(vpos%)
    lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.05)) v.Stoßstange
    lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.25))
    lineto (hpos%-(Size%*1.4)),(vpos%-(Size%*0.3))
    lineto (hpos%-(Size%*1.45)),(vpos%-(Size%*1))
    lineto (hpos%-(Size%*1.35)),(vpos%-(Size%*1.2))
    lineto (hpos%-(Size%*1.25)),(vpos%-(Size%*1.2))  Frontscheibe
    lineto (hpos%-(Size%*0.6)),(vpos%-(Size%*2))
    lineto (hpos%-(Size%*0.7)),(vpos%-(Size%*2))      Dach
    lineto (hpos%-(Size%*0.1)),(vpos%-(Size%*2.07))

    if typ% <> 2

        if typ% <> 5

            lineto (hpos%+(Size%*0.9)),(vpos%-(Size%*2.1))
            lineto (hpos%+(Size%*2.3)),(vpos%-(Size%*2.1))
            lineto (hpos%+(Size%*3.85)),(vpos%-(Size%*2.05))
            lineto (hpos%+(Size%*3.90)),(vpos%-(Size%*1.90))
            lineto (hpos%+(Size%*3.95)),(vpos%-(Size%*1.80)) heck
            lineto (hpos%+(Size%*4.25)),(vpos%-(Size%*1.1))

        endif

    endif

    if typ% = 2

        lineto (hpos%+(Size%*0.7)),(vpos%-(Size%*2.1))
        lineto (hpos%+(Size%*0.75)),(vpos%-(Size%*2.05))
        lineto (hpos%+(Size%*0.75)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*1.2))

    endif

    if typ% = 5

        lineto (hpos%+(Size%*1.6)),(vpos%-(Size%*2.1))
        lineto (hpos%+(Size%*1.65)),(vpos%-(Size%*2.05))
        lineto (hpos%+(Size%*1.65)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*1.2))

    endif

    lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.3))
    lineto (hpos%+(Size%*4.30)),(vpos%-(Size%*0.25))  h.Stoßstange
    lineto (hpos%+(Size%*4.30)),(vpos%-(Size%*0.05))
    lineto (hpos%+(Size%*3.7)),(vpos%)
    lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*0.05))   h.Radlauf
    lineto (hpos%+(Size%*3.68)),(vpos%-(Size%*0.15))
    lineto (hpos%+(Size%*3.6)),(vpos%-(Size%*0.4))
    lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*0.55))
    lineto (hpos%+(Size%*3)),(vpos%-(Size%*0.55))
    lineto (hpos%+(Size%*2.8)),(vpos%-(Size%*0.52))
    lineto (hpos%+(Size%*2.62)),(vpos%-(Size%*0.4))
    lineto (hpos%+(Size%*2.47)),(vpos%-(Size%*0.1))  Boden
    lineto (hpos%+(Size%*2.46)),(vpos%+(Size%*0.1))
    lineto (hpos%+(Size%*0.6)),(vpos%+(Size%*0.1))
    lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*0.25)) v.Radlauf
    lineto (hpos%+(Size%*0.52)),(vpos%-(Size%*0.35))
    lineto (hpos%+(Size%*0.31)),(vpos%-(Size%*0.50))
    lineto (hpos%+(Size%*0.22)),(vpos%-(Size%*0.55))
    lineto (hpos%+(Size%*0)),(vpos%-(Size%*0.55))
    lineto (hpos%-(Size%*0.33)),(vpos%-(Size%*0.52))
    lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*0.35))
    lineto (hpos%-(Size%*0.6)),(vpos%)
    useBrush 1,@rgb(255,255,255)
    Bus und Reifen weiß Füllen, damut der Hintergrund bedeckt wird
    fill (hpos%-(Size%*0.9)),(vpos%-(Size%*0.9)),col&
    fill  hpos%,(vpos%),(col& & 600000)
    fill (hpos%+(Size%*3.1)),vpos%,(col& & 600000)
    useBrush 0,col&

    if typ% <> 4   Kastenwagen

        if typ% <> 2   Pritsche

            if typ% <> 5   DoKa

                mittleres Fenster
                usepen   0,(size%/14),col&
                Rectangle (hpos%+(Size%*0.7)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*2.1)),(vpos%-(Size%*1.2))
                hinteres Fenster
                moveto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
                lineto (hpos%+(Size%*3.45)),(vpos%-(Size%*1.87))
                lineto (hpos%+(Size%*3.65)),(vpos%-(Size%*1.2))
                lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.2))
                lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))

            endif

        endif

    endif

    if typ% = 5  DoKa

        mittleres Fenster
        usepen   0,(size%/14),col&
        Rectangle (hpos%+(Size%*0.65)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*1.59)),(vpos%-(Size%*1.2))

    endif

    vorderes Fenster
    moveto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.87))
    lineto (hpos%+(Size%*0.5)),(vpos%-(Size%*1.87))
    lineto (hpos%+(Size%*0.5)),(vpos%-(Size%*1.2))
    lineto (hpos%-(Size%*1.05)),(vpos%-(Size%*1.2))
    lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.87))
    usepen   0,(size%/14),col&
    lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.2))
    Bus farbig machen
    useBrush 1,col&
    fill (hpos%-(Size%*0.9)),(vpos%-(Size%*0.9)),col&

    if typ% = 4   Kastenwagen

        mittleres Fenster
        usepen   0,(size%/28),@rgb(255,255,255)
        useBrush 0,col&
        Rectangle (hpos%+(Size%*0.7)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*2.1)),(vpos%-(Size%*1.2))
        hinteres Fenster
        moveto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
        lineto (hpos%+(Size%*3.45)),(vpos%-(Size%*1.87))
        lineto (hpos%+(Size%*3.65)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))

    endif

    if Typ% = 1      Caavelle

        if Merker% = 2

            usepen   0,(size%/20),0     Hochdach
            useBrush 1,@rgb(220,210,210)
            moveto (hpos%-(Size%*0.73)),(vpos%-(Size%*2))
            lineto (hpos%+(Size%*3.9)),(vpos%-(Size%*2))
            lineto (hpos%+(Size%*3.88)),(vpos%-(Size%*2.05))
            lineto (hpos%+(Size%*3.8)),(vpos%-(Size%*2.3))
            lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*2.5))
            lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*2.6))
            lineto (hpos%+(Size%*3.2)),(vpos%-(Size%*2.65))
            lineto (hpos%+(Size%*2.8)),(vpos%-(Size%*2.7))
            lineto (hpos%+(Size%*1.7)),(vpos%-(Size%*2.75))
            lineto (hpos%+(Size%*0.8)),(vpos%-(Size%*2.7))
            lineto (hpos%+(Size%*0.7)),(vpos%-(Size%*2.65))
            lineto (hpos%+(Size%*0.65)),(vpos%-(Size%*2.6))
            lineto (hpos%+(Size%*0.45)),(vpos%-(Size%*2.45))
            lineto (hpos%+(Size%*0.43)),(vpos%-(Size%*2.42))
            lineto (hpos%+(Size%*0.37)),(vpos%-(Size%*2.4))
            lineto (hpos%+(Size%*0.3)),(vpos%-(Size%*2.37))
            lineto (hpos%+(Size%*0)),(vpos%-(Size%*2.36))
            lineto (hpos%-(Size%*0.1)),(vpos%-(Size%*2.35))
            lineto (hpos%-(Size%*0.3)),(vpos%-(Size%*2.31))
            lineto (hpos%-(Size%*0.42)),(vpos%-(Size%*2.27))
            lineto (hpos%-(Size%*0.73)),(vpos%-(Size%*2.0))
            fill (hpos%+(Size%*0.9)),(vpos%-(Size%*2.05)),0
            usepen   0,(size%/20),@rgb(200,190,180)     Hochdach
            moveto  (hpos%+(Size%*0.38)),(vpos%-(Size%*2.35))
            lineto  (hpos%+(Size%*1)),(vpos%-(Size%*2.29))
            lineto  (hpos%+(Size%*3.75)),(vpos%-(Size%*2.3))

        endif

    endif

    Schwarzen Spiegel malen
    usepen   0,(size%/8),0
    line (hpos%-(Size%*0.6)),(vpos%-(Size%*1.2)) - (hpos%-(Size%*0.6)),(vpos%-(Size%*1.5))
    usepen   0,(size%/14),col&
    useBrush 0,col&
    Fahrertür
    usepen   0,(size%/28),@rgb(255,255,255)
    moveto (hpos%-(Size%*0.63)),(vpos%-(Size%*1.94))
    lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*1.94))
    lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*0.7))
    lineto (hpos%+(Size%*0.4)),(vpos%-(Size%*0.60))
    lineto (hpos%-(Size%*0.35)),(vpos%-(Size%*0.58))
    lineto (hpos%-(Size%*0.38)),(vpos%-(Size%*0.55))
    lineto (hpos%-(Size%*0.50)),(vpos%-(Size%*0.50))
    lineto (hpos%-(Size%*0.65)),(vpos%-(Size%*0.3))
    lineto (hpos%-(Size%*0.65)),(vpos%-(Size%*0.08))
    lineto (hpos%-(Size%*1.22)),(vpos%-(Size%*0.14))
    lineto (hpos%-(Size%*1.22)),(vpos%-(Size%*1.11))
    lineto (hpos%-(Size%*0.63)),(vpos%-(Size%*1.94))

    if typ% = 2 Bordwände Pritsche

        line (hpos%+(Size%*0.77)),(vpos%-(Size%*1.3))- (hpos%+(Size%*0.77)),(vpos%-(Size%*0.6))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.6))
        useBrush 0,col&
        Rectangle (hpos%+(Size%*0.88)),(vpos%-(Size%*1.13)) - (hpos%+(Size%*4.1)),(vpos%-(Size%*0.7))
        usepen   0,(size%/12),@rgb(255,255,255)
        line (hpos%+(Size%*1.0)),(vpos%-(Size%*1.2))- (hpos%+(Size%*1.0)),(vpos%-(Size%*0.62))
        line (hpos%+(Size%*2.45)),(vpos%-(Size%*1.2))- (hpos%+(Size%*2.45)),(vpos%-(Size%*0.62))
        line (hpos%+(Size%*3.9)),(vpos%-(Size%*1.2))- (hpos%+(Size%*3.9)),(vpos%-(Size%*0.62))

    endif

    if typ% = 5 Bordwände DoKa

        line (hpos%+(Size%*1.70)),(vpos%-(Size%*1.3))- (hpos%+(Size%*1.70)),(vpos%-(Size%*0.6))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.6))
        useBrush 0,col&
        Rectangle (hpos%+(Size%*1.78)),(vpos%-(Size%*1.13)) - (hpos%+(Size%*4.1)),(vpos%-(Size%*0.7))
        usepen   0,(size%/12),@rgb(255,255,255)
        line (hpos%+(Size%*1.95)),(vpos%-(Size%*1.2))- (hpos%+(Size%*1.95)),(vpos%-(Size%*0.62))
        line (hpos%+(Size%*3.9)),(vpos%-(Size%*1.2))- (hpos%+(Size%*3.9)),(vpos%-(Size%*0.62))

    endif

    if typ% = 5  Abschlepper

        if Merker% = 1

            usepen   0, (size%/8),0
            useBrush 1, 0
            moveto (hpos%+(Size%*5)),(vpos%-(Size%*2.55))
            lineto (hpos%+(Size%*5)),(vpos%-(Size%*1.2))
            lineto (hpos%+(Size%*4.25)),(vpos%-(Size%*0.35))
            ellipse (hpos%+(Size%*4.85)),(vpos%-(Size%*2.4)) - (hpos%+(Size%*5.15)),(vpos%-(Size%*2.7))
            ellipse (hpos%+(Size%*4.88)),(vpos%-(Size%*1.08)) - (hpos%+(Size%*5.12)),(vpos%-(Size%*1.32))
            usepen   0, (size%/8),col&
            useBrush 0, col&
            moveto (hpos%+(Size%*2.75)),(vpos%-(Size%*1.2))
            lineto (hpos%+(Size%*5.05)),(vpos%-(Size%*2.7))
            lineto (hpos%+(Size%*5.1)),(vpos%-(Size%*2.68))
            lineto (hpos%+(Size%*5.15)),(vpos%-(Size%*2.66))
            lineto (hpos%+(Size%*5.1)),(vpos%-(Size%*2.48))
            lineto (hpos%+(Size%*5)),(vpos%-(Size%*2.48))
            lineto (hpos%+(Size%*3.75)),(vpos%-(Size%*1.2))
            line (hpos%+(Size%*3.1)),(vpos%-(Size%*1.2)) - (hpos%+(Size%*5)),(vpos%-(Size%*2.55))
            line (hpos%+(Size%*3.45)),(vpos%-(Size%*1.2)) - (hpos%+(Size%*5)),(vpos%-(Size%*2.55))

        endif

    endif

    Ohren

    if typ% <> 2

        if typ% <> 5

            usepen   0,(size%/28),@rgb(255,255,255)
            moveto (hpos%+(Size%*3.8)),(vpos%-(Size%*1.85))
            lineto (hpos%+(Size%*4.1)),(vpos%-(Size%*1.22))
            lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*1.22))
            lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*1.85))
            lineto (hpos%+(Size%*3.8)),(vpos%-(Size%*1.85))
            usepen   0,(size%/10),0
            line (hpos%+(Size%*3.65)),(vpos%-(Size%*1.75)) - (hpos%+(Size%*3.76)),(vpos%-(Size%*1.75))
            line (hpos%+(Size%*3.7)),(vpos%-(Size%*1.62)) - (hpos%+(Size%*3.81)),(vpos%-(Size%*1.62))
            line (hpos%+(Size%*3.75)),(vpos%-(Size%*1.49)) - (hpos%+(Size%*3.86)),(vpos%-(Size%*1.49))
            line (hpos%+(Size%*3.8)),(vpos%-(Size%*1.36)) - (hpos%+(Size%*3.91)),(vpos%-(Size%*1.36))

        endif

    endif

    if @rnd(2)           Antenne

        usepen   0,(size%/23),0
        line (hpos%-(Size%*1.45)),(vpos%-(Size%*1.1)) - (hpos%-(Size%*1.25)),(vpos%-(Size%*2))

    endif

    if @rnd(2)         Nebelscheinwerfer  schwarz

        useBrush 1,0
        usepen   0,(size%/23),0
        rectangle (hpos%-(Size%*1.51)),(vpos%-(Size%*0.26)) - (hpos%-(Size%*1.55)),(vpos%-(Size%*0.33))
        rectangle (hpos%-(Size%*1.51)),(vpos%-(Size%*0.33)) - (hpos%-(Size%*1.62)),(vpos%-(Size%*0.49))

    endif

    Frontscheibe andeuten
    usepen   0,(size%/23),col&
    line (hpos%-(Size%*1.37)),(vpos%-(Size%*1.2)) - (hpos%-(Size%*0.72)),(vpos%-(Size%*2))
    Blinker vorn
    usepen   0,(size%/14),@rgb(240,180,40)
    useBrush 1,@rgb(240,180,40)
    Rectangle (hpos%-(Size%*1.47)),(vpos%-(Size%*0.4))  - (hpos%-(Size%*1.37)),(vpos%-(Size%*0.5))
    lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.05))

    if Typ% = 14

        bullizei

    elseif Typ% = 15

        feuerwehr

    elseif Typ% = 16

        Sanka

    elseif Typ% = 17

        ADAC

    elseif Typ% = 5

        if merker% = 1

            ADAC

        endif

    endif

Endproc

proc ADAC

    ADAC
    usefont  ARIAL,(x_size%*0.85),0,1,0,0
    textcolor 0, -1
    drawtext (x_hpos%+(x_Size%*0.6)),(X_vpos%-(X_Size%*1.2)), ADAC
    Gelblicht

endproc

proc Bullizei

    Bullizei
    usefont  ARIAL,(X_size%*0.6),0,1,0,0
    textcolor @rgb(255,255,255), -1
    drawtext (hpos%+(X_Size%*0.6)),(X_vpos%-(X_Size%*0.95)), BULLIZEI
    Blaulicht

endproc

proc Sanka

    Sanka
    usefont  ARIAL,(X_size%*0.3),(X_size%*0.17),1,0,0
    textcolor @rgb(235,25,25), -1
    drawtext (X_hpos%-(X_Size%*0.3)),(X_vpos%-(X_Size%*1.15)), Deutsche Rotes Kreuz
    Blaulicht
    usepen   0,(X_size%/28),@rgb(255,255,255)
    useBrush 1,@rgb(255,255,255)
    ellipse (X_hpos%+(X_Size%*1.1)),(X_vpos%-(X_Size%*0.8)) - (X_hpos%+(X_Size%*1.9)),(X_vpos%+(X_Size%*0.05))
    usepen   0,(x_size%/28),@rgb(235,25,25)
    useBrush 1,@rgb(235,25,25)
    Rectangle (x_hpos%+(x_Size%*1.38)),(vpos%-(x_Size%*0.7))  - (x_hpos%+(x_Size%*1.65)),(x_vpos%-(x_Size%*0.05))
    Rectangle (x_hpos%+(x_Size%*1.18)),(x_vpos%-(x_Size%*0.25))  - (x_hpos%+(x_Size%*1.85)),(x_vpos%-(x_Size%*0.5))

endproc

proc Feuerwehr

    Feuerwehr
    usefont  ARIAL,(x_Size%*0.6),0,1,0,0
    textcolor @rgb(255,255,255), -1
    drawtext (x_hpos%+(x_Size%*0.6)),(x_vpos%-(x_Size%*1.1)), Feuerwehr
    Blaulicht

endproc

proc Blaulicht

    usepen   0,(x_Size%/14),col&
    useBrush 1,x_col&
    Rectangle (x_hpos%-(x_Size%*0.6)),(x_vpos%-(x_Size%*2))  - (x_hpos%-(x_Size%*0.35)),(x_vpos%-(x_Size%*2.15))
    Rectangle (x_hpos%+(x_Size%*3.5)),(x_vpos%-(x_Size%*2))  - (x_hpos%+(x_Size%*3.75)),(x_vpos%-(x_Size%*2.15))
    usepen   0,(x_Size%/14),@rgb(20,20,220)
    useBrush 1,@rgb(20,20,220)
    Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
    Rectangle (x_hpos%+(x_Size%*3.53)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%+(x_Size%*3.72)),(x_vpos%-(x_Size%*2.35))

endproc

proc Gelblicht

    usepen   0,(x_Size%/14),x_col&
    useBrush 1,x_col&
    Rectangle (x_hpos%-(x_Size%*0.6)),(x_vpos%-(x_Size%*2))  - (x_hpos%-(x_Size%*0.35)),(x_vpos%-(x_Size%*2.15))
    usepen   0,(x_Size%/14),@rgb(240,180,40)
    useBrush 1,@rgb(240,180,40)      Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
    Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
    Pitsche und Doka nur vorn!!

    if x_typ% <> 5

        usepen   0,(x_Size%/14),@rgb(240,180,40)
        useBrush 1,@rgb(240,180,40)
        Rectangle (x_hpos%+(x_Size%*3.53)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%+(x_Size%*3.72)),(x_vpos%-(x_Size%*2.35))
        usepen   0,(x_Size%/14),x_col&
        useBrush 1,x_col&
        Rectangle (x_hpos%+(x_Size%*3.5)),(x_vpos%-(x_Size%*2))  - (x_hpos%+(x_Size%*3.75)),(x_vpos%-(x_Size%*2.15))

    endif

endproc

proc Config_Scr

    DECLARE GROUPBOX1&,RB_Speed1&,RB_Speed2&,RB_Speed3&,RB_Speed4&,RB_Speed5&,RB_Speed6&
    DECLARE GROUPBOX2&,RB_Menge1&,RB_Menge2&,RB_Menge3&,RB_Menge4&,RB_Menge5&
    DECLARE GROUPBOX3&,RB_Farbe1&,RB_Farbe2&,RB_Farbe3&,RB_Farbe4&,RB_Farbe5&,RB_Farbe6&,RB_Farbe7&
    DECLARE BT_Cfg_fertig&,Bt_Cfg_Abbrechen&
    declare BT_ZeigeUhr&
    DEF GETSYSCOLOR(1) !USER32,GetSysColor
    declare Farbe%
    WINDOWSTYLE 63
    WINDOWTITLE Bulli-Screensaver Config V08a
    WINDOW 10,10-580,560
    CLS GETSYSCOLOR(15)
    SETDIALOGFONT 1
    TEXTCOLOR 0, GETSYSCOLOR(15)
    USEFONT ARIAL,14,0,0,0,0
    drawtext 8, 5,Bulli-Bildschirmschoner
    drawtext 8,25,@chr$(169)+2009 DC6GO - Karl-Heinz Rattay
    drawtext 8,45,speziell für: www.forumvwbus.de
    GROUPBOX1& = CREATE(GROUPBOX   ,%HWND,Geschwindigkeit,0013,0069,0290,0043)
    RB_Speed1& = CREATE(RADIOBUTTON,%HWND,1,0023,0085,0027,0025)
    RB_Speed2& = CREATE(RADIOBUTTON,%HWND,2,0058,0085,0027,0025)
    RB_Speed3& = CREATE(RADIOBUTTON,%HWND,3,0093,0085,0027,0025)
    RB_Speed4& = CREATE(RADIOBUTTON,%HWND,4,0128,0085,0027,0025)
    RB_Speed5& = CREATE(RADIOBUTTON,%HWND,5,0161,0085,0027,0025)
    RB_Speed6& = CREATE(RADIOBUTTON,%HWND,wechselnd,0196,0085,090,0025)
    GROUPBOX2& = CREATE(GROUPBOX   ,%HWND,Bulli-Dichte,0013,0113,0290,0043)
    RB_Menge1& = CREATE(RADIOBUTTON,%HWND,1,0023,0126,0027,0025)
    RB_Menge2& = CREATE(RADIOBUTTON,%HWND,2,0058,0126,0027,0025)
    RB_Menge3& = CREATE(RADIOBUTTON,%HWND,3,0093,0126,0027,0025)
    RB_Menge4& = CREATE(RADIOBUTTON,%HWND,4,0128,0126,0027,0025)
    RB_Menge5& = CREATE(RADIOBUTTON,%HWND,5,0161,0126,0027,0025)
    GROUPBOX3& = CREATE(GROUPBOX   ,%HWND,Hintergrund Farbe,0013,0159,0290,0205)
    RB_Farbe1& = CREATE(RADIOBUTTON,%HWND,weiss,0023,0176,0140,0025)
    RB_Farbe2& = CREATE(RADIOBUTTON,%HWND,schwarz,0023,0202,0140,0025)
    RB_Farbe3& = CREATE(RADIOBUTTON,%HWND,blau,0023,0228,0140,0025)
    RB_Farbe4& = CREATE(RADIOBUTTON,%HWND,grün,0023,0254,0140,0025)
    RB_Farbe5& = CREATE(RADIOBUTTON,%HWND,rot,0023,0280,0140,0025)
    RB_Farbe6& = CREATE(RADIOBUTTON,%HWND,braun,0023,0308,0140,0025)
    RB_Farbe7& = CREATE(RADIOBUTTON,%HWND,wechselnd,0023,0336,0140,0025)
    BT_ZeigeUhr&     = CREATE(CheckBox,%HWND,Urzeit einblenden,0023,370,0200,0025)
    BT_Cfg_fertig&    = CREATE(BUTTON,%HWND,Speichern,0060,500,0100,0025)
    BT_Cfg_Abbrechen& = CREATE(BUTTON,%HWND,Abbrechen,0180,500,0100,0025)
    zeichne  @rgb(50,50,200)   , 400 ,  50  , 17,  1
    zeichne  @rgb(190,120,30)  , 400 , 100  , 17,  2
    zeichne  @rgb(50,200,220)  , 400 , 150  , 17,  4
    zeichne  @rgb(120,120,10)  , 400 , 200  , 17,  5
    zeichne  @rgb(200,200,100) , 400 , 250  , 17, 14
    zeichne  @rgb(200,200,100) , 400 , 300  , 17, 15
    zeichne  @rgb(200,200,100) , 400 , 350  , 17, 16
    zeichne  @rgb(200,200,100) , 400 , 400  , 17, 17
    zeichne  @rgb(50,220,50)   , 400 , 450  , 17, 18
    zeichne  @rgb(50,220,50)   , 400 , 500  , 17,  3
    speed%      = @val(readini$(INI_Name$,SETUP,SPEED))
    Farbe%      = @val(readini$(INI_Name$,SETUP,FARBE))
    MengeBusse% = @val(readini$(INI_Name$,SETUP,MENGEBUSSE))
    zeigeUhr%   = @val(readini$(INI_Name$,SETUP,ZeigeZeit))
    case  speed%      = 0 : Speed% = 1
    case  Farbe%      = 0 : Farbe% = 2
    case  MengeBusse% = 0 : MengeBusse% = 1

    if speed% = 1

        setcheck RB_Speed1&, 1

    elseif speed% = 2

        setcheck RB_Speed2&, 2

    elseif speed% = 3

        setcheck RB_Speed3&, 3

    elseif speed% = 4

        setcheck RB_Speed4&, 4

    elseif speed% = 5

        setcheck RB_Speed5&, 5

    elseif speed% = 6

        setcheck RB_Speed6&, 6

    else

        setcheck RB_Speed1&, 1

    endif

    if Farbe% = 1

        setcheck RB_Farbe1&, 1

    elseif Farbe% = 2

        setcheck RB_Farbe2&, 2

    elseif Farbe% = 3

        setcheck RB_Farbe3&, 3

    elseif Farbe% = 4

        setcheck RB_Farbe4&, 4

    elseif Farbe% = 5

        setcheck RB_Farbe5&, 5

    elseif Farbe% = 6

        setcheck RB_Farbe6&, 6

    elseif Farbe% = 7

        setcheck RB_Farbe5&, 7

    else

        setcheck RB_Farbe1&, 2

    endif

    if MengeBusse% = 1

        setcheck RB_Menge1&, 1

    elseif MengeBusse% = 2

        setcheck RB_Menge2&, 1

    elseif MengeBusse% = 3

        setcheck RB_Menge3&, 1

    elseif MengeBusse% = 4

        setcheck RB_Menge4&, 1

    elseif MengeBusse% = 5

        setcheck RB_Menge5&, 1

    else

        setcheck RB_Menge1&, 1

    endif

    if ZeigeUhr% = 1

        setcheck BT_ZeigeUhr&,1

    endif

    ende% = 0

    WHILENOT ENDE%

        WAITINPUT 100

        If %KEY=2

            ENDE%= 3

        ELSEIF %KEY=27

            ende%=4

        elseif clicked(BT_Cfg_Abbrechen&)

            ende% = 5

        elseif clicked(BT_Cfg_fertig&)

            ende%= 2

        endif

    ENDWHILE

    if ende% = 2

        RB_Gruppe Geschwindigkeit abfragen

        IF @GetCheck(RB_Speed1&)   RADIOBUTTON

            speed% = 1

        ELSEIF @GetCheck(RB_Speed2&) RADIOBUTTON

            speed% = 2

        ELSEIF @GetCheck(RB_Speed3&) RADIOBUTTON

            speed% = 3

        ELSEIF @GetCheck(RB_Speed4&) RADIOBUTTON

            speed% = 4

        ELSEIF @GetCheck(RB_Speed5&) RADIOBUTTON

            speed% = 5

        ELSEIF @GetCheck(RB_Speed6&) RADIOBUTTON

            speed% = 6

        ENDIF

        RB_Gruppe Bulli-Menge abfragen

        IF @GetCheck(RB_Menge1&) RADIOBUTTON

            MengeBusse% = 1

        ELSEIF @GetCheck(RB_Menge2&) RADIOBUTTON

            MengeBusse% = 2

        ELSEIF @GetCheck(RB_Menge3&) RADIOBUTTON

            MengeBusse% = 3

        ELSEIF @GetCheck(RB_Menge4&) RADIOBUTTON

            MengeBusse% = 4

        ELSEIF @GetCheck(RB_Menge5&) RADIOBUTTON

            MengeBusse% = 5

        ENDIF

        RB_Gruppe Bulli-Farbe abfragen

        IF @GetCheck(RB_Farbe1&) RADIOBUTTON

            Farbe% = 1

        ELSEIF @GetCheck(RB_Farbe2&) RADIOBUTTON

            Farbe% = 2

        ELSEIF @GetCheck(RB_Farbe3&) RADIOBUTTON

            Farbe% = 3

        ELSEIF @GetCheck(RB_Farbe4&) RADIOBUTTON

            Farbe% = 4

        ELSEIF @GetCheck(RB_Farbe5&) RADIOBUTTON

            Farbe% = 5

        ELSEIF @GetCheck(RB_Farbe6&) RADIOBUTTON

            Farbe% = 6

        ELSEIF @GetCheck(RB_Farbe7&) RADIOBUTTON

            Farbe% = 7

        ENDIF

        IF @GetCheck(BT_ZeigeUhr&) RADIOBUTTON

            zeigeUhr% = 1

        else

            zeigeUhr% = 0

        ENDIF

        set (DECIMALS,0)
        writeini INI_Name$,SETUP,SPEED = @str$(speed%)
        writeini INI_Name$,SETUP,FARBE = @str$(Farbe%)
        writeini INI_Name$,SETUP,MENGEBUSSE = @str$(MengeBusse%)
        writeini INI_Name$,SETUP,ZeigeZeit = @str$(zeigeUhr%)

    ENDIF

    end

endproc

If %ParCount

    P$=@Upper$(@Par$(1))

EndIf

if @left$(p$,2) = /P

    end

endif

ExeName$=@Upper$(@Par$(0))
SplitZaehler% = @len(SubStr$(ExeName$, -1, \))
ExePathName$  = @left$(ExeName$,(@len(ExeName$)-SplitZaehler%))
Ini_Name$     = ExePathName$+BULLI_SCR_SAVER.INI
Config_SCR

if @left$(p$,2) = /C

    Config_SCR

endif

speed%      = @val(readini$(INI_Name$,SETUP,SPEED))
Farbe%      = @val(readini$(INI_Name$,SETUP,FARBE))
MengeBusse% = @val(readini$(INI_Name$,SETUP,MENGEBUSSE))
zeigeUhr%   = @val(readini$(INI_Name$,SETUP,ZeigeZeit))
farbwechsel%  = 0
speedwechsel% = 0

if MengeBusse%  = 0

    MengeBusse%  = 2

endif

if speed% = 0

    speed% = 2

elseif speed% = 6

    speed% = 2
    speedwechsel% = 1

endif

if Farbe% = 0

    Farbe% = 3
    backCol& = @RGB(20,20,70)

elseif Farbe% = 1

    backCol& = @RGB(254,254,254)

elseif Farbe% = 2

    backCol& = 12

elseif Farbe% = 3

    backCol& = @RGB(20,20,70)

elseif Farbe% = 4

    backCol& = @RGB(20,70,20)

elseif Farbe% = 5

    backCol& = @RGB(70,20,20)

elseif Farbe% = 6

    backCol& = @RGB(90,60,10)

elseif Farbe% = 7

    backCol& = 12
    farbwechsel% = 1

endif

WindowStyle 240
BackBmp& = @Create(hNewPic,(%maxX+800), %maxY, backCol&) @RGB(255,255,255))
cls backCol&
showmax
randomize
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
Zaehler1& = 1
Zaehler2& = 1
Zaehler3& = 1
MaxGross% = %MaxY / 14

if p$ = /S

    ShowCursor 0

endif

ende% = 4

while ende% > 0

    if p$ = /S

        Case %GetInputState : dec ende%
        else             Abbruch per ESC wenn nicht im Screensaver-mode
        waitinput 2

        if %key = 27

            ende% = 0

        endif

    endif

    CopyPic BackBmp&, speed%,0 - (%maxx+600),%maxy > 0,0; 0
    inc Zaehler1&
    inc Zaehler2&
    inc Zaehler3&
    startpaint BackBmp&

    if Zaehler1& > (750/MengeBusse%/speed%)               nur bei jedem xxxx. Durchlauf neuen Bulli zeichnen, sonst wirds zu bunt

        Gross%  = (15+@rnd(80))                            Größe

        while Gross% > MaxGross%

            Gross%  = (15+@rnd(80))

        endwhile

        HorPos% = (%maxx+100)                               horizontale Start Position
        VerPos% = @rnd(%maxy*0.93)  +200                    vertikale Start Position
        Farbe&  = @rgb( @rnd(255),@rnd(255),@rnd(255) )     die Farbe festlegen
        Typ%    = @rnd(30)

        if VerPos% + (Gross%*2.3) > %MaxY

            VerPos% = %MaxY - (Gross%*3.3)

        endif

        zeichne  farbe& , HorPos% , VerPos%, Gross%, Typ%
        Zaehler1& = 1

    endif

    if Zaehler2& >= 5000

        Zaehler2& = 0

        if farbwechsel%

            backCol& = @rgb( (2+@rnd(80)),(2+@rnd(80)),(2+@rnd(80)) )
            usepen   0,1,backCol&
            useBrush 1,backCol&
            rectangle (%maxx+390),0 -(%maxx+400) ,%maxy

        endif

        if speedwechsel%

            speed% = @rnd(4) + 1

        endif

        Textcolor @rgb( (100+@rnd(155)),(100+@rnd(155)),(100+@rnd(155)) ),backCol&
        usefont ARIAL,(16+@rnd(14)),0,0,1,0
        drawtext (%Maxx+5), (%Maxy-60),www.forumvwbus.de
        drawtext (%Maxx+5), (%Maxy-30),Forum für alle VW-Busse

    endif

    if zeigeUhr% = 1

        if farbe% = 1

            Textcolor 23 , backCol&

        else

            Textcolor @rgb( 255 , 255 , 255 ) , backCol&

        endif

        usefont ARIAL,(%MaxX/60),0,0,1,0
        drawtext 20, 20,   +std_min_sek$(pan>+

    endif

    copyBmp speed%,0 -  (%maxx+800),%maxy > 0,0;0
    endpaint

endwhile

DeleteObject BackBmp&
ShowCursor 1
end

Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

Funktioniert cette Schoner [...] (encore) ?

seulement un Bild, sans cela sich quoi bewegt ??

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

KHR

...Incidemment direct kompiliert avec qui Runntime ou bien comme EXE peux il avec ESC abgebrochen volonté. qui souris sollte ensuite encore sichtbar rester.

Hm, mais dans Deiner .scr (quelle je gestartet habe) sollte cela mais pas so son, ou bien ??

[offtopic]la fois regarder, si du cela so geplant la hâte[/offtopic]

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@E.T.: Gedult!

une (quelque chose) korrigierte Version
Kompilieren Marque Séparation

Gemerkt/Separiert von http://xprofan.com/thread.core?t=7433#bottom
Bulli-Screensaver - Testversion
by Karl-Heinz Rattay / 2009
Time String 8-stellig
def std_min_sek(0) @left$(@time$(0)+:+time$(1),8)
declare Ini_Name$,SplitZaehler%,ExePathName$ ,ExeName$
declare BackBmp&
declare P$, Ende%, speed%, MengeBusse%
declare Zaehler1& , Zaehler2&, Zaehler3&
declare Gross%, HorPos%,VerPos%, Farbe&, Typ%
declare MaxGross%
declare x_col&, x_hpos%, x_vpos%, x_size%, x_Typ%
declare backCol&, farbwechsel%, farbe%, speedwechsel%
declare zeigeUhr%
declare _hpos%,_vpos%,_col&
declare mxalt&,myalt&
Bullis aus einzelnen Linien zusammensetzen.

proc zeichne

    parameters col&, hpos%, vpos%, size%, Typ%
    _hpos%=hpos%
    _vpos%=vpos%
    _col&=col&
    declare merker%
    merker%  für Sonderformen
    merker% = 1 Abschlepper
    merker% = 0

    if Typ% =14 Bullizei

        col& = @rgb( 20,200,20 )

    elseif Typ% =15 Feuerwehr

        col& = @rgb( 200,20,20 )

    elseif Typ% =16 Sanka

        col& = @rgb( 230,230,150 )

    elseif Typ% =17 ADAC Bus

        col& = @rgb( 240,255,35 )

    elseif typ% = 18

        typ% = 1
        merker% = 2

    elseif typ% = 8

        typ% = 4

    elseif typ% = 7

        typ% = 5

    elseif typ% = 6

        typ% = 5

    elseif typ% = 5 DoKa

        typ% = 5

    elseif typ% = 12

        typ% = 4

    elseif typ% = 4

        typ% = 4 Kastenwagen

    elseif typ% = 3 Abschlepper

        merker% = 1
        Typ% = 5
        col& = @rgb( 240,255,35 )

    elseif typ% = 2

        typ% = 2 Pritsche

    else

        typ% = 1 Caravelle

    endif

    x_col&  = col&
    x_hpos% = hpos%
    x_vpos% = vpos%
    x_size% = size%
    x_Typ%  = Typ%
    die Reifen
    usepen   0,(size%/4),(col& & 600000) Farbe für die Reifen neu anmischen
    useBrush 0,col&
    ellipse (hpos%-(Size%/2.5)),(vpos%-(Size%/2.5)) - (hpos%+(Size%/2.5)),(vpos%+(Size%/2.5))
    ellipse (hpos%-(Size%/2.5)+(Size%*3.1)),(vpos%-(Size%/2.5)) - (hpos%+(Size%/2.5)+(Size%*3.1)),(vpos%+(Size%/2.5))
    Karosse Teil 1
    usepen   0,(size%/11),col&
    moveto (hpos%-(Size%*0.6)),(vpos%)
    lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.05))v.Stoßstange
    lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.25))
    lineto (hpos%-(Size%*1.4)),(vpos%-(Size%*0.3))
    lineto (hpos%-(Size%*1.45)),(vpos%-(Size%*1))
    lineto (hpos%-(Size%*1.35)),(vpos%-(Size%*1.2))
    lineto (hpos%-(Size%*1.25)),(vpos%-(Size%*1.2)) Frontscheibe
    lineto (hpos%-(Size%*0.6)),(vpos%-(Size%*2))
    lineto (hpos%-(Size%*0.7)),(vpos%-(Size%*2)) Dach
    lineto (hpos%-(Size%*0.1)),(vpos%-(Size%*2.07))

    if typ% <> 2

        if typ% <> 5

            lineto (hpos%+(Size%*0.9)),(vpos%-(Size%*2.1))
            lineto (hpos%+(Size%*2.3)),(vpos%-(Size%*2.1))
            lineto (hpos%+(Size%*3.85)),(vpos%-(Size%*2.05))
            lineto (hpos%+(Size%*3.90)),(vpos%-(Size%*1.90))
            lineto (hpos%+(Size%*3.95)),(vpos%-(Size%*1.80))heck
            lineto (hpos%+(Size%*4.25)),(vpos%-(Size%*1.1))

        endif

    endif

    if typ% = 2

        lineto (hpos%+(Size%*0.7)),(vpos%-(Size%*2.1))
        lineto (hpos%+(Size%*0.75)),(vpos%-(Size%*2.05))
        lineto (hpos%+(Size%*0.75)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*1.2))

    endif

    if typ% = 5

        lineto (hpos%+(Size%*1.6)),(vpos%-(Size%*2.1))
        lineto (hpos%+(Size%*1.65)),(vpos%-(Size%*2.05))
        lineto (hpos%+(Size%*1.65)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*1.2))

    endif

    lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.3))
    lineto (hpos%+(Size%*4.30)),(vpos%-(Size%*0.25))h.Stoßstange
    lineto (hpos%+(Size%*4.30)),(vpos%-(Size%*0.05))
    lineto (hpos%+(Size%*3.7)),(vpos%)
    lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*0.05)) h.Radlauf
    lineto (hpos%+(Size%*3.68)),(vpos%-(Size%*0.15))
    lineto (hpos%+(Size%*3.6)),(vpos%-(Size%*0.4))
    lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*0.55))
    lineto (hpos%+(Size%*3)),(vpos%-(Size%*0.55))
    lineto (hpos%+(Size%*2.8)),(vpos%-(Size%*0.52))
    lineto (hpos%+(Size%*2.62)),(vpos%-(Size%*0.4))
    lineto (hpos%+(Size%*2.47)),(vpos%-(Size%*0.1)) Boden
    lineto (hpos%+(Size%*2.46)),(vpos%+(Size%*0.1))
    lineto (hpos%+(Size%*0.6)),(vpos%+(Size%*0.1))
    lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*0.25))v.Radlauf
    lineto (hpos%+(Size%*0.52)),(vpos%-(Size%*0.35))
    lineto (hpos%+(Size%*0.31)),(vpos%-(Size%*0.50))
    lineto (hpos%+(Size%*0.22)),(vpos%-(Size%*0.55))
    lineto (hpos%+(Size%*0)),(vpos%-(Size%*0.55))
    lineto (hpos%-(Size%*0.33)),(vpos%-(Size%*0.52))
    lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*0.35))
    lineto (hpos%-(Size%*0.6)),(vpos%)
    useBrush 1,@rgb(255,255,255)
    Bus und Reifen weiß Füllen, damut der Hintergrund bedeckt wird
    fill (hpos%-(Size%*0.9)),(vpos%-(Size%*0.9)),col&
    fill  hpos%,(vpos%),(col& & 600000)
    fill (hpos%+(Size%*3.1)),vpos%,(col& & 600000)
    useBrush 0,col&

    if typ% <> 4 Kastenwagen

        if typ% <> 2 Pritsche

            if typ% <> 5 DoKa

                mittleres Fenster
                usepen   0,(size%/14),col&
                Rectangle (hpos%+(Size%*0.7)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*2.1)),(vpos%-(Size%*1.2))
                hinteres Fenster
                moveto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
                lineto (hpos%+(Size%*3.45)),(vpos%-(Size%*1.87))
                lineto (hpos%+(Size%*3.65)),(vpos%-(Size%*1.2))
                lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.2))
                lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))

            endif

        endif

    endif

    if typ% = 5 DoKa

        mittleres Fenster
        usepen   0,(size%/14),col&
        Rectangle (hpos%+(Size%*0.65)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*1.59)),(vpos%-(Size%*1.2))

    endif

    vorderes Fenster
    moveto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.87))
    lineto (hpos%+(Size%*0.5)),(vpos%-(Size%*1.87))
    lineto (hpos%+(Size%*0.5)),(vpos%-(Size%*1.2))
    lineto (hpos%-(Size%*1.05)),(vpos%-(Size%*1.2))
    lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.87))
    usepen   0,(size%/14),col&
    lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.2))
    Bus farbig machen
    useBrush 1,col&
    fill (hpos%-(Size%*0.9)),(vpos%-(Size%*0.9)),col&

    if typ% = 4 Kastenwagen

        mittleres Fenster
        usepen   0,(size%/28),@rgb(255,255,255)
        useBrush 0,col&
        Rectangle (hpos%+(Size%*0.7)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*2.1)),(vpos%-(Size%*1.2))
        hinteres Fenster
        moveto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
        lineto (hpos%+(Size%*3.45)),(vpos%-(Size%*1.87))
        lineto (hpos%+(Size%*3.65)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.2))
        lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))

    endif

    if Typ% = 1Caavelle

        if Merker% = 2

            usepen   0,(size%/20),0 Hochdach
            useBrush 1,@rgb(220,210,210)
            moveto (hpos%-(Size%*0.73)),(vpos%-(Size%*2))
            lineto (hpos%+(Size%*3.9)),(vpos%-(Size%*2))
            lineto (hpos%+(Size%*3.88)),(vpos%-(Size%*2.05))
            lineto (hpos%+(Size%*3.8)),(vpos%-(Size%*2.3))
            lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*2.5))
            lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*2.6))
            lineto (hpos%+(Size%*3.2)),(vpos%-(Size%*2.65))
            lineto (hpos%+(Size%*2.8)),(vpos%-(Size%*2.7))
            lineto (hpos%+(Size%*1.7)),(vpos%-(Size%*2.75))
            lineto (hpos%+(Size%*0.8)),(vpos%-(Size%*2.7))
            lineto (hpos%+(Size%*0.7)),(vpos%-(Size%*2.65))
            lineto (hpos%+(Size%*0.65)),(vpos%-(Size%*2.6))
            lineto (hpos%+(Size%*0.45)),(vpos%-(Size%*2.45))
            lineto (hpos%+(Size%*0.43)),(vpos%-(Size%*2.42))
            lineto (hpos%+(Size%*0.37)),(vpos%-(Size%*2.4))
            lineto (hpos%+(Size%*0.3)),(vpos%-(Size%*2.37))
            lineto (hpos%+(Size%*0)),(vpos%-(Size%*2.36))
            lineto (hpos%-(Size%*0.1)),(vpos%-(Size%*2.35))
            lineto (hpos%-(Size%*0.3)),(vpos%-(Size%*2.31))
            lineto (hpos%-(Size%*0.42)),(vpos%-(Size%*2.27))
            lineto (hpos%-(Size%*0.73)),(vpos%-(Size%*2.0))
            fill (hpos%+(Size%*0.9)),(vpos%-(Size%*2.05)),0
            usepen   0,(size%/20),@rgb(200,190,180) Hochdach
            moveto  (hpos%+(Size%*0.38)),(vpos%-(Size%*2.35))
            lineto  (hpos%+(Size%*1)),(vpos%-(Size%*2.29))
            lineto  (hpos%+(Size%*3.75)),(vpos%-(Size%*2.3))

        endif

    endif

    Schwarzen Spiegel malen
    usepen   0,(size%/8),0
    line (hpos%-(Size%*0.6)),(vpos%-(Size%*1.2)) - (hpos%-(Size%*0.6)),(vpos%-(Size%*1.5))
    usepen   0,(size%/14),col&
    useBrush 0,col&
    Fahrertür
    usepen   0,(size%/28),@rgb(255,255,255)
    moveto (hpos%-(Size%*0.63)),(vpos%-(Size%*1.94))
    lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*1.94))
    lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*0.7))
    lineto (hpos%+(Size%*0.4)),(vpos%-(Size%*0.60))
    lineto (hpos%-(Size%*0.35)),(vpos%-(Size%*0.58))
    lineto (hpos%-(Size%*0.38)),(vpos%-(Size%*0.55))
    lineto (hpos%-(Size%*0.50)),(vpos%-(Size%*0.50))
    lineto (hpos%-(Size%*0.65)),(vpos%-(Size%*0.3))
    lineto (hpos%-(Size%*0.65)),(vpos%-(Size%*0.08))
    lineto (hpos%-(Size%*1.22)),(vpos%-(Size%*0.14))
    lineto (hpos%-(Size%*1.22)),(vpos%-(Size%*1.11))
    lineto (hpos%-(Size%*0.63)),(vpos%-(Size%*1.94))

    if typ% = 2 Bordwände Pritsche

        line (hpos%+(Size%*0.77)),(vpos%-(Size%*1.3))- (hpos%+(Size%*0.77)),(vpos%-(Size%*0.6))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.6))
        useBrush 0,col&
        Rectangle (hpos%+(Size%*0.88)),(vpos%-(Size%*1.13)) - (hpos%+(Size%*4.1)),(vpos%-(Size%*0.7))
        usepen   0,(size%/12),@rgb(255,255,255)
        line (hpos%+(Size%*1.0)),(vpos%-(Size%*1.2))- (hpos%+(Size%*1.0)),(vpos%-(Size%*0.62))
        line (hpos%+(Size%*2.45)),(vpos%-(Size%*1.2))- (hpos%+(Size%*2.45)),(vpos%-(Size%*0.62))
        line (hpos%+(Size%*3.9)),(vpos%-(Size%*1.2))- (hpos%+(Size%*3.9)),(vpos%-(Size%*0.62))

    endif

    if typ% = 5 Bordwände DoKa

        line (hpos%+(Size%*1.70)),(vpos%-(Size%*1.3))- (hpos%+(Size%*1.70)),(vpos%-(Size%*0.6))
        lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.6))
        useBrush 0,col&
        Rectangle (hpos%+(Size%*1.78)),(vpos%-(Size%*1.13)) - (hpos%+(Size%*4.1)),(vpos%-(Size%*0.7))
        usepen   0,(size%/12),@rgb(255,255,255)
        line (hpos%+(Size%*1.95)),(vpos%-(Size%*1.2))- (hpos%+(Size%*1.95)),(vpos%-(Size%*0.62))
        line (hpos%+(Size%*3.9)),(vpos%-(Size%*1.2))- (hpos%+(Size%*3.9)),(vpos%-(Size%*0.62))

    endif

    if typ% = 5 Abschlepper

        if Merker% = 1

            usepen   0, (size%/8),0
            useBrush 1, 0
            moveto (hpos%+(Size%*5)),(vpos%-(Size%*2.55))
            lineto (hpos%+(Size%*5)),(vpos%-(Size%*1.2))
            lineto (hpos%+(Size%*4.25)),(vpos%-(Size%*0.35))
            ellipse (hpos%+(Size%*4.85)),(vpos%-(Size%*2.4)) - (hpos%+(Size%*5.15)),(vpos%-(Size%*2.7))
            ellipse (hpos%+(Size%*4.88)),(vpos%-(Size%*1.08)) - (hpos%+(Size%*5.12)),(vpos%-(Size%*1.32))
            usepen   0, (size%/8),col&
            useBrush 0, col&
            moveto (hpos%+(Size%*2.75)),(vpos%-(Size%*1.2))
            lineto (hpos%+(Size%*5.05)),(vpos%-(Size%*2.7))
            lineto (hpos%+(Size%*5.1)),(vpos%-(Size%*2.68))
            lineto (hpos%+(Size%*5.15)),(vpos%-(Size%*2.66))
            lineto (hpos%+(Size%*5.1)),(vpos%-(Size%*2.48))
            lineto (hpos%+(Size%*5)),(vpos%-(Size%*2.48))
            lineto (hpos%+(Size%*3.75)),(vpos%-(Size%*1.2))
            line (hpos%+(Size%*3.1)),(vpos%-(Size%*1.2)) - (hpos%+(Size%*5)),(vpos%-(Size%*2.55))
            line (hpos%+(Size%*3.45)),(vpos%-(Size%*1.2)) - (hpos%+(Size%*5)),(vpos%-(Size%*2.55))

        endif

    endif

    Ohren

    if typ% <> 2

        if typ% <> 5

            usepen   0,(size%/28),@rgb(255,255,255)
            moveto (hpos%+(Size%*3.8)),(vpos%-(Size%*1.85))
            lineto (hpos%+(Size%*4.1)),(vpos%-(Size%*1.22))
            lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*1.22))
            lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*1.85))
            lineto (hpos%+(Size%*3.8)),(vpos%-(Size%*1.85))
            usepen   0,(size%/10),0
            line (hpos%+(Size%*3.65)),(vpos%-(Size%*1.75)) - (hpos%+(Size%*3.76)),(vpos%-(Size%*1.75))
            line (hpos%+(Size%*3.7)),(vpos%-(Size%*1.62)) - (hpos%+(Size%*3.81)),(vpos%-(Size%*1.62))
            line (hpos%+(Size%*3.75)),(vpos%-(Size%*1.49)) - (hpos%+(Size%*3.86)),(vpos%-(Size%*1.49))
            line (hpos%+(Size%*3.8)),(vpos%-(Size%*1.36)) - (hpos%+(Size%*3.91)),(vpos%-(Size%*1.36))

        endif

    endif

    if @rnd(2)  Antenne

        usepen   0,(size%/23),0
        line (hpos%-(Size%*1.45)),(vpos%-(Size%*1.1)) - (hpos%-(Size%*1.25)),(vpos%-(Size%*2))

    endif

    if @rnd(2)  Nebelscheinwerfer  schwarz

        useBrush 1,0
        usepen   0,(size%/23),0
        rectangle (hpos%-(Size%*1.51)),(vpos%-(Size%*0.26)) - (hpos%-(Size%*1.55)),(vpos%-(Size%*0.33))
        rectangle (hpos%-(Size%*1.51)),(vpos%-(Size%*0.33)) - (hpos%-(Size%*1.62)),(vpos%-(Size%*0.49))

    endif

    Frontscheibe andeuten
    usepen   0,(size%/23),col&
    line (hpos%-(Size%*1.37)),(vpos%-(Size%*1.2)) - (hpos%-(Size%*0.72)),(vpos%-(Size%*2))
    Blinker vorn
    usepen   0,(size%/14),@rgb(240,180,40)
    useBrush 1,@rgb(240,180,40)
    Rectangle (hpos%-(Size%*1.47)),(vpos%-(Size%*0.4))  - (hpos%-(Size%*1.37)),(vpos%-(Size%*0.5))
    lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.05))

    if Typ% = 14

        bullizei

    elseif Typ% = 15

        feuerwehr

    elseif Typ% = 16

        Sanka

    elseif Typ% = 17

        ADAC

    elseif Typ% = 5

        if merker% = 1

            ADAC

        endif

    endif

Endproc

proc ADAC

    ADAC
    usefont  ARIAL,(x_size%*0.85),0,1,0,0
    textcolor 0, -1
    drawtext (x_hpos%+(x_Size%*0.6)),(X_vpos%-(X_Size%*1.2)), ADAC
    Gelblicht

endproc

proc Bullizei

    Bullizei
    usefont  ARIAL,(X_size%*0.6),0,1,0,0
    textcolor @rgb(255,255,255), -1
    drawtext (_hpos%+(X_Size%*0.6)),(X_vpos%-(X_Size%*0.95)), BULLIZEI
    Blaulicht

endproc

proc Sanka

    Sanka
    usefont  ARIAL,(X_size%*0.3),(X_size%*0.17),1,0,0
    textcolor @rgb(235,25,25), -1
    drawtext (X_hpos%-(X_Size%*0.3)),(X_vpos%-(X_Size%*1.15)), Deutsche Rotes Kreuz
    Blaulicht
    usepen   0,(X_size%/28),@rgb(255,255,255)
    useBrush 1,@rgb(255,255,255)
    ellipse (X_hpos%+(X_Size%*1.1)),(X_vpos%-(X_Size%*0.8)) - (X_hpos%+(X_Size%*1.9)),(X_vpos%+(X_Size%*0.05))
    usepen   0,(x_size%/28),@rgb(235,25,25)
    useBrush 1,@rgb(235,25,25)
    Rectangle (x_hpos%+(x_Size%*1.38)),(_vpos%-(x_Size%*0.7))  - (x_hpos%+(x_Size%*1.65)),(x_vpos%-(x_Size%*0.05))
    Rectangle (x_hpos%+(x_Size%*1.18)),(x_vpos%-(x_Size%*0.25))  - (x_hpos%+(x_Size%*1.85)),(x_vpos%-(x_Size%*0.5))

endproc

proc Feuerwehr

    Feuerwehr
    usefont  ARIAL,(x_Size%*0.6),0,1,0,0
    textcolor @rgb(255,255,255), -1
    drawtext (x_hpos%+(x_Size%*0.6)),(x_vpos%-(x_Size%*1.1)), Feuerwehr
    Blaulicht

endproc

proc Blaulicht

    usepen   0,(x_Size%/14),_col&
    useBrush 1,x_col&
    Rectangle (x_hpos%-(x_Size%*0.6)),(x_vpos%-(x_Size%*2))  - (x_hpos%-(x_Size%*0.35)),(x_vpos%-(x_Size%*2.15))
    Rectangle (x_hpos%+(x_Size%*3.5)),(x_vpos%-(x_Size%*2))  - (x_hpos%+(x_Size%*3.75)),(x_vpos%-(x_Size%*2.15))
    usepen   0,(x_Size%/14),@rgb(20,20,220)
    useBrush 1,@rgb(20,20,220)
    Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
    Rectangle (x_hpos%+(x_Size%*3.53)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%+(x_Size%*3.72)),(x_vpos%-(x_Size%*2.35))

endproc

proc Gelblicht

    usepen   0,(x_Size%/14),x_col&
    useBrush 1,x_col&
    Rectangle (x_hpos%-(x_Size%*0.6)),(x_vpos%-(x_Size%*2))  - (x_hpos%-(x_Size%*0.35)),(x_vpos%-(x_Size%*2.15))
    usepen   0,(x_Size%/14),@rgb(240,180,40)
    useBrush 1,@rgb(240,180,40)      Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
    Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
    Pitsche und Doka nur vorn!!

    if x_typ% <> 5

        usepen   0,(x_Size%/14),@rgb(240,180,40)
        useBrush 1,@rgb(240,180,40)
        Rectangle (x_hpos%+(x_Size%*3.53)),(x_vpos%-(x_Size%*2.14))  - (x_hpos%+(x_Size%*3.72)),(x_vpos%-(x_Size%*2.35))
        usepen   0,(x_Size%/14),x_col&
        useBrush 1,x_col&
        Rectangle (x_hpos%+(x_Size%*3.5)),(x_vpos%-(x_Size%*2))  - (x_hpos%+(x_Size%*3.75)),(x_vpos%-(x_Size%*2.15))

    endif

endproc

proc Config_Scr

    DECLARE GROUPBOX1&,RB_Speed1&,RB_Speed2&,RB_Speed3&,RB_Speed4&,RB_Speed5&,RB_Speed6&
    DECLARE GROUPBOX2&,RB_Menge1&,RB_Menge2&,RB_Menge3&,RB_Menge4&,RB_Menge5&
    DECLARE GROUPBOX3&,RB_Farbe1&,RB_Farbe2&,RB_Farbe3&,RB_Farbe4&,RB_Farbe5&,RB_Farbe6&,RB_Farbe7&
    DECLARE BT_Cfg_fertig&,Bt_Cfg_Abbrechen&
    declare BT_ZeigeUhr&
    DEF GETSYSCOLOR(1) !USER32,GetSysColor
    declare Farbe%
    WINDOWSTYLE 63
    WINDOWTITLE Bulli-Screensaver Config V08a
    WINDOW 10,10-580,560
    CLS GETSYSCOLOR(15)
    SETDIALOGFONT 1
    TEXTCOLOR 0, GETSYSCOLOR(15)
    USEFONT ARIAL,14,0,0,0,0
    drawtext 8, 5,Bulli-Bildschirmschoner
    drawtext 8,25,@chr$(169)+2009 DC6GO - Karl-Heinz Rattay
    drawtext 8,45,speziell für: www.forumvwbus.de
    GROUPBOX1& = CREATE(GROUPBOX   ,%HWND,Geschwindigkeit,0013,0069,0290,0043)
    RB_Speed1& = CREATE(RADIOBUTTON,%HWND,1,0023,0085,0027,0025)
    RB_Speed2& = CREATE(RADIOBUTTON,%HWND,2,0058,0085,0027,0025)
    RB_Speed3& = CREATE(RADIOBUTTON,%HWND,3,0093,0085,0027,0025)
    RB_Speed4& = CREATE(RADIOBUTTON,%HWND,4,0128,0085,0027,0025)
    RB_Speed5& = CREATE(RADIOBUTTON,%HWND,5,0161,0085,0027,0025)
    RB_Speed6& = CREATE(RADIOBUTTON,%HWND,wechselnd,0196,0085,090,0025)
    GROUPBOX2& = CREATE(GROUPBOX   ,%HWND,Bulli-Dichte,0013,0113,0290,0043)
    RB_Menge1& = CREATE(RADIOBUTTON,%HWND,1,0023,0126,0027,0025)
    RB_Menge2& = CREATE(RADIOBUTTON,%HWND,2,0058,0126,0027,0025)
    RB_Menge3& = CREATE(RADIOBUTTON,%HWND,3,0093,0126,0027,0025)
    RB_Menge4& = CREATE(RADIOBUTTON,%HWND,4,0128,0126,0027,0025)
    RB_Menge5& = CREATE(RADIOBUTTON,%HWND,5,0161,0126,0027,0025)
    GROUPBOX3& = CREATE(GROUPBOX   ,%HWND,Hintergrund Farbe,0013,0159,0290,0205)
    RB_Farbe1& = CREATE(RADIOBUTTON,%HWND,weiss,0023,0176,0140,0025)
    RB_Farbe2& = CREATE(RADIOBUTTON,%HWND,schwarz,0023,0202,0140,0025)
    RB_Farbe3& = CREATE(RADIOBUTTON,%HWND,blau,0023,0228,0140,0025)
    RB_Farbe4& = CREATE(RADIOBUTTON,%HWND,grün,0023,0254,0140,0025)
    RB_Farbe5& = CREATE(RADIOBUTTON,%HWND,rot,0023,0280,0140,0025)
    RB_Farbe6& = CREATE(RADIOBUTTON,%HWND,braun,0023,0308,0140,0025)
    RB_Farbe7& = CREATE(RADIOBUTTON,%HWND,wechselnd,0023,0336,0140,0025)
    BT_ZeigeUhr&     = CREATE(CheckBox,%HWND,Urzeit einblenden,0023,370,0200,0025)
    BT_Cfg_fertig&    = CREATE(BUTTON,%HWND,Speichern,0060,500,0100,0025)
    BT_Cfg_Abbrechen& = CREATE(BUTTON,%HWND,Abbrechen,0180,500,0100,0025)
    zeichne  @rgb(50,50,200)   , 400 ,  50  , 17,  1
    zeichne  @rgb(190,120,30)  , 400 , 100  , 17,  2
    zeichne  @rgb(50,200,220)  , 400 , 150  , 17,  4
    zeichne  @rgb(120,120,10)  , 400 , 200  , 17,  5
    zeichne  @rgb(200,200,100) , 400 , 250  , 17, 14
    zeichne  @rgb(200,200,100) , 400 , 300  , 17, 15
    zeichne  @rgb(200,200,100) , 400 , 350  , 17, 16
    zeichne  @rgb(200,200,100) , 400 , 400  , 17, 17
    zeichne  @rgb(50,220,50)   , 400 , 450  , 17, 18
    zeichne  @rgb(50,220,50)   , 400 , 500  , 17,  3
    speed%      = @val(readini$(INI_Name$,SETUP,SPEED))
    Farbe%      = @val(readini$(INI_Name$,SETUP,FARBE))
    MengeBusse% = @val(readini$(INI_Name$,SETUP,MENGEBUSSE))
    zeigeUhr%   = @val(readini$(INI_Name$,SETUP,ZeigeZeit))
    case  speed%      = 0 : Speed% = 1
    case  Farbe%      = 0 : Farbe% = 2
    case  MengeBusse% = 0 : MengeBusse% = 1

    if speed% = 1

        setcheck RB_Speed1&, 1

    elseif speed% = 2

        setcheck RB_Speed2&, 2

    elseif speed% = 3

        setcheck RB_Speed3&, 3

    elseif speed% = 4

        setcheck RB_Speed4&, 4

    elseif speed% = 5

        setcheck RB_Speed5&, 5

    elseif speed% = 6

        setcheck RB_Speed6&, 6

    else

        setcheck RB_Speed1&, 1

    endif

    if Farbe% = 1

        setcheck RB_Farbe1&, 1

    elseif Farbe% = 2

        setcheck RB_Farbe2&, 2

    elseif Farbe% = 3

        setcheck RB_Farbe3&, 3

    elseif Farbe% = 4

        setcheck RB_Farbe4&, 4

    elseif Farbe% = 5

        setcheck RB_Farbe5&, 5

    elseif Farbe% = 6

        setcheck RB_Farbe6&, 6

    elseif Farbe% = 7

        setcheck RB_Farbe5&, 7

    else

        setcheck RB_Farbe1&, 2

    endif

    if MengeBusse% = 1

        setcheck RB_Menge1&, 1

    elseif MengeBusse% = 2

        setcheck RB_Menge2&, 1

    elseif MengeBusse% = 3

        setcheck RB_Menge3&, 1

    elseif MengeBusse% = 4

        setcheck RB_Menge4&, 1

    elseif MengeBusse% = 5

        setcheck RB_Menge5&, 1

    else

        setcheck RB_Menge1&, 1

    endif

    if ZeigeUhr% = 1

        setcheck BT_ZeigeUhr&,1

    endif

    ende% = 0

    WHILENOT ENDE%

        WAITINPUT 100

        If %KEY=2

            ENDE%= 3

        ELSEIF %KEY=27

            ende%=4

        elseif clicked(BT_Cfg_Abbrechen&)

            ende% = 5

        elseif clicked(BT_Cfg_fertig&)

            ende%= 2

        endif

    ENDWHILE

    if ende% = 2

        RB_Gruppe Geschwindigkeit abfragen

        IF @GetCheck(RB_Speed1&)RADIOBUTTON

            speed% = 1

        ELSEIF @GetCheck(RB_Speed2&)RADIOBUTTON

            speed% = 2

        ELSEIF @GetCheck(RB_Speed3&)RADIOBUTTON

            speed% = 3

        ELSEIF @GetCheck(RB_Speed4&)RADIOBUTTON

            speed% = 4

        ELSEIF @GetCheck(RB_Speed5&)RADIOBUTTON

            speed% = 5

        ELSEIF @GetCheck(RB_Speed6&)RADIOBUTTON

            speed% = 6

        ENDIF

        RB_Gruppe Bulli-Menge abfragen

        IF @GetCheck(RB_Menge1&)RADIOBUTTON

            MengeBusse% = 1

        ELSEIF @GetCheck(RB_Menge2&)RADIOBUTTON

            MengeBusse% = 2

        ELSEIF @GetCheck(RB_Menge3&)RADIOBUTTON

            MengeBusse% = 3

        ELSEIF @GetCheck(RB_Menge4&)RADIOBUTTON

            MengeBusse% = 4

        ELSEIF @GetCheck(RB_Menge5&)RADIOBUTTON

            MengeBusse% = 5

        ENDIF

        RB_Gruppe Bulli-Farbe abfragen

        IF @GetCheck(RB_Farbe1&)RADIOBUTTON

            Farbe% = 1

        ELSEIF @GetCheck(RB_Farbe2&)RADIOBUTTON

            Farbe% = 2

        ELSEIF @GetCheck(RB_Farbe3&)RADIOBUTTON

            Farbe% = 3

        ELSEIF @GetCheck(RB_Farbe4&)RADIOBUTTON

            Farbe% = 4

        ELSEIF @GetCheck(RB_Farbe5&)RADIOBUTTON

            Farbe% = 5

        ELSEIF @GetCheck(RB_Farbe6&)RADIOBUTTON

            Farbe% = 6

        ELSEIF @GetCheck(RB_Farbe7&)RADIOBUTTON

            Farbe% = 7

        ENDIF

        IF @GetCheck(BT_ZeigeUhr&)RADIOBUTTON

            zeigeUhr% = 1

        else

            zeigeUhr% = 0

        ENDIF

        set (DECIMALS,0)
        writeini INI_Name$,SETUP,SPEED = @str$(speed%)
        writeini INI_Name$,SETUP,FARBE = @str$(Farbe%)
        writeini INI_Name$,SETUP,MENGEBUSSE = @str$(MengeBusse%)
        writeini INI_Name$,SETUP,ZeigeZeit = @str$(zeigeUhr%)

    ENDIF

    end

endproc

If %ParCount

    P$=@Upper$(@Par$(1))

EndIf

if @left$(p$,2) = /P

    end

endif

ExeName$=@Upper$(@Par$(0))
SplitZaehler% = @len(SubStr$(ExeName$, -1, \))
ExePathName$  = @left$(ExeName$,(@len(ExeName$)-SplitZaehler%))
Ini_Name$     = ExePathName$+BULLI_SCR_SAVER.INI
Config_SCR

if @left$(p$,2) = /C

    Config_SCR

endif

speed%      = @val(readini$(INI_Name$,SETUP,SPEED))
Farbe%      = @val(readini$(INI_Name$,SETUP,FARBE))
MengeBusse% = @val(readini$(INI_Name$,SETUP,MENGEBUSSE))
zeigeUhr%   = @val(readini$(INI_Name$,SETUP,ZeigeZeit))
farbwechsel%  = 0
speedwechsel% = 0

if MengeBusse%  = 0

    MengeBusse%  = 2

endif

if speed% = 0

    speed% = 2

elseif speed% = 6

    speed% = 2
    speedwechsel% = 1

endif

if Farbe% = 0

    Farbe% = 3
    backCol& = @RGB(20,20,70)

elseif Farbe% = 1

    backCol& = @RGB(254,254,254)

elseif Farbe% = 2

    backCol& = 12

elseif Farbe% = 3

    backCol& = @RGB(20,20,70)

elseif Farbe% = 4

    backCol& = @RGB(20,70,20)

elseif Farbe% = 5

    backCol& = @RGB(70,20,20)

elseif Farbe% = 6

    backCol& = @RGB(90,60,10)

elseif Farbe% = 7

    backCol& = 12
    farbwechsel% = 1

endif

WindowStyle 240
BackBmp& = @Create(hNewPic,(%maxX+800), %maxY, backCol&) @RGB(255,255,255))
cls backCol&
showmax
randomize
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
Zaehler1& = 1
Zaehler2& = 1
Zaehler3& = 1
MaxGross% = %MaxY / 14

if p$ = /S

    ShowCursor 0

endif

ende% = 4
waitinput 1
mxalt&=%mouseX
myalt&=%mouseY

while ende% > 0

    waitInput 1
    case (abs(mxalt&-%mousex)>15) | (abs(myalt&-%mousey)>15) : end

    if p$ = /S

        Case %GetInputState : dec ende%
        else Abbruch per ESC wenn nicht im Screensaver-mode
        waitinput 2

        if %key = 27

            ende% = 0

        endif

    endif

    CopyPic BackBmp&, speed%,0 - (%maxx+600),%maxy > 0,0; 0
    inc Zaehler1&
    inc Zaehler2&
    inc Zaehler3&
    startpaint BackBmp&

    if Zaehler1& > (750/MengeBusse%/speed%) nur bei jedem xxxx. Durchlauf neuen Bulli zeichnen, sonst wirds zu bunt

        Gross%  = (15+@rnd(80)) Größe

        while Gross% > MaxGross%

            Gross%  = (15+@rnd(80))

        endwhile

        HorPos% = (%maxx+100) horizontale Start Position
        VerPos% = @rnd(%maxy*0.93)  +200 vertikale Start Position
        Farbe&  = @rgb( @rnd(255),@rnd(255),@rnd(255) ) die Farbe festlegen
        Typ%    = @rnd(30)

        if VerPos% + (Gross%*2.3) > %MaxY

            VerPos% = %MaxY - (Gross%*3.3)

        endif

        zeichne  farbe& , HorPos% , VerPos%, Gross%, Typ%
        Zaehler1& = 1

    endif

    if Zaehler2& >= 5000

        Zaehler2& = 0

        if farbwechsel%

            backCol& = @rgb( (2+@rnd(80)),(2+@rnd(80)),(2+@rnd(80)) )
            usepen   0,1,backCol&
            useBrush 1,backCol&
            rectangle (%maxx+390),0 -(%maxx+400) ,%maxy

        endif

        if speedwechsel%

            speed% = @rnd(4) + 1

        endif

        Textcolor @rgb( (100+@rnd(155)),(100+@rnd(155)),(100+@rnd(155)) ),backCol&
        usefont ARIAL,(16+@rnd(14)),0,0,1,0
        drawtext (%Maxx+5), (%Maxy-60),www.forumvwbus.de
        drawtext (%Maxx+5), (%Maxy-30),Forum für alle VW-Busse

    endif

    if zeigeUhr% = 1

        if farbe% = 1

            Textcolor 23 , backCol&

        else

            Textcolor @rgb( 255 , 255 , 255 ) , backCol&

        endif

        usefont ARIAL,(%MaxX/60),0,0,1,0
        drawtext 20, 20,   +std_min_sek(<

lass=s2>)+ endif copyBmp speed%,0 - (%maxx+800),%maxy > 0,0;0 endpaint endwhile DeleteObject BackBmp& ShowCursor 1 end

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

KHR

allô Mario,

wahrscheinlich startet il ensuite sans paramètre /s

et seulement de dem fais je dépendant, comment sich souris et Abfrage verhalten soll.

Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

qui (quelque chose) korrigierte Version hat cela Mausproblem pas plus - muss mais ergänzt volonté. dans un paire Prozeduren fehlende Variablen habe je avec Globalen untersetzt. Jedenfalls funktionierts avec cela maintenant aussi chez mir.

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

@IF: Ah, es hüpft sporadisch de X pour Y !!
si mais déjà im Startmenü verewigt, ensuite s'il te plaît aussi avec Icon

KeinIcon.jpg	11 kB

Hochgeladen:	12.02.2009

Downloadcounter:
		Download

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 3 -

E.T.

@Karl-Heinz: Sollte car Konfigurieren aus dem Droit et qui Aufruf Einstellungen pas cela gleiche faire ?? Wohl wieder la fois une Win-Doof-heit, nehme je à...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12.02.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

Aufrufparameter Klick sur Einstellungen: 1. /c 2. /p Klick sur Vorschau: 1. /s 2. /p Rechstklick + Testen: /S Droit + Konfigurieren: aucun paramètre Droit + installer: /p Kompilieren Marque Séparation cls WhileLoop 0, %ParCount Print @Par$(&Loop) EndWhile waitinput
Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...	12.02.2009 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation