// 'target_attacker.sc' Версия скрипта для WP PPC
// Автоматическое взятие в таргет атакующего вас игрока или моба

// 'target_attacker.sc' Автоматическое взятие в таргет атакующего вас игрока или моба
// Версия скрипта для WP PPC
// Чтобы включить скрипт используйте в игре социальное действие - Yes
// Чтобы выключить скрипт используйте в игре социальное действие - No
// Автор: Furious Версия: 0.4
// переделал под PPC Sauron.

if _gAbsNumPkt = 1 then begin
CharID := 0;
ObjectID := 0;
SocialID := 0;
Status := 0;
Attacker := 0;
end;

procedure TargetAttacker(Attacker);
begin
buf:= HPck('04',5); // '07 00' + '04 00 00 00 00'
pInt(buf,Attacker,4,4); // '07 00 04 xx xx xx xx' xx = attaker
gSys('EnSendS',buf); // пошлем пакетик.
end;

if _gFromServ and (copy(_gBuff,3,1) = #4) then if (length(_gBuff) >= 20+4) then CharID := gInt(_gBuff,20,4);

if (not _gFromServ) and (_gBUff[3] = #$1B) then begin
SocialID := gInt(_gBuff,4,4);
case SocialID of
6: Status := 1;
5: Status := 0;
end;
writelog('статус: ',status);
end;

if (Status = 1) then begin
c := copy(_gBuff,3,1);
if _gFromServ and ((c = #$48) or (c = #$05)) then begin
Attacker := gInt(_gBuff,4,4); // кто атакует
ObjectID := gInt(_gBuff,8,4); // кого атакует
end;
if (Attacker <> ObjectID) and (CharID = ObjectID) then TargetAttacker(Attacker); // таргет на наглеца.
end;