about anti-target script

[xDunno]

i try  run that anti-target script but its not working somebody know why?

 

{È òàê óïðàâëåíèå - íàæèìàåò Social Yes, ñèñòåìà çàïóùåíà, íî åùå íå ïîäêëþ÷åíû ìîäóëè... Ïîäêëþ÷àåì òå êîòîðûå íàì íóæíû...

 

ïèøåì â ÏÀÒÈ ×ÀÒ:

 

ò+ / ò- - Âêëþ÷åíèå/Âûåëþ÷åíèå ÀÂÒÎ àíòèòàðãåòà - òàðãåò ñáðàñûâåòñÿ êîãäà âàñ ÁÅÐÓÒ ÍÀ ÒÀÐÃÅÒ, òîåñòü îí ïûòàåòñÿ âûäåëèòü, à âû ñáðàñûâàåòå!

 

ì+ / ì- , ï+ / ï- - äîïîëíèòåëüíàÿ ìàãè÷åñêàÿ è ôèçè÷åñêàÿ çàùèòà, íåïîìíþ óæå ñàì êàê ðàáîòàåò (äà ó ìåíÿ è íå ðàáîòàåò, èççà ëàãó÷åñòè èíåòà) íî çíàêîìûé ãîâîðèò, åñëè âêëþ÷èòü èõ â ïàðå, òî ñáèâàåò êàñò êîãäà ïûòàþòñÿ êàñòàíóòü íà âàñ çàêëèíàíèå, è "è÷åçàåò" ïðÿìî âî âðåìÿ ôèçè÷åñêîé àòàêè íà âàñ...

 

õ+ / õ- - óõîä â õàéä ïîñëå êàæäîé ñâîåé ôèçè÷åñêîé àòàêè

 

Òàì åñòü åùå òàêàÿ øòóêåíöèÿ, ÷òî ïîñëå õàéäà, ïðåäûäóùèé òàðãåò âûáåðåòñÿ àâòîìàòîì (ýòîãî íå âèäíî â êëèåíòå íî îí âûäåëèòñÿ, ïðîòåñòèòå íà ìîáàõ)

 

Social Bow / Social Unaware - èñ÷åçíóòü è ïîÿâèòñÿ, íó ýòî êóñîê ñêðèïòà ÕÈÍÒÀ íà åãî àíòèòàðãåò.}

 

var act:integer; me1:char; me2:char; me3:char; me4:char; nm:integer; t1:char; t2:char; t3:char; t4:char; nt:integer; shade:integer; mz:integer; pz:integer; tz:integer; hz:integer;

 

procedure SendMsg(msg:string);

begin

buf:=#$4A;

WriteD(0);

WriteD(10);

WriteS('');

WriteS(msg);

SendToClient;

end;

 

begin

 

 

//àíàëèç ÈÄ ñåáÿ

 

if nm<>1 then

begin

if FromServer and (pck[1]=#$04) then

begin

me1:=pck[18];

me2:=pck[19];

me3:=pck[20];

me4:=pck[21];

nm:= 1;

end;

end;

 

 

//çàùèòíàÿ ÷àñòü

 

if FromClient and (pck[1]=#$1B) and (pck[2]=#$06) then

begin

act:=1;

SendMsg('AT system on');

end;

 

if FromClient and (pck[1]=#$1B) and (pck[2]=#$05) then

begin

act:=0;

SendMsg('AT system off');

end;

 

if FromClient and (pck=#$38#$3C#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then

begin

mz:=1;

SendMsg('Advanced m.def on')

end;

 

if FromClient and (pck=#$38#$3C#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then

begin

mz:=0;

SendMsg('Advanced m.def off')

end;

 

if FromClient and (pck=#$38#$3F#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then

begin

pz:=1;

SendMsg('Advanced p.def on')

end;

 

if FromClient and (pck=#$38#$3F#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then

begin

pz:=0;

SendMsg('Advanced p.def off')

end;

 

if FromClient and (pck=#$38#$42#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then

begin

tz:=1;

SendMsg('Anti-target on')

end;

 

if FromClient and (pck=#$38#$42#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then

begin

tz:=0;

SendMsg('Anti-target off')

end;

 

if FromClient and (pck=#$38#$45#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then

begin

hz:=1;

SendMsg('Hit"n"Hide on')

end;

 

if FromClient and (pck=#$38#$45#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then

begin

hz:=0;

SendMsg('Hit"n"Hide off')

end;

 

if FromClient and (pck[1]=#$1B) and (pck[2]=#$03) then

begin

buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;

SendToServer;

end;

 

if act=1 then

begin

 

if tz=1 then

begin

if FromServer and (pck[1]=#$29) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then

begin

buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;

SendToServer;

end;

end;

 

if mz=1 then

begin

if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then

begin

buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;

SendToServer;

end;

end;

 

if pz=1 then

begin

if FromServer and (pck[1]=#$05) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then

begin

buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;

SendToServer;

end;

end;

 

if hz=1 then

begin

if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then

begin

buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;

SendToServer;

end;

end;

 

end;

 

 

//÷àñòü òàðãåòà

 

if FromClient and (pck[1]=#$04) then

begin

nt:=1;

t1:=pck[2];

t2:=pck[3];

t3:=pck[4];

t4:=pck[5];

end;

 

if FromClient and (pck[1]=#$37) then

begin

nt:=0;

end;

 

if nt=1 then

begin

if FromClient and (pck[1]=#$30) then

begin

buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00;

SendToServer;

buf:=#$A6+t1+t2+t3+t4+#$00#$00;

SendToClient;

end;

end;

 

if FromClient and (pck[1]=#$1B) and (pck[2]=#$04) then

begin

buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00;

SendToServer;

buf:=#$A6+t1+t2+t3+t4+#$00#$00;

SendToClient;

end;

 

//shadowmelt

 

if FromClient and (pck[1]=#$1B) and (pck[2]=#$07) then

begin

shade:=1;

buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00;

SendToServer;

SendMsg('Skipped to Shadows');

end;

 

if FromClient and (pck[1]=#$1B) and (pck[2]=#$08) then

begin

shade:=0;

buf:=#$30#$00#$00;

SendToServer;

SendMsg('Reveal from Darkness');

end;

 

if shade = 1 then

begin

if FromClient and (pck[1]=#$30) then pck:='';

end;

 

end.

 

[shmeq]

why the hell is it called english section?