[TAMBIK]

// Автоматический поиск PK поблизости. Если PK игрок находится рядом с вами, то можно:
// Автоматически взять его в цель и/или вывести сообщение в чат
// Команды для управления скриптом (все они вводятся в чат):
// Включить автоматическое взятие PK в цель - %pk_target 1
// Выключить автоматическое взятие PK в цель - %pk_target 0
// Включить уведомление в чат при обнаружении поблизости PK - %pk_msg 1
// Выключить уведомление в чат при обнаружении поблизости PK - %pk_msg 0
// Автор: Furious
// Версия: 0.1

var
ObjectID, Karma, Target, Message, i: Integer;
Name, Cvar: String;

procedure SendMsg(Msg:string);
  begin
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');
    WriteS(Msg);
    SendToClient;
  end;

[b]procedure TargetPK(ObjectID: Integer);
  begin
    buf:=#$04;
    WriteD(ObjectID);
    SendToServer;
  end;

begin
  if FromServer and (pck[1]=#$03) then
    begin
      i:=18;
      ObjectID:=ReadD(i);
      Name:=ReadS(i);
      Karma:=ReadD(i+60);
      if (Karma>0) then
        begin
          if Message=1 then SendMsg('PK с ником '+Name+' находится поблизости!');
          if Target=1 then TargetPK(ObjectID);
        end;
      end;[/b]
  if FromClient and (pck[1]=#$38) then
    begin
      Cvar:=ReadS(2);
      case Cvar of
        'pk_target 1':
          begin
            Target:=1;
            SendMsg('Автоматическое взятие PK в цель включено!');
          end;
        'pk_target 0':
          begin
            Target:=0;
            SendMsg('Автоматическое взятие PK в цель выключено!');
          end;
        'pk_msg 1':
          begin
            Message:=1;
            SendMsg('Вывод сообщения в чат при обнаружении PK включено!');
          end;
        'pk_msg 0':
          begin
            Message:=0;
            SendMsg('Вывод сообщения в чат при обнаружении PK выключено!');
          end;
      end;
    end;
end.

из скрипта использовать .Автотаргент

Добавлено через 32 минуты

// будет блокироваться пакет( 24) от сервера сброс таргента
begin

if FromServer and (pck[1]=#$24) then pck:='';
end.