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

[PanAm]

cepreu,
1. Бесконечные циклы в скриптах не айс. скрипт выполняется на каждый приход/уход пакета - тут нечего зацикливать.
2. Разбирайся ))) мороки много объяснять, главное - L2phx после выхода излинейки L2phx должен будет имитировать клиент, а это довольно сложно сделать.
3. полно примеров, типа

var
  i : integer:
begin
  if FromServer and (pck[1]=#$B0) then 
    i := WriteD(2);
end.

[QaK]

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

1. Бесконечные циклы в скриптах не айс. скрипт выполняется на каждый приход/уход пакета - тут нечего зацикливать.

смотря как реализовать

[cepreu]

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

cepreu,

3. полно примеров, типа

var
  i : integer:
begin
  if FromServer and (pck[1]=#$B0) then 
    i := WriteD(2);
end.

это осилил
1. Бесконечные циклы в скриптах не айс. скрипт выполняется на каждый приход/уход пакета - тут нечего зацикливать.
просто мне нужен цикл повтора пакетов, не знаю какой даже пример привести. Например, вот писать в титуле O_o затем о_О (тупой пример, но все же)
2. Разбирайся ))) мороки много объяснять, главное - L2phx после выхода излинейки L2phx должен будет имитировать клиент, а это довольно сложно сделать.
разобрался, но не понял тебя =(
вот что пишет xkor :
Пример вызова функций из системных библиотек:

var
  lib,Lib1:Integer;
  Res:variant;
  ar:array of variant;
begin
  lib := loadLibrary('User32.dll');
  lib1 := loadLibrary('GDI32.dll');
  Res := CallFunction(lib,'MessageBoxW',4,[nil,'Text1','text2',0]);
  Res := CallFunction(lib,'GetDC',1,[0]);
  CallFunction(lib1,'LineTo',3,[Res,100,100]);
  CallFunction(lib,'ReleaseDC',2,[0,Res]);
  FreeLibrary(lib);
  FreeLibrary(lib1);
end.

а вот функции:

Доступные функции:
........
NoFreeOnClientDisconnect - запрещает закрытие соединения при дисконекте клиента (v. 3.1.9+)
NoFreeOnServerDisconnect - запрещает закрытие соединения при дисконекте сервера (v. 3.1.9+)
YesFreeOnClientDisconnect - разрешает закрытие соединения при дисконекте клиента (v. 3.1.9+)
YesFreeOnServerDisconnect - разрешает закрытие соединения при дисконекте сервера (v. 3.1.9+)
(по умолчанию закрытия разрешены)
DisconnectServer - закрывает соединение с сервером (v. 3.2.0+)
DisconnectClient - закрывает соединение с клиентом (v. 3.2.0+)

я правильно понял, так реализовать? заранее спс

Добавлено через 5 минут
сорь, еще )
if FromServer and (pck[1]=#$B0) then
а как написать, если мне надо такое условие, что если нет такого пакета выполнять некий алгоритм?
Оффтоп

if FromServer and no (pck[1]=#$B0) then так?)

[PanAm]

cepreu, Повтор пакетов лучше оформить через таймер
например

Var
  Timer : TTimer;
procedure Init; //Вызывается при включении скрипта
begin
  Timer :=TTimer.Create(nil);
  Timer.enabled :=false;         //таймер выключен
  Timer.OnTimer :=@MyAction; //адрес процедуры, 
                                         //которая будет выполнятся
  Timer.interval :=2000;         //интервал в мс
end;

procedure Free; //Вызывается при выключении скрипта
begin
  Timer.Free;
end;

procedure MyAction(Sender: TObject);
begin
  buf:=hstr('бла бла бла');  // тут вписываешь пакет
  SendToServerEx('а тут имя соединения');                     
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
     ......
     //сочиняешь по какому условия включить таймер
      Timer.enabled :=true
    //и соответственно выключить
      Timer.enabled :=false;
  end;
end.

[marslem]

с титулом не получится,только если ставить delay большой,т.к кикает с серва при быстрой измене титула или при "бегущей строке"

[cepreu]

чет все повымирали( немного разобрался, вопрос очень важный!
Есть ли команда что бы из декса в хекс и на оборот.?
2)какую использовать команду, чтобы алгоритм между begin и and выполнялся единожды и больше никогда,?

[QaK]

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

Есть ли команда что бы из декса в хекс и на оборот.?

есть. кури сорцы ПНХ.

[VORON]

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

чет все повымирали( немного разобрался, вопрос очень важный!
Есть ли команда что бы из декса в хекс и на оборот.?
2)какую использовать команду, чтобы алгоритм между begin и and выполнялся единожды и больше никогда,?

оба вопросы как раз по теме и ответа ни них нет потомучто они заданы неверно.. ни ДЕКС ни ХЕКС формат - ДЕЛЬФИ-паскаль-ФАСТСКРИТ-ПАКЕТХАК не понимает.. нет у них таких типов данных.. есть БАЙТЫ данных.. ячейки памяти.. которые можно представить ввиде целого 4-х байтного числа, либо 2-х байтового либо сопостовлять каждому байту какойто символ из алфавита (CHAR) в масиве ето STRING.. ну если тебе из СТРИНГА ХЕКС надо сделать СТРИНГ- ДЕКС то такие функции есть но они громоздки и для программирования скриптов 99% не нужны.. нафига тебе в скрипте строка с текстом "8а"? может просто ты незнаеш как с типами данных работать и преобразовывать то ты вопрос подругому както задай что тебе нужно то..
а по второму вопросу: Бегин и ЕНД - их в скрипте куча.. и то что между ними не повторяется никогда само по себе... бегин и енд- ето всё равно что скобки () в синтаксисе языка.. например :
FOR i:=0 to 10 do
begin
//действие
end;
то что между бегин и енд будет выполнено 10 раз.. потомцчто цикл указан.. уфф ну ето основы паскаля, дельфи, фаск-скрипт, пакетхак..
кароч задавай вопрос лучше развернуто..

[marslem]

о,Ворон,давненько не появлялся...

[something]

Написал скрипт на заточку, все настроено на очень продолжительную работу,т.е идет закупка точек и смена оружия, но через некоторое время в верии lhx 75 возникает ошибка List index out of bounds (4999), а 82 почти сразу же зависает. хроники - Грация. ItemsID последний. В чем может быть проблема никто не подскажет?