[metalFan]

//Ищет ПК в округе
//Пишем в чате: "\start" - работают обе выборки (таргет пк, сообщение в чат)
//Пишем "/stop" - стоп работы таргета (мессаг не выключается)
// Авторы: Furious, metalFan
// Версия: Gracia 1.0b
var
ObjectID, KarmaPK, TargetPK, MessagePK, i: Integer;
NamePK, CvarPK, x: String;
Const UserName=('sehseh');

procedure Free;
begin
end;
procedure OnConnect(WithClient: Boolean);
begin
end;
procedure OnDisonnect(WithClient: Boolean);
begin
end;
//(c) xkor
function StringToHex(packet: string):string;
var
  i:integer;
  tmp:byte;
  function ByteToHex(b: byte): Char;
  begin
    if b<10 then result:=chr(b+$30)
      else result:=chr(b+$37);
  end;
begin
  result:='';
  for i:=1 to length(packet) do begin
    tmp:=ord(packet[i]) div 16;
    result:=result+ByteToHex(tmp);
    tmp:=ord(packet[i]) - tmp*16;
    result:=result+ByteToHex(tmp)+' ';
  end;
end;
  procedure Init;
begin
MessagePK:=1
end;
procedure MessageSend(Msg:string);
  begin
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');
    WriteS(Msg);
    SendToClientEx(UserName);
  end;
procedure TargetingPK(ObjectID: Integer);
  begin
    buf:=#$1F;
    WriteD(ObjectID); WriteD(0); Writed(0); Writed(0); WriteC(0);
    SendToServerEx(UserName);
  end;
begin
  if (FromServer) and (ConnectName=UserName) and (pck[1]=#$31) then
    begin
    i:=22;
      ObjectID:=ReadD(18);
      NamePK:=ReadS(i);
      KarmaPK:=ReadD(i+176);
      x:=StringToHex(ReadS(i+176));
            if (KarmaPK>0) then
        begin
          if MessagePK=1 then begin MessageSend('>'+NamePK+) end;
          if TargetPK=1 then TargetingPK(ObjectID);
        end;
      end;
  if (FromClient) and (ConnectName=UserName) and (pck[1]=#$49) then
    begin
      CvarPK:=ReadS(2);
      case CvarPK of
        '\start':
          begin
            TargetPK:=1;
            MessageSend('Search On!');
            pck:='';
          end;
        '\stop':
          begin
            TargetPK:=0;
            MessageSend('Stopped all services!');
            pck:='';
            end;
      end;
    end;
end.

у меня есть скрипт, но в строке
if MessagePK=1 then begin MessageSend('>'+NamePK+) end;
я хочу вывести хексы с количеством кармы, профой, другими статами...
уже все перепробывал, может я что пропустил... может выход прост...
скрипт работает, но что нужно вставить чтобы мона было значения хекса вывести?
и че в синтаксисе не так, пиет лист аут оф баундс 5
мб надо перекомпилить пакетхак? нежелательно...