проблема скрипта в HexToString

metalFan · 26.11.2008, 23:11

delphi Код:

//Ищет ПК в округе
//Пишем в чате: "\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

мб надо перекомпилить пакетхак? нежелательно...

QaK · 27.11.2008, 13:12

Цитата:

Сообщение от metalFan

лист аут оф баундс

эт значит где-то вылетел за пределы пакета, скорее всего. Попробуй посчитать вместе со скриптом, мож где есть ошибка.

PanAm · 27.11.2008, 15:58

МБ

delphi Код:

KarmaPK:=ReadD(i+60);

?

уже писал, что в ПХ надо в просмотре пакетов сделать смещение в десятичной системе....

Добавлено через 6 минут

delphi Код:

x:=StringToHex(ReadS(i+176));

а смысл этого вообще не понял...

metalFan · 27.11.2008, 16:01

да это я просто уже незнаю что сделать... как мне вывести в сообщении величину выраженную хексом вордом или байтом?
я хочу вывести число в чат просто, объясните

PanAm · 27.11.2008, 16:25

читать fs.rtf

Цитата:

Преобразование типов
function IntToStr(i: Integer): String
Перевод целого в строку

delphi Код:

MessageSend('>'+NamePK+' '+IntToStr(KarmaPK))

вроде так

Добавлено через 20 минут
Профы я так вывожу
1. создал файл ClassName.ini Под C4
Оффтоп
название проф тут полное, лучше сократить до 2-4 символов на свой вкус
2. добавил глобальную переменную - ClassName: TStringList
3. и Init и Free - соответственно добавить

delphi Код:

ClassName :=TStringList.Create;
  ClassName.LoadFromFile('ClassName.ini');

delphi Код:

ClassName.free;

4. видираю из CharInfo профу, и вывожу

delphi Код:

function GetClassName(CID : integer) : string;
begin
  result :=ClassName.Strings[CID];
end;
MessageSend(GetClassName(ClassID))

metalFan · 30.11.2008, 16:55

спасибо помогло

) inttostr