Кружок нубов(Вопрос-Ответ) - Страница 185

DeVolf · 05.10.2007, 22:00

//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.

где я ошибся?

SeregaZ · 29.12.2011, 18:52

манор сдаем?

читорррррр! а не... не так... фуриец! убить фурийца!!! (с) хроники риддика

PHP код:


			
вар
 объявление таймера
 переменная А

процедура таймера
 отправка пакета
конец процедуры таймера

процедура инит
 описание таймера
 переменная A = 0 
конец процедуры инит

процедура фри
 отключение таймера
 переменная А = 0
конец процедуры фри

обработка всех пакетов

 если приходит тот пакет и переменная A = 0 то
   старт таймера
   переменная А = 1
 end;

 если пришло подтверждение о сдачи манора
   то отключение таймера
   переменная А = 0
 end;

конец обработки всех пакетов

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

ах да! нужна еще одна переменная, которая сохранит весь пакет и передаст его таймеру. ну это уж сам добавь

SeregaZ · 08.01.2012, 06:25

теперь у меня вопрос

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

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

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

как быть?

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

supernewbie · 08.01.2012, 15:44

SeregaZ, а слать пакеты второму окну через SendToServerEx не катит?

NLObP · 08.01.2012, 17:57

Цитата:

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

помню был хелп онлайновый к л2пх... который умер и ссылка не пашет.

Ты про этот хелп?

SeregaZ · 08.01.2012, 19:07

Цитата:

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

SeregaZ, а слать пакеты второму окну через SendToServerEx не катит?

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

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

теперь боюсь на спойлера заходить

схему перерисовал. так чтоб более понятно было.

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

J-Fobos · 09.01.2012, 01:58

Для всех соединений один скрипт. Проблема решается очень просто. Вот пример:

Код:

var
fas: boolean;

Procedure Init;
begin
fas:=false;
end;

begin

if (FromClient) and (ConnectName='первое окно') and (pck=HStr('тут типа пакет написания в чат слова _фас_')) then 
begin
fas:=true;
pck:='';
end;

if (FromClient) and (ConnectName='второе окно') and (fas) then 
begin
fas:=false;
//ботик бежит и кусает все что движется :)
end;

end.

SeregaZ · 09.01.2012, 04:53

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

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

по замыслу таймер включится только для одного окна. правильно ли будет применен следующий код в Init'e?:

PHP код:


			
procedure Init; //Вызывается при включении скрипта
begin
  if (ConnectName=Damager) 
  then begin
     Timer01:=TTimer.Create(nil);
     Timer01.OnTimer:=@OnTimer01;
     Timer01.enabled:=true;
     Timer01.interval:=500;
     timera:=1;
  end;
end;

Добавлено через 2 часа 21 минуту
такм. ну критовало критовало... но вроде наладилось. инит неправильный получился

но в целом вроде пока пашет. посмотрим. но все равно хотелось бы глобальных переменных для разных скриптов

supernewbie · 09.01.2012, 14:13

Цитата:

Сообщение от J-Fobos

Для всех соединений один скрипт. Проблема решается очень просто. Вот пример:

Код:

var
fas: boolean;

Procedure Init;
begin
fas:=false;
end;

begin

if (FromClient) and (ConnectName='первое окно') and (pck=HStr('тут типа пакет написания в чат слова _фас_')) then 
begin
fas:=true;
pck:='';
end;

if (FromClient) and (ConnectName='второе окно') and (fas) then 
begin
fas:=false;
//ботик бежит и кусает все что движется :)
end;

end.

дык это ещё должен придти от второго окна пакет на сервер чтобы проверилось условие
не проще ли че-нить типо

delphi Код:

if FromClient and (ConnectName='первое окно') and (pck=HStr('тут типа пакет написания в чат слова _фас_')) then 
begin
pck:='';
SendToServerEx(HStr('тут типа пакет атаки или че там надо'),'второе окно');
end;

SeregaZ · 09.01.2012, 20:26

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

за пример синтаксиса SendToServerEx с двумя переменными спасибо. не знал что так можно

(хелп по командам не читал... ну балбес балбес признаю)

J-Fobos · 09.01.2012, 23:42

Цитата:

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

дык это ещё должен придти от второго окна пакет на сервер чтобы проверилось условие
не проще ли че-нить типо

delphi Код:

if FromClient and (ConnectName='первое окно') and (pck=HStr('тут типа пакет написания в чат слова _фас_')) then 
begin
pck:='';
SendToServerEx(HStr('тут типа пакет атаки или че там надо'),'второе окно');
end;

Это должен был быть мой следующий пример

Я собирался его написать когда поймут первый алгоритм