Applications | | | | | | - Page 1 - |
| 
KHR | How in the Betreff called:
One plainer Screen saver. rollende - No gliding Bullis!
emerged is the starting point from Langeweile, because I on several airport on my verschobenen or not More suitable Anschlussflüge Waiting had to.
one sees therein too The link To my second large hobby - the Bulli-rad.
OK, the thing is yet ne Construction site and has More started ideas as finished and visible functions.
but Perhaps must I Yes time again somewhere long Waiting - and then GEHTS sure so moreover.
and naturally - its in the Hauptsache for my Friends in the Bulliforum virtual. |
| | | | Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02/12/09 ▲ |
| | |
| | | | | | - Page 2 - |
| |
KHR | Hello David,
because You instead of on Upload simply on new Version click.
Have I attempts but since has my old Notebook-Möhre aufgehängt. then at second time i was To rotten and Have just Upload clicked.
but what there with the scr-saver with you happens???? Rudi ratlos here to the keyboard.
Habs strain time on the PC on the Hotelrezeption with 14?? on 1024 probiert and there rennts.
????? OK - I go now but nevertheless into box. tommorrow must I early out. whom whole day outside on nem Gerüst works Brrrrrrrrrr. |
| | | | Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02/12/09 ▲ |
| | |
| |
KHR | | | | | Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02/12/09 ▲ |
| | |
| | 
Matthias
Arlt | by me runs the Bulli-Saver so far. though exits it itself always(!) at the latest after a knappen Minute self again, often but very plenty sooner. The INI-File neither selbstätig prepares, separate only to Start with Parameter /c. with whom verchiedenen Geschwindigkeiten can I none signifikanten Difference check. this likes but subjektiv his...
Greeting Matthias |
| | | | WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 02/12/09 ▲ |
| | |
| | 
E.T. | with right-Click on The .scr-File and selection of Konfigurieren becomes the Saver launched, The mouse is yet there  (and can moving go).
terminate with 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... | 02/12/09 ▲ |
| | |
| |  | functions this (old) Schoner [...]  (yet) ? |
| | | | | | |
| |
KHR | Hello together,
the Source is no secret.
I stell it gladly mere.
Perhaps only the Info, that Horst it first in its collection aufnimmt, if it everywhere correctly. functions.
Perhaps finds your Yes reaus, where the bunny in the pepper lying.
Übrigens directly compiled with the Runntime or as EXE can it with ESC aborted go. The mouse ought to still visible stay.
CompileMarkSeparationBulli-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 | 02/12/09 ▲ |
| | |
| |
E.T. |
functions this Schoner [...] (yet) ?
only one Image, without the itself what moving ?? |
| | | | 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... | 02/12/09 ▲ |
| | |
| |
E.T. | KHR
...Übrigens directly compiled with the Runntime or as EXE can it with ESC aborted go. The mouse ought to still visible stay.
Hm, but in your .scr (which I launched have) ought to the but not so his, or ??
[offtopic]time look, whether You the so planned have[/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... | 02/12/09 ▲ |
| | |
| | | @E.T.: Gedult! 
an (something) corrected version
CompileMarkSeparationGemerkt/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 | Hello Mario,
probably launch it then without parameter /s
and only from the make I tributary, How itself mouse and query behaviour should. |
| | | | Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 02/12/09 ▲ |
| | |
| | | | The (something) corrected version has the Mausproblem not any more - must but complement go. into couple Procedures fehlende variables have I with Global untersetzt. anyway funktionierts so now too by me. |
| | | | | | |
| |
E.T. | @IF: Ah, it hüpft sporadisch of X to Y !!
If but already in the Startmenü verewigt, then Please too with 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... | 02/12/09 ▲ |
| | |
|
Zur AnwendungTopic-Options | 21.751 Views |
Themeninformationenthis Topic has 5 subscriber: |
(932)
Deutsch
English
Français
Español
Italia
