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

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

где я ошибся?

[Breadfan]

Хроники Камаель
Столкнулся с тем что команда в пакете RequestBypassToServer все время разная, и передается в предыдущем пакете от сервера NpcHtmlInfo. Вот сваял процедуру запоминающую содержимое и количество этих команд.

const
name='';
var
kolvocmd,j,x:integer;                  //-kolvocmd- итоговое количество команд  j,x- вспомогательные переменные
CmdNpc:array[1..50] of string;         //массив с командами, 50 - взято с большим запасом
                     // у телепортеров обычно примерно всего 20 команд
findt,oldpck:string;                   //вспомогательные переменные
//---------------------
procedure SendMsg(msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(Name);
end;
//---------------------
procedure CmdNpcParc;
Begin
kolvocmd:=0;
for j:=1 to 50 do begin                 // предварительная очистка массива
CmdNpc[j]:='';
end;

for j:=1 to length(oldpck) do  begin    //  побуквенная проверка строки oldpck
    for x:=0 to 9 do begin
        findt:=findt+oldpck[j+x];
    end;
    if findt='bypass -h ' then begin
       for x:=10 to 25 do begin
           CmdNpc[kolvocmd+1]:=CmdNpc[kolvocmd+1]+oldpck[j+x];
       end;
       kolvocmd:=kolvocmd+1;
    end;
    findt:='';
end;
end;
//---------------------------------
begin
if fromserver and (pck[1]=#$19) then
   begin                                          //  в процедуру передается содержимое пакета NpcHtmlInfo
        oldpck:=ReadS(6);
        CmdNpcParc;
        SendMsg('Количество- '+inttostr(kolvocmd));
           for j:=1 to kolvocmd do begin
              SendMsg(inttostr(j)+'ая- '+CmdNpc[j]);
           end;
   end;
end.

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

[Time Trasher]

знаю, что уже обсуждалось, но немогу никак найти подскажите как убить пакет от сервера к клиенту

[QaK]

if FromServer then pck:='';

[Breadfan]

Как определяется игровое время, это время указанное на карте или показываемое командой /time ?

[Breadfan]

Возник вопрос: делал ли кто нибуть скрипт, для ассистента-"сливателя" (слив дестров)? Принцип: команда в чат -> атака пишушего -> анализ остатка хп ->если меньше X то дважды кликнуть по самому себе (остановить атаку). Может кто выложит наработки?

[VORON]

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

Возник вопрос: делал ли кто нибуть скрипт, для ассистента-"сливателя" (слив дестров)? Принцип: команда в чат -> атака пишушего -> анализ остатка хп ->если меньше X то дважды кликнуть по самому себе (остановить атаку). Может кто выложит наработки?

учитывая то что етот вопрос задан в етой теме ( а не в "ДАА БУДЕТ БОТ") отвечу так.. я имею порядка 30-40 хз их сколько скриптов разных для всех случаев жизни.. самые основные их них я выложил в тему "ДА БУДЕТ БОТ" далее чтоб набросать скрипт вроде твоего я просто беру создаю новый скрипт.. полностью чистый.. и вствляю в него процедуры которые мне пригодятся в новом скрипте.. типа конструктора.. для твоего скрипта нужно определить ИД всех участников (всех или тока одного, пох есть отдельные кусочки кода которые делают ето), запомнить координаты у всех (для етого тоже масса процедурок в готовых скриптах моих.. и не тока моих) , потом нужно туда добавить процедуру котороая за таргетом следит (тоже все готово) , потом нужно что выполнять команды при нажатии на кнопку и останавливать ее при нажатии на другую кнопку...
вапще написание скрипта как я понял блоковое занятие.. и что интересно каждый из наиболее применяющихся скриптов- для работы требует одних и тех же блоков..
сам принцип таков:
при запуске скрипта ниче не делать.. но растопырев уши скрипт слушает трафик и выбирает из него нужную информацию для дольнейшей работы.. как тока вся необходимая информация для работы скрипта собрана из трафика то можно начинать ее пользоваться с помощью процедур и таймеров..
в данной смысле я имею ввиду не полновесную процедуру- обработчик, а условие IF
с помощью IF в линяге мы можем отреагировать на событие в игре.. даже на такое которого не видно на екране (порой).. реакция от скрипта будет вполне адекватной.. за рамки правил- вылезти нельзя!.. некоторые моменты обойти можно.. например..
"у вас 10 окон расставлены как артилерия на поле.. хаотично или по порядку.. вы можете с етих окон сделать РЕДИРЕКТ ИНФЫ на основного чара об том где кто ково видет.. и на основном чаре ты станеш видеть всё поле! прикинь! и ето реально сделать! город на осаде окружить трупами- хотябы 3-4 чарами.. и редирект сделать!
и ты станеш виедеть за 3 километра всех кто там в замке- бегает... жесть"
вопщем твой скрипт собрать из готовых кусочков некуй делать

[Breadfan]

Согласен.

Может кто выложит наработки?

- была надежда что мб кто поделится пока я на работе чтож буду писать

А по поводу темы

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

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

[VORON]

"у вас 10 окон расставлены как артилерия на поле.. хаотично или по порядку.. вы можете с етих окон сделать РЕДИРЕКТ ИНФЫ на основного чара об том где кто ково видет.. и на основном чаре ты станеш видеть всё поле! прикинь! и ето реально сделать! город на осаде окружить трупами- хотябы 3-4 чарами.. и редирект сделать!
и ты станеш виедеть за 3 километра всех кто там в замке- бегает... жесть"

сам свою мысль продолжу.. таково еще я неделал но думаю ето несложно.. думаю хорошобы 4 трупа вокруг замка вплотную к стене уложить и сних инфу РЕДИРЕКТИТЬ на основного чара.. а еще думаю во время осады сделать РЕНЕЙМ НИКОВ ВАРОВ.. те налету на основном чаре переделывать ник (либо подпись) в что то типа ПРОФА,ШМОТ, и возможно состояние- типа УД.. удобно было бы.. видиш толпу мясо на осаде а в подписях у всех профа написана.. и буква означающая А или Б или Ы сет.. сразу видно кто папко а кто нет.. имхо удобно..
также думаю было бы неплохо какнибудь автоматизировать процес выделения в таргет варов.. ну не автоматически конечно но хотябы както.. лично у меня большая проблема во время осады с тем что в толпе мяса где вары со своими в перемешку- таргет взять врага.. думаю можно над бошкой стрелочку рисовать которая укажет направление откуда по тебе нанесли удар.. а также в дополнение к етому запрограмировать какоето социальное действие на то чтобы взять в таргет того кто по тебе нанес удар- последним.. если по тебе сразу 2-3 бьют то стрелочка над головой будет крутиться и показывать направление последнего удара.. и при желании нажав на социальное действия тот кто бил последним возьмется в таргет.. думаю ето удобно было бы.. также думаю что еще необходимо выделить както тех кто по тебе стреляет.. типа их НИК или подпись переделывать в что то типа "!!АХТУНГ!!" и плюс к етому состояние ПК вешать на него чтоб ник красным был , чтоб он в толпе не потерялся.. на него укажет и стрелочка и ник будет изменен и прижелании нажав кнопку- выделится в таргет
щаз ету мысль в топе "ДА БУДЕТ БОТ ОТПИШУ".. она там уместней..

[Mithras]

хочу сдлать скрипт, который будет заменять имя в пакете 0x32(UserInfo)
Собственно идея в том, чтобы заставить l2contlol видеть другой ник чара. Не уверен пока что что это вообще возможно...

Вот кусочек кода:

if(FromServer)and(pck[1]=#$32)and(CharName=ReadS($16)) then
begin
buf:=copy(pck,1,$16-1);
WriteS(NewName);
delete(pck,1,$16+l{типа длина ника в байтах}-1);
buf:=buf+pck;
pck:='';
SendToClient;
end;

Вообщем он вообще не выполняется, но и ошибок ни каких не выдает, не могу въехать почему...

[QaK]

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

Вообщем он вообще не выполняется, но и ошибок ни каких не выдает, не могу въехать почему..

Объясни практичность данных действий? Чего ты хочешь достичь, изменяя имя чара, все равно на серваке ничего не поменяется.

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

l{типа длина ника в байтах}

сюда чего поставил? (Length(CharName)+1)*2 ?