Здравствуйте, программисты. Я ищу очень простой скрипт. Так как сам не могу ни в чем разобраться, попрошу помощи, т.к. чувствую, что этот скрипт очень простой, и наверняка все его делали под себя.
Прошу вашей помощи, если у кого-то завалялся этот скрипт, или что-то подобное, поделитесь.
Итак, это скрипт - чтобы чуваки (пп, ше, бд) ходили за моим дестром, и кидали ему баф каждые 20 минут. На хилера я скрипт нашел, только еще бы привязать к нему функцию кидать баф ВАМП.
В общем, нужен скрипт, который тупо бафает каждые 20 минут орка, и бежит за ним.
Заранее благодарю.
Скрипт на ХИЛЕРА (не пробовал, нашел в интернете)
Код HTML:
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.