Кружок нубов(Вопрос-Ответ)

[Breadfan]

ShowMessage(format(' blablabla: %x ',[ord(pck[1])])); ?


Оффтоп

procedure Init; //Вызывается при включении скрипта
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS('Test message');
  Sendmsg(ViewHex(buf));
  Sendmsg(ViewHex(buf[6]+buf[7]+buf[8]+buf[9]));
  Sendmsg(ViewHex(buf[12]+buf[13]+buf[14]+buf[15]+buf[16]+buf[17]+buf[18]+buf[19]));
end;
function ViewHex(hstr:string):string;
var
idx:integer = 1;
begin
    result:='';
    while (idx<=length(hstr)) do begin
        result:=result+format('%.2x ',[ord(hstr[idx])]);
        inc(idx);
    end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
end.

15.06.2015 03:03:24 Script: 4A 00 00 00 00 0A 00 00 00 00 00 54 00 65 00 73 00 74 00 20 00 6D 00 65 00 73 00 73 00 61 00 67 00 65 00 00 00 
15.06.2015 03:03:24 Script: 0A 00 00 00 
15.06.2015 03:03:24 Script: 54 00 65 00 73 00 74 00

[SeregaZ]

ничерта я не понял как ей пользоваться

Форматирование

function Format(Fmt: String; Args: array): String
Форматирование

function FormatFloat(Fmt: String; Value: Extended): String
Форматирование числа с плавающей запятой

function FormatDateTime(Fmt: String; DateTime: TDateTime): String
Форматирование даты и времени

function FormatMaskText(EditMask: string; Value: string): string
Форматирование строки по маске

не понимаю я как этот - Args: array - указать. или таким образом читать можно только по одному "пику"? то есть выйдет что-то типа:

var
assist:string;
messtext:string;
i:integer;
tmp:string;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

if (pck[1]=#$04) 
then begin 
assist:=pck[2]+pck[3]+pck[4]+pck[5];
messtext:='';

for i:=2 to 5 do
begin
 tmp:= format('%x',[ord(pck[i])]);
 if Length(tmp) = 1
 then begin
   tmp:='0'+tmp;
 end;
 messtext:=messtext+tmp;
end;

ShowMessage(messtext);
end;

end.

однако это дело касается момента, когда данные приходят в "пиках", а если там идут переменные?
assist:=oldassist;
как тут прочитать oldassist?

Добавлено через 16 минут
о... увидел офтоп. по всей видимости ViewHex и есть мое решение

[Breadfan]

ну да. на вход даешь строку из символов (как pck\buf и выглядит), а на выходе получаешь строку из их шестнадцатиричных кодов.

По поводу -

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

...не понимаю я как этот - Args: array - указать..

http://www.delphibasics.ru/Format.php

[kpa9pt]

Добрый день!
У меня возник вопрос, не знаю как красиво сформулировать, объясню поэтапно:

Есть лог пакетов и есть необходимость записать их в текстовый документ.
Естественно, когда я использую конструкцию S.Add(pck), то документе я получаю иероглифы ( как бы строку в hex...или наоборот я запутался, при чём не полностью корректную...обратное преобразование не полностью возвращает исходный hex), а мне нужно сразу HEX.
Например пришёл пакет открытия инвентаря от клиента '14', и точно так же надо его записать в текстовый документ:

PHP код:

14 


Мне нужно что-то вроде обратной функции hstr наверное, может кто сталкивался с такой задачей и как то её решил?

http://l2ph.coderx.ru/arhive/l2ph_help/ тут оказывается было чётко написано процедура StrToHex ....все кто прочитал, неужели не знали ответа(

[Марина Бирюченко]

Люди пожалуйста помогите с сервером GodWorld. Почему то пакетник в иге при отправке пакета, ига зависает и потом выкидывает. Как исправить этот недочет.

[arbuzovEvgen]

запускаю л2пх захожу в настройки перехвата делаю полный путь к LSP модулю , потом пытаюсь выбрать Использовать LSP перехват но галочка не ставится, подскажите кто разбирается буду благодарен...(я нуб) , пытаюсь врубиться в прогу))) (Все разобрался)

[Кирилл892255]

Где можно скачать пакетхак? Ссылки на сайте без программы. Находил на форумах старые версии до фреи, хотелось бы для ХФ.

[SeregaZ]

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

[alexov]

используй вместо второго компа виртуалку, вот и вся твоя проблема решена

[SeregaZ]

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

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