This is an old revision of this page, as edited by 83.30.127.102 (talk) at 19:20, 29 March 2010 (KZM). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.
Revision as of 19:20, 29 March 2010 by 83.30.127.102 (talk) (KZM)(diff) ← Previous revision | Latest revision (diff) | Newer revision → (diff)uses crt,fpack,scr; var l2,m1,gg,ccc,rang,n,as,bs,cs,hhh:string;
gas,dag,liter,turke1,it,vvv,xxx,pppp,a,men,kkk,bestand,arbeit:word; uu,g,max,vv,hh,lampen,gold,matten,verb,muell,ii,turken,vv1,kammern,ofen:word; tod,ofen2,rr,xx,bbb,xxxx,xxxxx,l,ww,yy,yyy,chap,qq,a1,a2,a3,a4,a5,h,turke:word; rnd,witz,sold,unterh,jk,chapi,w1,w2,w3,w4,w5:integer; gameover:boolean; geld:longint; f:text;
procedure cls;
begin
clrscr;
gotoxy(1,1);
textbackground(4);
textcolor(15);
write(' KZ MANAGER v.1.1 ');
textbackground(0);
textcolor(7);
end;
procedure kopf;
begin
cls;
GOTOXY(1,4);
writeln(' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ ');
Writeln(' KZ Manager made by TIER von GeStaPo');
Writeln(' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ ');
GOTOXY(1,8);
end;
procedure be;
begin
cls;
gotoxy(5,10);
writeln(' Sehr geehrter Herr ',n);
writeln;
writeln(' Man hat Sie befoerdert. Nun sind Sie ',rang);
writeln;
writeln(' Das Fuehrer Hauptquatier wuenscht ihnen weiterhin viel erfolg!');
gotoxy(1,20);
writeln(' >> Weiter mit Return <<');
readln;
w1:= 5;
total:=1;
infodat:='hitler1.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
end;
procedure ranger;
begin
IF pppp > 10000 THEN rang:= 'KZ Geselle' else
IF pppp > 20000 THEN rang:= 'KZ Meister' else
IF pppp > 50000 THEN rang:= 'SS Sturmbandfuehrer' else
IF pppp > 100000 THEN rang:= 'SS Obersturmbandfuehrer' else
IF pppp > 400000 THEN rang:= 'NS Fuehrungsoffizier' else
IF pppp > 1000000 THEN rang:= 'Oberst der Waffen SS' else
IF pppp > 3000000 THEN rang:= 'Totenkopf SS General' else
IF pppp > 6000000 THEN rang:= 'Reichsfuehrer der SS' else
IF pppp > 10000000 THEN rang:= 'KZ Manager';
end;
procedure Over;
begin
cls;
gotoxy(1,14);
writeln(' Sie haben das KZ in den Konkurs gefuehrt');
writeln(' Sie werden von Ihren eigenen Leuten zu Tode gefoltert ');
delay(800);
w1:= 2;
total:=1;
infodat:='folter.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
gameover:=true;
END;
procedure over2;
begin
cls;
gotoxy(1,14);
writeln(' Du bist ein Parasit oder ein Parasitenfreund und ');
writeln(' deshalb ab nach Buchenwald ');
delay(800);
w1:= 2;
total:=1;
infodat:='buchen.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
gameover:=true;
END;
procedure over3;
begin
cls;
gotoxy(1,14);
writeln(' Sie hatten zuviele Tuerken und zuwenige Soldaten');
writeln;
writeln(' Die Tuerken haben einen Aufstand organisiert');
writeln(' und Sie und Ihre Maenner zu Tode gefoltert!!!');
delay(800);
w1:= 2;
total:=1;
infodat:='folter.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
gameover:=true;
END;
procedure over4;
begin
cls;
gotoxy(1,14);
writeln(' Da faellt mir aber nichts mehr ein, Du Saubursche !!!!');
delay(800);
w1:= 2;
total:=1;
infodat:='folter.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
gameover:=true;
END;
procedure over5;
begin
cls;
gotoxy(1,14);
writeln(' Sie sind in Ihrem Muellberg erstickt !!!!!');
delay(800);
w1:= 2;
total:=1;
infodat:='folter.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
gameover:=true;
END;
procedure maenner;
begin
writeln;
write(' Wieviele :');
READLN(g);
men:= men + g;
end;
procedure soldaten;
begin
sold:= men * 3;
geld:= geld - sold;
cls;
gotoxy(1,6);
IF bestand > men * 20 THEN over3;
writeln(' Ihre Arbeiter haben im Steinbruch');
jk:= arbeit * 20;
writeln(' ',jk,' Reichsmark verdient');
writeln(' Es sind ',tod,' Tuerken dabei eingegangen');
tod:= 0;
writeln;
unterh := ofen * 800;
geld:= geld - unterh;
writeln(' Unterhaltungskosten fuer ihre Oefen = ',unterh,' Reichsmark');
writeln;
writeln;
writeln;
writeln(' Sie muessen ',sold,' Reichsmark Sold bezahlen');
writeln(' fuer ihre ',men,' Soldaten');
writeln;
writeln(' Wollen Sie noch mehr Soldaten beschaeftigen ');
readln(gg);
IF gg = 'j' THEN maenner;
end;
procedure wi1;
begin
writeln(' Die Tuerken spielen mit den Juden in der Gaskammer Fussball');
writeln(' wer gewinnt? ');
writeln;
write(' Die (T)uerken oder die (J)uden :');
readln(m1);
IF m1 = 't' THEN begin
writeln(' Nein, die Juwinnen denn Sie haben Heimvorteil!');
geld:= geld - 3000 ;
delay(800);
end;
IF m1 = 'j' THEN begin
writeln(' Sehr gut Hitlerjunge !');
geld:= geld + 3000;
delay(800);
end;
end;
procedure wi2;
begin
writeln(' Adolf Hitler spricht bei den Olympischen Spielen ');
writeln(' Und nun wollen wir den 100.000 Juden danken fuer unsere neue ');
writeln(' Aschenbahn');
delay(800);
end;
procedure wi3;
begin
writeln(' Im KZ. Hitler spricht :So meine lieben Tuerken ich werde euch ');
writeln(' alle freilassen wenn ihr das Rennen gegen meine SS gewinnt! ');
writeln;
writeln(' ... So du mit dem Rollstuhl faengst an .....');
delay(800);
end;
procedure wi4;
begin
writeln(' Wieso muss Israel heute soviel oel an das Deutsche Reich');
writeln(' senden');
writeln;
writeln(' Irgendwie muessen die Juden ja die Gasrechnung bezahlen');
delay(800);
end;
procedure wi5;
begin
writeln(' Adolf Hitler trifft einen Tuerken der sich am Strassenrand ausruht');
writeln(' und fragt Ihn : Mein Freund was machst du denn da ');
writeln(' Tuerke antwortet : Ich konzentriere mich ');
writeln(' Hitler : Na dann komm mit denn dafuer hab ich n Lager !');
delay(800);
end;
procedure wi6;
begin
writeln(' Ihre Gaskammern muessen repariert werden kosten pro Kammer 2000 DM');
geld:= geld - (kammern * 2000);
delay(800);
end;
procedure wi7;
begin
writeln(' Sie muessen 5000 DM an die Waffen SS abgeben ');
geld:= geld - 5000;
delay(800);
end;
procedure wi8;
begin
writeln(' Ein Aufstand vor der Gaskammer kostet 10 Ihrer Leute das Leben');
men:= men - 10;
delay(800);
end;
procedure wi9;
begin
writeln(' Sie bekommen einen zuschuss vom ANTI ParasAmt in hoehe von');
writeln(' 20000 Reichsmark');
geld:= geld + 20000;
delay(800);
end;
procedure wi10;
begin
writeln(' Rudolf Hess ist in ihrem KZ zu Besuch! ');
writeln(' Bewirtungskosten = 1000 Reichsmark');
geld:= geld - 1000;
delay(800);
end;
procedure wi11;
begin
writeln(' Die Gestapo hat unter ihren Maennern unreine Parasiten');
writeln(' entdeckt ');
IF men > 50 THEN men:= men - 20;
IF men < 50 THEN men:= men - 3;
delay(800);
end;
procedure wi12;
begin
writeln(' Es ist Weihnachten. Die Tuerken bekommen heute die doppelte');
writeln(' Gasration..........HA HA HA HA HA ');
delay(800);
end;
procedure wi13;
begin
writeln(' Fucks to the Amiga Group T C I');
writeln(' I send you a pulle Gas .......... Scheiss Tuerkensau');
delay(800);
end;
procedure wi14;
begin
writeln(' Was ist wenn ein Guellewagen vor dem Krankenhaus steht?');
writeln(' Ein Tuerke (TCI) bekommt eine Bluttransfusion');
delay(800);
end;
procedure wi15;
begin
writeln(' Was ist wenn ein leerer Bierwagen vor dem Krankenhaus steht?');
writeln(' Die Missionaries bekamen ne Bluttransfusion');
delay(800);
end;
procedure wi16;
begin
writeln(' Adolf Hitler schenkt ihnen zum Geburtstag 5000 Tuerken');
bestand:= bestand + 5000;
delay(800);
end;
procedure wi17;
begin
writeln(' Wenn ein Schiff mit 1000 Tuerken untergeht, so ist das ein Unfall.');
writeln(' Wenn einer davon schwimmen kann, so ist das eine Katastophe.');
delay(800);
end;
procedure wi18;
begin
IF bestand > 2000 THEN begin
writeln(' Mengele verlangt von ihnen 2000 Tuerken fuer versuchszwecke!');
bestand:= bestand - 2000;
end;
delay(800);
end;
procedure wi19;
begin
writeln(' Die alljaehrliche Turken WM im Glasscherbeln');
writeln(' Maraton Lauf fordert 268 Tote ');
bestand:=bestand - 268;
delay(800);
end;
procedure wi20;
begin
writeln(' Was ist ein Tuerke mit einer Gasflasche auf dem Ruecken');
writeln(' Ein Suechtiger !! ');
delay(800);
end;
procedure wi21;
begin
writeln(' Warum fliegt ein Geier mit nur halbem Speed ueber die Tuerkei');
writeln(' Er muss sich ja mit einem Fluegel die Nase zuhalten');
delay(800);
end;
procedure wi22;
begin
writeln(' Was ist ein Tuerke mit zw Gasflaschen auf dem Ruecken');
writeln(' Ein Dealer!!! ');
delay(800);
end;
procedure wi23;
begin
writeln(' Sie ertappen einen Tuerken bei der Flucht was machen Sie?');
writeln(' ');
writeln(' (F)reilassen oder (L)angsam zu tode quaelen');
write(' Was denn nun :'); readln(l2);
IF l2 = 'F' THEN over4;
IF l2 = 'L' THEN writeln(' So langsam hast du was gelernt');
delay(800);
end;
procedure witze;
begin
if gameover=false then begin
cls;
gotoxy(1,10);
writeln();
gotoxy(1,15);
FOR ii:= 1 TO 23 do witz:= random(23);
IF witz= 1 THEN wi1;
IF witz= 2 THEN wi2;
IF witz= 3 THEN wi3;
IF witz= 4 THEN wi4;
IF witz= 5 THEN wi5;
IF witz= 6 THEN wi6;
IF witz= 7 THEN wi7;
IF witz= 8 THEN wi8;
IF witz= 9 THEN wi9;
IF witz= 10 THEN wi10;
IF witz= 11 THEN wi11;
IF witz= 12 THEN wi12;
IF witz= 13 THEN wi13;
IF witz= 14 THEN wi14;
IF witz= 15 THEN wi15;
IF witz= 16 THEN wi16;
IF witz= 17 THEN wi17;
IF witz= 18 THEN wi18;
IF witz= 19 THEN wi19;
IF witz= 20 THEN wi20;
IF witz= 21 THEN wi21;
IF witz= 22 THEN wi22;
IF witz= 23 THEN wi23;
delay(4000);
end;
end;
procedure weiter;
begin
g:= 0;
gotoxy(1,18);
soldaten;
witze;
end;
procedure weiter2;
begin
IF g=0 THEN weiter else begin
cls;
gotoxy(1,10);
writeln(' Die Vergasung laeuft auf vollen Touren ');
delay(800);
g:= 0;
w1:= 3;
total:=1;
infodat:='vergas.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
weiter;
end;
end;
procedure zugende;
begin
rnd:=random(255);
vv1:= rnd * (70+1);
vv1:= vv1 * 1000;
a1:= rnd * (6+1);
liter:= rnd * (9+1);
a2:= rnd * (3 +1);
a3:= rnd * (15+1);
a4:= rnd * (1000+1);
turke1:= rnd * (100+1);
IF arbeit > 0 THEN tod:= random(arbeit);
arbeit:= arbeit - tod;
geld:= geld + (arbeit * 20);
muell:= muell - verb;
verb:= 0;
ofen2:= ofen2 + ofen;
ofen:= 0;
IF muell > 500000 THEN over5;
bestand:= bestand - g;
chapi:= chapi + g * 30;
matten:= matten + (g div 2);
lampen:= lampen + g * 2;
gold:= gold + (g div 10);
Gas:= Gas - (g * 2);
dag:= dag + 1;
IF dag = 30 THEN begin
total:=1;
infodat:='eiskre.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
end;
kammern:= kammern + vv;
vv:= 0;
turke:= 0;
yy:= 0;
ww:= 0;
h:= 0;
qq:= 0;
IF geld < -20000 THEN Over;
if gameover=false then ranger;
if gameover=false then weiter2;
end;
procedure High;
begin
w1:= 4;
total:=1;
infodat:='high.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
end;
procedure info;
begin
w1:= 4;
total:=1;
infodat:='infor.pcx';
asm
mov ax,13h
int 10h
end;
loadpcx(1,$a000,true);
readln;
asm
mov ax,3h
int 10h
end;
cls;
gotoxy(1,5);
writeln(' 1988 BY THE MISIONARIES');
writeln;writeln;
writeln(' GREETINGS TO : ADOLF HITLER - RUDOLF HESS - NPD - FAP - COC - AIDS CREW');
writeln(' JOSEF MENGELE - GOEBBELS - AND ALL OTHER MEGA NAZIS ');
writeln(' DEN STAATSSCHUTZ');
writeln;
writeln;writeln;
writeln(' >>> WEITER MIT RETURN <<<'); readln;
cls;
end;
procedure fuss;
begin
writeln(' Wieviele Fussmatten wollen Sie verkaufen');readln(h);
IF h > matten THEN writeln(' Soviel haben sie nicht auf Lager !!') else begin
matten:= matten - h;
geld:= geld + (h * a1);
end;
end;
procedure chapi_cal;
begin
writeln(' Wieviel kg Chappi wollen Sie verkaufen');readln(qq);
IF qq > chap THEN begin writeln(' Soviel haben wir nicht auf Lager !!');delay(800) end else begin
chap:= chap - qq;
geld:= geld + (qq * a2);
end;
end;
procedure lamps;
begin
writeln(' Wieviele Lampenschirme wollen Sie verkaufen ');readln(yy);
IF yy > lampen THEN begin writeln(' Soviel haben wir nicht auf Lager !!'); delay(800); end else begin
lampen:= lampen - yy;
geld:= geld + (yy * a3);
end;
end;
procedure goldy;
begin
write(' Wieviel Gold wollen Sie verkaufen :'); readln(ww);
IF ww > gold THEN begin writeln(' Soviel Gold haben Sie nicht !!'); delay(800); end else begin
gold:= gold - ww;
geld:= geld + (ww * a4);
end;
end;
procedure alles;
begin
geld:= geld + (matten * a1);
matten:= matten - matten;
geld:= geld + (chap * a2);
chap:= chap - chap;
geld:= geld + (lampen * a3);
lampen:= lampen - lampen;
geld:= geld + (gold * a4);
gold:= gold - gold;
end;
procedure lager;
begin
cls;
gotoxy(1,3);
writeln(' Sie Haben folgendes auf Lager ');
writeln;
writeln(' Fussmatten ',matten,' Stueck');
writeln(' Chappi ',chap,' kg');
writeln(' Lampenschirme ',lampen,' Stueck');
writeln(' Goldzaehne ',gold,' kg');
writeln;writeln;
writeln(' Verkaufpreise :');
writeln;
writeln(' 1) Fussmatten ',a1:5);
writeln(' 2) Chappi ',a2:5);
writeln(' 3) Lampenschirme ',a3:5);
writeln(' 4) Goldzähne ',a4:5);
writeln;
writeln(' 5) Alles');
writeln(' Was wollen Sie verkaufen ');readln(l);
IF l = 1 THEN fuss ;
IF l = 2 THEN chapi_cal;
IF l = 3 THEN lamps;
IF l = 4 THEN goldy;
IF l = 5 THEN alles;
end;
procedure Turk;
begin
kopf;
writeln(' Der Preis pro Tuerke = ',turke1:3,' RM');
write(' Wieviele wollen sie kaufen :');readln(turke);
bestand:= bestand + turke;
geld:= geld - (turke * turke1);
end;
procedure bilanz;
begin
cls;
gotoxy(1,6);
writeln(' Sie haben insgesamt schon : ',pppp,' Tuerken vernichtet');
gotoxy(1,10);
writeln(' Messias & Prince Porn says');
gotoxy(1,12);
if pppp < 500 THEN writeln(' Aller Anfang ist Schwer ! ') else
IF pppp < 600 THEN writeln(' Vergroesseren Sie die Gaskammern ! ') else
IF pppp < 700 THEN writeln(' Langsam gehts voran !') else
IF pppp < 1000 THEN writeln(' Ein guter Tuerke ist ein toter Tuerke !') else
IF pppp < 1500 THEN writeln(' Beeilen Sie sich !') else
IF pppp < 4000 THEN writeln(' Sie sind ein guter Deutscher !') else
IF pppp > 5000 THEN writeln(' Bald haben Sie es geschafft !!!');
readln
end;
procedure anlagen;
begin
cls;
kopf;
writeln;
writeln(' 1 Ofen kostet 5000 Reichsmark');
writeln(' Sie koennen damit 1000 kg Muell vernichten');
write(' Wieviele Oefen wollen Sie kaufen:');readln(ofen);
geld:= geld - (ofen * 5000);
writeln(' Wird erledigt!');
delay(800);
writeln;
end;
procedure verbrennen;
begin
cls;
kopf;
ii:= ofen * 5000;
writeln(' Sie haben ',muell,' kg Muell (Tuerkengehirne...)');
writeln(' Sie koennen ',ii,' kg Muell pro Tag verbrennen');
write(' Wieviel Muell wollen Sie verbrennen:');readln(verb);
IF verb > muell THEN writeln(' So viel Muell haben Sie gar nicht !!!');
IF verb > ii THEN writeln(' Ihre Oefen sind zu klein!');
end;
procedure info2;
begin
cls;
gotoxy(1,4);
writeln(' Hallo Nazi');
writeln;
writeln(' Zum Thema Muell : ');
writeln(' Falls Sie zuviel Muell in Ihrem KZ rumliegen haben, ');
writeln(' werden Sie im Tuerkenmuell ersticken, die Pest ');
writeln(' wird kommen und das ganze Deutsche Reich heimsuchen.');
writeln(' Als ist es ratsam, den Tuerkenmuell so schnell wie ');
writeln(' moeglich zu vernichten ! ');
writeln(' ');
readln;
end;
procedure ver;
begin
kopf;
writeln(' Sie Haben ',bestand,' Tuerken auf Lager :');
max:= bestand;
writeln(' Pro Tuerke brauchen Sie 2 Liter Gas');
writeln;
write(' Wieviele sollen vergasst werden: ');readln(g);
kkk:= kammern * 300;
uu:= g * 2 div kkk;
pppp:= pppp + g;
muell:= muell + (g * 8);
turken:= turken - g;
IF uu > Gas THEN begin writeln(' Sie haben nicht genug Gas !!!'); delay(800);end;
IF g > bestand THEN begin writeln(' Sie haben nicht genug Tuerken !!!'); delay(800);end;
IF g > kkk THEN begin writeln(' Ihre Gaskammern sind nicht gross genug !!!');delay(800);end;
end;
procedure mueller;
begin
cls;
kopf;
writeln(' REICHSMARK ',geld:11,' MUELL ',muell:11,' Oefen',ofen:7);
writeln;
writeln(' 1).....Neue Verbrennungsanlagen kaufen');
writeln(' 2)....................Muell verbrennen');
writeln(' 3)................................INFO');
writeln(' 4).............. Zurueck zum Hauptmenu');
writeln(' ');
write(' IHR BEFEHL :');readln(hhh);
IF hhh = '1' THEN anlagen;
IF hhh = '2' THEN verbrennen;
IF hhh = '3' THEN info2;
end;
procedure laden;
var ch:char;
begin
assign(f,'daten');
reset(f);
read(f,ch);
liter:=byte(ch);
read(f,ch);
turke1:=byte(ch);
read(f,ch);
vv1:=byte(ch);
read(f,ch);
geld:=byte(ch);
read(f,ch);
kammern:=byte(ch);
read(f,ch);
bestand:=byte(ch);
read(f,ch);
dag:=byte(ch);
read(f,ch);
turken:=byte(ch);
read(f,ch);
arbeit:=byte(ch);
read(f,ch);
Gas:=byte(ch);
read(f,ch);
pppp:=byte(ch);
read(f,ch);
matten:=byte(ch);
read(f,ch);
gold:=byte(ch);
read(f,ch);
lampen:=byte(ch);
read(f,ch);
men:=byte(ch);
CLOSE(f);
end;
procedure abspeichern;
begin
assign(f,'daten');
rewrite(f);
write(f,char(liter));
write(f,char(turke1));
write(f,char(vv1));
write(f,char(geld));
write(f,char(kammern));
write(f,char(bestand));
write(f,char(dag));
write(f,char(turken));
write(f,char(arbeit));
write(f,char(Gas));
write(f,char(pppp));
write(f,char(matten));
write(f,char(gold));
write(f,char(lampen));
write(f,char(men));
close(f);
end;
procedure Speichern;
begin
cls;
gotoxy(1,15);
{writeln(' Hier koennen sie noch eine Botschaft an richten: ');
FOR x = 1 TO 10
INPUT "Ihre Botschaft : ";a$(x)
IF a$(x) = "*" THEN GOTO Saving
NEXT x
Saving:
OPEN ","Daten"
FOR cc = 1 TO x
PRINT #1,a$(cc)
NEXT cc
CLOSE #1}
writeln('Leider noch nicht in Betrieb!');
end;
procedure kammer;
begin
kopf;
writeln(' 1 Gaskammer kostet ',vv1:5,' Reichsmark ');
writeln(' Sie koennen damit 300 Parasiten vergasen ');
writeln;
write(' Wieviele wollen Sie kaufen :');readln(vv);
writeln;
writeln(' Wird erledigt!');
geld:= geld - (vv * vv1);
end;
procedure Gasung;
begin
kopf;
writeln;writeln;
writeln(' Sie haben ',gas:10,' Liter Gas');
writeln(' Gaspreis pro Liter ',liter:4,' Reichsmark');
writeln(' Sie haben ',geld:10,' Reichsmark');
writeln;
write(' Wieviel Gas wollen Sie kaufen :');readln(hh);
Gas:= Gas + hh;
geld:= geld - (hh * liter);
end;
procedure alassen;
begin
writeln;
write(' Wieviele wollen Sie senden:');readln(kkk);
IF bestand < kkk THEN begin writeln(' Sie haben nicht genug Tuerken auf Lager!'); delay(800); end;
arbeit:= arbeit + kkk;
bestand:= bestand - kkk;
kkk:= 0;
end;
procedure abziehen;
begin
IF arbeit < 1 THEN exit;
writeln;
write(' Wieviele wollen Sie abziehen:');readln(vvv);
IF vvv > arbeit THEN begin writeln(' So viele Tuerken sind gar nicht am Arbeiten!'); delay(800);end;
it:= arbeit - vvv;
bestand:= bestand + vvv;
vvv:= 0;
end;
procedure arbeiten;
begin
kopf;
writeln(' ',arbeit,' Tuerken sind am Arbeiten im Lager');
writeln;
writeln(' A) Mehr Tuerken Arbeiten lassen');
writeln(' B) Tuerken abziehen');
writeln(' C) Zurueck zum Hauptmenu');
writeln;
write(' Ich warte :');readln(ccc);
IF ccc= 'a' THEN alassen;
IF ccc= 'b' THEN abziehen;
end;
procedure debug;
var enter:string;
enterw:word;
waste:integer;
begin
write('Tuerken?');readln(enter);
if enter<> then begin val(enter,enterw,waste); bestand:=enterw;end;
write('Gas?'); readln(enter);
if enter<> then begin val(enter,enterw,waste); gas:=enterw;end;
write('Geld?'); readln(enter);
if enter<> then begin val(enter,enterw,waste); geld:=enterw;end;
write('Kammern?');readln(enter);
if enter<> then begin val(enter,enterw,waste); kammern:=enterw;end;
write('Tag?'); readln(enter);
if enter<> then begin val(enter,enterw,waste); dag:=enterw;end;
end;
procedure weiter3;
begin
repeat
IF bestand < 0 THEN bestand:= 0;
IF liter = 0 THEN liter:= 5;
IF turke1 = 0 THEN turke1:= 10;
kopf;
gotoxy(1,3);
writeln(' ',rang,' ',n);
gotoxy(63,3);
writeln( Dag,' Tag');
gotoxy(1,7);
writeln;
writeln;
writeln;
writeln(' Tuerken ',bestand:8,' Gas ',gas:8,' Reichsmark ',geld:7,' Gaskammern ',kammern:3);
gotoxy(1,14);
writeln(' Was Wollem Sie tun :');
writeln;
writeln(' 1) .........Neue Gaskammer errichten 6) .............Tuerken kaufen ');
writeln(' 2) .......................Gas kaufen 7) .................... Bilanz ');
writeln(' 3) .................Tuerken vergasen 8) ...............Arbeitslager ');
writeln(' 4) .....................Verkaufbuero 9) ..................Muellberg ');
writeln(' 5) ..........................Zugende 0) .......Spielstand speichern ');
writeln;
write(' Ihr Befehl :');readln(as);
IF as= '2' THEN Gasung;
IF as= '3' THEN ver;
IF as= '5' THEN zugende;
IF as= '6' THEN Turk;
IF as= '4' THEN lager;
IF as= '1' THEN kammer;
IF as= '7' THEN bilanz;
IF as= '8' THEN arbeiten;
IF as= '9' THEN mueller;
IF as= '0' THEN abspeichern;
if as= 'landsturm' then debug;
until (as='q') or (gameover=true);
end;
procedure kz;
begin
liter:= 10;
turke1:= 14;
vv1:= 15000;
Gas:= 1000;
geld:= a * 1000;
kammern:= 50;
bestand:= 100;
dag:= 0;
turken:= 4000;
weiter3;
end;
procedure wahlen;
begin
cls;
gotoxy(1,4);
writeln(' Sie haben alle Fragen korrekt beantwortet');
writeln(' deshalb werden Sie im KZ eingestellt.');
writeln(' Ihre Aufgabe ist es alle Parasiten bis zum Kriegsende zu');
writeln(' elemenieren (Tuerken).');
writeln(' Sie beginnen im Jahr 1944 und Sie haben genau 300 Tage Zeit um ihre');
writeln(' Aufgabe zu erfuellen!!');
gotoxy(1,15);
writeln(' Die Missionaries wuenschen ihnen viel Glueck');
writeln(' auf das, dass Gas ihnen nie ausgehe !!!!');
delay(2400);
kz;
end;
procedure Zwischen;
begin
cls;
IF a > 15 THEN begin writeln(' Bravo Hitlerjunge du hast ',a,' Punkte erreicht');wahlen;end;
IF a < 17 THEN over2;
end;
procedure Test;
begin
kopf;
writeln(' Wo findet man Tuerken ?');
writeln;
writeln(' 1) .....Auf weggeworfenen Parkbaenken');
writeln(' 2) ................Unter Kanaldeckeln');
writeln(' 3) .......In Muelltonnen (ganz unten)');
writeln(' 4) ...........................Im Puff');
writeln(' 5) ......................Im Sozialamt');
writeln(' 6) .............................Im KZ');
write(' Waehle Hitlerjunge :');readln(as);
IF as='1' THEN a:= a + 1;
IF as='2' THEN a:= a + 2;
IF as='3' THEN a:= a + 3;
IF as='4' THEN a:= a - 4;
IF as='5' THEN a:= a + 1;
IF as='6' THEN a:= a + 3;
kopf;
writeln(' Woran erkennt man einen Tuerken ?');
writeln;
writeln(' 1) ..............Am faulen Geruch (Kuemmel)');
writeln(' 2) ....................Am Aussehen (Lumpen)');
writeln(' 3) An der Wohnung (ueberfuellte Muelltonne)');
writeln(' 4) ........................Am Essen (Muell)');
writeln(' 5) ....................An ihrem vielem Geld');
writeln(' 6) ..............An ihren schicken Kleidern');
write(' Waehle Hitlerjunge :');readln(bs);
IF bs='1' THEN a:= a + 2;
IF bs='2' THEN a:= a + 2;
IF bs='3' THEN a:= a + 3;
IF bs='4' THEN a:= a + 4;
IF bs='5' THEN a:= a - 5;
IF bs='6' THEN a:= a - 12;
kopf;
writeln(' Welches lustige, farbenfrohe Voelkchen bastelt am Weihnachtsabend');
writeln(' das Spielzeug fuer die braven Kinderlein ');
writeln;
writeln(' 1) ................Die 7 Zwerge');
writeln(' 2) ......Illegeale Gastarbeiter');
write(' Waehle Hitlerjunge :');readln(cs);
IF cs='1' THEN a:= a - 10;
IF cs='2' THEN a:= a + 5;
zwischen;
end;
procedure hauptmenu;
begin
repeat
kopf;
writeln(' Game Options ');
writeln;
writeln(' 1) ................Begin Game ');
writeln(' 2) ............ See Highscore ');
writeln(' 3) ..................... Info');
writeln(' 4) ....Alter Spielstand laden');
writeln(' 5) ...................beenden');
write(' Your Mission : ');readln(xxx);
IF xxx = 1 THEN Test;
IF xxx = 2 THEN High;
IF xxx = 3 THEN info;
IF xxx = 4 THEN laden;
until xxx = 5;
end;
{---------------------------------------------------------------------------} var scrollstart:longint; begin CLRSCR; writeln(' Vorwort: '); writeln(' Hallo Kameraden! '); writeln(' Im Rahmen des z.Zt. aktuellen GREENCARD-PROJEKTES unseres Staats'); writeln(' (also SCHEISS INDER nach Deutschland holen usw.) '); writeln(' hielt ich es fuer noetig, irgendwie aktiv zu werden! '); writeln(' Geht doch wohl (*FUCKSHIT*) nicht an, das die Bonner Saecke '); writeln(' UNSERE Arbeitsstellen verschenken, verplanen, BLAH. '); writeln(' Sind die WICHSER BESCHEUERT ODER WAS??? '); writeln(' Alles Labert von mehr Arbeitsstellen fuer Deutsche und dann son '); writeln(' unueberlegter Bloedsinn! '); writeln(' '); writeln(' Also Adaptierte ich aus Frust erstmal den KZManager vom Amiga. '); writeln(' Leider buggt der noch etwas. Ihr habt aber die Moeglichkeit, '); writeln(' im KZ-Hauptmenu (da wo man Tuerken kaufen kann usw.)'); writeln(' mit dem Befehl "landsturm" (klein) alle wichtigen Zahlen zu frisieren.'); writeln(' '); writeln(' Sobald ich wieder etwas Zeit habe, geht es weiter. '); writeln(' '); writeln(' Bis dahin wuensche ich euch viel Spass mit dem was geht und '); writeln(' SIEGHEIL auf dem Weg der Tuerken/Inder/Bonner-Saeckevernichtung!'); writeln(' OIOIOI! Phillip '); readln; gameover:=false; total:=1; infodat:='kztitle.pcx'; asm mov ax,13h int 10h end; loadpcx(1,$a000,true); repeat inc(scrollstart); if scrollstart=5000000 then begin scroll(' HALLO NAZIS!',190); scroll(' DIES HIER IST DIE ORIGINALE AMIGA-VERSION DES KZMANAGERS!',190); scroll(' DURCH DIE RECOMPILIERUNG SIND EINIGE INHALTE NOCH ETWAS ',190); scroll('DEFEKT Z.B. WENN IHR AM ANFANG 12000 GASKAMMERNKAUF SEID ',190); scroll('IHR WIDER IM PLUS UND SO WEITER... WIRD ABER DEMNAECHST ',190); scroll('(ALSO IM NAECHSTEN RELEASE) AUSGEBUEGELT SEIN. ',190); scroll('FALLS IHR NOCH MEHR FEHLER FINDET ODER MEHR UEBER DAS UEBER',190); scroll('SETZEN VON AMIGA-TO-PC ERFAHREN WOLLT SCHREIBT MIR! ',190); scroll(' - PHILLIP-AT-UNI.DE - ',190); end; until keypressed; readln; asm mov ax,3h int 10h end; randomize; textbackground(4); textcolor(15); GOTOXY(1,1); write('Alle,die das Spiel von 1988 her kennen, sollten nun ein DEJAVU bekommen-NJOY it!'); textbackground(0); textcolor(7); gotoxy(1,2); writeln(' ▀▄▀▀▀▀▀▀▀▀▄▀ '); writeln(' ▀▀▀▒▓▓▓▓▓▓▄▒▓▓▓▓▓▓▒▀▀▓ '); writeln(' ▄▀▓▓▓▓▓▓▓▓▓▄▀ ▀▒▓▓▓▓▓▓▓▓▒▀▀ '); writeln(' ▀▒▓▓▓▓▓▓▓▓▓▄▀ ░░▓▓▓▓▓▓▓▓▓▓▀▄ '); writeln(' ▓▀▀░░░░ ░░▀▀ ▄▒▓▓▓▓▓▓▓▓▓▄▀ ▄▒▓▓▓▓▓▓▓▓▓▓▓▓▓▀Ì '); writeln(' ▓▀ ░▀ ▀▓▓▓▓▓▓▓▓▓▄▀ ▄▒▓▓▓▓▓▓▄▒▓▓▓▓▓▓▓▓▓▀ '); writeln(' ▓ ░░ ░▓ ▒▓▓▓▓▓▓▓▓▄▀ ▄▒▓▓▓▓▓▓▄▀ ▀▒▓▓▓▓▓▓▓▓Ì '); writeln(' ¦ ▄▒░▄▄░ ░ ¦▓▓▓▓▓▓▓▓¦ ░░▓▓▓▓▓▓▄▀ ▀▒▓▓▓▓▓▓▓Ì '); writeln(' ¦Ì▒▒▒▒▒▒░▄▄▄▄▄▄▄▄▄ Ì▓▓▓▓▓▓▓▓▓▓▀▄ ▀▒▓▓▄▀ ▀▒▓▓▓▓▓▓Ì'); writeln(' ▓ ▒░▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░░░▒▓▓▓▓▄▒▓▓▓▓▓▓▀▄ ▀▀ ▄▄ ▀▒▓▓▓▓Ì'); writeln(' ¦▒▄▒▒░░░░░▒▒▒░░░░░▒▒▒¦░▀▒▓▄▀ ▀▒▓▓▓▓▓▓▀▄ ▄▒▓▓▀▄ ▀▒▓▓▒'); writeln(' ░▒░▒▒▒▓▓░▒▒▒░░▓▒▒▒▒▒░░░¦¦ ▀▒▓▓▓▓▓▓¦ ░░▓▓▓▓▓▓▀▄ ░░▓▓'); writeln(' ░▒▒▒▒▒▒▒░▒▒▒▒▒▒▒▒▒▒▒░▒▓▓▀▄ ▀▒▓▓▄▀ ▀▒▓▓▓▓▓▓▀▄ ▄▒▓▓▓'); writeln(' ▄▒▒▒▒▒░░▒░▀▒▒▒▒▒▒▒▒░▒▓▓▓▓▀▄ ▀▀ ▄▄ ▀▒▓▓▓▓▓▓▀▒▓▓▓▓Ì'); writeln(' ░▒▒▒▒░░░░░░▒▒▒▒▒▒▒̦▓▓▓▓▓▓▀▄ ▄▒▓▓▀▄ ▀▒▓▓▓▓▓▓▓▓▓▓¦'); writeln(' ▒▒▒▒▒░▒▒▒▒▒▒▒▒▒▒▄¦▓▒▓▓▓▓▓▓▓▀▄ ▄▒▓▓▓▓▓▓¦ ░░▓▓▓▓▓▓▓▓Ì '); writeln(' ¦▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓░░░▄▄▒▓▓▓▓▓▓▀▄ ▄▒▓▓▓▓▓▓▄▀ ▄▒▓▓▓▓▓▓▓▓▄ '); writeln(' ▓▓▓░░░▀░▒▒▒▒▒░▀▀░▄░░░░░░░░░░▄▄▓▓▓▓▀▒▓▓▓▓▓▓▄▀ ▄▒▓▓▓▓▓▓▓▓▓▄ '); writeln(' ▓░░░░░░░░░░ ░░Ì░ ▄░░░░░░░░░░░░░░░▄▄▄▒▒▓▓▓▓▄▀ ▄▒▓▓▓▓▓▓▓▓▓▒▀ '); writeln(' ░░░░░░░░░░░▓▄░▓░▀ ▄▀░░░░░░░░░░░░░░░░░░░░░░▄▒¦ ▄▒▓▓▓▓▓▓▓▓▓▒▄ '); writeln(' ░░░░░░░░▒░░░░¦▒▒▓ ▓▄░░░░░░░░░░░░░░░░░░░░░░░░░░░░▀▄ ▄▒▓▓▓▓▓▓▓▓▓▄▀ '); writeln(' ▓░░░░░░▒░░░░░░░▒▄░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▄▀▒▓▓▓▓▓▓▓▄▄▀ '); writeln(' ░░░░░░░▒▒░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▄▄▄▄▄▄▀░▓ PP.~88 '); repeat inc(scrollstart); until (keypressed) or (scrollstart=1400000); textbackground(0); textcolor(7); gotoxy(25,21); writeln(' >>>> THE MISSIONARIES PRESENT <<<<'); DELAY(500); gotoxy(25,22); writeln(' KZ MANAGER '); readln; readln; cls; writeln(' An das Deutsche Jungvolk!'); writeln(' '); writeln(' Wissenschaftliche Studien haben festgestellt dass das miese'); writeln(' Tuerkenpack die Deutsche Wirtschaft ruiniert da es viele '); writeln(' wichtige Arbeitsplaetze besetzt, wenn alle Parasiten dieses'); writeln(' Landes vergast werden foerdert dies de Deutsche Wirtschaft da'); writeln(' dadurch die Arbeitslosenzahl sinken wuerde. Ausserdem sind '); writeln(' diese Bakterien ekeleregend unsauber und muessen deshalb '); writeln(' radikal und systematisch vernichtet werden ! '); writeln(' Dieses Programm simuliert den freudigen Vorgang der Vernichtung.'); writeln; writeln; writeln;
writeln(' >>> WEITER MIT RETURN <<<'); readln; cls; GOTOXY(1,3); writeln(' Heinrich Himmeler spricht zu Ihnen: '); writeln; writeln(' '); writeln(' Wie es dem Russen geht, wie es dem Tuerken geht ist mir total gleichgueltig.'); writeln(' Das was in den Voelkern an gutem Blut unserer Art da ist '); writeln(' werden wir uns holen und wenn wir denen wenn notwendig die '); writeln(' Kinder rauben - und bei uns grossziehen. '); writeln(' Ob die anderen Voelker in Wohlstand leben, ob sie verrecken, '); writeln(' verhungern das interresiert mich nur soweit als wir sie als '); writeln(' Sklaven fuer unsere Kultur brauchen! '); writeln; writeln(' Es gehoert zu den Dingen die mann leicht ausspricht '); writeln(' das Tuerkische Volk wird Ausgerottet! Ja sagt ihnen jeder Parteigenosse '); writeln(' Ganz klar, steht in unserem Programm drin: '); writeln(' Tuerkenausrottung, machen wir, kleinigkeit! '); writeln(' '); writeln(' Und dann kommen Sie alle, all die 80 Millonen braven Deutschen, '); writeln(' jeder hat seinen anstaendigen Tuerken, alle anderen sind Schwein'); writeln; writeln(' >>> WEITER MIT RETURN <<<');readln; cls; gotoxy(1,5); writeln; writeln(' Wir haben das moralische Recht, wir haben die Pflicht unserem'); writeln(' Volk gegenueber das zu tun. '); writeln(' Dieses Volk das uns umbringen wollte umzubringen! '); writeln(' Wir haben aber nicht das Recht uns auch nur mit einer Mark, '); writeln(' einer Zigarette, mit einer Uhr zu bereichern! '); writeln(' Das haben wir nich ! '); writeln(' Da werde ich niemals zusehen das auch nur eine kleine '); writeln(' Faeulnisstelle bei uns eintritt und sich festsetzt. '); writeln(' insgesamt aber koennen wir sagen wir haben diese schwerste '); writeln(' Aufgabe in Liebe zu unserm Volk getan und wir haben keinen '); writeln(' Schaden in unserm Ineren, in unserer Seele ! '); writeln; writeln; writeln(' Heinrich Himmler'); writeln;writeln;writeln; writeln(' >>> WEITER MIT RETURN <<<'); readln;
rang:='KZ Hilfarbeiter';
cls;
GOTOXY(19,13); write(' Bitte geben Sie Ihren Namen ein : ');readln(n);
cls;
a:= 10; men:= 30; pppp:= 0;
hauptmenu; end.