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

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[Glollin]

я сделал такой скрипт сейчас увидел эту тему вот только пару раз покупаю 95 Д шмоток, бю их на кристы всё, опять покупаю, бю... и гдето после 3-7 раза такого повторения отваливаеться коиент

[ratvier]

Скрипт на кристаллизацию есть на форуме, фпоезг

[NLObP]

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

и гдето после 3-7 раза такого повторения отваливаеться коиент

Скорее всего это ответ:

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

Просто он не хочет всё усложнять различными проверками

[cepreu]

итак начну по -порядкусорь если тупые вопросы, потому что в языках не шарю, но нужен хелп)
1)сделать цикл скрипта бесконечным
2) как сделать, чтобы после выхода клиента главным был L2phx
то есть понимаю, что надо послать самому себе пакет на логофф и включить функцию , а как скрипт написать незнаю =(
напишите пример плз,что бы понять как правильно внедрить эту функцию
ув.Xkor упоминал про нее, но не написал формы, как сделать
3) как выглядет скрипт для того, чтобы при приходе пакета начинающегося на, допустим b0, начинал работать скрипт, который мог выделить интересующие меня цифры, для дальнейшей работы с ними
xx xx xx xx xx xx xx xx xx.... допустим эти. плз скажите, как , я думаю это не трудно просто не могу въехать, сорри мне просто лучше на примерах =*(
пока всё, заране спс

[QaK]

cepreu, кури топ "Да будет бот" - там туева хонна примеров.

[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 так?)

[marslem]

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

[cepreu]

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