Цитата:
Сообщение от jew
следование одного чара за другим
|
Это организуется двойным таргетом на чаре, как в клиенте. И кот станет ходить за хозяином.
Attacker - ObjectID хозяина
MyXpos, MyYpos, MyZpos - координаты кота
delphi Код:
//***********************************************
//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;