L2PacketHack 3.1.8 AE (Advanced Edition)

[NLObP]

Выложил в разделе файлов скомпилированную версию 3.2.1 и 3.1.8 с поддержкой ДЛЛ.

ЗЫЖ В закладке Скрипты по ctrl+s сохраняет скрипт, плюс еще немного незначительных изменений.

[xkor]

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

ЗЫЖ В закладке Скрипты по ctrl+s сохраняет скрипт

блин я это хотел сделать уже хз скока но так руки и не доходили), молодца!!!

[NLObP]

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

блин я это хотел сделать уже хз скока но так руки и не доходили), молодца!!!

Исправил маленькую s на большую S и сразу заработало.

  // добавили комбинацию клавиш 'сохранить файл' - ctrl+s
  if(Key=Ord('S'))and(Shift=[ssCtrl]) then Button20Click(Sender);

[alexsl]

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

var
  stmp: string;
<---cut--->
  if MethodName = 'INITKEYS2' then
  begin
     stmp:=Params[0];
     b:=TfsScript(Integer(Params[1])).Variables['ConnectID'];
     Thread[Integer(Params[1])].xorS.InitKey2(stmp,Thread[b].isInterlude);
    // log('initkeys2:'+stmp);
  end
  else
  if MethodName = 'INITKEYC2' then
  begin
     stmp:=Params[0];
     b:=TfsScript(Integer(Params[1])).Variables['ConnectID'];
     Thread[Integer(Params[1])].xorC.InitKey2(stmp,Thread[b].isInterlude);
  end
<---cut--->

[NLObP]

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

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

Пример скрипта можно для теста?
Я так понял так имелось в виду?
procedure InitKeyS(key: string);
procedure InitKeyС(key: string);

Скомпилил, только названия без двойки: InitKeyS, InitKeyC

[QaK]

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

Выложил в разделе файлов скомпилированную версию 3.2.1 и 3.1.8 с поддержкой ДЛЛ.

т.е. ты в 3.2 тож добавил callpr и callfnc?

[NLObP]

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

т.е. ты в 3.2 тож добавил callpr и callfnc?

Да, мне Grinch давал main.pas, я от туда взял и вставил в 3.2.0.

[PanAm]

эх, к вашему проекту очень нехватает модуля с функциями для работы с array of PChar, аналогов ReadX(i) и WriteX. Может у кого есть готовый?

[NLObP]

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

эх, к вашему проекту очень нехватает модуля с функциями для работы с array of PChar, аналогов ReadX(i) и WriteX. Может у кого есть готовый?

По подробнее можно? Чего это такое?

[PanAm]

Имею ввиду просто текстовый модуль функций, для подключения к проекту.
Ну или просто объясните как оптимальней прочитать integer из array of PChar или дописать integer в конец массива.