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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 13.05.2009, 19:10   #1
Пользователь
 
Регистрация: 22.04.2009
Сообщений: 72
Сказал Спасибо: 25
Имеет 19 спасибок в 9 сообщенях
Lynx пока неопределено
Сообщение Маг-Пловец

delphi Код:
{Скрипт для плаванья магом до берега по прямой. Инструкция 1)Выделете себя 2)Включите скрипт 3)Тыкните мышкой, в какую сторону плыть Маг будет плыть и хилить себя. Остановится, когда выйдет из воды. } const Al=0 //Со скриптом Alexsl изменить на 1 var hp, myid,d:integer; dd:string; timer1:ttimer; procedure Init; //Вызывается при включении скрипта begin hp:=725; // чтобы сразу не хилил timer1:=TTimer.Create(nil); timer1.OnTimer:=@OnTimer; // timer1.enabled:=false; // timer1.interval:=3000; // end; procedure Free; //Вызывается при выключении скрипта begin  timer1.free; end; procedure OnTimer(Sender: TObject); begin                    //Плывём дальше после хила.  buf:=dd;   SendToServer;  timer1.enabled:=false; end; begin if FromServer and (pck[1]=#$04) then myid:=readd(18); if FromServer and (pck[1]=#$0E) then begin  if (myid=ReadD(2))and (pck[10]=#$9)and (ReadD(14)<250)and (timer1.enabled=false)then begin  //если hp<250   buf:=hstr('2F F3 03 00 00 00 00 00 00 00');            //хил    SendToServer;   timer1.enabled:=true;  end; end; if FromServer and (pck[1]=#$6D)  Then begin // Если вышли из воды, buf:=hstr('04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  00'); //Выбераем себя WriteD(myid,2); SendToServer; if  d=1 Then begin buf:=dd;   SendToServer; end; if (pck[6]=#$0) Then begin   buf:=hstr('2F F3 03 00 00 00 00 00 00 00');         //хилимся   SendToServer;   d:=Al;   end; end; if FromClient and (pck[1]=#$01) then dd:=pck;       //Сохраняем направление end.

Можно использовать вместе в бродилкой Alexsl
http://coderx.ru/showthread.php?t=354

Последний раз редактировалось Lynx, 14.05.2009 в 14:20. Причина: Улучшил
Lynx вне форума   Ответить с цитированием
За это сообщение Lynx нажился 2 спасибками от:
Ответ

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


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

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

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


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

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

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