Anwendungen | | | | - Page 1 - |
| 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 naturalmente - es ist in der Hauptsache per meine Amici im Bulliforum gedacht. |
| | | Gruß Karl-Heinz WIN XP home/Pro / XPROFAN 11 / P2CPP ATMEL + BASCOM Fan | 12.02.2009 ▲ |
| |
| | | | | - Page 2 - |
| Matthias Arlt | Bei mir corre der Bulli-Saver soweit. Allerdings beendet er sich immer(!) spätestens nach einer scarso Minute selbst wieder, häufig aber sehr viel eher. Die INI-File 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...
Saluto Matthias |
| | | WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 12.02.2009 ▲ |
| |
| | E.T. | Bei Rechts-Klick auf die .scr-File und Auswahl von Konfigurieren wird der Saver gestartet, die Maus ist noch da (und kann bewegt werden). Beenden mit Esc...
|
| | | 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 ▲ |
| |
| | | Funktioniert dieser (alte) Schoner [...] (noch) ? |
| | | | |
| | 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. KompilierenMarkierenSeparierenBulli-Screensaver - Testversion
by Karl-Heinz Rattay / 2009
Time String 8-stellig
def std_min_sek$(0) @left$(@time$(0)+:+time$(1),8)
declare Ini_Name$,SplitZaehler%,ExePathName$ ,ExeName$
declare BackBmp&
declare P$, Ende%, speed%, MengeBusse%
declare Zaehler1& , Zaehler2&, Zaehler3&
declare Gross%, HorPos%,VerPos%, Farbe&, Typ%
declare MaxGross%
declare x_col&, x_hpos%, x_vpos%, x_size%, x_Typ%
declare backCol&, farbwechsel%, farbe%, speedwechsel%
declare zeigeUhr%
Bullis aus einzelnen Linien zusammensetzen.
proc zeichne
parameters col&, hpos%, vpos%, size%, Typ%
declare merker%
merker% für Sonderformen
merker% = 1 Abschlepper
merker% = 0
if Typ% =14 Bullizei
col& = @rgb( 20,200,20 )
elseif Typ% =15 Feuerwehr
col& = @rgb( 200,20,20 )
elseif Typ% =16 Sanka
col& = @rgb( 230,230,150 )
elseif Typ% =17 ADAC Bus
col& = @rgb( 240,255,35 )
elseif typ% = 18
typ% = 1
merker% = 2
elseif typ% = 8
typ% = 4
elseif typ% = 7
typ% = 5
elseif typ% = 6
typ% = 5
elseif typ% = 5 DoKa
typ% = 5
elseif typ% = 12
typ% = 4
elseif typ% = 4
typ% = 4 Kastenwagen
elseif typ% = 3 Abschlepper
merker% = 1
Typ% = 5
col& = @rgb( 240,255,35 )
elseif typ% = 2
typ% = 2 Pritsche
else
typ% = 1 Caravelle
endif
x_col& = col&
x_hpos% = hpos%
x_vpos% = vpos%
x_size% = size%
x_Typ% = Typ%
die Reifen
usepen 0,(size%/4),(col& & 600000) Farbe für die Reifen neu anmischen
useBrush 0,col&
ellipse (hpos%-(Size%/2.5)),(vpos%-(Size%/2.5)) - (hpos%+(Size%/2.5)),(vpos%+(Size%/2.5))
ellipse (hpos%-(Size%/2.5)+(Size%*3.1)),(vpos%-(Size%/2.5)) - (hpos%+(Size%/2.5)+(Size%*3.1)),(vpos%+(Size%/2.5))
Karosse Teil 1
usepen 0,(size%/11),col&
moveto (hpos%-(Size%*0.6)),(vpos%)
lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.05)) v.Stoßstange
lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.25))
lineto (hpos%-(Size%*1.4)),(vpos%-(Size%*0.3))
lineto (hpos%-(Size%*1.45)),(vpos%-(Size%*1))
lineto (hpos%-(Size%*1.35)),(vpos%-(Size%*1.2))
lineto (hpos%-(Size%*1.25)),(vpos%-(Size%*1.2)) Frontscheibe
lineto (hpos%-(Size%*0.6)),(vpos%-(Size%*2))
lineto (hpos%-(Size%*0.7)),(vpos%-(Size%*2)) Dach
lineto (hpos%-(Size%*0.1)),(vpos%-(Size%*2.07))
if typ% <> 2
if typ% <> 5
lineto (hpos%+(Size%*0.9)),(vpos%-(Size%*2.1))
lineto (hpos%+(Size%*2.3)),(vpos%-(Size%*2.1))
lineto (hpos%+(Size%*3.85)),(vpos%-(Size%*2.05))
lineto (hpos%+(Size%*3.90)),(vpos%-(Size%*1.90))
lineto (hpos%+(Size%*3.95)),(vpos%-(Size%*1.80)) heck
lineto (hpos%+(Size%*4.25)),(vpos%-(Size%*1.1))
endif
endif
if typ% = 2
lineto (hpos%+(Size%*0.7)),(vpos%-(Size%*2.1))
lineto (hpos%+(Size%*0.75)),(vpos%-(Size%*2.05))
lineto (hpos%+(Size%*0.75)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*1.2))
endif
if typ% = 5
lineto (hpos%+(Size%*1.6)),(vpos%-(Size%*2.1))
lineto (hpos%+(Size%*1.65)),(vpos%-(Size%*2.05))
lineto (hpos%+(Size%*1.65)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*1.2))
endif
lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.3))
lineto (hpos%+(Size%*4.30)),(vpos%-(Size%*0.25)) h.Stoßstange
lineto (hpos%+(Size%*4.30)),(vpos%-(Size%*0.05))
lineto (hpos%+(Size%*3.7)),(vpos%)
lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*0.05)) h.Radlauf
lineto (hpos%+(Size%*3.68)),(vpos%-(Size%*0.15))
lineto (hpos%+(Size%*3.6)),(vpos%-(Size%*0.4))
lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*0.55))
lineto (hpos%+(Size%*3)),(vpos%-(Size%*0.55))
lineto (hpos%+(Size%*2.8)),(vpos%-(Size%*0.52))
lineto (hpos%+(Size%*2.62)),(vpos%-(Size%*0.4))
lineto (hpos%+(Size%*2.47)),(vpos%-(Size%*0.1)) Boden
lineto (hpos%+(Size%*2.46)),(vpos%+(Size%*0.1))
lineto (hpos%+(Size%*0.6)),(vpos%+(Size%*0.1))
lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*0.25)) v.Radlauf
lineto (hpos%+(Size%*0.52)),(vpos%-(Size%*0.35))
lineto (hpos%+(Size%*0.31)),(vpos%-(Size%*0.50))
lineto (hpos%+(Size%*0.22)),(vpos%-(Size%*0.55))
lineto (hpos%+(Size%*0)),(vpos%-(Size%*0.55))
lineto (hpos%-(Size%*0.33)),(vpos%-(Size%*0.52))
lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*0.35))
lineto (hpos%-(Size%*0.6)),(vpos%)
useBrush 1,@rgb(255,255,255)
Bus und Reifen weiß Füllen, damut der Hintergrund bedeckt wird
fill (hpos%-(Size%*0.9)),(vpos%-(Size%*0.9)),col&
fill hpos%,(vpos%),(col& & 600000)
fill (hpos%+(Size%*3.1)),vpos%,(col& & 600000)
useBrush 0,col&
if typ% <> 4 Kastenwagen
if typ% <> 2 Pritsche
if typ% <> 5 DoKa
mittleres Fenster
usepen 0,(size%/14),col&
Rectangle (hpos%+(Size%*0.7)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*2.1)),(vpos%-(Size%*1.2))
hinteres Fenster
moveto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
lineto (hpos%+(Size%*3.45)),(vpos%-(Size%*1.87))
lineto (hpos%+(Size%*3.65)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
endif
endif
endif
if typ% = 5 DoKa
mittleres Fenster
usepen 0,(size%/14),col&
Rectangle (hpos%+(Size%*0.65)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*1.59)),(vpos%-(Size%*1.2))
endif
vorderes Fenster
moveto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.87))
lineto (hpos%+(Size%*0.5)),(vpos%-(Size%*1.87))
lineto (hpos%+(Size%*0.5)),(vpos%-(Size%*1.2))
lineto (hpos%-(Size%*1.05)),(vpos%-(Size%*1.2))
lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.87))
usepen 0,(size%/14),col&
lineto (hpos%-(Size%*0.55)),(vpos%-(Size%*1.2))
Bus farbig machen
useBrush 1,col&
fill (hpos%-(Size%*0.9)),(vpos%-(Size%*0.9)),col&
if typ% = 4 Kastenwagen
mittleres Fenster
usepen 0,(size%/28),@rgb(255,255,255)
useBrush 0,col&
Rectangle (hpos%+(Size%*0.7)),(vpos%-(Size%*1.87)) - (hpos%+(Size%*2.1)),(vpos%-(Size%*1.2))
hinteres Fenster
moveto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
lineto (hpos%+(Size%*3.45)),(vpos%-(Size%*1.87))
lineto (hpos%+(Size%*3.65)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*2.2)),(vpos%-(Size%*1.87))
endif
if Typ% = 1 Caavelle
if Merker% = 2
usepen 0,(size%/20),0 Hochdach
useBrush 1,@rgb(220,210,210)
moveto (hpos%-(Size%*0.73)),(vpos%-(Size%*2))
lineto (hpos%+(Size%*3.9)),(vpos%-(Size%*2))
lineto (hpos%+(Size%*3.88)),(vpos%-(Size%*2.05))
lineto (hpos%+(Size%*3.8)),(vpos%-(Size%*2.3))
lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*2.5))
lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*2.6))
lineto (hpos%+(Size%*3.2)),(vpos%-(Size%*2.65))
lineto (hpos%+(Size%*2.8)),(vpos%-(Size%*2.7))
lineto (hpos%+(Size%*1.7)),(vpos%-(Size%*2.75))
lineto (hpos%+(Size%*0.8)),(vpos%-(Size%*2.7))
lineto (hpos%+(Size%*0.7)),(vpos%-(Size%*2.65))
lineto (hpos%+(Size%*0.65)),(vpos%-(Size%*2.6))
lineto (hpos%+(Size%*0.45)),(vpos%-(Size%*2.45))
lineto (hpos%+(Size%*0.43)),(vpos%-(Size%*2.42))
lineto (hpos%+(Size%*0.37)),(vpos%-(Size%*2.4))
lineto (hpos%+(Size%*0.3)),(vpos%-(Size%*2.37))
lineto (hpos%+(Size%*0)),(vpos%-(Size%*2.36))
lineto (hpos%-(Size%*0.1)),(vpos%-(Size%*2.35))
lineto (hpos%-(Size%*0.3)),(vpos%-(Size%*2.31))
lineto (hpos%-(Size%*0.42)),(vpos%-(Size%*2.27))
lineto (hpos%-(Size%*0.73)),(vpos%-(Size%*2.0))
fill (hpos%+(Size%*0.9)),(vpos%-(Size%*2.05)),0
usepen 0,(size%/20),@rgb(200,190,180) Hochdach
moveto (hpos%+(Size%*0.38)),(vpos%-(Size%*2.35))
lineto (hpos%+(Size%*1)),(vpos%-(Size%*2.29))
lineto (hpos%+(Size%*3.75)),(vpos%-(Size%*2.3))
endif
endif
Schwarzen Spiegel malen
usepen 0,(size%/8),0
line (hpos%-(Size%*0.6)),(vpos%-(Size%*1.2)) - (hpos%-(Size%*0.6)),(vpos%-(Size%*1.5))
usepen 0,(size%/14),col&
useBrush 0,col&
Fahrertür
usepen 0,(size%/28),@rgb(255,255,255)
moveto (hpos%-(Size%*0.63)),(vpos%-(Size%*1.94))
lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*1.94))
lineto (hpos%+(Size%*0.56)),(vpos%-(Size%*0.7))
lineto (hpos%+(Size%*0.4)),(vpos%-(Size%*0.60))
lineto (hpos%-(Size%*0.35)),(vpos%-(Size%*0.58))
lineto (hpos%-(Size%*0.38)),(vpos%-(Size%*0.55))
lineto (hpos%-(Size%*0.50)),(vpos%-(Size%*0.50))
lineto (hpos%-(Size%*0.65)),(vpos%-(Size%*0.3))
lineto (hpos%-(Size%*0.65)),(vpos%-(Size%*0.08))
lineto (hpos%-(Size%*1.22)),(vpos%-(Size%*0.14))
lineto (hpos%-(Size%*1.22)),(vpos%-(Size%*1.11))
lineto (hpos%-(Size%*0.63)),(vpos%-(Size%*1.94))
if typ% = 2 Bordwände Pritsche
line (hpos%+(Size%*0.77)),(vpos%-(Size%*1.3))- (hpos%+(Size%*0.77)),(vpos%-(Size%*0.6))
lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.6))
useBrush 0,col&
Rectangle (hpos%+(Size%*0.88)),(vpos%-(Size%*1.13)) - (hpos%+(Size%*4.1)),(vpos%-(Size%*0.7))
usepen 0,(size%/12),@rgb(255,255,255)
line (hpos%+(Size%*1.0)),(vpos%-(Size%*1.2))- (hpos%+(Size%*1.0)),(vpos%-(Size%*0.62))
line (hpos%+(Size%*2.45)),(vpos%-(Size%*1.2))- (hpos%+(Size%*2.45)),(vpos%-(Size%*0.62))
line (hpos%+(Size%*3.9)),(vpos%-(Size%*1.2))- (hpos%+(Size%*3.9)),(vpos%-(Size%*0.62))
endif
if typ% = 5 Bordwände DoKa
line (hpos%+(Size%*1.70)),(vpos%-(Size%*1.3))- (hpos%+(Size%*1.70)),(vpos%-(Size%*0.6))
lineto (hpos%+(Size%*4.15)),(vpos%-(Size%*0.6))
useBrush 0,col&
Rectangle (hpos%+(Size%*1.78)),(vpos%-(Size%*1.13)) - (hpos%+(Size%*4.1)),(vpos%-(Size%*0.7))
usepen 0,(size%/12),@rgb(255,255,255)
line (hpos%+(Size%*1.95)),(vpos%-(Size%*1.2))- (hpos%+(Size%*1.95)),(vpos%-(Size%*0.62))
line (hpos%+(Size%*3.9)),(vpos%-(Size%*1.2))- (hpos%+(Size%*3.9)),(vpos%-(Size%*0.62))
endif
if typ% = 5 Abschlepper
if Merker% = 1
usepen 0, (size%/8),0
useBrush 1, 0
moveto (hpos%+(Size%*5)),(vpos%-(Size%*2.55))
lineto (hpos%+(Size%*5)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*4.25)),(vpos%-(Size%*0.35))
ellipse (hpos%+(Size%*4.85)),(vpos%-(Size%*2.4)) - (hpos%+(Size%*5.15)),(vpos%-(Size%*2.7))
ellipse (hpos%+(Size%*4.88)),(vpos%-(Size%*1.08)) - (hpos%+(Size%*5.12)),(vpos%-(Size%*1.32))
usepen 0, (size%/8),col&
useBrush 0, col&
moveto (hpos%+(Size%*2.75)),(vpos%-(Size%*1.2))
lineto (hpos%+(Size%*5.05)),(vpos%-(Size%*2.7))
lineto (hpos%+(Size%*5.1)),(vpos%-(Size%*2.68))
lineto (hpos%+(Size%*5.15)),(vpos%-(Size%*2.66))
lineto (hpos%+(Size%*5.1)),(vpos%-(Size%*2.48))
lineto (hpos%+(Size%*5)),(vpos%-(Size%*2.48))
lineto (hpos%+(Size%*3.75)),(vpos%-(Size%*1.2))
line (hpos%+(Size%*3.1)),(vpos%-(Size%*1.2)) - (hpos%+(Size%*5)),(vpos%-(Size%*2.55))
line (hpos%+(Size%*3.45)),(vpos%-(Size%*1.2)) - (hpos%+(Size%*5)),(vpos%-(Size%*2.55))
endif
endif
Ohren
if typ% <> 2
if typ% <> 5
usepen 0,(size%/28),@rgb(255,255,255)
moveto (hpos%+(Size%*3.8)),(vpos%-(Size%*1.85))
lineto (hpos%+(Size%*4.1)),(vpos%-(Size%*1.22))
lineto (hpos%+(Size%*3.7)),(vpos%-(Size%*1.22))
lineto (hpos%+(Size%*3.5)),(vpos%-(Size%*1.85))
lineto (hpos%+(Size%*3.8)),(vpos%-(Size%*1.85))
usepen 0,(size%/10),0
line (hpos%+(Size%*3.65)),(vpos%-(Size%*1.75)) - (hpos%+(Size%*3.76)),(vpos%-(Size%*1.75))
line (hpos%+(Size%*3.7)),(vpos%-(Size%*1.62)) - (hpos%+(Size%*3.81)),(vpos%-(Size%*1.62))
line (hpos%+(Size%*3.75)),(vpos%-(Size%*1.49)) - (hpos%+(Size%*3.86)),(vpos%-(Size%*1.49))
line (hpos%+(Size%*3.8)),(vpos%-(Size%*1.36)) - (hpos%+(Size%*3.91)),(vpos%-(Size%*1.36))
endif
endif
if @rnd(2) Antenne
usepen 0,(size%/23),0
line (hpos%-(Size%*1.45)),(vpos%-(Size%*1.1)) - (hpos%-(Size%*1.25)),(vpos%-(Size%*2))
endif
if @rnd(2) Nebelscheinwerfer schwarz
useBrush 1,0
usepen 0,(size%/23),0
rectangle (hpos%-(Size%*1.51)),(vpos%-(Size%*0.26)) - (hpos%-(Size%*1.55)),(vpos%-(Size%*0.33))
rectangle (hpos%-(Size%*1.51)),(vpos%-(Size%*0.33)) - (hpos%-(Size%*1.62)),(vpos%-(Size%*0.49))
endif
Frontscheibe andeuten
usepen 0,(size%/23),col&
line (hpos%-(Size%*1.37)),(vpos%-(Size%*1.2)) - (hpos%-(Size%*0.72)),(vpos%-(Size%*2))
Blinker vorn
usepen 0,(size%/14),@rgb(240,180,40)
useBrush 1,@rgb(240,180,40)
Rectangle (hpos%-(Size%*1.47)),(vpos%-(Size%*0.4)) - (hpos%-(Size%*1.37)),(vpos%-(Size%*0.5))
lineto (hpos%-(Size%*1.6)),(vpos%-(Size%*0.05))
if Typ% = 14
bullizei
elseif Typ% = 15
feuerwehr
elseif Typ% = 16
Sanka
elseif Typ% = 17
ADAC
elseif Typ% = 5
if merker% = 1
ADAC
endif
endif
Endproc
proc ADAC
ADAC
usefont ARIAL,(x_size%*0.85),0,1,0,0
textcolor 0, -1
drawtext (x_hpos%+(x_Size%*0.6)),(X_vpos%-(X_Size%*1.2)), ADAC
Gelblicht
endproc
proc Bullizei
Bullizei
usefont ARIAL,(X_size%*0.6),0,1,0,0
textcolor @rgb(255,255,255), -1
drawtext (hpos%+(X_Size%*0.6)),(X_vpos%-(X_Size%*0.95)), BULLIZEI
Blaulicht
endproc
proc Sanka
Sanka
usefont ARIAL,(X_size%*0.3),(X_size%*0.17),1,0,0
textcolor @rgb(235,25,25), -1
drawtext (X_hpos%-(X_Size%*0.3)),(X_vpos%-(X_Size%*1.15)), Deutsche Rotes Kreuz
Blaulicht
usepen 0,(X_size%/28),@rgb(255,255,255)
useBrush 1,@rgb(255,255,255)
ellipse (X_hpos%+(X_Size%*1.1)),(X_vpos%-(X_Size%*0.8)) - (X_hpos%+(X_Size%*1.9)),(X_vpos%+(X_Size%*0.05))
usepen 0,(x_size%/28),@rgb(235,25,25)
useBrush 1,@rgb(235,25,25)
Rectangle (x_hpos%+(x_Size%*1.38)),(vpos%-(x_Size%*0.7)) - (x_hpos%+(x_Size%*1.65)),(x_vpos%-(x_Size%*0.05))
Rectangle (x_hpos%+(x_Size%*1.18)),(x_vpos%-(x_Size%*0.25)) - (x_hpos%+(x_Size%*1.85)),(x_vpos%-(x_Size%*0.5))
endproc
proc Feuerwehr
Feuerwehr
usefont ARIAL,(x_Size%*0.6),0,1,0,0
textcolor @rgb(255,255,255), -1
drawtext (x_hpos%+(x_Size%*0.6)),(x_vpos%-(x_Size%*1.1)), Feuerwehr
Blaulicht
endproc
proc Blaulicht
usepen 0,(x_Size%/14),col&
useBrush 1,x_col&
Rectangle (x_hpos%-(x_Size%*0.6)),(x_vpos%-(x_Size%*2)) - (x_hpos%-(x_Size%*0.35)),(x_vpos%-(x_Size%*2.15))
Rectangle (x_hpos%+(x_Size%*3.5)),(x_vpos%-(x_Size%*2)) - (x_hpos%+(x_Size%*3.75)),(x_vpos%-(x_Size%*2.15))
usepen 0,(x_Size%/14),@rgb(20,20,220)
useBrush 1,@rgb(20,20,220)
Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14)) - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
Rectangle (x_hpos%+(x_Size%*3.53)),(x_vpos%-(x_Size%*2.14)) - (x_hpos%+(x_Size%*3.72)),(x_vpos%-(x_Size%*2.35))
endproc
proc Gelblicht
usepen 0,(x_Size%/14),x_col&
useBrush 1,x_col&
Rectangle (x_hpos%-(x_Size%*0.6)),(x_vpos%-(x_Size%*2)) - (x_hpos%-(x_Size%*0.35)),(x_vpos%-(x_Size%*2.15))
usepen 0,(x_Size%/14),@rgb(240,180,40)
useBrush 1,@rgb(240,180,40) Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14)) - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
Rectangle (x_hpos%-(x_Size%*0.57)),(x_vpos%-(x_Size%*2.14)) - (x_hpos%-(x_Size%*0.38)),(x_vpos%-(x_Size%*2.35))
Pitsche und Doka nur vorn!!
if x_typ% <> 5
usepen 0,(x_Size%/14),@rgb(240,180,40)
useBrush 1,@rgb(240,180,40)
Rectangle (x_hpos%+(x_Size%*3.53)),(x_vpos%-(x_Size%*2.14)) - (x_hpos%+(x_Size%*3.72)),(x_vpos%-(x_Size%*2.35))
usepen 0,(x_Size%/14),x_col&
useBrush 1,x_col&
Rectangle (x_hpos%+(x_Size%*3.5)),(x_vpos%-(x_Size%*2)) - (x_hpos%+(x_Size%*3.75)),(x_vpos%-(x_Size%*2.15))
endif
endproc
proc Config_Scr
DECLARE GROUPBOX1&,RB_Speed1&,RB_Speed2&,RB_Speed3&,RB_Speed4&,RB_Speed5&,RB_Speed6&
DECLARE GROUPBOX2&,RB_Menge1&,RB_Menge2&,RB_Menge3&,RB_Menge4&,RB_Menge5&
DECLARE GROUPBOX3&,RB_Farbe1&,RB_Farbe2&,RB_Farbe3&,RB_Farbe4&,RB_Farbe5&,RB_Farbe6&,RB_Farbe7&
DECLARE BT_Cfg_fertig&,Bt_Cfg_Abbrechen&
declare BT_ZeigeUhr&
DEF GETSYSCOLOR(1) !USER32,GetSysColor
declare Farbe%
WINDOWSTYLE 63
WINDOWTITLE Bulli-Screensaver Config V08a
WINDOW 10,10-580,560
CLS GETSYSCOLOR(15)
SETDIALOGFONT 1
TEXTCOLOR 0, GETSYSCOLOR(15)
USEFONT ARIAL,14,0,0,0,0
drawtext 8, 5,Bulli-Bildschirmschoner
drawtext 8,25,@chr$(169)+2009 DC6GO - Karl-Heinz Rattay
drawtext 8,45,speziell für: www.forumvwbus.de
GROUPBOX1& = CREATE(GROUPBOX ,%HWND,Geschwindigkeit,0013,0069,0290,0043)
RB_Speed1& = CREATE(RADIOBUTTON,%HWND,1,0023,0085,0027,0025)
RB_Speed2& = CREATE(RADIOBUTTON,%HWND,2,0058,0085,0027,0025)
RB_Speed3& = CREATE(RADIOBUTTON,%HWND,3,0093,0085,0027,0025)
RB_Speed4& = CREATE(RADIOBUTTON,%HWND,4,0128,0085,0027,0025)
RB_Speed5& = CREATE(RADIOBUTTON,%HWND,5,0161,0085,0027,0025)
RB_Speed6& = CREATE(RADIOBUTTON,%HWND,wechselnd,0196,0085,090,0025)
GROUPBOX2& = CREATE(GROUPBOX ,%HWND,Bulli-Dichte,0013,0113,0290,0043)
RB_Menge1& = CREATE(RADIOBUTTON,%HWND,1,0023,0126,0027,0025)
RB_Menge2& = CREATE(RADIOBUTTON,%HWND,2,0058,0126,0027,0025)
RB_Menge3& = CREATE(RADIOBUTTON,%HWND,3,0093,0126,0027,0025)
RB_Menge4& = CREATE(RADIOBUTTON,%HWND,4,0128,0126,0027,0025)
RB_Menge5& = CREATE(RADIOBUTTON,%HWND,5,0161,0126,0027,0025)
GROUPBOX3& = CREATE(GROUPBOX ,%HWND,Hintergrund Farbe,0013,0159,0290,0205)
RB_Farbe1& = CREATE(RADIOBUTTON,%HWND,weiss,0023,0176,0140,0025)
RB_Farbe2& = CREATE(RADIOBUTTON,%HWND,schwarz,0023,0202,0140,0025)
RB_Farbe3& = CREATE(RADIOBUTTON,%HWND,blau,0023,0228,0140,0025)
RB_Farbe4& = CREATE(RADIOBUTTON,%HWND,grün,0023,0254,0140,0025)
RB_Farbe5& = CREATE(RADIOBUTTON,%HWND,rot,0023,0280,0140,0025)
RB_Farbe6& = CREATE(RADIOBUTTON,%HWND,braun,0023,0308,0140,0025)
RB_Farbe7& = CREATE(RADIOBUTTON,%HWND,wechselnd,0023,0336,0140,0025)
BT_ZeigeUhr& = CREATE(CheckBox,%HWND,Urzeit einblenden,0023,370,0200,0025)
BT_Cfg_fertig& = CREATE(BUTTON,%HWND,Speichern,0060,500,0100,0025)
BT_Cfg_Abbrechen& = CREATE(BUTTON,%HWND,Abbrechen,0180,500,0100,0025)
zeichne @rgb(50,50,200) , 400 , 50 , 17, 1
zeichne @rgb(190,120,30) , 400 , 100 , 17, 2
zeichne @rgb(50,200,220) , 400 , 150 , 17, 4
zeichne @rgb(120,120,10) , 400 , 200 , 17, 5
zeichne @rgb(200,200,100) , 400 , 250 , 17, 14
zeichne @rgb(200,200,100) , 400 , 300 , 17, 15
zeichne @rgb(200,200,100) , 400 , 350 , 17, 16
zeichne @rgb(200,200,100) , 400 , 400 , 17, 17
zeichne @rgb(50,220,50) , 400 , 450 , 17, 18
zeichne @rgb(50,220,50) , 400 , 500 , 17, 3
speed% = @val(readini$(INI_Name$,SETUP,SPEED))
Farbe% = @val(readini$(INI_Name$,SETUP,FARBE))
MengeBusse% = @val(readini$(INI_Name$,SETUP,MENGEBUSSE))
zeigeUhr% = @val(readini$(INI_Name$,SETUP,ZeigeZeit))
case speed% = 0 : Speed% = 1
case Farbe% = 0 : Farbe% = 2
case MengeBusse% = 0 : MengeBusse% = 1
if speed% = 1
setcheck RB_Speed1&, 1
elseif speed% = 2
setcheck RB_Speed2&, 2
elseif speed% = 3
setcheck RB_Speed3&, 3
elseif speed% = 4
setcheck RB_Speed4&, 4
elseif speed% = 5
setcheck RB_Speed5&, 5
elseif speed% = 6
setcheck RB_Speed6&, 6
else
setcheck RB_Speed1&, 1
endif
if Farbe% = 1
setcheck RB_Farbe1&, 1
elseif Farbe% = 2
setcheck RB_Farbe2&, 2
elseif Farbe% = 3
setcheck RB_Farbe3&, 3
elseif Farbe% = 4
setcheck RB_Farbe4&, 4
elseif Farbe% = 5
setcheck RB_Farbe5&, 5
elseif Farbe% = 6
setcheck RB_Farbe6&, 6
elseif Farbe% = 7
setcheck RB_Farbe5&, 7
else
setcheck RB_Farbe1&, 2
endif
if MengeBusse% = 1
setcheck RB_Menge1&, 1
elseif MengeBusse% = 2
setcheck RB_Menge2&, 1
elseif MengeBusse% = 3
setcheck RB_Menge3&, 1
elseif MengeBusse% = 4
setcheck RB_Menge4&, 1
elseif MengeBusse% = 5
setcheck RB_Menge5&, 1
else
setcheck RB_Menge1&, 1
endif
if ZeigeUhr% = 1
setcheck BT_ZeigeUhr&,1
endif
ende% = 0
WHILENOT ENDE%
WAITINPUT 100
If %KEY=2
ENDE%= 3
ELSEIF %KEY=27
ende%=4
elseif clicked(BT_Cfg_Abbrechen&)
ende% = 5
elseif clicked(BT_Cfg_fertig&)
ende%= 2
endif
ENDWHILE
if ende% = 2
RB_Gruppe Geschwindigkeit abfragen
IF @GetCheck(RB_Speed1&) RADIOBUTTON
speed% = 1
ELSEIF @GetCheck(RB_Speed2&) RADIOBUTTON
speed% = 2
ELSEIF @GetCheck(RB_Speed3&) RADIOBUTTON
speed% = 3
ELSEIF @GetCheck(RB_Speed4&) RADIOBUTTON
speed% = 4
ELSEIF @GetCheck(RB_Speed5&) RADIOBUTTON
speed% = 5
ELSEIF @GetCheck(RB_Speed6&) RADIOBUTTON
speed% = 6
ENDIF
RB_Gruppe Bulli-Menge abfragen
IF @GetCheck(RB_Menge1&) RADIOBUTTON
MengeBusse% = 1
ELSEIF @GetCheck(RB_Menge2&) RADIOBUTTON
MengeBusse% = 2
ELSEIF @GetCheck(RB_Menge3&) RADIOBUTTON
MengeBusse% = 3
ELSEIF @GetCheck(RB_Menge4&) RADIOBUTTON
MengeBusse% = 4
ELSEIF @GetCheck(RB_Menge5&) RADIOBUTTON
MengeBusse% = 5
ENDIF
RB_Gruppe Bulli-Farbe abfragen
IF @GetCheck(RB_Farbe1&) RADIOBUTTON
Farbe% = 1
ELSEIF @GetCheck(RB_Farbe2&) RADIOBUTTON
Farbe% = 2
ELSEIF @GetCheck(RB_Farbe3&) RADIOBUTTON
Farbe% = 3
ELSEIF @GetCheck(RB_Farbe4&) RADIOBUTTON
Farbe% = 4
ELSEIF @GetCheck(RB_Farbe5&) RADIOBUTTON
Farbe% = 5
ELSEIF @GetCheck(RB_Farbe6&) RADIOBUTTON
Farbe% = 6
ELSEIF @GetCheck(RB_Farbe7&) RADIOBUTTON
Farbe% = 7
ENDIF
IF @GetCheck(BT_ZeigeUhr&) RADIOBUTTON
zeigeUhr% = 1
else
zeigeUhr% = 0
ENDIF
set (DECIMALS,0)
writeini INI_Name$,SETUP,SPEED = @str$(speed%)
writeini INI_Name$,SETUP,FARBE = @str$(Farbe%)
writeini INI_Name$,SETUP,MENGEBUSSE = @str$(MengeBusse%)
writeini INI_Name$,SETUP,ZeigeZeit = @str$(zeigeUhr%)
ENDIF
end
endproc
If %ParCount
P$=@Upper$(@Par$(1))
EndIf
if @left$(p$,2) = /P
end
endif
ExeName$=@Upper$(@Par$(0))
SplitZaehler% = @len(SubStr$(ExeName$, -1, \))
ExePathName$ = @left$(ExeName$,(@len(ExeName$)-SplitZaehler%))
Ini_Name$ = ExePathName$+BULLI_SCR_SAVER.INI
Config_SCR
if @left$(p$,2) = /C
Config_SCR
endif
speed% = @val(readini$(INI_Name$,SETUP,SPEED))
Farbe% = @val(readini$(INI_Name$,SETUP,FARBE))
MengeBusse% = @val(readini$(INI_Name$,SETUP,MENGEBUSSE))
zeigeUhr% = @val(readini$(INI_Name$,SETUP,ZeigeZeit))
farbwechsel% = 0
speedwechsel% = 0
if MengeBusse% = 0
MengeBusse% = 2
endif
if speed% = 0
speed% = 2
elseif speed% = 6
speed% = 2
speedwechsel% = 1
endif
if Farbe% = 0
Farbe% = 3
backCol& = @RGB(20,20,70)
elseif Farbe% = 1
backCol& = @RGB(254,254,254)
elseif Farbe% = 2
backCol& = 12
elseif Farbe% = 3
backCol& = @RGB(20,20,70)
elseif Farbe% = 4
backCol& = @RGB(20,70,20)
elseif Farbe% = 5
backCol& = @RGB(70,20,20)
elseif Farbe% = 6
backCol& = @RGB(90,60,10)
elseif Farbe% = 7
backCol& = 12
farbwechsel% = 1
endif
WindowStyle 240
BackBmp& = @Create(hNewPic,(%maxX+800), %maxY, backCol&) @RGB(255,255,255))
cls backCol&
showmax
randomize
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
waitinput 5
Zaehler1& = 1
Zaehler2& = 1
Zaehler3& = 1
MaxGross% = %MaxY / 14
if p$ = /S
ShowCursor 0
endif
ende% = 4
while ende% > 0
if p$ = /S
Case %GetInputState : dec ende%
else Abbruch per ESC wenn nicht im Screensaver-mode
waitinput 2
if %key = 27
ende% = 0
endif
endif
CopyPic BackBmp&, speed%,0 - (%maxx+600),%maxy > 0,0; 0
inc Zaehler1&
inc Zaehler2&
inc Zaehler3&
startpaint BackBmp&
if Zaehler1& > (750/MengeBusse%/speed%) nur bei jedem xxxx. Durchlauf neuen Bulli zeichnen, sonst wirds zu bunt
Gross% = (15+@rnd(80)) Größe
while Gross% > MaxGross%
Gross% = (15+@rnd(80))
endwhile
HorPos% = (%maxx+100) horizontale Start Position
VerPos% = @rnd(%maxy*0.93) +200 vertikale Start Position
Farbe& = @rgb( @rnd(255),@rnd(255),@rnd(255) ) die Farbe festlegen
Typ% = @rnd(30)
if VerPos% + (Gross%*2.3) > %MaxY
VerPos% = %MaxY - (Gross%*3.3)
endif
zeichne farbe& , HorPos% , VerPos%, Gross%, Typ%
Zaehler1& = 1
endif
if Zaehler2& >= 5000
Zaehler2& = 0
if farbwechsel%
backCol& = @rgb( (2+@rnd(80)),(2+@rnd(80)),(2+@rnd(80)) )
usepen 0,1,backCol&
useBrush 1,backCol&
rectangle (%maxx+390),0 -(%maxx+400) ,%maxy
endif
if speedwechsel%
speed% = @rnd(4) + 1
endif
Textcolor @rgb( (100+@rnd(155)),(100+@rnd(155)),(100+@rnd(155)) ),backCol&
usefont ARIAL,(16+@rnd(14)),0,0,1,0
drawtext (%Maxx+5), (%Maxy-60),www.forumvwbus.de
drawtext (%Maxx+5), (%Maxy-30),Forum für alle VW-Busse
endif
if zeigeUhr% = 1
if farbe% = 1
Textcolor 23 , backCol&
else
Textcolor @rgb( 255 , 255 , 255 ) , backCol&
endif
usefont ARIAL,(%MaxX/60),0,0,1,0
drawtext 20, 20, +std_min_sek$(pan>+
endif
copyBmp speed%,0 - (%maxx+800),%maxy > 0,0;0
endpaint
endwhile
DeleteObject BackBmp&
ShowCursor 1
end
|
| | | Gruß Karl-Heinz WIN XP home/Pro / XPROFAN 11 / P2CPP ATMEL + BASCOM Fan | 12.02.2009 ▲ |
| |
| | E.T. |
Funktioniert 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 ▲ |
| |
| | 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 ▲ |
| |
| | | @E.T.: Gedult! Eine (etwas) korrigierte Version KompilierenMarkierenSeparierenGemerkt/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
|
| | | | |
| | 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 ▲ |
| |
| | | 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. |
| | | | |
| | E.T. | @IF: Ah, es hüpft sporadisch von X nach Y !! Wenn aber schon im Startmenü verewigt, dann bitte auch mit Icon
|
| | | 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 ▲ |
| |
| | | | - Page 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 ▲ |
| |
| | 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 KompilierenMarkierenSeparieren |
| |
|
Zur AnwendungTopic-Options | 21.665 Views |
ThemeninformationenDieses Thema hat 5 subscriber: |