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

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

где я ошибся?

[dmitry501]

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

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

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

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

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

Жесть....
И это работает?

[QaK]

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

lQaKl если можешь напиши

примерно так

var SocialID,Status:integer;
      Timer1:TTimer;

procedure Init;
begin
Status:=1;
Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=@OnTimer1;
Timer1.enabled:=false;
Timer1.interval:=15000; //интервал таймера в милисекундах (задать свой).
end;

procedure Free;
begin Timer1.Free;
end;

procedure OnTimer1(Sender: TObject);
begin UseItem(Scrl);
         RequesEnchantItem(Wpn);
         inc(Status);
end;

begin
if fromserver and pck='' then exit; //не обрабатываем пакеты нулевой длины
if fromserver and (status<>0) then pck:=''; //глушим пакеты от сервака, если точим
if FromClient and (pck[1]=#$1B) then
    begin
      SocialID:=ReadD(2);
      case SocialID of
      6:begin Status:=1;
                  Timer1.Enabled:=true;//начали точить
         end;
      5:begin Status:=0;
                  Timer1.Enabled:=false;//закончили точить
        end;
    end;
end;

Вотьэто не готовый скрипт, это просто часть, которую надо добавить к основному. Скрипт для С4. Начало - социалДА, конец - социалНет.

[NLObP]

Сообщение от Нг

Как сделать так, чтобы можно было с помощью скрипта на рыбалку рыбачить в 2 окна, т.е. чтобы 2 перса рыбачили.

Найди мой скрипт на рыбалку в теме "Д будет бот", он как раз подойдет.

[Dr.XoR]

возможно ли реализовать скриптик, который открывал бы нужными ключами из рюкзака Treasure Box, если тот находится в определенном радиусе от персонажа? :)

[QaK]

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

возможно ли реализовать скриптик, который открывал бы нужными ключами из рюкзака Treasure Box, если тот находится в определенном радиусе от персонажа?

Возможно.

[jew]

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

[NLObP]

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

следование одного чара за другим

Это организуется двойным таргетом на чаре, как в клиенте. И кот станет ходить за хозяином.

Attacker - ObjectID хозяина
MyXpos, MyYpos, MyZpos - координаты кота

//***********************************************
//04=Action:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ)b(ShiftFlag)
procedure Target(Attacker: Integer);
begin
  buf:=#$04;
  WriteD(Attacker);
  WriteD(MyXpos);
  WriteD(MyYpos);
  WriteD(MyZpos);
  WriteC(00);
  SendToServerEx(Name);
end;

//********************************
procedure TargetAttacker(Attacker: Integer);
begin
  Target(Attacker);
  delay(1000);
  Target(Attacker);
end;

[jew]

Ага, с этим более менее разобрался.
А ритмичное тыканье раз в секунду в Хозяина на протяжении длительного времени не вызовет вопросы при подозрении и проверке чара на бота?

Добавлено через 11 минут
Кстати) обнаружил еще один забавный нюанс такого способа "цепляния к хозяину". Если чар паравоз флагнутый, то ассистент начинает колотить ведомого палкой)))))))

[NLObP]

Достаточно два раза кликнуть и он будет бегать. Это ведь по типу атаковать чара. Вот он поэтому и атакует флагнутого. =)

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

[jew]

Вот в перспективе я и хотел попытаться сделать что то вроде предложенного второго варианта, посмотрел, в FS вроде есть что то вроде генератора случайных чисел,(procedure Randomize, function Random: Extended)
вот с его помощью можно задавать задержку реакции ассистента, а так же немного рандомно изменять координаты на которые пошел паравоз. Если постараться и помучатся с настройкой, то на бота будет очень не похоже....
К сожалению пока моих знаний языка не достаточно для реализации подобного скрипта)