program mang1;
uses crt;
const
  n=30;
var
  hiirx, hiiry : integer;
  x, y	       : array[1..n] of integer;
  klahv        : char;
  punkte,palju : integer;

procedure kirjutahiir(kx,ky:integer);
  begin
		gotoxy(kx,ky);
		writeln('Ï');
	end;

procedure vaartustamine;
var
  i : integer;
  begin
    for i:=1 to n do
      begin
        x[i]:=random(80)+1;
        y[i]:=random(24)+1;
        textcolor(white);
        gotoxy(x[i],y[i]);
        write('$');
      end;
  end;

procedure kontrolli1;
var
  i : integer;
  begin
    for i:=1 to n do
      if (hiirx=x[i]) and (hiiry=y[i]) then
        begin
          sound(243);
          delay(150);
          nosound;
          punkte:=punkte+100;
          palju :=palju+1;
          gotoxy(1,25);
          write(punkte);
          gotoxy(78,25);
          write(palju);
          x[i]:=0;
          y[i]:=0;
        end;
  end;
procedure kontrolli2;
 begin
 if (hiirx=0) or (hiiry=0) or (hiirx=81) or (hiiry=25) then
 begin
 hiirx:=5;
 hiiry:=5;
 punkte:=punkte-50;
 gotoxy(1,25);
 write(punkte);
 klahv:='a';
 end;
 end;

procedure hiireliikumine;
  begin
    repeat
      if keypressed then
        begin
          klahv:=readkey;
          if klahv=chr(0) then
            klahv:=readkey;
        end;
    if (hiirx<>0) and (hiiry<>0) and (hiirx<>81) and (hiiry<>25) then
      begin
      textcolor(black);
      kirjutahiir(hiirx,hiiry);
      end;
      case klahv of
        'K' : hiirx:=hiirx-1;
        'M' : hiirx:=hiirx+1;
        'H' : hiiry:=hiiry-1;
        'P' : hiiry:=hiiry+1;
      end;
    if (hiirx<>0) and (hiiry<>0) and (hiirx<>81) and (hiiry<>25) then
      begin
        textcolor(red);
        kirjutahiir(hiirx,hiiry);
      end;
      kontrolli1;
      kontrolli2;
      delay(100);
    until (klahv=chr(27)) or (palju=n);
    clrscr;
    writeln('Sinu m„ng on l„bi. Kas soovid kohe uuesti proovida?');
    write('Vajuta Y, kui soovid uuesti mangida ja N kui ei soovi ');
    klahv:=readkey;
  end;

begin
  randomize;
  repeat
  	clrscr;
    vaartustamine;
    hiirx:=5;
    hiiry:=5;
    hiireliikumine;
  until upcase(klahv)='N';

  TextMode(LastMode);
end.