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

[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й таймер

[HORSE]

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

HORSE, у тебя перед end. нехватает end; одного

PHP код:

const 
Name='HORSE';  
var 
timer:TTimer; 
x:byte; //определение, какоде действие по счету мы совершаем 

procedure Init; 
begin 
timer:=TTimer.Create(nil); 
timer.interval:=150; 
timer.OnTimer:=@fireTimer; 
timer.enabled:=true; 
x:=1;//сначала х=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} 

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


Всё равно выделяет end.
Пишет:- Ошибка:';' expected...
Ииии...мне всё равно кажеться в скрипте напортачил....

Добавлено через 1 минуту

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

if (pck[12]=ID_предмета) and (pck[34]=уровень заточки) then что_хотим_сделать;

(pck[34]=уровень заточки)
Вот меня интерисует этот момент...в каком виде писать уровень заточки:обычным числом, в байтах,пакетом???

[alexteam]

Почитай содержимое PacketsT1.ini для начала особенно коментарии в начале. и это.
ибо pck[12] это byte
а id предмета и уровень его заточки это word т.е. 4 байта.

[HORSE]

типа мне неправильно написал NLObP ???
Я что то не вдуплю...я ваще тупой епта=(((

[vovanchikst]

Вот мой лог. Я уже говорил у меня точится выше заданного числа. http://depositfiles.com/files/ave148o1v
//nlobp:пишите хроники и на сколько точили, а то непонятно.

[mks]

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

типа мне неправильно написал NLObP ???
Я что то не вдуплю...я ваще тупой епта=(((

я думаю это просто была очепятка со стороны NLObP
имелось в виду:
if (ReadD(12)=ID_предмета) and (ReadD(34)=уровень заточки) then что_хотим_сделать;
а да, ID предмета и уровень заточки тут писать в десятичном виде (как обычные люди считают)

const
Name='HORSE';   
var  
timer:TTimer;  
x:byte; //îïðåäåëåíèå, êàêîäå äåéñòâèå ïî ñ÷åòó ìû ñîâåðøàåì  

procedure Init;  
begin  
timer:=TTimer.Create(nil);  
timer.interval:=150;  
timer.OnTimer:=@fireTimer;  
timer.enabled:=true;  
x:=1;//ñíà÷àëà õ=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(12)=9456) and (ReadD(34)=5) then timer.enabled:=false;;
      end;  
end;
end;
end.

ЗЫ в алгоритм твоего скрипта не вникал, поправил синтаксис

[NLObP]

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

я думаю это просто была очепятка со стороны NLObP
имелось в виду:
if (ReadD(12)=ID_предмета) and (ReadD(34)=уровень заточки) then что_хотим_сделать;
а да, ID предмета и уровень заточки тут писать в десятичном виде (как обычные люди считают

Точно! Это я ступил малость.

[mks]

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

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.

[NLObP]

vovanchikst, твой лог очень похож на мой сервак (java Грация), для которого делал скрипт.

Последовательность пакетов, в основном такая

1. c0x19 (UseItem) - выбор свитка
2. s0x62 (SystemMessage)
3. s0x7C (ChooseInventoryItem)
4. c0x5F (RequestEnchantItem) - выбор оружия
5. s0x62 (SystemMessage)
6. s0x87 (EnchantResult) - результат улучшения
7. s 0x11 (ItemList)

Тип: 0x87 (EnchantResult)
Размер: 13+2
Время прихода: 20:02:42:625
0002 d  Result: 2 (0x00000002), где 0 - прошла заточка, 2 - сбросило в 0

[mks]

vovanchikst, на 2мегабайта лог)
последний скрипт у тебя должен нормально работать

[HORSE]

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

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

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.

У меня твой скрипт теперь точно не видит конца...раньше он с раза второго понимал до скольки точить, а этот точит пока точки не кончаться...

Добавлено через 11 минут

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

я думаю это просто была очепятка со стороны NLObP
имелось в виду:
if (ReadD(12)=ID_предмета) and (ReadD(34)=уровень заточки) then что_хотим_сделать;
а да, ID предмета и уровень заточки тут писать в десятичном виде (как обычные люди считают)

const
Name='HORSE';   
var  
timer:TTimer;  
x:byte; //îïðåäåëåíèå, êàêîäå äåéñòâèå ïî ñ÷åòó ìû ñîâåðøàåì  

procedure Init;  
begin  
timer:=TTimer.Create(nil);  
timer.interval:=150;  
timer.OnTimer:=@fireTimer;  
timer.enabled:=true;  
x:=1;//ñíà÷àëà õ=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(12)=9456) and (ReadD(34)=5) then timer.enabled:=false;;
      end;  
end;
end;
end.

ЗЫ в алгоритм твоего скрипта не вникал, поправил синтаксис

Ввел все данные..точит отлично...не перетачивает=))))
Можете забирать)))СКРИПТ РОБОЧИЙ!!!!!!!!!!
БОЛЬШОЕ СПАСИБО mks и NLObP за то что сделали почти всё=))))И не послали меня на *** !!!!!