//**********************************************
//        
//        - Yes
//        - No
//**********************************************
var
Attacker, CharID, ObjectID, SocialID, Status: Integer;

procedure TargetAttacker(Attacker: Integer);
  begin
   buf:=#$04;
   WriteD(Attacker);
   SendToServer;
  end;

begin
  if FromServer and (pck[1]=#$04) then
    CharID:=ReadD(18);
  if FromClient and (pck[1]=#$1B) then
    begin
      SocialID:=ReadD(2);
      case SocialID of
      6:Status:=1;
      5:Status:=0;
      end;
    end;
  if Status=1 then
    begin 
      if FromServer and ((pck[1]=#$48) or (pck[1]=#$05)) then
        begin
          Attacker:=ReadD(2);
          ObjectID:=ReadD(6);
        end;
        if (Attacker<>ObjectID) and (CharID=ObjectID) then TargetAttacker(Attacker);
    end;
end.
