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

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

[Doberman]

Ясн,зделал =).
Вопрос, где в этом скрипте устанавливается скорость энчата?
Я так и непонял где устанавливать скорость энчата,единственное что я там нашол

begin
FormMain:=Create_FormMain;
//Enchant:=false;
CurEnchLvl:=0;
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=500; //время задержки

ShowInf:=TTimer.Create(nil);
ShowInf.OnTimer:=@OnShowInfo;
ShowInf.enabled:=true;
ShowInf.interval:=1000; //время задержки

StartTime:=time;
good:=0;
broken:=0;
ready:=false;
//RequestItemList вызываем инвентарь
buf:=hstr('14');
SendToServerEx(Name);
StringList:=TStringList.Create;
ItemsName:=TStringList.Create;
try
ItemsName.LoadFromFile('itemsid.ini');
except
msg.Lines.Add('itemsid.ini не найден!');
exit;
end;

Подскажите плиз. А то ели точит )

[helpme777]

парни, я играю на сервере mordred.ru . И там точка стоит 1 адену безоп точка 20к она же и максимальная. Но вот одно но я вхожу на сервер активирую скрипт все как положено и нет никакого эффекта. Прошу помочь мне-нубу. Жалко сервер такой нашел а так и не смог воспользоваться вашим чудным скриптом!

[NLObP]

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

Я так и непонял где устанавливать скорость энчата

timer.interval:=500; //время задержки

здесь

[v0ltag3]

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

парни, я играю на сервере mordred.ru . И там точка стоит 1 адену безоп точка 20к она же и максимальная. Но вот одно но я вхожу на сервер активирую скрипт все как положено и нет никакого эффекта. Прошу помочь мне-нубу. Жалко сервер такой нашел а так и не смог воспользоваться вашим чудным скриптом!

http://coderx.ru/downloads.php?do=file&id=24 вот это попробуй

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

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

Ясн,зделал =).
Вопрос, где в этом скрипте устанавливается скорость энчата?
Я так и непонял где устанавливать скорость энчата,единственное что я там нашол

Подскажите плиз. А то ели точит )

если поставишь меньше будет банить, в моём скрипте менять скорость инчанта здесь:

      #$FE: begin
              if pck[2]=#$81
                 then begin
                        flagFE:=true; 
                        delay (2000); 
                        exit;
                      end;

[helpme777]

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

[NLObP]

helpme777, потому, что не соблюдены условия для выполнения скрипта. Условия - читай внимательно, что написано в скрипте и в ветке про него.

[helpme777]

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

helpme777, потому, что не соблюдены условия для выполнения скрипта. Условия - читай внимательно, что написано в скрипте и в ветке про него.

мб я не те айди указывал вот l2.ini :
http://www.mordred.ru/l2.ini

Добавлено через 36 минут
http://dump.ru/file/3152498 мой скрипт поправьте

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

[Doberman]

v0ltag3, я в твоём скрипте менял скорость,где подсказал
NLObP,

timer.interval:=500; //время задержки

Поставил там "3" стало гораздо быстрее точить.
Попробую где ты говориш поредоктировать),мож незабанит)

#$FE: begin
if pck[2]=#$81
then begin
flagFE:=true;
delay (2000);
exit;
end;

[helpme777]

doberman Сервер работает зайди плиз посмотри

[Doberman]

Попробывал все скрипты выложэнные в этой теме,не один не работает =), Только вот единственный от TAMBIK

const
nik='pixel';
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:=800;
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]=#$81) 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]=#$14) then UseItem:=pck;
if FromClient and (pck[1]=#$58) then EnchantItem:=pck;
if FromClient and (pck=#$1B#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.

И то после нажатия 1соц действия,над юзнуть точку чтоб он точнул,а сам автоматом нехочет ).
Я знаю что данные скрипты выкладывались под блесс точи,но мне интерестно почему они нехотят точить простыми точками.
На ХБ блесами точил на ура,а на Т0 простыми немогу,поидее должножэ работать)
Подскажите как подредактировать дан скрипт чтоб он автоматом точил)