var
  p1, p2: pointer;

  nick:tl2char;
  i:integer;
  name:string;
  actor:tl2live;
  buff:tl2buff;

begin

 name:='';
 actor:= tl2live(p1);
  while engine.status = lsOnline do
  begin

    engine.waitAction([laTarget,lacast], p1, p2);
    if (actor.Cast.ID = 28)  then begin
  print('Agro');   end;

    if (tl2char(p1) = user)     then
    begin


         charlist.byname(tl2live(p1).target.name,nick);
         if (nick.classid <> 32) then begin
         name:= nick.name;

 print(nick.name);

    end;
  end;end;




end.