program Hundewettlaufen;
uses crt;
const Hundesymbol='ȹ¹©';
bahn1=12;
bahn2=14;

var Hund1,Hund2:integer;
    x,b,f,g,h,i,j,m:integer;
    a:real;
   u, v,w:char;

procedure start;

  begin
  clrscr;
  Hund1:=1;Hund2:=1;
  x:=25;
  gotoxy(x,2);write('++++++++++++++++++++++++++++++++++');
  gotoxy(x,3);write('+Willkommen beim Hundewettlaufen!+');
  gotoxy(x,4);write('++++++++++++++++++++++++++++++++++');
writeln;
writeln('Los! Wetten Sie!');
writeln('Wer wird Ihrer Meinung nach Sieger?');
       writeln('Wenn Sie auf Hund1 tippen, schreiben Sie bitte "1"');
       writeln('Wenn Sie auf Hund2 tippen, schreiben Sie bitte "2"');
       writeln('Wenn Sie denken, es geht unentschieden aus, schreiben Sie "0"');
       readln(b);
       writeln('Wieviel m”chten sie setzen?[in DM] : ');readln(m);
       writeln;writeln;
       writeln;writeln;f:=f+1;
textcolor(black);
gotoxy(Hund1,bahn1);write('...',Hundesymbol);
write('...I...I...I...I...I...I...I...I...I...I...I...I...I...1');
gotoxy(Hund1,bahn2);write('...',Hundesymbol);
write('...I...I...I...I...I...I...I...I...I...I...I...I...I...2');
gotoxy(5,20);
textcolor(blue);
write('Start mit der Return - Taste-->');readln;
textcolor(black);
gotoxy(5,20);
delline
  end;


procedure Laufen;
  begin
repeat
   Hund1:=Hund1+random(2)+1;
   gotoxy(Hund1,bahn1);
   write('...',Hundesymbol);
   Hund2:=Hund2+random(2)+1;
   gotoxy(Hund2,bahn2);
   write('...',Hundesymbol);
   delay(50); until (Hund1>55) or (Hund2>55);
   readln;
  end;

procedure auswertung;
  begin
   a:=Hund1-Hund2;
        if a>0 then
     begin   h:=h+1;
           writeln('Hund1 hat gewonnen!!!');
     end;

        if a<0 then
     begin   i:=i+1;
           writeln('Hund2 hat gewonnen!!!');
     end;

        if a=0 then BEGIN j:=j+1; writeln('Das Rennen ist unentschieden!'); END;
  case b of
   1: begin if a>0 then
            begin writeln('Sie haben Ihre Wette gewonnen!');g:=g+1;
                  writeln('Sie k”nnen sich nun Ihren Gewinn von  ',2*m,'DM an der Kasse abholen.');
            end
                 else
            begin
                   writeln('Leider haben Sie verloren!');
                   writeln('Ihr Wetteinsatz kommt dem GutsMuths Gymnasium zu Gute.');
            end;
        end;
   2: begin if a<0 then
            begin writeln('Sie haben Ihre Wette gewonnen!');g:=g+1;
                  writeln('Sie k”nnen sich nun Ihren Gewinn  ', 2*m,'DM  an der Kasse abholen.!');
            end
            else
            begin  writeln('Leider haben Sie verloren!');
                   writeln('Ihr Wetteinsatz kommt dem GutsMuths Gymnasium zu Gute.');
            end;
        end;
   0: begin if a=0 then
            begin writeln('Sie haben Ihre Wette gewonnen!');g:=g+1;
                  writeln('Sie k”nnen sich nun Ihren Gewinn ', 2*m,'DM an der Kasse abholen.!');
            end
            else
            begin  writeln('Leider haben Sie verloren!');
                   writeln('Ihr Wetteinsatz kommt dem GutsMuths Gymnasium zu Gute.');
            end;
        end;
    end;
end;

Procedure Verlauf;
 begin
    writeln('Hier nun Ihre Rennauswertung!');
    writeln('Sie haben ',f,' mal gewettet!');
    writeln('Sie haben ',g,' mal gewonnen!');
    writeln('Hund1 war ',h,' mal Sieger');
    writeln('Hund2 war ',i,' mal Sieger');
    writeln('Das Wettlaufen war ',j,' unentschieden');

 end;
begin
   repeat
  randomize;
  textbackground(red+blue);
  textcolor(black);
   repeat
  start;
  laufen;
  auswertung;writeln;writeln('M”chten Sie weiterspielen??? [j/n]');writeln;writeln;
  u:=readkey
until u='n';
writeln;
Verlauf;
writeln;
writeln('M”chten Sie aufh”ren? [j/n]');
w:=readkey;
until w='j';
writeln('created by Eva and Melanie')

end.