[Скрипт] "Антимираж"

[vlaha]

Собственно,название говорит само за себя: скрипт возвращает таргет на игрока,если он сбился.
Используется против ТХ\Неких магов (аура флеш) и\или на серверах по типу мультипрофы,где каждый бегает с миражом.Делал под IT.

//Скрипт "Антимираж" 
Var
  actionPck: string;
  myObjID: integer;
  myName: string;
  i: integer;
  oid: integer;
  id: integer;
  procedure TextToChat(text: string);
begin
    //4A=Say2:d(ObjectID)d(textType:Get.Func02)s(charName)s(Message)
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');
    WriteS(text);
    SendToClient;
end; 
procedure Init; //Вызывается при включении скрипта
begin   
    actionPck:= '';
    myObjID:= 0;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
   if FromClient and (pck[1] = #$04) then//Action 
    begin
        actionPck:= pck;
        
    end;
    if FromServer and (pck[1] = #$04) then//UserInfo 
    begin
        //04=UserInfo:d(X)d(Y)d(Z)d(Heading)d(ObjectID)s(Name) ....
        i:= 18;
        myObjID:= ReadD(i);
        myName:= ReadS(i);
    end;   
    if FromServer and (pck[1] = #$2A) and (actionPck <> '') and (myObjID > 0) then 
    begin
        //2A=TargetUnselected:d(TargetID)d(X)d(Y)d(Z)d(d)
        i:= 2;
        oid:= ReadD(i);
        if oid = myObjID then 
        begin    
            pck:= '';//обнуляем пакет чтобы он не дошел клиенту
            buf:= actionPck;
            SendToServer;
        end;
    end;    
    if FromServer and (pck[1] = #$64) and (actionPck <> '') and (myObjID > 0) then 
    begin
        //64=SystemMessage:d(MsgID:Get.MsgID)d(typesCount)
        i:= 2;
        id:= ReadD(i);
        if id = $32 then 
        begin    
            buf:= actionPck;
            SendToServer;
            end;
    end;
  end.
end.

После запуска скрипта нужно релогнуться.
Был написан под заказ каким-то профи с coderx.ru