var
  p1, p2: tl2live;

  nick:tl2char;
  i:integer;
  name:string;
begin
  while engine.status = lsOnline do
  begin

    engine.waitAction([laTarget], p1, p2);

    if (tl2char(p1) = user)     then
    begin

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

         name:= nick.name;

 print(nick.classid);
 print(nick.name);

    end;
  end;end;
end.