Рейтинг темы:
  • 0 Голос(ов) - 0 в среднем
  • 1
  • 2
  • 3
  • 4
  • 5
l2phx и примеры скриптов!
#1
Сама прога:

[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(msgConfusedtring);
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]
Ответ
#2
Poison_Net
А теперь идем читать правила про обсуждение хайдов.
Я не прав? Докажите это тут или тут
* Интересная тема * для новичков *
Ответ


Возможно похожие темы ...
Тема Автор Ответы Просмотры Последний пост
  L2phx 3.18 lldemol 1 2,791 11-11-2009, 07:05 PM
Последний пост: DrumBlood
  l2phx 3.1.9 areal 1 4,656 10-21-2009, 03:23 PM
Последний пост: glow
  L2Phx 3.4.1.61 nolife 1 6,564 05-03-2009, 07:33 AM
Последний пост: YK_Sirius

Перейти к форуму:


Пользователи, просматривающие эту тему: 1 Гость(ей)