Тема: Изучение
Показать сообщение отдельно
Старый 21.06.2011, 01:13   #4
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Deffol, вот для примера

delphi Код:
//by 6yDDucT, modified NLObP //автоматическое использование НР пробирок // 1-Изменяем Leader='NLObP'; // 2-в конце скрипта изменить кол-во ХП при котором начнется пьянка. // 3-бросаем и подбираем Heal Potion или выпиваем const     Leader='NLObP'; var MyID:Word;     OID:String;     timerHP: TTimer; //все сообщения ботов в чате патилидера //видны только нам procedure Say(msg:string); begin   //buf:=#$4A#0#0#0#0;   buf:=hstr('4A 00 00 00 00');   WriteD(2);   WriteS(ConnectName);   WriteS(msg);   SendToClientEx(Leader); end; procedure OnTimerHP(Sender: TObject); begin      buf:=#$14+OID+#$00#$00#$00#$00;      SendToServerEx(Leader); end; //****************************************************************************** //                 Вызывается при включении скрипта //****************************************************************************** procedure Init; begin     timerHP:=TTimer.Create(nil);     timerHP.OnTimer:=@OnTimerHP; //     timerHP.enabled:=false; //     timerHP.interval:=15000; //время отката лечения end; //****************************************************************************** //                 Вызывается при выключении скрипта //****************************************************************************** procedure Free; begin      timerHP.Free; end; //****************************************************************************** //       Вызывается при приходе каждого пакета, если скрипт включен //****************************************************************************** begin  if FromServer and (pck[1]=#$27) and (ReadD(12)=1061) then begin //1061 - idItem'a который мы хотим юзать, в данном случае Healing Potion    OID:=pck[8]+pck[9]+pck[10]+pck[11];    //Say('Ok');  end;  if FromServer and (pck[1]=#$27) and (ReadD(12)=1060) then begin //1061 - idItem'a который мы хотим юзать, в данном случае Lesser Healing Potion    OID:=pck[8]+pck[9]+pck[10]+pck[11];    //Say('Ok');  end;  if FromServer and (pck[1]=#$04) then  MyID:=ReadD(18);  if FromServer and (pck[1]=#$0e) and (ReadD(2)=MyID) then   if ReadD(6)=4 then    if (ReadD(14)<=1600) then begin  //400 - кол-во ХП при котором начнется пьянка.       TimerHP.enabled:=true; //      buf:=#$14+OID+#$00#$00#$00#$00; //      SendToServerEx(Leader);       end       else TimerHP.enabled:=false; end.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от: