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

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