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

[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(OriginZ)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]

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

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

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

[TAMBIK]

накалякал тож
АВТО ТАРГЕТ+РАДАР+АТАКА

[Imperial2008]

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

накалякал тож
АВТО ТАРГЕТ+РАДАР+АТАКА

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

[TAMBIK]

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

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

[Imperial2008]

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

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

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

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

[TAMBIK]

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

[Imperial2008]

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

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

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