[dyh9l]

По примеру NLObP у меня вроде получилось, но т.к., это быдлокод, вобщем попробуй

const
    name = '~VIP~Dunyaxa' ; //name 
    
var
    ObjectIDtarget:integer;  
    
procedure Action;
    begin
    if (ReadD(2)=ObjectIDtarget) then pck[18]:=#$01;
    ObjectIDtarget:=ReadD(2); 
    end;                     
    
procedure Attack;
    begin
    if (ReadD(2)=ObjectIDtarget) then pck:='';
    end;
        
begin  
    if (connectname=name) and (fromclient) then
        case pck[1] of
        #$04: Action;
        #$0A: Attack;
        end;               
end.

Добавлено через 10 минут
Короче, 2 екшена вызывают атаку, но если блочить екшены, брать он их больше не будет) т.е. походу, все таки надо как то убивать екшен если цель на таргете)