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

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

[TAMBIK]

ЭТО НЕ МОЙ


точки должны быть в стопке

[Nikit0s]

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

парни я смогу без скрипта только скажите как сделать чтобы все заточки были в инвентаре все в одном квадратике может у кого есть софт скиньте плиз

бгг, ну начнем с того что это зависит от хроник и типа заточки >_> или ты каким то софтом собираешься изменить сервер часть?

[v0ltag3]

Doberman, Проверка на задержку есть только в Гарции Финал, а в ранее нету, и мой скрипт не будет работать на парт2 вроде)

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

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

вот что получилось в этом скрипте: Автоматизация заточки by NLObP!
Команда Старт!!!
Прервано!
Команда Старт!!!
Прервано!
Команда Старт!!!
Прервано!
Почему прервано?

if (sumitem(ItemID)<=1) then begin

найди в скрипте эту строчку и поменяй 1 на 0

[Doberman]

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

ЭТО НЕ МОЙ


точки должны быть в стопке

А кто выкладывал ? ))) http://coderx.ru/showthread.php?t=1684&page=3
Точн,ступил)))), а какая строка в скрипте отвечает за точки(за их местоположэние"стопка" или "разбросаны"),и как можн подредактировать.
v0ltag3,

Doberman, Проверка на задержку есть только в Гарции Финал, а в ранее нету, и мой скрипт не будет работать на парт2 вроде)

Ну я не пытаюсь его заюзать на п2 =)

[v0ltag3]

что за сервер?

[Grinch]

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

А кто выкладывал ? ))) http://coderx.ru/showthread.php?t=1684&page=3
Точн,ступил)))), а какая строка в скрипте отвечает за точки(за их местоположэние"стопка" или "разбросаны"),и как можн подредактировать.
v0ltag3,
Ну я не пытаюсь его заюзать на п2 =)

стопка - это когда точки лежат в 1 ячейке типа как на руоффе хз с каких хроник это пошло, пример стопки - адена ресурсы куски рецепты точки
и соответсвенно методом скрипта ты стопку не сделаешь за это сервер отвечает.

[Doberman]

Grinch, стопка - это когда точки лежат в 1 ячейке типа как на руоффе хз с каких хроник это пошло, пример стопки - адена ресурсы куски рецепты точки
и соответсвенно методом скрипта ты стопку не сделаешь за это сервер отвечает.

Да это я прекрастно понимаю ))),стопка с пошла с ХБ,т.к на камаэлях я неиграл =),мож и с них.

v0ltag3, что за сервер?

Сервер Интерлюдия.
Я вот что хочю то,чтобы скриптом можно было точить точами не из "стопки",он точит,ток постоян приходится юзать точку.
Посоветуете скрипт от "NLObP,без вопросов отличный скрипт,работает.
Просто он неудобен тем что на серверах с высокой мин заточкой,точить два предмета оч медленно.
А так бы идеально,1 предмет и погнал точить),ток вот где подправить его я незнаю(

[v0ltag3]

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

А так бы идеально,1 предмет и погнал точить),ток вот где подправить его я незнаю(

if (sumitem(ItemID)<=1) then begin

найди в скрипте эту строчку и поменяй 1 на 0

[EnD1]

Вообщем люди, невыходит, выбивает вот такое:

Полный текст ошибки:
http://dump.ru/file/3156723
Interlude хроники

[TAMBIK]

Interlude хроники

САМ ОТВЕТИЛ.