Рейтинг@Mail.ru
AutoHurricane - Форум atms
Главная Мой профиль Регистрация Выход Вход
- Пятница, 05:51:1
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Скриптинг L2PHX "Lineage C4" (Давно заброшенный раздел) » Скрипты L2PHX "для хроник С4" » AutoHurricane
AutoHurricane
ПользовательДата: Вторник, 01 Января 2013, 23:25 | Сообщение # 1
Некто
Группа: Обычный пользователь
Сообщений: 141
Репутация: 19
Статус: Нет на форме
Для Spellhowler.
Если вам лень жать на скилл Hurricane при убиении мобов то скрипт для вас.
При выделении моба скрипт начинает жать на скилл хурика, когда моб убит то скрипт снимает таргет и перестает тыкать на хурик.

Код

//Автор ATMS_DIFKS
var  Tim01: TTimer;
name:string;
ida,idb,atr,MP:integer;

procedure SendMsc(msc:string);   
begin   
buf:=#$4A;   
WriteD(0);   
WriteD(2); //тип сообщения 1 шаут 2 приват 10 аноним обьявление и тд
WriteS(''); //ник от кого
WriteS(msc);   
SendToClientEX(name);   
end;

procedure Init; //Вызывается при включении скрипта
begin
name := '****';
   Tim01:=TTimer.Create(nil);
   Tim01.OnTimer:=@OnTim011;
   Tim01.interval:=300;
   Tim01.enabled:=false;
end;

procedure OnTim011;
begin
if mp > 150 then begin buf:=hstr('2F D7 04 00 00 00 00 00 00 00');  SendToServerEX(name); end;
end;

procedure Free; //Вызывается при выключении скрипта
begin
    Tim01.free;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

     
   if FromClient and (pck[1]=#$04) and (ConnectName=name) then
   begin             
   ida := ReadD(2);
      Tim01.enabled:=true;
   end;
     
    if FromServer and (pck[1]=#$06) and (ConnectName=name) then
   begin             
   idb := ReadD(2);
     if ida = idb then begin Tim01.enabled:=false; buf:=hstr('37 01 00');  SendToServerEX(name); end;
   end;     
     
    if FromClient and (pck[1]=#$37) and (ConnectName=name) then
   begin             
      Tim01.enabled:=false;
   end;     
     
     if FromServer and (pck[1]=#$0E) and (ConnectName=name) then
   begin             
   atr := ReadD(6);
     if atr = 2 then begin MP := ReadD(14); if mp < 150 then begin  {SendMsc('Мало МР');}  end; end;
   end;
end.


Да хранит вас Ctrl+S.
Да убережет вас Alt+F4 от порнобанера.
Админь...
 
Форум » Скриптинг L2PHX "Lineage C4" (Давно заброшенный раздел) » Скрипты L2PHX "для хроник С4" » AutoHurricane
  • Страница 1 из 1
  • 1
Поиск:

atms 2009 © 2021