Français
Anwendungen

Bulli-Bildschirmschoner

 
- page 1 -



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.

337 kB
Hochgeladen:12.02.2009
Downloadcounter166
Download
337 kB
Kurzbeschreibung: Update avec "längerem" Puffer
Hochgeladen:12.02.2009
Downloadcounter171
Download
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
12.02.2009  
 



 
- 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  
 




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...


4 kB
Hochgeladen:12.02.2009
Downloadcounter233
Download
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Profan 6 - X1x, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
12.02.2009  
 



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




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.
KompilierenMarqueSé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  
 




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, Profan 6 - X1x, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
12.02.2009  
 




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, Profan 6 - X1x, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
12.02.2009  
 



@E.T.: Gedult!
une (quelque chose) korrigierte Version
KompilierenMarqueSé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  
 




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  
 



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  
 




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


11 kB
Hochgeladen:12.02.2009
Downloadcounter171
Download
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Profan 6 - X1x, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
12.02.2009  
 



 
- 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, Profan 6 - X1x, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
12.02.2009  
 




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
KompilierenMarqueSéparation
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Profan 6 - X1x, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
12.02.2009  
 




Zur Anwendung


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

15.136 Views

Untitledvor 0 min.
p.specht27.05.2021
RudiB.16.04.2021
Fischerkutte16.08.2016
Jochen Roxlau03.05.2015
plus...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie