XProfan

Español

KHR

Como en el Betreff genannt:

Ein einfacher Bildschirmschoner. rollende - nein gleitende Bullis!

Entstanden Es el Ausgangsbasis de Langeweile, porque I más Flughafen en mi verschobenen oder no mehr passenden Anschlussflüge warten mußte.

Man sieht en él auch el Verbindung a media zweiten großes Hobby - el Bulli-fahren.

Ok, lo es o ne- Baustelle y ha mehr angefangene Ideen como fertige y sichtbare Características.

Aber tal vez muß Yo sí veces otra vez irgendwo largo warten - y luego gehts sicher así más.

Und natürlich - es en el Hauptsache para mi Amigos en el Bulliforum pensamiento.

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

337 kB

Hochgeladen:

12.02.2009

Ladeanzahl:

Descargar

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

337 kB

Kurzbeschreibung:

Actualización con "längerem" Puffer

Hochgeladen:

12.02.2009

Ladeanzahl:

Descargar

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Matthias
Arlt

En me se ejecuta el Bulli-Saver soweit. Aunque final él se siempre(!) spätestens después de uno knappen Minute incluso otra vez, häufig aber muy viel más. El INI-Expediente se auch no selbstätig erstellt, pero sólo después de Start con Parámetro /c. En el verchiedenen Geschwindigkeiten kann Yo no signifikanten Diferencia determinar. Dies mag aber subjektiv ser...

Saludo Matthias

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

En Rechts-Clic en el .scr-Expediente y Auswahl de Konfigurieren se el Saver comenzó, el Ratón es todavía como

(y kann bewegt voluntad).
Beenden con Esc...

Saver mit Maus.jpg	4 kB

Hochgeladen:	12.02.2009

Ladeanzahl:
		Descargar

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 Cita Zeilenweise Cita

Funktioniert dieser (alte) Schoner [...]

(todavía) ?

12.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

KHR

¡Hola miteinander,

el Quellcode es kein Geheimnis.

Yo stell ihn gern rein.

Tal vez sólo el Referencia, daß Horst ihn sólo en seine Sammlung aufnimmt, si él überall correcto funktioniert.

Tal vez findet Ihr sí reaus, wo el Hase en el Pfeffer liegt.

Übrigens direkt kompiliert con el Runntime oder como EXE kann él con ESC abgebrochen voluntad. el maus debería entonces sichtbar bleiben.
Kompilieren Marca Separación

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

proc zeichne

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

    if Typ% =14                    Bullizei

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

    elseif Typ% =15                Feuerwehr

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

    elseif Typ% =16                Sanka

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

    elseif Typ% =17                ADAC Bus

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

    elseif typ% = 18

        typ% = 1
        merker% = 2

    elseif typ% = 8

        typ% = 4

    elseif typ% = 7

        typ% = 5

    elseif typ% = 6

        typ% = 5

    elseif typ% = 5               DoKa

        typ% = 5

    elseif typ% = 12

        typ% = 4

    elseif typ% = 4

        typ% = 4                   Kastenwagen

    elseif typ% = 3               Abschlepper

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

    elseif typ% = 2

        typ% = 2                    Pritsche

    else

        typ% = 1                    Caravelle

    endif

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

    if typ% <> 2

        if typ% <> 5

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

        endif

    endif

    if typ% = 2

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

    endif

    if typ% = 5

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

    endif

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

    if typ% <> 4   Kastenwagen

        if typ% <> 2   Pritsche

            if typ% <> 5   DoKa

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

            endif

        endif

    endif

    if typ% = 5  DoKa

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

    endif

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

    if typ% = 4   Kastenwagen

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

    endif

    if Typ% = 1      Caavelle

        if Merker% = 2

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

        endif

    endif

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

    if typ% = 2 Bordwände Pritsche

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

    endif

    if typ% = 5 Bordwände DoKa

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

    endif

    if typ% = 5  Abschlepper

        if Merker% = 1

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

        endif

    endif

    Ohren

    if typ% <> 2

        if typ% <> 5

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

        endif

    endif

    if @rnd(2)           Antenne

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

    endif

    if @rnd(2)         Nebelscheinwerfer  schwarz

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

    endif

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

    if Typ% = 14

        bullizei

    elseif Typ% = 15

        feuerwehr

    elseif Typ% = 16

        Sanka

    elseif Typ% = 17

        ADAC

    elseif Typ% = 5

        if merker% = 1

            ADAC

        endif

    endif

Endproc

proc ADAC

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

endproc

proc Bullizei

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

endproc

proc Sanka

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

endproc

proc Feuerwehr

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

endproc

proc Blaulicht

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

endproc

proc Gelblicht

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

    if x_typ% <> 5

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

    endif

endproc

proc Config_Scr

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

    if speed% = 1

        setcheck RB_Speed1&, 1

    elseif speed% = 2

        setcheck RB_Speed2&, 2

    elseif speed% = 3

        setcheck RB_Speed3&, 3

    elseif speed% = 4

        setcheck RB_Speed4&, 4

    elseif speed% = 5

        setcheck RB_Speed5&, 5

    elseif speed% = 6

        setcheck RB_Speed6&, 6

    else

        setcheck RB_Speed1&, 1

    endif

    if Farbe% = 1

        setcheck RB_Farbe1&, 1

    elseif Farbe% = 2

        setcheck RB_Farbe2&, 2

    elseif Farbe% = 3

        setcheck RB_Farbe3&, 3

    elseif Farbe% = 4

        setcheck RB_Farbe4&, 4

    elseif Farbe% = 5

        setcheck RB_Farbe5&, 5

    elseif Farbe% = 6

        setcheck RB_Farbe6&, 6

    elseif Farbe% = 7

        setcheck RB_Farbe5&, 7

    else

        setcheck RB_Farbe1&, 2

    endif

    if MengeBusse% = 1

        setcheck RB_Menge1&, 1

    elseif MengeBusse% = 2

        setcheck RB_Menge2&, 1

    elseif MengeBusse% = 3

        setcheck RB_Menge3&, 1

    elseif MengeBusse% = 4

        setcheck RB_Menge4&, 1

    elseif MengeBusse% = 5

        setcheck RB_Menge5&, 1

    else

        setcheck RB_Menge1&, 1

    endif

    if ZeigeUhr% = 1

        setcheck BT_ZeigeUhr&,1

    endif

    ende% = 0

    WHILENOT ENDE%

        WAITINPUT 100

        If %KEY=2

            ENDE%= 3

        ELSEIF %KEY=27

            ende%=4

        elseif clicked(BT_Cfg_Abbrechen&)

            ende% = 5

        elseif clicked(BT_Cfg_fertig&)

            ende%= 2

        endif

    ENDWHILE

    if ende% = 2

        RB_Gruppe Geschwindigkeit abfragen

        IF @GetCheck(RB_Speed1&)   RADIOBUTTON

            speed% = 1

        ELSEIF @GetCheck(RB_Speed2&) RADIOBUTTON

            speed% = 2

        ELSEIF @GetCheck(RB_Speed3&) RADIOBUTTON

            speed% = 3

        ELSEIF @GetCheck(RB_Speed4&) RADIOBUTTON

            speed% = 4

        ELSEIF @GetCheck(RB_Speed5&) RADIOBUTTON

            speed% = 5

        ELSEIF @GetCheck(RB_Speed6&) RADIOBUTTON

            speed% = 6

        ENDIF

        RB_Gruppe Bulli-Menge abfragen

        IF @GetCheck(RB_Menge1&) RADIOBUTTON

            MengeBusse% = 1

        ELSEIF @GetCheck(RB_Menge2&) RADIOBUTTON

            MengeBusse% = 2

        ELSEIF @GetCheck(RB_Menge3&) RADIOBUTTON

            MengeBusse% = 3

        ELSEIF @GetCheck(RB_Menge4&) RADIOBUTTON

            MengeBusse% = 4

        ELSEIF @GetCheck(RB_Menge5&) RADIOBUTTON

            MengeBusse% = 5

        ENDIF

        RB_Gruppe Bulli-Farbe abfragen

        IF @GetCheck(RB_Farbe1&) RADIOBUTTON

            Farbe% = 1

        ELSEIF @GetCheck(RB_Farbe2&) RADIOBUTTON

            Farbe% = 2

        ELSEIF @GetCheck(RB_Farbe3&) RADIOBUTTON

            Farbe% = 3

        ELSEIF @GetCheck(RB_Farbe4&) RADIOBUTTON

            Farbe% = 4

        ELSEIF @GetCheck(RB_Farbe5&) RADIOBUTTON

            Farbe% = 5

        ELSEIF @GetCheck(RB_Farbe6&) RADIOBUTTON

            Farbe% = 6

        ELSEIF @GetCheck(RB_Farbe7&) RADIOBUTTON

            Farbe% = 7

        ENDIF

        IF @GetCheck(BT_ZeigeUhr&) RADIOBUTTON

            zeigeUhr% = 1

        else

            zeigeUhr% = 0

        ENDIF

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

    ENDIF

    end

endproc

If %ParCount

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

EndIf

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

    end

endif

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

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

    Config_SCR

endif

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

if MengeBusse%  = 0

    MengeBusse%  = 2

endif

if speed% = 0

    speed% = 2

elseif speed% = 6

    speed% = 2
    speedwechsel% = 1

endif

if Farbe% = 0

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

elseif Farbe% = 1

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

elseif Farbe% = 2

    backCol& = 12

elseif Farbe% = 3

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

elseif Farbe% = 4

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

elseif Farbe% = 5

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

elseif Farbe% = 6

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

elseif Farbe% = 7

    backCol& = 12
    farbwechsel% = 1

endif

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

if p$ = /S

    ShowCursor 0

endif

ende% = 4

while ende% > 0

    if p$ = /S

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

        if %key = 27

            ende% = 0

        endif

    endif

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

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

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

        while Gross% > MaxGross%

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

        endwhile

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

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

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

        endif

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

    endif

    if Zaehler2& >= 5000

        Zaehler2& = 0

        if farbwechsel%

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

        endif

        if speedwechsel%

            speed% = @rnd(4) + 1

        endif

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

    endif

    if zeigeUhr% = 1

        if farbe% = 1

            Textcolor 23 , backCol&

        else

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

        endif

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

    endif

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

endwhile

DeleteObject BackBmp&
ShowCursor 1
end

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Funktioniert dieser Schoner [...] (todavía) ?

Nur una Bild, sin el se qué 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 Cita Zeilenweise Cita

E.T.

KHR

...Übrigens direkt kompiliert con el Runntime oder como EXE kann él con ESC abgebrochen voluntad. el maus debería entonces sichtbar bleiben.

Hm, aber en Deiner .scr (welche Yo comenzó habe) debería pero no la así ser, oder ??

[offtopic]veces schauen, si Si es usted el así 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 Cita Zeilenweise Cita

@E.T.: Gedult!

Un (algo) korrigierte Versión
Kompilieren Marca Separación

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

proc zeichne

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

    if Typ% =14 Bullizei

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

    elseif Typ% =15 Feuerwehr

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

    elseif Typ% =16 Sanka

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

    elseif Typ% =17 ADAC Bus

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

    elseif typ% = 18

        typ% = 1
        merker% = 2

    elseif typ% = 8

        typ% = 4

    elseif typ% = 7

        typ% = 5

    elseif typ% = 6

        typ% = 5

    elseif typ% = 5 DoKa

        typ% = 5

    elseif typ% = 12

        typ% = 4

    elseif typ% = 4

        typ% = 4 Kastenwagen

    elseif typ% = 3 Abschlepper

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

    elseif typ% = 2

        typ% = 2 Pritsche

    else

        typ% = 1 Caravelle

    endif

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

    if typ% <> 2

        if typ% <> 5

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

        endif

    endif

    if typ% = 2

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

    endif

    if typ% = 5

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

    endif

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

    if typ% <> 4 Kastenwagen

        if typ% <> 2 Pritsche

            if typ% <> 5 DoKa

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

            endif

        endif

    endif

    if typ% = 5 DoKa

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

    endif

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

    if typ% = 4 Kastenwagen

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

    endif

    if Typ% = 1Caavelle

        if Merker% = 2

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

        endif

    endif

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

    if typ% = 2 Bordwände Pritsche

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

    endif

    if typ% = 5 Bordwände DoKa

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

    endif

    if typ% = 5 Abschlepper

        if Merker% = 1

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

        endif

    endif

    Ohren

    if typ% <> 2

        if typ% <> 5

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

        endif

    endif

    if @rnd(2)  Antenne

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

    endif

    if @rnd(2)  Nebelscheinwerfer  schwarz

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

    endif

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

    if Typ% = 14

        bullizei

    elseif Typ% = 15

        feuerwehr

    elseif Typ% = 16

        Sanka

    elseif Typ% = 17

        ADAC

    elseif Typ% = 5

        if merker% = 1

            ADAC

        endif

    endif

Endproc

proc ADAC

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

endproc

proc Bullizei

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

endproc

proc Sanka

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

endproc

proc Feuerwehr

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

endproc

proc Blaulicht

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

endproc

proc Gelblicht

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

    if x_typ% <> 5

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

    endif

endproc

proc Config_Scr

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

    if speed% = 1

        setcheck RB_Speed1&, 1

    elseif speed% = 2

        setcheck RB_Speed2&, 2

    elseif speed% = 3

        setcheck RB_Speed3&, 3

    elseif speed% = 4

        setcheck RB_Speed4&, 4

    elseif speed% = 5

        setcheck RB_Speed5&, 5

    elseif speed% = 6

        setcheck RB_Speed6&, 6

    else

        setcheck RB_Speed1&, 1

    endif

    if Farbe% = 1

        setcheck RB_Farbe1&, 1

    elseif Farbe% = 2

        setcheck RB_Farbe2&, 2

    elseif Farbe% = 3

        setcheck RB_Farbe3&, 3

    elseif Farbe% = 4

        setcheck RB_Farbe4&, 4

    elseif Farbe% = 5

        setcheck RB_Farbe5&, 5

    elseif Farbe% = 6

        setcheck RB_Farbe6&, 6

    elseif Farbe% = 7

        setcheck RB_Farbe5&, 7

    else

        setcheck RB_Farbe1&, 2

    endif

    if MengeBusse% = 1

        setcheck RB_Menge1&, 1

    elseif MengeBusse% = 2

        setcheck RB_Menge2&, 1

    elseif MengeBusse% = 3

        setcheck RB_Menge3&, 1

    elseif MengeBusse% = 4

        setcheck RB_Menge4&, 1

    elseif MengeBusse% = 5

        setcheck RB_Menge5&, 1

    else

        setcheck RB_Menge1&, 1

    endif

    if ZeigeUhr% = 1

        setcheck BT_ZeigeUhr&,1

    endif

    ende% = 0

    WHILENOT ENDE%

        WAITINPUT 100

        If %KEY=2

            ENDE%= 3

        ELSEIF %KEY=27

            ende%=4

        elseif clicked(BT_Cfg_Abbrechen&)

            ende% = 5

        elseif clicked(BT_Cfg_fertig&)

            ende%= 2

        endif

    ENDWHILE

    if ende% = 2

        RB_Gruppe Geschwindigkeit abfragen

        IF @GetCheck(RB_Speed1&)RADIOBUTTON

            speed% = 1

        ELSEIF @GetCheck(RB_Speed2&)RADIOBUTTON

            speed% = 2

        ELSEIF @GetCheck(RB_Speed3&)RADIOBUTTON

            speed% = 3

        ELSEIF @GetCheck(RB_Speed4&)RADIOBUTTON

            speed% = 4

        ELSEIF @GetCheck(RB_Speed5&)RADIOBUTTON

            speed% = 5

        ELSEIF @GetCheck(RB_Speed6&)RADIOBUTTON

            speed% = 6

        ENDIF

        RB_Gruppe Bulli-Menge abfragen

        IF @GetCheck(RB_Menge1&)RADIOBUTTON

            MengeBusse% = 1

        ELSEIF @GetCheck(RB_Menge2&)RADIOBUTTON

            MengeBusse% = 2

        ELSEIF @GetCheck(RB_Menge3&)RADIOBUTTON

            MengeBusse% = 3

        ELSEIF @GetCheck(RB_Menge4&)RADIOBUTTON

            MengeBusse% = 4

        ELSEIF @GetCheck(RB_Menge5&)RADIOBUTTON

            MengeBusse% = 5

        ENDIF

        RB_Gruppe Bulli-Farbe abfragen

        IF @GetCheck(RB_Farbe1&)RADIOBUTTON

            Farbe% = 1

        ELSEIF @GetCheck(RB_Farbe2&)RADIOBUTTON

            Farbe% = 2

        ELSEIF @GetCheck(RB_Farbe3&)RADIOBUTTON

            Farbe% = 3

        ELSEIF @GetCheck(RB_Farbe4&)RADIOBUTTON

            Farbe% = 4

        ELSEIF @GetCheck(RB_Farbe5&)RADIOBUTTON

            Farbe% = 5

        ELSEIF @GetCheck(RB_Farbe6&)RADIOBUTTON

            Farbe% = 6

        ELSEIF @GetCheck(RB_Farbe7&)RADIOBUTTON

            Farbe% = 7

        ENDIF

        IF @GetCheck(BT_ZeigeUhr&)RADIOBUTTON

            zeigeUhr% = 1

        else

            zeigeUhr% = 0

        ENDIF

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

    ENDIF

    end

endproc

If %ParCount

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

EndIf

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

    end

endif

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

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

    Config_SCR

endif

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

if MengeBusse%  = 0

    MengeBusse%  = 2

endif

if speed% = 0

    speed% = 2

elseif speed% = 6

    speed% = 2
    speedwechsel% = 1

endif

if Farbe% = 0

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

elseif Farbe% = 1

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

elseif Farbe% = 2

    backCol& = 12

elseif Farbe% = 3

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

elseif Farbe% = 4

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

elseif Farbe% = 5

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

elseif Farbe% = 6

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

elseif Farbe% = 7

    backCol& = 12
    farbwechsel% = 1

endif

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

if p$ = /S

    ShowCursor 0

endif

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

while ende% > 0

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

    if p$ = /S

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

        if %key = 27

            ende% = 0

        endif

    endif

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

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

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

        while Gross% > MaxGross%

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

        endwhile

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

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

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

        endif

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

    endif

    if Zaehler2& >= 5000

        Zaehler2& = 0

        if farbwechsel%

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

        endif

        if speedwechsel%

            speed% = @rnd(4) + 1

        endif

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

    endif

    if zeigeUhr% = 1

        if farbe% = 1

            Textcolor 23 , backCol&

        else

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

        endif

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

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

KHR

¡Hola Mario,

wahrscheinlich startet él entonces sin parameter /s

y sólo de el mache Yo abhängig, como se maus y Abfrage comportamiento se.

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

12.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

El (algo) korrigierte Versión ha el Mausproblem no mehr - muss aber ergänzt voluntad. In unos pocos Prozeduren fehlende Variables Yo con Globalen untersetzt. Jedenfalls funktionierts así ahora en me.

12.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

@IF: Ah, lo hüpft sporadisch de X después de Y !!
Wenn aber ya en el Startmenü verewigt, entonces Por favor, auch con Icon

KeinIcon.jpg	11 kB

Hochgeladen:	12.02.2009

Ladeanzahl:
		Descargar

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 Cita Zeilenweise Cita

- Página 3 -

E.T.

@Karl-Heinz: Sollte porque Konfigurieren de el Rechtsklick y Aufruf Einstellungen no el gleiche hacer ?? Wohl otra vez veces una Win-Doof-heit, Aprovecho a...

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 Cita Zeilenweise Cita

E.T.

Aufrufparameter Clic en Einstellungen: 1. /c 2. /p Clic en Prevista: 1. /s 2. /p Rechstklick + Testen: /S Rechtsklick + Konfigurieren: Keine Parámetro Rechtsklick + Installieren: /p Kompilieren Marca Separación cls WhileLoop 0, %ParCount Print @Par$(&Loop) EndWhile waitinput
Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...	12.02.2009 ▲ Vollständiges Zitat Absatzweise Cita Zeilenweise Cita