Jump to content

Recommended Posts

Posted

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.

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock