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

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

где я ошибся?

[mks]

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

Привет всем. А можно сделать так как будто сеть зависла? :lol:
тоесть я делаю так: нажимаю на модеме стэндби и делаю действия в игре, потом снова в онлайн и перс выполняет их.
Т.е. пакеты гдето буферились а потом стопкой улетали?
спс

да, есть такая маза, только пока не вижу в ней смысла....
если есть интересные предложения как это использовать, можно написать скриптик....

[alxabay]

есть идеи? :)
пытался просто записать команды в 1 пакет ну нет такова эффекта как с кнопкой модема.
Отловил хлапексом там все действия улетают подряд не ожидая сервер потом ответ от серва прилетел. Как повторить это вообще можно этой прогой или более низкий нада перехват сетки?

[VORON]

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

Добавлено спустя 25 минут 37 секунд:
Re:

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

Есть пакет npcinfo начинающийся на 16 потом идет обж ид (как я понял pck[2-5])а за ним номер НПС (как я понял pck[6-9])...
я делаю так
var
a:string
if (FromServer) and (pck[1]=#$16) then begin
дальше нужно получить из шестнадцатиричного десятичное число - номер нпc и присвоить строке, как это сделать?
есть идея ...но не знаю верна ли - a:=inttostr(ReadD(6));

и еще вопрос - подскажите код чтобы при target присвоить переменной номер нпc (не обжект,а npcid вроде)

я перевожу из 16 в 10 так:
пример рабочий из самописнаго скрипта.. применяю для мониторинга ХП и МП..:
/*************************СЛЕДИМ ЗА ХП******************************************
//следим за ХП
if FromServer and (pck[1]=#$0e) and (ConnectName = NameKom) then
if (pck[2] + pck[3] + pck[4] + pck[5] = IDKomandos) and (pck[6]=#$04) then
begin
//СОБСТВЕННО ЕТО И ЕСТЬ КОЛ-ВО ХП В ФОРМАТЕ ИНИГЕР ПЕРЕВОД в 10 из 16
CurHPKom:=(ord(pck[15]) * 256 + ord(pck[14]));

//если ХП меньше 70% от шкалы то ХП ЛЬЁТ БАФЕР
if (CurHPKom < round(MaxHPKom*0.7)) then
if (tick1 = 1) then
begin
buf:=hstr('04') + IDKomandos + Bot1X + Bot1Y + Bot1Z + hstr('00');
SendToServerEX(NameBot1);
buf:=hstr('2F C1 04 00 00 00 00 00 00 00');
SendToServerEX(NameBot1);
delay(500);
buf:=hstr('04') + IDKomandos + Bot1X + Bot1Y + Bot1Z + hstr('00');
SendToServerEX(NameBot1);
end;

Добавлено спустя 10 минут 34 секунды:
а вот если 4-х байтный стринг содержащий закодированое число может принимать отрицателььное значение то немного сложней.. яделаю так:
CentrKachXex:= ord(CentrKachX[3])*256*256 + ord(CentrKachX[2]) * 256 + ord(CentrKachX[1]);
CentrKachYex:= ord(CentrKachY[3])*256*256 + ord(CentrKachY[2]) * 256 + ord(CentrKachY[1]);
if (CentrKachX[4] = #$FF) then CentrKachXex:=16777215-CentrKachXex;
if (CentrKachY[4] = #$FF) then CentrKachYex:=16777215-CentrKachYex;

4-й байт указатель на минус..
хранить такие числа надо в формате ЕКСЕНДИТ- ето 8-ми байтный интегер учитывающий минус. с ним можно выполнять все функции придуманные для ИНТЕГЕРА.. + - / *
жэлаю удачи

функцию INTTOSTR(xx) применять собственно тут нельзя.. для понимания надо понимать-) о как загнул.. стринговый пакет - что ето?? ето не 16-тиричные числа а набор символов.. ето для простоты визуализации он в 16 системе мониторится.. а так как он имеет формат стринг- значит он в памяти хранится в виде "G@KKK(*&%#45GJKhdмсадвыр7:%;%:@" что то типа таково.. поетому работать с ним с использованием INTTOSTR- нельзя..
жэлаю удачи

[alxabay]

voron раскажи плз поподробнее как их килить?
if FromClient and (pck[1]=#$xx) - тут я правильно? дальше не янаю как их кил:) пжалуста

[VORON]

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

voron раскажи плз поподробнее как их килить?
if FromClient and (pck[1]=#$xx) - тут я правильно? дальше не янаю как их кил:) пжалуста

гы-) ну прочитал бы топ ДА БУДЕТ БОТ и всё понял бы.. но я тя понимаю.. ето лень- она всему виной- я сам- лентяй..
для убийства пакета в основной блок (который срабатывает при приходе каждого пакета) вставляеш такую фишку:

pck:='';

весь трафик при етом заблокируется..
но нам надо не ето. нам надо временно заблокировать запомнить действия и потом их выложить.. поетому надо все PCK- запоминать в стринговый массив.. и при етом PCK:=''; использовать с условием что пакет- исходящий а не вхходящий... при етом- жэлательно пакет НЕТПИНГ- пропускать- иначе дисконект будет.. потом при нажатии на соц действие- активируем таймер.. с маленбькой задержкой.. етот таймер каждый тик- будет отсылать очередной пакет серверу из сохраненнго массива..
жэлаю удачи

[alxabay]

мне надо эти действия в скрипте затормозить

procedure RR(scrl,wp: integer);
begin
buf:=HStr('33 01 00 00 00 1F 00 00 00'); //zato4ka na 31 slot
WriteD(scrl);
buf:=buf+HStr('01 00 00 00'); //zakrili perenos na panel
SendToServer;

buf:=#$14;      //activ zato4ku
WriteD(scrl);
WriteD(0);
SendToServerEx(Name);
buf:=#$58;        //vesh vibrali
WriteD(wp);
SendToServerEx(Name);
buf:=#$14;        //activ zato4ku tuje samuu
WriteD(scrl);
WriteD(0);
WriteD(wp);
SendToServerEx(Name);
end;

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

[VORON]

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

скрипт ТОРМОЗИТЬ НЕ МОЖЕТ. офлайн- послать нельзя!

[alxabay]

вообщем дело такое:
> - от клиента ; < - от сервера

для всех случеев Вынесли на панель заточку

1) - без модема
>активировали заточку
<от сервера чтото прилетело не важное
>выбор веши (сама заточка)
<resultat

2) - с модемом
>активировали заточку
<от сервера чтото прилетело не важное
+модем выключел (стэндби)
>выбор веши (и ок)
>активировали заточку
>выбор веши (просто ок)
+модем включил (онлине)
<resultat (приходит 2 раза как будто точил 2 раза)
п.с. пуха точится 2 раза 1 точкой
Хотелось бы автаматизировать:) ну думаю такие бг гденибудь еще проявятся

[VORON]

alxabay, сори но я неумею работать с инвентарем еслиб умел бы помог.. сложность скрипта твоего в том чтоб узнать ИД всех заточек которые хранятся у тебя в инвенторе.. многие люди ето делали уже не раз.. например когда делали скрипт на то чтоб БАНКА с ХП выпивалась когда надо.. а я вот ето делать неумеюю.. такчто сори.. я несмагу помоч.

[alxabay]

VORON id как заточки так и вещи известны за основу я юзаю скрипт заточки каторый работает на ура.
но вот как бы вот так передать серверу это два раза скриптом:(