[Veraltet] Pascal Programm

DeletedUser · 22. Jan 2008

Hab n Porgramm in Pascal geschrieben,das die Off/Deff Stärke
einer Off bzw Deff berechnen soll.
Bis jetzt siehts so aus,jedoch zeigt er mir beim
Kompilieren 3 Fehler an ohne nähere Details.

Hoffe ihr könnt mir helfen:

PHP:

PROGRAM Vorlage;
USES wincrt;
VAR Speer,Schwert,Axt,Bogen,lKav,bbogen,skav,ram,kata : integer;
    a_allgemein,a_kav,a_bogen : integer;
    v_allgemein,v_kav,v_bogen : integer;
    bhplatz : integer;
BEGIN

writeln;
writeln('Off-Deff Vorlage V1.0');
writeln;
write('Speer=');readln(speer);
write('Schwert=');readln(schwert);
write('Axt=');readln(axt);
write('Bogen=');readln(bogen);
write('lkav=');readln(lkav);
write('bbogen=');readln(bbogen);
write('skav=');readln(skav);
write('Rammen=');readln(ram);
write('Katapulte=');readln(kata);

bhplatz:=speer+schwert+axt+bogen+4*lkav+5*bbogen+6*skav+5*ram+8*kata;
writeln;
writeln('Verbrauchte Bauernhofpl„tze = ',bhplatz);
writeln;
a_allgemein:=speer*10+schwert*25+axt*40+ram*2+kata*100;
a_kav:=lkav*130+skav*150;
a_bogen:=bogen*15+bbogen*120;
writeln('A_Allgemein = ',a_allgemein);
writeln;
writeln('A_Kav = ',a_kav);
writeln;
writeln('A_Bogen = ',a_bogen);
writeln;
v_allgemein:=speer*15+schwert*50+axt*10+bogen*50+lkav*30+bbogen*40+skav*200+ram*20+kata*100;
v_lkav:=speer*45+schwert*15+axt*5+bogen*40+lkav*40+bbogen*30+skav*80+ram*50+kata*50;
v_bogen:=speer*20+schwert*40+axt*10+bogen*5+lkav*30+bbogen*50+skav*180+ram*20+kata*100;
writeln('V_Allgemein = ',v_allgemein);
writeln;
writeln('V_Kav = ',v_kav);
writeln;
writeln('V_Bogen = ',v_bogen);


END.

DeletedUser12929 · 22. Jan 2008

Ganz einfach im Turbo Delphi eingefügt liefert er folgendes:
v_lkav hast du nicht deklariert, ich schätze unten darf nicht v_lkav stehen sondern da muss v_Kav hin, das beseitigt 2 der 3 Fehler.

Beim Starten bringt er einen Runtime Error weil ich die wincrt aus dem uses rausgenommen hab, da er die bei mir nicht findet, könnte also daran liegen. Allerdings programmiere ich Pasal nur mit Delphi, von daher kann ich zu den Konsolenanwendungen wenig sagen, meineswissens müsste das eigentlich gehen^^

€: Mit

Code:

uses
  SysUtils;

klappts, wird wohl in Pascal anders heißen als im Turbo Delphi

PHP:

PROGRAM Vorlage;
USES wincrt;
VAR Speer,Schwert,Axt,Bogen,lKav,bbogen,skav,ram,kata : integer;
    a_allgemein,a_kav,a_bogen : integer;
    v_allgemein,v_kav,v_bogen : integer;
    bhplatz : integer;
BEGIN 

writeln; 
writeln('Off-Deff Vorlage V1.0');
writeln; 
write('Speer=');readln(speer); 
write('Schwert=');readln(schwert); 
write('Axt=');readln(axt);
write('Bogen=');readln(bogen); 
write('lkav=');readln(lkav); 
write('bbogen=');readln(bbogen); 
write('skav=');readln(skav); 
write('Rammen=');readln(ram); 
write('Katapulte=');readln(kata); 

bhplatz:=speer+schwert+axt+bogen+4*lkav+5*bbogen+6*skav+5*ram+8*kata; 
writeln; 
writeln('Verbrauchte Bauernhofpl„tze = ',bhplatz); 
writeln; 
a_allgemein:=speer*10+schwert*25+axt*40+ram*2+kata*100;
a_kav:=lkav*130+skav*150; 
a_bogen:=bogen*15+bbogen*120; 
writeln('A_Allgemein = ',a_allgemein); 
writeln; 
writeln('A_Kav = ',a_kav);
writeln; 
writeln('A_Bogen = ',a_bogen); 
writeln; 
v_allgemein:=speer*15+schwert*50+axt*10+bogen*50+lkav*30+bbogen*40+skav*200+ram*20+kata*100;


//hier war der Fehler:
v_kav:=speer*45+schwert*15+axt*5+bogen*40+lkav*40+bbogen*30+skav*80+ram*50+kata*50;



v_bogen:=speer*20+schwert*40+axt*10+bogen*5+lkav*30+bbogen*50+skav*180+ram*20+kata*100; 
writeln('V_Allgemein = ',v_allgemein);
writeln;
writeln('V_Kav = ',v_kav);
writeln;
writeln('V_Bogen = ',v_bogen);


END.

DeletedUser · 22. Jan 2008

danke,probiere es gleich mal aus ;-)

DeletedUser12929 · 22. Jan 2008

Achso, mach am Ende noch ein Readln; dann siehste auch was du ausgibst^^

DeletedUser · 22. Jan 2008

jap danke ;-)

DeletedUser · 22. Jan 2008

So jetzt funzt gar nix mehr

PHP:

PROGRAM Vorlage;
USES sysutils;
VAR Speer,Schwert,Axt,Bogen,lKav,bbogen,skav,ram,kata : integer;
    a_allgemein,a_kav,a_bogen                         : integer;
    v_allgemein,v_kav,v_bogen                         : integer;
    bhplatz                                           : integer;
BEGIN

writeln;
writeln('Off-Deff Vorlage V1.0');
writeln;

write('Speer=');readln(speer);
write('Schwert=');readln(schwert);
write('Axt=');readln(axt);
write('Bogen=');readln(bogen);
write('lkav=');readln(lkav);
write('bbogen=');readln(bbogen);
write('skav=');readln(skav);
write('Rammen=');readln(ram);
write('Katapulte=');readln(kata);

bhplatz:=speer+schwert+axt+bogen+4*lkav+5*bbogen+6*skav+5*ram+8*kata;

writeln;
writeln('Verbrauchte Bauernhofpl„tze = ',bhplatz);
writeln;

a_allgemein:=speer*10+schwert*25+axt*40+ram*2+kata*100;
a_kav:=lkav*130+skav*150;
a_bogen:=bogen*15+bbogen*120;

writeln('A_Allgemein = ',a_allgemein);
writeln;
writeln('A_Kav = ',a_kav);
writeln;
writeln('A_Bogen = ',a_bogen);
writeln;

v_allgemein:=speer*15+schwert*50+axt*10+bogen*50+lkav*30+bbogen*40+skav*200+ram*20+kata*100;
v_kav:=speer*45+schwert*15+axt*5+bogen*40+lkav*40+bbogen*30+skav*80+ram*50+kata*50;
v_bogen:=speer*20+schwert*40+axt*10+bogen*5+lkav*30+bbogen*50+skav*180+ram*20+kata*100;

writeln('V_Allgemein = ',v_allgemein);
writeln;
writeln('V_Kav = ',v_kav);
writeln;
writeln('V_Bogen = ',v_bogen);


END.

DeletedUser12929 · 22. Jan 2008

Na dass bei dir wincrt gestanden hat, hatte wohl seinen Grund. Ich hab ja gesagt, im Turbo Delphi muss ich da SysUitilities hinschreiben damit es geht, im alten wird die Datei wohl noch wincrt heißen.

Probier es mal so, sollte dann eigentlich gehen (auf jeden Fall geht es so bei mir)

PHP:

PROGRAM Vorlage; 
USES wincrt; 
VAR Speer,Schwert,Axt,Bogen,lKav,bbogen,skav,ram,kata : integer; 
    a_allgemein,a_kav,a_bogen                         : integer; 
    v_allgemein,v_kav,v_bogen                         : integer; 
    bhplatz                                           : integer; 
BEGIN 

writeln; 
writeln('Off-Deff Vorlage V1.0'); 
writeln; 

write('Speer=');readln(speer); 
write('Schwert=');readln(schwert); 
write('Axt=');readln(axt); 
write('Bogen=');readln(bogen); 
write('lkav=');readln(lkav); 
write('bbogen=');readln(bbogen); 
write('skav=');readln(skav); 
write('Rammen=');readln(ram); 
write('Katapulte=');readln(kata); 

bhplatz:=speer+schwert+axt+bogen+4*lkav+5*bbogen+6*skav+5*ram+8*kata; 

writeln; 
writeln('Verbrauchte Bauernhofpl„tze = ',bhplatz); 
writeln; 

a_allgemein:=speer*10+schwert*25+axt*40+ram*2+kata*100; 
a_kav:=lkav*130+skav*150; 
a_bogen:=bogen*15+bbogen*120; 

writeln('A_Allgemein = ',a_allgemein); 
writeln; 
writeln('A_Kav = ',a_kav); 
writeln; 
writeln('A_Bogen = ',a_bogen); 
writeln; 

v_allgemein:=speer*15+schwert*50+axt*10+bogen*50+lkav*30+bbogen*40+skav*200+ram*20+kata*100; 
v_kav:=speer*45+schwert*15+axt*5+bogen*40+lkav*40+bbogen*30+skav*80+ram*50+kata*50; 
v_bogen:=speer*20+schwert*40+axt*10+bogen*5+lkav*30+bbogen*50+skav*180+ram*20+kata*100; 

writeln('V_Allgemein = ',v_allgemein); 
writeln; 
writeln('V_Kav = ',v_kav); 
writeln; 
writeln('V_Bogen = ',v_bogen); 
readln;


END.

DeletedUser · 22. Jan 2008

Könntest du mal ne exe Datei erstellen?

DeletedUser12929 · 22. Jan 2008

Verzeichnis mit Projektdatei fürs Turbo Delphi

exe Datei

DeletedUser · 22. Jan 2008

vielen Dank ;-)

DeletedUser · 22. Jan 2008

So habe fertig,die endgültige Version:

PHP:

PROGRAM Vorlage;
USES wincrt; 
VAR Speer,Schwert,Axt,Bogen,lKav,bbogen,skav,ram,kata : integer; 
    a_allgemein,a_kav,a_bogen                         : integer; 
    v_allgemein,v_kav,v_bogen                         : integer; 
    bhplatz                                           : integer;
    bauzeit_k,bauzeit_s,bauzeit_w                     : integer;

BEGIN

writeln; 
writeln('                        Off-Deff Vorlage V1.0');
writeln('                        *********************');
writeln; 
writeln;

write('Speer     = ');readln(speer);
write('Schwert   = ');readln(schwert);
write('Axt       = ');readln(axt);
write('Bogen     = ');readln(bogen);
write('l.Kav     = ');readln(lkav);
write('b.Bogen   = ');readln(bbogen);
write('s.Kav     = ');readln(skav);
write('Rammen    = ');readln(ram);
write('Katapulte = ');readln(kata);

bhplatz:=speer+schwert+axt+bogen+4*lkav+5*bbogen+6*skav+5*ram+8*kata; 

writeln; 
writeln('Verbrauchte Bauernhofplaetze = ',bhplatz);
writeln; 

a_allgemein:=speer*10+schwert*25+axt*40+ram*2+kata*100; 
a_kav:=lkav*130+skav*150; 
a_bogen:=bogen*15+bbogen*120; 

writeln('Angriffswert      Allgemein      = ',a_allgemein);
writeln('Angriffswert      Kavallerie     = ',a_kav);
writeln('Angriffswert      Bogenschuetzen = ',a_bogen);

v_allgemein:=speer*15+schwert*50+axt*10+bogen*50+lkav*30+bbogen*40+skav*200+ram*20+kata*100; 
v_kav:=speer*45+schwert*15+axt*5+bogen*40+lkav*40+bbogen*30+skav*80+ram*50+kata*50; 
v_bogen:=speer*20+schwert*40+axt*10+bogen*5+lkav*30+bbogen*50+skav*180+ram*20+kata*100; 

writeln('Verteidigungswert Allgemein      = ',v_allgemein);
writeln('Verteidigungswert Kavallerie     = ',v_kav);
writeln('Verteidigungswert Bogenschuetzen = ',v_bogen);
writeln;

bauzeit_k:=(speer*148+schwert*232+axt*205+bogen*279) DIV 60 DIV 60 DIV 24;
bauzeit_s:=(lkav*374+bbogen*561+skav*748) DIV 60 DIV 60 DIV 24;
bauzeit_w:=(ram*1335+kata*2002) DIV 60 DIV 60 DIV 24;
writeln('Die Bauzeit bei voll ausgebauter Kaserne liegt bei    ',bauzeit_k,' Tagen');
writeln('Die Bauzeit bei voll ausgebautem Stall liegt bei      ',bauzeit_s,' Tagen');
writeln('Die Bauzeit bei voll ausgebauter Werkstatt liegt bei  ',bauzeit_w,' Tagen');
writeln;
writeln('                                                 Copyright bye ELBT');
readln;


END.

DeletedUser29187 · 23. Jan 2008

gibste einen Pfad zum Downloaden preis? damit man sich ein bild von deiner "Endgültigen" version machen kann?

LG TM

DeletedUser · 23. Jan 2008

Dazu bräucht ich irgendwo n Plätzchen auf nem
Server zum hochladen ;-)

DeletedUser53417 · 23. Jan 2008

Naja solange es bei dem "kleinem" Ding bleibt kannst dich bei mir mal per pm melden.

DeletedUser · 23. Jan 2008

siehe Postfach ;-)

DeletedUser · 23. Jan 2008

Hab jetzt auch noch Ress-Verbrauch mit eingebaut und
die Sache noch etwas kommentiert:

PHP:

PROGRAM Vorlage;
USES sysutils;
VAR Speer,Schwert,Axt,Bogen,lKav,bbogen,skav,ram,kata : integer; 
    a_allgemein,a_kav,a_bogen                         : integer; 
    v_allgemein,v_kav,v_bogen                         : integer; 
    bhplatz                                           : integer;
    bauzeit_k,bauzeit_s,bauzeit_w                     : integer;
    holz,lehm,eisen                                   : integer;

BEGIN

writeln; 
writeln('                        Off-Deff Vorlage');
writeln('                        ****************');
writeln; 
writeln;

{Eingabe der Einheiten}
write('Speer     = ');readln(speer);
write('Schwert   = ');readln(schwert);
write('Axt       = ');readln(axt);
write('Bogen     = ');readln(bogen);
write('l.Kav     = ');readln(lkav);
write('b.Bogen   = ');readln(bbogen);
write('s.Kav     = ');readln(skav);
write('Rammen    = ');readln(ram);
write('Katapulte = ');readln(kata);

{Berechnung der Bh Plätze}
bhplatz:=speer+schwert+axt+bogen+4*lkav+5*bbogen+6*skav+5*ram+8*kata; 
writeln;

{Ausgabe der Bh Plätze}
writeln('Verbrauchte Bauernhofplaetze = ',bhplatz);
writeln; 

{Berechnung der Angriffsstärken}
a_allgemein:=speer*10+schwert*25+axt*40+ram*2+kata*100; 
a_kav:=lkav*130+skav*150; 
a_bogen:=bogen*15+bbogen*120; 

{Ausgabe der Angriffsstärken}
writeln('Angriffswert      Allgemein      = ',a_allgemein);
writeln('Angriffswert      Kavallerie     = ',a_kav);
writeln('Angriffswert      Bogenschuetzen = ',a_bogen);

{Berechnung der Verteidigungsstärken}
v_allgemein:=speer*15+schwert*50+axt*10+bogen*50+lkav*30+bbogen*40+skav*200+ram*20+kata*100; 
v_kav:=speer*45+schwert*15+axt*5+bogen*40+lkav*40+bbogen*30+skav*80+ram*50+kata*50; 
v_bogen:=speer*20+schwert*40+axt*10+bogen*5+lkav*30+bbogen*50+skav*180+ram*20+kata*100; 

{Ausgabe der Verteidigungsstärken}
writeln('Verteidigungswert Allgemein      = ',v_allgemein);
writeln('Verteidigungswert Kavallerie     = ',v_kav);
writeln('Verteidigungswert Bogenschuetzen = ',v_bogen);
writeln;

{Berechnung der Bauzeit}
bauzeit_k:=(speer*148+schwert*232+axt*205+bogen*279) DIV 60 DIV 60 DIV 24;
bauzeit_s:=(lkav*374+bbogen*561+skav*748) DIV 60 DIV 60 DIV 24;
bauzeit_w:=(ram*1335+kata*2002) DIV 60 DIV 60 DIV 24;

{Ausgabe der Bauzeiten}
writeln('Die Bauzeit bei voll ausgebauter Kaserne liegt bei    ',bauzeit_k,' Tagen');
writeln('Die Bauzeit bei voll ausgebautem Stall liegt bei      ',bauzeit_s,' Tagen');
writeln('Die Bauzeit bei voll ausgebauter Werkstatt liegt bei  ',bauzeit_w,' Tagen');
writeln;

{Berechnung des Ressourcenverbrauches}
holz:=speer*50+schwert*30+axt*60+bogen*100+lkav*125+bbogen*250+skav*200+ram*300+kata*320;
lehm:=speer*30+schwert*30+axt*30+bogen*30+lkav*100+bbogen*100+skav*150+ram*200+kata*400;
eisen:=speer*10+schwert*70+axt*40+bogen*60+lkav*250+bbogen*150+skav*600+ram*200+kata*100;
writeln;

{Ausgabe des Ressourcenverbrauches}
writeln('Fuer den Bau dieser Einheiten werden ');
writeln(holz,' Holz,');
writeln(lehm,' Lehm und');
writeln(eisen,' Eisen benoetigt.');

writeln;
writeln;
writeln('                                                 Copyright bye ELBT');
readln;


END.

DeletedUser · 23. Jan 2008

so jetzt auch zum download bereit:

http://elbt.voglfrei.de/off_deff_2.zip

Dank an No need ;-)

DeletedUser · 24. Jan 2008

Momentan ist das Script ja nur für Welten im W10 Style.

Könnte mir jemand helfen die restlichen Daten zu kriegen?

Sprich Bauzeiten in den anderen Welten(bei voll ausgebauten
Gebäuden)

DeletedUser12929 · 25. Jan 2008

SuFu ^^

oobdoo hat da ne schöne XML, anhand von der kannst du auch noch mit Kaserne und Stallstufen rumrechnen wenn du es so machen willst

Erspart einiges an Arbeit.

DeletedUser · 25. Jan 2008

Hab mir das gerade mal geladen und muss sagen. Ist ganz schön, aber leider für mich noch net zu gebrauchen da ich auf S3 bin.

MfG Der-Blonde

DeletedUser · 25. Jan 2008

Klinke schrieb:
SuFu ^^

oobdoo hat da ne schöne XML, anhand von der kannst du auch noch mit Kaserne und Stallstufen rumrechnen wenn du es so machen willst Erspart einiges an Arbeit.

jop ich brauche ja nur noch die Werte für die Welten im W6 Style
und 2,3

DeletedUser12929 · 26. Jan 2008

Hast du dir den Thread durchgelesen? Da ist eine XML mit den ganzen Bauzeiten: Quelle.

DeletedUser · 26. Jan 2008

Jo hab ich,aber leider etwas arg unübersichtlich.

Werd mich damit leider erst nächstes We befassen
können,hab dato viel um die Ohren =(

DeletedUser · 5. Mai 2008

*den alten Thread heraushol*

Könnte Hilfe gebrauchen, denn ich will aus dem
offline n online Script machen.Leider hab ich da 0
Erfahrung und kanns somit nicht selber umsetzen :S
Das Programm ist ziemlich easy und dürfte problemlos
umsetzbar sein.

HTML:

PROGRAM Vorlage;
USES sysutils;
VAR Speer,Schwert,Axt,Bogen,lKav,bbogen,skav,ram,kata : integer; 
    a_allgemein,a_kav,a_bogen                         : integer; 
    v_allgemein,v_kav,v_bogen                         : integer; 
    bhplatz                                           : integer;
    bauzeit_k,bauzeit_s,bauzeit_w                     : integer;
    holz,lehm,eisen                                   : integer;

BEGIN

writeln; 
writeln('                        Off-Deff Vorlage');
writeln('                        ****************');
writeln; 
writeln;

{Eingabe der Einheiten}
write('Speer     = ');readln(speer);
write('Schwert   = ');readln(schwert);
write('Axt       = ');readln(axt);
write('Bogen     = ');readln(bogen);
write('l.Kav     = ');readln(lkav);
write('b.Bogen   = ');readln(bbogen);
write('s.Kav     = ');readln(skav);
write('Rammen    = ');readln(ram);
write('Katapulte = ');readln(kata);

{Berechnung der Bh Plätze}
bhplatz:=speer+schwert+axt+bogen+4*lkav+5*bbogen+6*skav+5*ram+8*kata; 
writeln;

{Ausgabe der Bh Plätze}
writeln('Verbrauchte Bauernhofplaetze = ',bhplatz);
writeln; 

{Berechnung der Angriffsstärken}
a_allgemein:=speer*10+schwert*25+axt*40+ram*2+kata*100; 
a_kav:=lkav*130+skav*150; 
a_bogen:=bogen*15+bbogen*120; 

{Ausgabe der Angriffsstärken}
writeln('Angriffswert      Allgemein      = ',a_allgemein);
writeln('Angriffswert      Kavallerie     = ',a_kav);
writeln('Angriffswert      Bogenschuetzen = ',a_bogen);

{Berechnung der Verteidigungsstärken}
v_allgemein:=speer*15+schwert*50+axt*10+bogen*50+lkav*30+bbogen*40+skav*200+ram*20+kata*100; 
v_kav:=speer*45+schwert*15+axt*5+bogen*40+lkav*40+bbogen*30+skav*80+ram*50+kata*50; 
v_bogen:=speer*20+schwert*40+axt*10+bogen*5+lkav*30+bbogen*50+skav*180+ram*20+kata*100; 

{Ausgabe der Verteidigungsstärken}
writeln('Verteidigungswert Allgemein      = ',v_allgemein);
writeln('Verteidigungswert Kavallerie     = ',v_kav);
writeln('Verteidigungswert Bogenschuetzen = ',v_bogen);
writeln;

{Berechnung der Bauzeit}
bauzeit_k:=(speer*148+schwert*232+axt*205+bogen*279) DIV 60 DIV 60 DIV 24;
bauzeit_s:=(lkav*374+bbogen*561+skav*748) DIV 60 DIV 60 DIV 24;
bauzeit_w:=(ram*1335+kata*2002) DIV 60 DIV 60 DIV 24;

{Ausgabe der Bauzeiten}
writeln('Die Bauzeit bei voll ausgebauter Kaserne liegt bei    ',bauzeit_k,' Tagen');
writeln('Die Bauzeit bei voll ausgebautem Stall liegt bei      ',bauzeit_s,' Tagen');
writeln('Die Bauzeit bei voll ausgebauter Werkstatt liegt bei  ',bauzeit_w,' Tagen');
writeln;

{Berechnung des Ressourcenverbrauches}
holz:=speer*50+schwert*30+axt*60+bogen*100+lkav*125+bbogen*250+skav*200+ram*300+kata*320;
lehm:=speer*30+schwert*30+axt*30+bogen*30+lkav*100+bbogen*100+skav*150+ram*200+kata*400;
eisen:=speer*10+schwert*70+axt*40+bogen*60+lkav*250+bbogen*150+skav*600+ram*200+kata*100;
writeln;

{Ausgabe des Ressourcenverbrauches}
writeln('Fuer den Bau dieser Einheiten werden ');
writeln(holz,' Holz,');
writeln(lehm,' Lehm und');
writeln(eisen,' Eisen benoetigt.');

writeln;
writeln;
writeln('                                                 Copyright bye ELBT');
readln;


END.

Schon mal im voraus danke ;-)

greez ELBT

Wagi4 · 5. Mai 2008

Vorschau: http://wagi4.redio.de/off_deff.php
Code: http://wagi4.redio.de/off_deff.phps

Hab jetzt nicht grad drauf geachtet, alles schön zu coden, aber funzen tuts

[Veraltet] Pascal Programm

DeletedUser

Gast

DeletedUser12929

Gast

DeletedUser

Gast

DeletedUser12929

Gast

DeletedUser

Gast

DeletedUser

Gast

DeletedUser12929

Gast

DeletedUser

Gast

DeletedUser12929

Gast

DeletedUser

Gast

DeletedUser

Gast

DeletedUser29187

Gast

DeletedUser

Gast

DeletedUser53417

Gast

DeletedUser

Gast

DeletedUser

Gast

DeletedUser

Gast

DeletedUser

Gast

DeletedUser12929

Gast

DeletedUser

Gast

DeletedUser

Gast

DeletedUser12929

Gast

DeletedUser

Gast

DeletedUser

Gast

Wagi4