program a2ulesanne;

uses graph,crt;
var
d,m,x,y:integer;
xl,yl,xt,yt:integer;
s:string;
count:integer;

procedure liikur(kxl,kyl:integer);
begin
gotoxy(kxl,kyl  );writeln(' * ');
gotoxy(kxl,kyl+1);writeln('***');
end;

procedure ring;
begin
 gotoxy(x-2, y-1); writeln(' *** ');
 gotoxy(x-2, y  ); writeln('*   *');
 gotoxy(x-2, y+1); writeln(' *** ');
end;

procedure tulistamine(kxt,kyt:integer);
begin
gotoxy(kxt,kyt);writeln('*');
end;

procedure lenda;
var
juhu: integer;
begin
  if yt>0 then
  begin
   textcolor(black);
   tulistamine(xt, yt);
   yt:=yt-1;
   textcolor(white);
   if yt>0 then tulistamine(xt, yt);
  end;

  if (xt>x-3) and (xt<x+3) and (yt>y-3) and (yt<y+3)
  then
    count:=count+1;
  textcolor(blue);
  gotoxy(65,20);writeln('Punktid ',count);
  gotoxy(65,2);writeln('N-tulistab!');
  gotoxy(65,18);writeln('xt on ',xt);
  gotoxy(65,17);writeln('x on ',x);
  gotoxy(65,16);writeln('yt on ',yt);
  gotoxy(65,15);writeln('y on ',y);

  juhu:=random(100);
  if juhu=1 then
  begin
   textcolor(black);
   ring;
   x:=random(70)+3;
   y:=random(13)+2;
   textcolor(white);
   ring;

  end;

end;


procedure kahurliikur ;
begin
 s:=ReadKey;
 if s='n' then
 begin
   xt:=xl+1;
   yt:=yl-2;
 end;
 textcolor(black);
 liikur(xl,yl);
 if s=chr(0) then
 begin
   s:=ReadKey;
   if (s='K') and (xl>1)  then xl:=xl-1;
   if (s='M') and (xl<77) then xl:=xl+1;
 end;
 textcolor(white);
 liikur(xl,yl);
end;



begin
clrscr;
xl:=38;
yl:=23;
count:=0;
liikur(xl,yl);
                                       xt:=39;
                                       yt:=22;
                                       tulistamine(xt,yt);

repeat
   if keypressed then kahurliikur;
   lenda;
   delay(50);
until s=chr(27);
TextMode(LastMode);
textcolor(red);
gotoxy(30,10);
writeln('Sinu tulemus oli ',count,' punkti!');
textcolor(yellow);
gotoxy(50,18);
writeln('MŽNGI VEEL!');
end.





















{var
f:text;
s:string;
i,j,arv,viga,abi,max:integer;
arvud:array[1..11]of integer;
begin
assign(f,'a2nimed.txt');
reset(f);
for i:=1 to 10 do
  begin
  readln(f,s);
  val(s,arv,viga);
  arvud[i]:=arv;
  end;
writeln('Sisesta oma tulemus');
readln(arvud[11]);
for i:=1 to 10 do
  begin
  max:=i;
  for j:=i to 11 do
  if arvud[j]>arvud[max] then max:=j;
  abi:=arvud[i];
  arvud[i]:=arvud[max];
  arvud[max]:=abi;
  end;
rewrite(f);
for i:=1 to 10 do
writeln(arvud[i]);
close(f);
readln;
end.}