Скрипт на заточку

[NLObP]

Автоматизация заточки предметов до необходимого уровня by NLObP

Возможности скрипта
--------------------
+ Панель управления;
+ Затачиваем по очереди все предметы с ItemID пока не переломаем
или не заточим. Один предмет всегда остаётся.

Необходимо затариться оружием, заточками и валерьянкой.
Name='NLObP'; //Вписать сюда имя чара
//установить константу в зависимости от типа игры (С4 или Интерлюд)
interlude=true; //Interlude - true, C4 - false

Внимание!
Из комбобокса обязательно надо выбрать вещь, чтобы скрипт узнал
ID и количество, только потом ставить напротив галочку.
Галочки снимать не надо, если кончились заточки/вещи - можно сразу идти
покупать и продолжать заточку.
В инвентаре должно быть не менее двух одинаковых затачиваемых вещей, степень заточки значения не имеет

Скрипт распространяется как есть, и я не несу ответственности за то, что ВЫ натворили у себя, его используя.

by NLObP
для С4 и Интерлюдии можно взять здесь
для Грации можно взять здесь

by Breadfan
скрипт переделанный под камаель (с автопокупкой).

by Shadow
Скрипт заточки предметов с их закупкой при необходимости

Этот скрипт помогает в рутине, когда разрешено пользователям 100% точить до большой величины, скажем до +200, ручками то замучаешься точить.

PS: скрипты - это облегчение рутинной работы человека.

[Shizo]

Что нада добавить в скрипт, чтобы он каждые 3000 мсек отпрвлял пакет который я ему задам
например (что нада сюда добавить)

begin
buf:=hstr('ХХ ХХ ХХ ХХ');
SendToServer;
buf:=hstr('Х1 Х1 Х1 Х1');
SendToServer;
end;

потом как привязать сюда остановку по нажатию *1*
например вот это

begin
if FromClient and (ConnectName=Name)and (pck[1]=#$38) then
if (pck[2]=#$31) and (pck[3]=#$00) then
begin
pck:='';
bStop;
exit;
end;

или луче не 1 а пакет от сервера например *Соц.Да*
('5A 06 00 00 00')

[Xelat]

Shizo,
что-то в этом роде.

var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=3000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('ХХ ХХ ХХ ХХ');
  SendToServer;
  buf:=hstr('Х1 Х1 Х1 Х1');
  SendToServer;
end;
begin
  if FromClient and (ConnectName=Name) and (pck = HStr('5A 06 00 00 00')) then begin
    timer.enabled:=false;
  end;
end.

[Shizo]

Значит так я немного подкоректировал и уааля!

Заточка для грации 2

//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=2000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('/пакет открытия точки/');
  SendToServer;
  buf:=hstr('/пакет вещи в слот/');
  SendToServer;
  buf:=hstr('/пакет завершения точки (для ускорения процеса)/');
  SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.

спасибо за помощь все работает проверено на грации 2

[Vebstor23]

народ подскажити я пользуюсь скриптом заточки с этого серва зашол на серв там когда дотачиваеш до 10 эт 100% и когда точиш на +11 и т.д. там не 100% ну вот когда например затачиваемая вещ ломается на +13 кпримеру то затачиваемая вещ необнуляется до 0 а делается сразу +10 а в логах типо пишет что обнулилась до 10 и вот когда идёт продолжение скрипта то l2phx почемуто зацикливается и зависает без всякой ошибки также зависает клиент( вчём может быть причина? и как сделать чтоб начинал точить не с 0 а сразу с +10?

[maxstro]

Я понел в чем проблема. Скрипт пислася под простые заточки да? А у меня на серваке блессед заточки. И вобшем после каждого фейла он исключает предыдушую из списка как я понел. И когда фэйлится последняя шмотка он не понимает че делать, т.к. остались еше шмоти и зависает. Помогите исправить плз.

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

народ подскажити я пользуюсь скриптом заточки с этого серва зашол на серв там когда дотачиваеш до 10 эт 100% и когда точиш на +11 и т.д. там не 100% ну вот когда например затачиваемая вещ ломается на +13 кпримеру то затачиваемая вещ необнуляется до 0 а делается сразу +10 а в логах типо пишет что обнулилась до 10 и вот когда идёт продолжение скрипта то l2phx почемуто зацикливается и зависает без всякой ошибки также зависает клиент( вчём может быть причина? и как сделать чтоб начинал точить не с 0 а сразу с +10?

Кстате на этом же серваке играю.

[NLObP]

Сообщение от Virtu$

проверял на 1 С4 сервере,запустил всё нормально точит...Но не 100%

Так и должно быть. Нет 100% заточки.

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

Сообщение от Virtu$

Сколько пух перекупил (Потому что скрипт 1 пуху не точит,после того как все переломались) Или я как то неправильно всё делаю,или я смысл скрипта не понял...!

Так и задумано, чтобы осталась одна вещь. Если надо точить одну вещь, то надо поправить скрипт, в нем есть место, где описан как это сделать.

[NLObP]

Сообщение от Virtu$

А что он такого особенного делает тогда!?Я и сам могу так точить...)

Ничего такого не делает, кроме автоматизации самого процесса заточки.

[freeworld]

Спасибо NLobP за скрипт...НО почему в грации 2...при запуске скрипта и старте заточки пишет "Нет такой заточки! Заточка прервана" хотя itemeid беру из Itemlist пакета...заточка как и шмотка затачиваемая в итем листе видна...Подскажите плз в чем проблема..P.S особенности серверка заточки в одном слоте все итемы при неудаче не ломаются

[NLObP]

Для Грации надо менять ID пакетов.
Под свои сервера меняйте скрипт сами.

[freeworld]

ID я менял...ведь нужно из поменять всеголишь здесь :
Scroll=961;Weapon=9866; а в остальном теле скрипта там уж работа идет с присвоением и считыванием и я думаю там нечего менять...только я нимагу понять за что отвечает этот пакет : procedure Say(msg:string);
begin
buf:=hstr('4A 00 00 00 00');
Использую скрипт by NLObP Адаптированая под Gracia by CreaDo