Скрипт Автотаргет для Грации

[Imperial2008]

Очень нужен скрипт на автотаргет атакующего тебя игрока для грации финал! Знаю что в программе есть функция, но я не понял как ею пользоваться. Не судите строго) Подскажите плиз такой скрипт)

[NLObP]

Проверь этот скрипт
program autotarget;
// Автоматическое взятие в таргет атакующего вас игрока или моба
// Чтобы включить скрипт используйте в игре социальное действие - Yes
// Чтобы выключить скрипт используйте в игре социальное действие - No
// Автор: Furious
// Версия: 0.4
// Для Грации by NLObP 09.08.2009г.

const
Name='NLObP'; //имя чара, с соблюдением регистра букв

var
Attacker, MyOID, ObjectID, MyX, MyY, MyZ, i: Integer;
Status: boolean;

procedure Init; //Вызывается при включении скрипта
begin
status:=false;
end;

procedure TargetAttacker(Attacker: Integer);
begin
//c1F=Action:d(ObjectID)d(OriginX)d(OriginY)d(Origin Z)c(ActionID)
buf:=#$1F;
WriteD(Attacker);
WriteD(MyX);
WriteD(MyY);
WriteD(MyZ);
WriteC(00);
SendToServerEx(Name);
end;

//************************************************** ****************************
//основная часть скрипта, вызывается при приходе каждого пакета, если скрипт включен
begin
//не обрабатываем пустые пакеты
if pck='' then exit;

if (ConnectName=Name) and FromServer then
begin
case pck[1] of
//32=UserInfo:d(X)d(Y)d(Z)d(isInAirShip)d(ObjectID). ..
#$32: begin
i:=2;
MyX:=ReadD(i);
MyY:=ReadD(i);
MyZ:=ReadD(i);
ReadD(i); //пропускаем isInAirShip
MyOID:=ReadD(i);
end;
//33=Attack:d(AttackerID)d(TargetID)...
//48=MagicSkillUse:d(CharID)d(TargetID)...
#$33,#$48: begin
if Status then
begin
Attacker:=ReadD(2);
ObjectID:=ReadD(6);
if (Attacker<>ObjectID) and (MyOID=ObjectID) then TargetAttacker(Attacker);
end;
end;
end; //case
end; //if

if (ConnectName=Name) and FromClient then
begin
case pck[1] of
//34=RequestSocialAction:d(Action:Get.Func09)
#$34: begin
case ReadD(2) of
5: Status:=false;
6: Status:=true;
end;
end;
//59=ValidatePosition:d(X)d(Y)d(Z)...
#$59: begin
MyX:=ReadD(2); //получаю координату х моего чара
MyY:=ReadD(6); //получаю координату у моего чара
MyZ:=ReadD(10); //получаю координату z моего чара
end;
end; //case
end; //if
end.

[TAMBIK]

наверно это надо
if (ConnectName=Name) and fromserver then
begin
case pck[1] of
перед этим
//48=MagicSkillUse:d(CharID)d(TargetID)...
#$33,#$48: begin
if Status then

[Imperial2008]

Проверь этот скрипт


Не всегда (почему-то) но работает) Все равно от тамбика я ничего не понял) СПС!

[TAMBIK]

накалякал тож
АВТО ТАРГЕТ+РАДАР+АТАКА (http://coderx.ru/showthread.php?t=2123)

[Imperial2008]

накалякал тож
АВТО ТАРГЕТ+РАДАР+АТАКА (http://coderx.ru/showthread.php?t=2123)

Спасибо канечно, но вот на грации финале сие чудо не работает, у меня, по крайней мере)

[TAMBIK]

по идеи должен

SendMsg2('для ВКЛ соцдействие ДА');
SendMsg2('для ОТКЛ соцдействие НЕТ');

[Imperial2008]

по идеи должен

SendMsg2('для ВКЛ соцдействие ДА');
SendMsg2('для ОТКЛ соцдействие НЕТ');

Ну я ж не даун чтоб не прочитать твои комменты) понятно что я нажимал но ничего не происходило) потестю еще на парочке серверов)

[TAMBIK]

а что ты ожидал ?
когда те бьют автоматом берет в таргет и мочит.
поставил чара и пшел курить нападут если он ответит
для воинов.
радар направление откуда атака

[Imperial2008]

а что ты ожидал ?
когда те бьют автоматом берет в таргет и мочит.
поставил чара и пшел курить нападут если он ответит
для воинов.
радар направление откуда атака

Вот этого и не происходило! Кроме того у тебя в скрипте должен месейдж писаться когда вкл и выкл скрипт...это не происходит!

[Sashafaq]

PS глупый вопрос какие пакеты поменять чтобы на ил шло?