Автозаточка, просто и сердито!

[mks]

Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт,
включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку.
1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...

>>>1-й скрипт от mks

const
   nik='xxxx';
   Enchant=13;

var
   UseItem, EnchantItem: string;
   Count, CurrentEnch: integer;
   Timer01: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   buf:=UseItem;
   SendToServerEx(nik);
   buf:=EnchantItem;
   SendToServerEx(nik);
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
end;

begin
    if FromServer and (pck[1]=#$87) then
       begin
          CurrentEnch:=ReadD(2);
          if CurrentEnch=Enchant then Timer01.enabled:=false;
       end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck=#$34#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

<<<

Переделал для тех у кого 1й скрипт работает, но не останавливается заточив до указанного уровня:

>>>2-й скрипт от mks

const
   nik='xxxx';
   Enchant=30;

var
   UseItem, EnchantItem: string;
   Count, CurrentEnch: integer;
   Timer01: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
   buf:=UseItem;
   SendToServerEx(nik);
   buf:=EnchantItem;
   SendToServerEx(nik);
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
       2: CurrentEnch:=0;
       end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck=#$34#$02#$00#$00#$00) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

<<<


Переделал слегка для Грации Файнал.
Холява закончилась, если выставляешь интервал заточки меньше чем 2100мс получаешь авто-бан(возможно не везде так)

>>>3-й скрипт от mks

const
   nik='xxxx';
   Enchant=16;

var
   UseItem, SelectItem, EnchantItem: string;
   Count, CurrentEnch, key, ItemID: integer;
   Timer01: TTimer;


procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=2100;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      1: begin
         buf:=UseItem;
         SendToServerEx(nik);
         buf:=SelectItem;
         SendToServerEx(nik);
         end;
      2: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         end;
   end;
end;

procedure Free;
begin
  Timer01.free;
  count:=0;
  CurrentEnch:=0;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
       3: CurrentEnch:=0;
       end;
    if FromServer and (pck[1]=#$FE) then
       if ReadD(4)=ItemID then key:=2 else key:=1;

    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then
       begin
       ItemID:=ReadD(4);
       SelectItem:=pck;
       end;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck[1]+pck[2]=#$56#$0C) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

<<<

для Грации Файнал.
4-й скрипт от mks
добавлен 2й таймер

[DrBro]

mks, Спасибо за скриптик очень полезный! тока у меня на серваке напряг с блесками, а твой скриптик новую пуху с рюкзака не берет если сломает первую серв финал

[mks]

Сообщение от DrBro

mks, Спасибо за скриптик очень полезный! тока у меня на серваке напряг с блесками, а твой скриптик новую пуху с рюкзака не берет если сломает первую серв финал

Нет, в том-то его и простота, если дописывать что б пуху брал из рюгзака он слегка увеличится, может на досуге допишу....

[HORSE]

сходи пивка попей на досуге лучше=))ты и так много сделал)))

[DrBro]

mks, Был бы оченень признателен


HORSE, нефиГГ агитировать к пьянству ценные кадры форума!все правильно: досуг надо проводить с пользой для общества)

[dev]

Ответ сервера (Megal2.ru) - 3 пакета:

1.Tип: 0x21 (InventoryUpdate): Кол-во оставшихся заточек

21 01 00 02 00 04 00 D6 4E 04 10 B2 19 00 00 0B 00 00 00 24 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

2.Tип: 0x21 (InventoryUpdate): Информация о затачиваемом предмете, с текущим уровнем заточки

21 01 00 02 00 01 00 56 2D 0B 10 D7 24 00 00 0C 00 00 00 01 00 00 00 01 00 00 00 01 00 00 10 00 00 05 00 00 00 00 00 00 00 FF FF FF FF FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

3.Tип: 0x87 (EnchantResult): Текущий уровень заточки предмета

87 05 00 00 00 05 00 00 00 05 00 00 00

Вопрос:
Ранее для остановки скрипта можно было зацепиться за 0x87, проверить по 0012 d (id предмета), теперь вместо 0012 d отдаёт 000С d (id предмета).

Скрипт выдаёт ошибку:

PHP код:

const
Name='******';   
var  
timer:TTimer;  
x:byte; //ii?aaaeaiea, eaeiaa aaenoaea ii n?aoo iu niaa?oaai  

procedure Init;  
begin  
timer:=TTimer.Create(nil);  
timer.interval:=150;  
timer.OnTimer:=@fireTimer;  
timer.enabled:=true;  
x:=1;//nia?aea o=1  
end;  

procedure Free;  
begin  
timer.Free;  
end;  

procedure fireTimer(Sender: TObject);  
begin  
case x of  
1:begin  
     buf:=hstr('5F 48 65 BF 19 00 00 00 00 ');  
     SendToServerEx(Name);  
     inc(x);  
   end;  
2:begin  
     buf:=hstr('5F 48 65 BF 19 00 00 00 00 ');  
     SendToServerEx(Name);  
     x:=1;  
   end;  
end;{case}
end;

//кусок ниже ты получается влепил в таймер, пришлось расставить еще пару end; и begin;
begin
if FromServer then  
  begin  
    case pck[1] of  
      #$21: begin //InventoryUpdate  
        if (ReadD(0C)=9456) and (ReadD(34)=5) then timer.enabled:=false;;
      end;  
end;
end;
end. 


Забавно то, что при составлении пакета id вещи показывается в 0012 d, но когда пакет приходит с сервера - пх показывает id в 000С d.

В связи с чем скрипт точит не останавливаясь, пока не заканчиваются заточки.

[+] Если установить таймер менее чем на 2500 - вещь временами ломается на +4, при том, что на сервере +4 безопасно.

[HORSE]

Сообщение от dev

Ответ сервера (Megal2.ru) - 3 пакета:

1.Tип: 0x21 (InventoryUpdate): Кол-во оставшихся заточек

21 01 00 02 00 04 00 D6 4E 04 10 B2 19 00 00 0B 00 00 00 24 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

2.Tип: 0x21 (InventoryUpdate): Информация о затачиваемом предмете, с текущим уровнем заточки

21 01 00 02 00 01 00 56 2D 0B 10 D7 24 00 00 0C 00 00 00 01 00 00 00 01 00 00 00 01 00 00 10 00 00 05 00 00 00 00 00 00 00 FF FF FF FF FE FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

3.Tип: 0x87 (EnchantResult): Текущий уровень заточки предмета

87 05 00 00 00 05 00 00 00 05 00 00 00

Вопрос:
Ранее для остановки скрипта можно было зацепиться за 0x87, проверить по 0012 d (id предмета), теперь вместо 0012 d отдаёт 000С d (id предмета).

Скрипт выдаёт ошибку:

PHP код:

const
Name='******';   
var  
timer:TTimer;  
x:byte; //ii?aaaeaiea, eaeiaa aaenoaea ii n?aoo iu niaa?oaai  

procedure Init;  
begin  
timer:=TTimer.Create(nil);  
timer.interval:=150;  
timer.OnTimer:=@fireTimer;  
timer.enabled:=true;  
x:=1;//nia?aea o=1  
end;  

procedure Free;  
begin  
timer.Free;  
end;  

procedure fireTimer(Sender: TObject);  
begin  
case x of  
1:begin  
     buf:=hstr('5F 48 65 BF 19 00 00 00 00 ');  
     SendToServerEx(Name);  
     inc(x);  
   end;  
2:begin  
     buf:=hstr('5F 48 65 BF 19 00 00 00 00 ');  
     SendToServerEx(Name);  
     x:=1;  
   end;  
end;{case}
end;

//кусок ниже ты получается влепил в таймер, пришлось расставить еще пару end; и begin;
begin
if FromServer then  
  begin  
    case pck[1] of  
      #$21: begin //InventoryUpdate  
        if (ReadD(0C)=9456) and (ReadD(34)=5) then timer.enabled:=false;;
      end;  
end;
end;
end. 


Забавно то, что при составлении пакета id вещи показывается в 0012 d, но когда пакет приходит с сервера - пх показывает id в 000С d.

В связи с чем скрипт точит не останавливаясь, пока не заканчиваются заточки.

[+] Если установить таймер менее чем на 2500 - вещь временами ломается на +4, при том, что на сервере +4 безопасно.

На МЕГЕ безопасная +3..это во первых...во вторых если я ставлю таймер выше 150 - скрипт не успевает ловить уровень заточик и перетачивает...в третьих - не правильно устанавливаешь ID вещи...теость ты точнул вещь - тебе должен прийти пакет от сервера где будет написано лвл точки, и вещь...там ясно написано ID вещи...скрипт пашет у меня и у моих друзей...но есть какие то немнонятный проблемки...но у меня всё отлично....
Вот выложы мой скрипт со своими данными...и я скажу в чем у тя проблема...

[NLObP]

Сообщение от dev

теперь вместо 0012 d отдаёт 000С d (id предмета)

Почитай пр системы счисления: двоичная, десятичная, шестнадцатеричная.
12 в десятичной - это 0С в шестнадцатеричной системе счисления.
PS: загляни в настройки пакетхака, там есть переключатель.

[dev]

2 NLObP: Сори за тупняк... Ну не вышел из меня программист, учился на дизигнера

2 HORSE: Давно скрипт проверял на работоспособность?)

PHP код:

//Объявление переменных
const
    Name='dev'; //Имя чара   
var  
timer:TTimer; //Инициация таймера  
x:byte; //Стартовое значение как я понимаю

procedure Init; //Вызывается при включении скрипта 
begin  
    timer:=TTimer.Create(nil); //Создаётся объект таймера
    timer.interval:=150; //Присваиваем значение параметру интервала 
    timer.OnTimer:=@fireTimer; //Вызов процедуры
    timer.enabled:=true; //По умолчанию на момент начала работы скрипта таймер активен 
    x:=1; //Стартовое значение как я понимаю, вот только не пойму... (x:byte; / x:=1;) Что есть что?)
end;  

procedure Free; //Вызывается при выключении скрипта 
begin  
    timer.Free; //Кукожим таймер чтоли?) 
end;  

procedure fireTimer(Sender: TObject); //...  
begin  
    case x of  
        1:begin  
            //buf:=hstr('5F EC 4C 0B 10 00 00 00 00 '); //Пакет юза энча на нужный предмет
            //Однако В данном случае будут приходить пакеты ошибочного действия
            buf:=hstr('19 D6 4E 04 10 00 00 00 00 '); //Пакет юза энча
            SendToServerEx(Name);  
            inc(x);  
        end;  
        2:begin  
            buf:=hstr('5F EC 4C 0B 10 00 00 00 00 '); //Пакет юза энча на нужный предмет 
            SendToServerEx(Name);  
            x:=1;  
        end;  
end;{case} //Что значит "{case}"?
end;

// Проверка состояния предмета (я взялся точить след. предмет: Серьга Династии (ID:9455))
begin
if FromServer then  
  begin  
    case pck[1] of  
      #$21: begin //InventoryUpdate  
        if (ReadD(12)=9455) and (ReadD(34)=5) then timer.enabled:=false;; //12 - ID, 34 - уровень энча
      end;  
end;
end;
end.


// Скрипт не видит конца и продолжает точить, даже если условия (+5) выполнены.
// Пакетов типа 0x21 приходит 2:
// 1 - оставшиеся энчи
// 2 - состояние предмета
// Была мысль, что проблема кроется тут. 


Оффтоп

PS по дефолту в конфах быдлоявы энч на +4 безопасен
PS в процессе мануальной заточки ниже 4 не ломалось

thx, NLObP, HORSE.

[HORSE]

Скриптом точил вчера...всё пашет...
Вот мой скрипт

const
Name='HORSE'; //сюда свой ник    
var  
timer:TTimer;  
x:byte; 

procedure Init;  
begin  
timer:=TTimer.Create(nil);  
timer.interval:=120; //скорость точки
timer.OnTimer:=@fireTimer;  
timer.enabled:=true;  
x:=1;
end;  

procedure Free;  
begin  
timer.Free;  
end;  

procedure fireTimer(Sender: TObject);  
begin  
case x of  
1:begin  
     buf:=hstr('19 38 97 03 10 00 00 00 00'); //пакет активации точки
     SendToServerEx(Name);  
     inc(x);  
   end;  
2:begin  
     buf:=hstr('5F C7 99 01 10 00 00 00 00'); //пакет заточки вещи
     SendToServerEx(Name);  
     x:=1;  
   end;  
end;{case}
end;

begin
if FromServer then  
  begin  
    case pck[1] of  
      #$21: begin //InventoryUpdate  
        if (ReadD(12)=9426)// ID вещи
 and (ReadD(34)=9)// предел заточки 
then timer.enabled:=false;;
      end;  
end;
end;
end.

Конечно бывает хлапа зависает...но это оч редко...главное всё правильно вписать и ждать счастья...ЗЫ: не советую наймер ниже 150 ставить - опасно для вещи (может переточить)...

[dev]

const
    characterName='dev';
    itemID=9428; // InventoryUpdate
    enchant=9;
    speed=250;
    
var  
    timer:TTimer;  
    x:byte;

procedure Init;  
    begin  
        timer:=TTimer.Create(nil);  
        timer.interval:=speed;
        timer.OnTimer:=@fireTimer;  
        timer.enabled:=true;  
        x:=1;
    end;

procedure Free;  
    begin  
        timer.Free;  
    end; 

procedure fireTimer(Sender: TObject);  
    begin  
        case x of  
            1:begin  
                buf:=hstr('19 C6 64 D4 10 00 00 00 00'); // UseItem
                SendToServerEx(characterName);  
                inc(x);  
            end;  
            2:begin  
                buf:=hstr('5F FD BC 02 10 00 00 00 00'); // RequestEnchantItem
                SendToServerEx(characterName);  
                x:=1;  
            end;  
        end;{case}
    end;

begin
    if FromServer then  
        begin  
            case pck[1] of  
                #$21: begin // InventoryUpdate
                    if (ReadD(12)=itemID) and (ReadD(34)=Enchant) then timer.enabled:=false;
                end;  
            end;
        end;
end.

Ядро от mks.
Модификация ядра от HORSE.
Конечный продукт от dev.

Enjoy.