var
  p1, p2: pointer;
  namee : string;
  nick:tl2char;
  i:integer;
begin
  while engine.status = lsOnline do
  begin             delay(33);

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

    if (tl2char(p1) = user)     then
    begin

         charlist.byname(p1.target.name,nick);
 print(nick.classid);

    end;
  end;
end.