Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт, включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку. 1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...
const
nik='PalevoO';
Enchant=16;
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;
beginif FromServer and(pck[1]=#$87)thencase ReadD(2)of0: 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)thenbegin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.
Нечего в нём нетрогал только прописал ник чара и уровень заточки
3.Сервер на котором использовался скрипт l2rx.com Hellbound.
4.Зделал всё по иструкцые:
Запустил скрипт,вбил ник чара,уровень заточки,поставил галочку напротив скрипта заточил вещь на +1 и нажал 1е соц. действие после чего заточило мою вещь ищо на +1 и розорвало соединение с игрой....
В l2phx написало такую ошыбку
Повторял всё ето пару раз тоже самое происходило!
Помогите плиз скажы что не так!
Зарание благодарен!
Последний раз редактировалось 2502444, 14.09.2009 в 20:06.
Причина: некоректо на писал
500=0.5сек
1000=1сек
возможно маленький интервал между заточкой
Поставил 1000 непомогло,поставил 2000 тоже не помогло,поставил 2300 пока нормально.Я так понял етот скрипт всеголиш автоматизирует процес точки,просто начиная с Камаеля процес долгий,посравнению с интерлюд,а скрипт облегчает ето.100 заточок ушло и результата я недостиг (лук +16 не заточил =( )
Использовал l2 phx 3.5.23.141 скачаная с этого сайта
Сервер http://www.l2fod.ru/ Грация Финал
Использовал скрипт :
Код:
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.
Почему то l2 phx 3.5.23.141 не распознает запущенный клиент Линейки.
Пробовал более старую версию 3.4.1.83,она я так понял не распознает првальное Id предметов. Подскажите что делать?
Вообщем заработало все..но...работало все примерно минут 40..потом в чате написалось что мол кикает меня и инфа передана ГМ..и теперь как только начинаю точить при помощи пнх..сразу пишет эту фразу и кикает,как то можно это обойти?