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

//Автор ATMS_DIFKS
var
  name,soul:string;   
  id,id2,id3,ac,ac2,hpid,hp,PHP,mhpid,mhp,prhp,sa,idsa,idup: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:='*****';    
     PHP:=30; //если НР меньше % юзать СА
     sa:=0;  
     SendMsc('клик по sa что бы запомнить его id');  
end;

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

end;

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

  if FromClient and (pck[1]=#$04) and (ConnectName = name) then id := ReadD(2);  
   
        if FromServer and (pck[1]=#$0E) and (ConnectName = name) then    
        begin
        id2 := ReadD(2);
        if id2 = id then
        begin
          ac := ReadD(6);
           if ac = 1 then
           begin
              hpid:= ReadD(10);
              if hpid = 9 then
              begin
               hp := ReadD(14);   
               prhp:=(hp*100) div mhp;  
                if prhp < php then
                begin
                   if sa = 1 then  
                    begin
                       buf:=#$14;  
                       WriteD(idsa);  
                       WriteD(0);         
                       SendToServerEX(name);
                    end;
                end;    
              end;  
           end;
        end;
        end;     
         
        if FromServer and (pck[1]=#$0E) and (ConnectName = name) then    
        begin
        id3 := ReadD(2);
        if id3 = id then
        begin      
           ac2 := ReadD(6);
           if ac2 = 2 then
           begin  
              mhpid := ReadD(10);
               if mhpid = 10 then
               begin
                 mhp := ReadD(14);  
                 hpid := ReadD(18);
                  if hpid = 9 then
                  begin
                  hp := ReadD(22);  
                   prhp:=(hp*100) div mhp;  
                  if prhp < php then   
                  begin
                    if sa = 1 then  
                    begin
                       buf:=#$14;  
                       WriteD(idsa);  
                       WriteD(0);         
                       SendToServerEX(name);
                    end;
                  end;
                  end;  
               end;
            
           end;
        end;  
        end;   
         
        if FromClient and (pck[1]=#$14) and (ConnectName = name) then
        begin
         if sa = 0 then begin idsa := ReadD(2); sa:=1;    SendMsc('готово');   end;
        end;
         
         if FromServer and (pck[1]=#$27) and (ConnectName = name) then    
        begin             
          idup:=ReadD(42);
          if (idup = 4631) or (idup = 4651) then
          begin
            idsa := ReadD(38);  
             SendMsc('ID SA кристала обновлен');
          end;
        end;
         
end.


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

atms 2009 © 2024