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

[SeregaZ]

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

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

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

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


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


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

[NLObP]

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

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

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

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

[supernewbie]

Сообщение от 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.

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

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

[J-Fobos]

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

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

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

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

[SeregaZ]

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

по замыслу таймер включится только для одного окна. правильно ли будет применен следующий код в 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 минуту
такм. ну критовало критовало... но вроде наладилось. инит неправильный получился но в целом вроде пока пашет. посмотрим. но все равно хотелось бы глобальных переменных для разных скриптов

[SeregaZ]

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

[SeregaZ]

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

хотя нет. седня уже не глючит. вчера глючило

[SeregaZ]

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

PHP код:

               strcount:= pck[it1+4]+pck[it2+4]+pck[it3+4]+pck[it4+4];
               balance:=StrToInt(strcount);
               buf:=#$4A;
               WriteD(0);
               WriteD(10);
               WriteS('');
               WriteS('баланс составляет: '+ IntToStr(balance));
               SendToClientEx(Spoil); 


[supernewbie]

SeregaZ, ничего не понятно
что ты вообще сделать то пытаешься?)