Автоматизация заточки предметов до необходимого уровня by NLObP
Возможности скрипта
--------------------
+ Панель управления;
+ Затачиваем по очереди все предметы с ItemID пока не переломаем
или не заточим. Один предмет всегда остаётся.
Необходимо затариться оружием, заточками и валерьянкой.
Name='NLObP'; //Вписать сюда имя чара
//установить константу в зависимости от типа игры (С4 или Интерлюд)
interlude=true; //Interlude - true, C4 - false
Внимание!
Из комбобокса обязательно надо выбрать вещь, чтобы скрипт узнал
ID и количество, только потом ставить напротив галочку.
Галочки снимать не надо, если кончились заточки/вещи - можно сразу идти
покупать и продолжать заточку.
В инвентаре должно быть не менее двух одинаковых затачиваемых вещей, степень заточки значения не имеет
Скрипт распространяется как есть, и я не несу ответственности за то, что ВЫ натворили у себя, его используя.
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.
//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
народ подскажити я пользуюсь скриптом заточки с этого серва зашол на серв там когда дотачиваеш до 10 эт 100% и когда точиш на +11 и т.д. там не 100% ну вот когда например затачиваемая вещ ломается на +13 кпримеру то затачиваемая вещ необнуляется до 0 а делается сразу +10 а в логах типо пишет что обнулилась до 10 и вот когда идёт продолжение скрипта то l2phx почемуто зацикливается и зависает без всякой ошибки также зависает клиент( вчём может быть причина? и как сделать чтоб начинал точить не с 0 а сразу с +10?
Я понел в чем проблема. Скрипт пислася под простые заточки да? А у меня на серваке блессед заточки. И вобшем после каждого фейла он исключает предыдушую из списка как я понел. И когда фэйлится последняя шмотка он не понимает че делать, т.к. остались еше шмоти и зависает. Помогите исправить плз.
Цитата:
Сообщение от Vebstor23
народ подскажити я пользуюсь скриптом заточки с этого серва зашол на серв там когда дотачиваеш до 10 эт 100% и когда точиш на +11 и т.д. там не 100% ну вот когда например затачиваемая вещ ломается на +13 кпримеру то затачиваемая вещ необнуляется до 0 а делается сразу +10 а в логах типо пишет что обнулилась до 10 и вот когда идёт продолжение скрипта то l2phx почемуто зацикливается и зависает без всякой ошибки также зависает клиент( вчём может быть причина? и как сделать чтоб начинал точить не с 0 а сразу с +10?
Кстате на этом же серваке играю.
Последний раз редактировалось maxstro, 15.12.2008 в 02:02.
проверял на 1 С4 сервере,запустил всё нормально точит...Но не 100%
Так и должно быть. Нет 100% заточки.
Добавлено через 1 минуту
Цитата:
Сообщение от Virtu$
Сколько пух перекупил (Потому что скрипт 1 пуху не точит,после того как все переломались) Или я как то неправильно всё делаю,или я смысл скрипта не понял...!
Так и задумано, чтобы осталась одна вещь. Если надо точить одну вещь, то надо поправить скрипт, в нем есть место, где описан как это сделать.
Спасибо NLobP за скрипт...НО почему в грации 2...при запуске скрипта и старте заточки пишет "Нет такой заточки! Заточка прервана" хотя itemeid беру из Itemlist пакета...заточка как и шмотка затачиваемая в итем листе видна...Подскажите плз в чем проблема..P.S особенности серверка заточки в одном слоте все итемы при неудаче не ломаются
ID я менял...ведь нужно из поменять всеголишь здесь :
Scroll=961;Weapon=9866; а в остальном теле скрипта там уж работа идет с присвоением и считыванием и я думаю там нечего менять...только я нимагу понять за что отвечает этот пакет : procedure Say(msg:string);
begin
buf:=hstr('4A 00 00 00 00');
Использую скрипт by NLObP Адаптированая под Gracia by CreaDo