Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
 
 
Опции темы Опции просмотра
Старый 21.07.2015, 17:21   #1
Новичок
 
Регистрация: 21.07.2015
Сообщений: 7
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
gh0sst пока неопределено
Лампочка ИЩУ СКРИПТ САМЫЙ ПРОСТОЙ

Здравствуйте, программисты. Я ищу очень простой скрипт. Так как сам не могу ни в чем разобраться, попрошу помощи, т.к. чувствую, что этот скрипт очень простой, и наверняка все его делали под себя.
Прошу вашей помощи, если у кого-то завалялся этот скрипт, или что-то подобное, поделитесь.
Итак, это скрипт - чтобы чуваки (пп, ше, бд) ходили за моим дестром, и кидали ему баф каждые 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.

Последний раз редактировалось gh0sst, 21.07.2015 в 17:23.
gh0sst вне форума   Ответить с цитированием
 

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 19:17.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!