XProfan

Deutsch

KHR

Wie im Betreff genannt:

Ein einfacher Bildschirmschoner. rollende - nein gleitende Bullis!

Entstanden ist die Ausgangsbasis aus Langeweile, weil ich auf mehreren Flughafen auf meine verschobenen oder nicht mehr passenden Anschlussflüge warten mußte.

Man sieht darin auch die Verbindung zu meinen zweiten großes Hobby - dem Bulli-fahren.

Ok, das Ding ist noch ne Baustelle und hat mehr angefangene Ideen als fertige und sichtbare Funktionen.

Aber vielleicht muß ich ja mal wieder irgendwo lange warten - und dann gehts sicher damit weiter.

Und natürlich - es ist in der Hauptsache für meine Freunde im Bulliforum gedacht.

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

337 kB

Hochgeladen:

12.02.2009

Ladeanzahl:

Herunterladen

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

337 kB

Kurzbeschreibung:

Update mit "längerem" Puffer

Hochgeladen:

12.02.2009

Ladeanzahl:

Herunterladen

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 2 -

Matthias
Arlt

Bei mir läuft der Bulli-Saver soweit. Allerdings beendet er sich immer(!) spätestens nach einer knappen Minute selbst wieder, häufig aber sehr viel eher. Die INI-Datei wird auch nicht selbstätig erstellt, sondern nur nach Start mit Parameter /c. Bei den verchiedenen Geschwindigkeiten kann ich keinen signifikanten Unterschied feststellen. Dies mag aber subjektiv sein...

Gruß Matthias

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

Bei Rechts-Klick auf die .scr-Datei und Auswahl von Konfigurieren wird der Saver gestartet, die Maus ist noch da

(und kann bewegt werden).
Beenden mit Esc...

Saver mit Maus.jpg	4 kB

Hochgeladen:	12.02.2009

Ladeanzahl:
		Herunterladen

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 Zitat

Absatzweise zitieren Zeilenweise zitieren

Funktioniert dieser (alte) Schoner [...]

(noch) ?

12.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

KHR

Hallo miteinander,

der Quellcode ist kein Geheimnis.

Ich stell ihn gern rein.

Vielleicht nur der Hinweis, daß Horst ihn erst in seine Sammlung aufnimmt, wenn er überall richtig funktioniert.

Vielleicht findet Ihr ja reaus, wo der Hase im Pfeffer liegt.

Übrigens direkt kompiliert mit der Runntime oder als EXE kann er mit ESC abgebrochen werden. die maus sollte dann noch sichtbar bleiben.
Kompilieren Markieren Separieren

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$()+

    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 Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

Funktioniert dieser Schoner [...] (noch) ?

Nur ein Bild, ohne das sich was 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 Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

KHR

...Übrigens direkt kompiliert mit der Runntime oder als EXE kann er mit ESC abgebrochen werden. die maus sollte dann noch sichtbar bleiben.

Hm, aber in Deiner .scr (welche ich gestartet habe) sollte das aber nicht so sein, oder ??

[offtopic]mal schauen, ob du das so geplant hast[/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 Zitat

Absatzweise zitieren Zeilenweise zitieren

@E.T.: Gedult!

Eine (etwas) korrigierte Version
Kompilieren Markieren Separieren

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()+

    endif

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

endwhile

DeleteObject BackBmp&
ShowCursor 1
end

12.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

KHR

Hallo Mario,

wahrscheinlich startet er dann ohne parameter /s

und nur von dem mache ich abhängig, wie sich maus und Abfrage verhalten soll.

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Die (etwas) korrigierte Version hat das Mausproblem nicht mehr - muss aber ergänzt werden. In ein paar Prozeduren fehlende Variablen habe ich mit Globalen untersetzt. Jedenfalls funktionierts damit jetzt auch bei mir.

12.02.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

@IF: Ah, es hüpft sporadisch von X nach Y !!
Wenn aber schon im Startmenü verewigt, dann bitte auch mit Icon

KeinIcon.jpg	11 kB

Hochgeladen:	12.02.2009

Ladeanzahl:
		Herunterladen

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 Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 3 -

E.T.

@Karl-Heinz: Sollte denn Konfigurieren aus dem Rechtsklick und der Aufruf Einstellungen nicht das gleiche machen ?? Wohl wieder mal eine Win-Doof-heit, nehme ich an...

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 Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

Aufrufparameter
Klick auf Einstellungen:
1. /c
2. /p
Klick auf Vorschau:
1. /s
2. /p
Rechstklick + Testen:
/S
Rechtsklick + Konfigurieren:
Keine Parameter
Rechtsklick + Installieren:
/p
Kompilieren Markieren Separieren

cls

WhileLoop 0, %ParCount

    Print @Par$(&Loop)

EndWhile

waitinput
end

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 Zitat

Absatzweise zitieren Zeilenweise zitieren

◄

1 23