daemon:=daemon*2;

Program dinner2;
 uses graph,crt,monsters,daemons;
const n=30;
 var
stado:array[1..n] of monstr;
stado2:array[1..n] of daemon;
x,y:array[1..n] of integer;
x0,y0,x1,y1,m,r,gd,gm:integer;
i,j:word;

begin
 gd:=detect;
initgraph(gd,gm,'...');
 If graphresult<>grOk then
begin
 writeln('Error');
exit
end;
 randomize;

for i:=1 to N do
 begin
stado[i].init(random(600),random(440),random(10), random(8));
stado[i].draw;

stado2[i].init(random(500),random(400),random(20), random(5),random(10));
stado2[i].draw;
 end;

repeat
 for i:=1 to n do
begin
 x[i]:=random(600);
 y[i]:=random(440);
 stado[i].move(x[i],y[i]);
 stado2[i].move(x[i]+5,y[i]+5);
end;

For i:=1 to n-1 do
 For J:=i+1 to n do
  If(abs(x[i]-x[j])<15) and (abs(y[i]-y[j])<15)
then begin
 Stado[i].hit;
 Stado[j].hit;
 Stado2[i].hit;
 Stado2[j].hit;
end;

delay(2000);
until keypressed and (ReadKey = #75);
if keypressed and (ReadKey = #75)
then
begin
 x0:=getmaxX div 2;
 y0:=getmaxY div 2;
 r:=y0-100;
 m:=0;
 repeat
  x1:=x0+round(r*sin(m*pi/180));
  y1:=y0-round(r*cos(m*pi/180));
  SetBkColor(Black);
  If (m mod 45)=0 then
   begin
    setcolor(green);
    outtextXY(x1, y1, '%)');
    delay(10000);
    setcolor(black);
    outtextXY(x1, y1, '%)');
   end;
 if m<361 then inc(m) else m:=0;
 until keypressed;
 end;
 end.