program Anleitung;

uses MMX, Vesa 2.0 + LFB, noch kein Sound;

{$I Freeware.txt}

Procedure Game;
begin
 if Linke Maustaste = gedrckt then Hau die Viecher tot;
 if Rechte Maustaste = gedrckt then Kder werfen falls vorhanden;
 if Zeit = vorbei then Lach ich ber dich;
end;

Procedure Score;
begin
 if Fliege     = tot then 100 Punkte;
 if Fliege * 2 = tot then 500 Punkte;
 if Fliege * 3 = tot then 2000 Punkte;
 if Fliege * 4 = tot then 5000 Punkte;
 if Fliege * 5 = tot then 9000 Punkte;
 if Fliege * 6 = tot then 14000 Punkte;
 if Fliege * 7 = tot then 20000 Punkte;
 if Fliege * X = tot then 20000 + (X - 7) * 10000 Punkte;
 if Wespe      = tot then Kder = 1 mehr;
end;

Procedure Cheats;
begin
 if Cheats = ntig then Du hast Pech gehabt weil gibts nicht !!!;
end;

Procedure Errors_und_Kontakt_zu_uns;
var em@il : string;
begin
 em@il := 'dave_chp@gmx.de';
 case Anliegen of 'Bug' : if detected then schreibe an em@il;
		  'Cooles Game' : if ja then schreibe bitte auch an em@il;
                  'Kritik' : if Du hast welche then mach besser;
                  'zuviel Rot' : if Du findest ja then geh zu Mami und heul dich aus;
                  'Neue Highscoreliste' : delete HighScore.Dat;
 end;
end;

begin
 Start Klatsche.exe;
end.