l2phx и примеры скриптов!
Сама прога:
[HIDE="25"]http://depositfiles.com/ru/files/887254[/HIDE] [HIDE="25"]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. [/HIDE] Добавлено через 5 минут скрипт на бота хилера: [HIDE="25"]const FirstUser = 'voin'; // SecondUser = 'lekar'; // maxRad = 200; // minRad = 70; ugol = 40; // var CharObjID1,CharObjID2,ax,ay,az,bx,by,bz,i: integer; dx,dy,dz,dr: integer; da: extended; Sel, initOk: boolean; procedure Init; begin Sel:=False; initOk:=False; CharObjID1:=0; CharObjID2:=0; bx:=0; by:=0; bz:=0; buf:=HStr('4A 00 00 00 00 0A 00 00 00 00 00'); WriteS(начало инициализации скрипта); SendToClientEx(FirstUser); end; procedure pre; begin if (dx=0) then dx:=1; dr:=round(random*(maxRad-minRad))+minRad; da:=ArcTan(dy/dx)+(random-0.5)*pi/180*ugol; if dx>0 then da:=da+pi; dx:=round(dr*cos(da))+ax; dy:=round(dr*sin(da))+ay; dz:=az; buf:=#$01; WriteD(dx); WriteD(dy); WriteD(dz); WriteD(bx); WriteD(by); WriteD(bz-$20); WriteD(1); SendToServer; end; procedure Go; begin if (CharObjID1<>0)and(CharObjID2<>0)and(not initOk) {and((ax<>0)or(ay<>0)or(az<>0))} and((bx<>0)or(by<>0)or(bz<>0)) then begin buf:=HStr('4A 00 00 00 00 0A 00 00 00 00 00'); WriteS(инициализации скрипта окончена); SendToClientEx(FirstUser); initOk:=True; end; end; begin if FromServer then case pck[1] of #$04: if (ConnectName=FirstUser) then begin CharObjID1:=ReadD(18); Go; end else if (ConnectName=SecondUser) then begin CharObjID2:=ReadD(18); Go; end; #$01: if (ConnectName=SecondUser) then if (ReadD(2)=CharObjID1)and(initOk) then begin i:=6; ax:=ReadD(i); ay:=ReadD(i); az:=ReadD(i); dx:=ax-bx; dy:=ay-by; if sqrt(dx*dx+dy*dy)>maxRad then pre; end else if (ReadD(2)=CharObjID2) then begin i:=6; bx:=ReadD(i); by:=ReadD(i); bz:=ReadD(i); Go; end; #$2A: if (ConnectName=SecondUser)and(ReadD(2)=CharObjID2)an d(initOk) then begin Sel:=False; end; end; if FromClient and (ConnectName=FirstUser) and (pck=HStr('1b04000000'))and(initOk) then begin if (not Sel) then begin buf:=#$04; WriteD(CharObjID1); WriteD(ax); WriteD(ay); WriteD(az); WriteC(0); SendToServerEx(SecondUser); Sel:=True; end; pck:=''; buf:=#$2f; WriteD(1217); // id скила Greater Heal WriteD(0); WriteC(0); SendToServerEx(SecondUser); end; end [/HIDE] |
Ответ: l2phx и примеры скриптов!
Poison_Net
А теперь идем читать правила про обсуждение хайдов. |
Текущее время: 20:23. Часовой пояс GMT +3. |
Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot