АвТОзаТоЧкА [Архив]

TAMBIK

28.08.2009, 16:15

Auto_enchant_maxlvl
для gracia final тестировал здесь Lineage2 Gracia Final PvP/MPvP сервер "Freege (http://www.freege.ru/)
=============================================
в пати чат пишем уровень заточки
можно менять в процесе работы скрипта
заточить один раз чтоб запомнить чем и что точить
точить для запоминания по одному предмету
если будите точить разные предметы
предметы должны соответствовать применяемому skrol
СТАРТ нажать соцдействие ДА
СТОП нажать соцдействие НЕТ
включить системные сообщения соцдействие - приветствие \ hello
выключить системные сообщения соцдействие - победа \ victory
дальше скрипт сам точит до указаного уровня заточки
все предметы одинаковые с первыми заточеными
точит первый предмет до Заданного уровень заточки потом второй и т.д
т.е если вы заточили несколько разных предметов
одного класса армор или веапон они будут точиться

В Скрипте Меняем
myname='TAMBIK'; //<<== пишем свой НИК
max=140;//<<== колличество ячеек в рюкзаке

http://i001.radikal.ru/0909/26/f0dc9dcc2586.jpg

Auto_enchant + 1
в пати чат пишем уровень заточки
заточить один раз чтоб запомнить чем и что точить
СТАРТ нажать соцдействие ДА
СТОП нажать соцдействие НЕТ
включить системные сообщения соцдействие - приветствие \ hello
выключить системные сообщения соцдействие - победа \ victory
дальше скрипт сам точит до указаного уровня заточки
все предметы ОДИНАКОВЫЕ с ПЕРВЫМ заточеным
предметы точатся добавляя по +1 на предмет
если предметов более одного : один предмет остается
Auto_enchant + 1 _selectskroll
возможно использовать скрол до безопасного уровеня заточки
выше использовать блесс скрол
для этого заточить предмет один раз скрол и один раз блесс скрол

Auto_enchant + 1 - interlude + покупка
Auto_enchant_maxlvl - interlude+покупка !!
добавлена возможность для закупки skrol для этого
поговорить с нпс и купить skrol столько ===сколько надо докупать
скрипт должен запомнить
нпс должен быть выделен
НЕ ЗАБУДЬТЕ НАЖАТЬ СПАСИБО

idkfa

02.10.2009, 17:26

Спасибо огромное за этот скрипт он прям как новогодняя елочка - много много радости детишкам принесла )) Версия первая работает на версии l2ph 3.4.1.61 (сервер грация финал)в отличие от второго исправления(о чем предупреждалось)

jpg

06.10.2009, 00:40

да что такое, была надежда что хоть этот будет работать...

Скачал поставил, в системный чат написало, все сделал как написано... ничего не происходит

Почему у меня такие проблемы?? Сервер грация финал, кажется ява.

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

Добавлено через 2 минуты
TAMBIK,
Спасибо все работает, просто я создал другого чара попробывать точить через свой-глупо скрипт... Спасибо за этот скрипт он мега крутой ))))
Вот уже 4 лука на +16, армор по +10...

Интересно как в нем реализовать точку постепенную, доточил все вещи до 10 точи потом до 14... так будет больше шансов заточиться...

-=Ufo=-

09.10.2009, 01:10

криво модифицировал этот скрипт для следующих целей:
1. используются заточки обычные и блессед
2. точатся все одинаковые вещи по очереди (сначала все на +1 потом все на +2 и т.д.)
3. максимально заточенная вещь всегда сохраняется

Cheto

19.10.2009, 16:44

Использую скрипт на заточку от Тамбика, всё работает как часы, НО абсолютно рандомно кикает с сервера. Может работать всю ночь а может каждые 10 минут выбивать. В системном чате Л2 пишет "You have been kicked for illegal action, GM's informed". При чём очень странно кикает - то "Связа с сервером была потеряна", то просто окно закрывает.
Хроники: Gracia Final

TAMBIK

19.10.2009, 17:10

Cheto,

Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=400; //<<== время выбора свитка

Timer02:=TTimer.Create(nil);
Timer02.OnTimer:=@OnTimer02;
Timer02.enabled:=false;
Timer02.interval:=300; //<<== время выбора предмета

Timer03:=TTimer.Create(nil);
Timer03.OnTimer:=@OnTimer03;
Timer03.enabled:=false;
Timer03.interval:=3000; //<<== время между заточкой

Вам возможно придется увеличить время .

для примера
300= 0.3 секунды
3000= 3 секунды

Cheto

20.10.2009, 16:36

Вместо 300 МС для выбора предмета поставил 1к, всё равно вылетел. Сегодня попробую 4000 мс для времени заточки вместе с 1000 для выбора предмета поставить.
З.Ы. На счёт функции - уточни плиз). Это "Автоматически сохранять лог пакетов" в настройках дополнительно?// ДА

TAMBIK

21.10.2009, 17:23

при ошибке
посмотреть какие пакеты приходят когда точишь должно быть
от клиента:
для грации
19=UseItem
5F=RequestEnchantItem
если финал то еще
D04C=RequestExTryToPutEnchantTargetItem
для interlude :
14=UseItem
58=RequestEnchantItem

возможно на сервере изменены пакеты

Илья Александрович

21.10.2009, 18:22

Сам я в скриптах не разбираюсь, но даже когда все написано, можно сделать как надо. Сделал все как надо со скриптами
TAMBIKа и -=Ufo=-, но ничего не работает. В чате пишется, что нужно делать, но, когда все манипуляции сделаны нажимаю действие "Да" и ничего не происходит.
Сервер: http://birinium.org/
Хроники: Грация Финал
l2phx.3.5.24.142
Может кто еще получше тупому подскажет, в чем проблема?

TAMBIK

21.10.2009, 18:45

Илья Александрович
выше сообщение пакеты те какие указаны ?

Farg

22.10.2009, 00:13

ребят а я вот с такой проблемой столкнулся, все нормально подобрал время что бы не выкидывало. Но иногда зависает точка последи экрана и стоит просто, надо самому кликнуть на свиток, тогда продолжает точить, не подскажете как с этим бороться? Сервер грации Финала

ahl

22.10.2009, 16:16

TAMBIK хроники грация парт 2 , ID скрола узнаёт , все вроде хорошо , но не узнаёт ID любых вещей , сейчас попробовал твой новый скрипт , таже проблема , не узнаёт ID вещей при точке! Помоги пожалуйста , или скинь свой ItemsID , заранее благодарю.

TAMBIK

22.10.2009, 20:42

ahl,
выложи пакет от сервера
11=ItemList для грации
в нем могут быть отличия
или скинь свой ItemsID ,
он одинаков у мне версия l2phx.3.5.26.148

Farg

23.10.2009, 19:08

В общем это зависание происходит когда я играю в 2 окна, немного подлагивает и видимо из-за этого все и происходит, если играю одним окном, ну и точу им же. То всё нормально работает.
Пасиба за беспокойство =)
а все таки попробуй с изменениями

Добавлено через 17 часов 44 минуты
TAMBIK, Спасибо большое, сейчас вообще все шикарно работает! =)
Кстати Timer03.interval:=4700; //<<== время между заточкой
если ставить меньше 4700, то иногда выкидывает. Хотя возможно только на этом серве, где я играю. Еще может выкидывать, если время выбора предмета ставить меньше 1000

Добавлено через 3 часа 24 минуты
TAMBIK, А вот еще такой вопросик, можно сделать что бы сразу на 2 окна работало? Я делаю 2 скрипта, если переименовываю имя в первом, оно сразу и во втором переименовывается.

nneett

29.10.2009, 13:43

Всем привет.
Тамбик , а нельзя сделать так, что бы он точил на максимальный уровень заточки не 1 вещь, а накидывал по 1 точке на каждую вещь и 1 потом максимально заточенную оставлял? В общем что бы не по 1 вещи точил до максимума, а кидал точки на каждую одинаковую шмотку, по типу скрипта от NlobP, а то его скрипт зависает, при обнулении, так как скидывает точку не на 0, а на 15.

Tomta

30.10.2009, 03:37

очень удобный скрип у -=Ufo=- там где дорогие вещи и блесс заточки в цене , но в этом скрипте есть ошибка , к примеру если указать что нужно заточить одну вещь до +7 с учетом что до 3 безопасно он точит все идеально с начало до 3 он точит простыми а после блесками , но после +7 он начинает использовать обычную заточку тем самым ломает вещь

-=Ufo=- или TAMBIK поправьте пожалуйста

Cheto

31.10.2009, 13:05

Вобщем после очередной недели теста скрипта в итоге всё равно выбивает. Хотя непонятно почему: Заточка руками занимает намного меньше мили секунд чем точение скриптом. Показатели в скрипте поставил такие.
Время заточки :4700
Время выбора свитка: 1100
Время выбора предмета: 2000
Если кто то знает при каких условиях не выбивает - большая просьба отписать тут.

Димон

31.10.2009, 21:47

тамбик пожалуста подскажи, чето у меня на mordred.ru не пашет скрипт! можеш выложить настройки какие ты использовал и inject какой юзал плиз!

TAMBIK

31.10.2009, 22:16

Димон,
там шифрование сменили
пакеты приходят разные на одно и тоже действие
так что помочь немогу
как советуют знающие люди КУРИТЬ
т.е изучать !!!!!!! ШИФРОВАНИЕ !!!!!

KMAX

04.11.2009, 22:43

Уважаемый Тамбик
Не подскажеш ли почему при нажатии на социальное действие ДА ничего не ПРОИСХОДИТ (сервер l2rx.com) и не посоветуеш под него какой скрипт лучше!
Спасибо

dicens

05.11.2009, 14:56

На la2.omgame.ru такая же ситуация:(

у меня финал

TAMBIK

06.11.2009, 10:07

у меня финал

незнаю как ты
вот как у меня скрипт авто-gracia_final +1.rar
все работает

http://img7.imageshost.ru/imgs/091106/a52bb1c65d/bae8a.jpeg

fajo

06.11.2009, 16:09

Опять интересует сервер mordered.
можно либо обяснить что переделать в обычном скрипте , а еще луче викинуть готовий скрипт под этот сервак? в этой теме , уже видел что не один я обращаюсь поповоду этого сервера.
заранее спасибо.

TAMBIK

06.11.2009, 20:58

fajo,
уже видел что не один я обращаюсь поповоду этого сервера.

наверно и ответ читал

Pirat48

04.12.2009, 00:04

TAMBIK, слух там можно нажать и он будит сам точить без моего вмешательства?

Добавлено через 49 секунд
Если да то крута,если нет почем он у меня дальше не точится?
нет он всё таки точится тока очень долго....это можно подкорректировать?
или если ниже то бан?

TAMBIK

04.12.2009, 00:34

Pirat48,
какой скрипт ????

Pirat48

04.12.2009, 08:21

Auto_enchant + 1 _selectskroll - gracia_final.rar

Добавлено через 1 минуту
как время урезать а то заточивает быстро а окошко от заточки(вы заточили предмет+2) остаётся на долго.
и ещё заточка не действует....ну нажал заточить а +1 не прибавилось!
эт щас пробывал

Shooters

04.12.2009, 08:53

Всем доброго времени суток. подскажите плз какую версию л2пнх и какой скрипт юзать для Lineage 2 Kamael-Hellbound (Сервер www.l2rx.com) Заранее огромное человческое спасибо :)

Белый

04.12.2009, 11:39

Специально на форуме зарегался ради того что-бы сказать спасииииибо!
Храни господь твою плоть и душу XD

TAMBIK

04.12.2009, 21:26

Pirat48,
скачай поновому

Белый

05.12.2009, 22:44

Что-то может помочь от автокика?

TAMBIK

06.12.2009, 00:00

Белый,
не спасибо
наоборот проверка идет через сколько секунд
пакеты отправлять без палева
оптимизация скриптов

Pirat48

06.12.2009, 12:56

TAMBIK, чёт попробывал оч долго точит так и должно?
заточит на +2 и остоновится на оч долгое время есть заного не нажать соц действие да так и не прододолжит.
Скрипт обалденый ток у меня чёт оч плоха пашет.
http://i058.radikal.ru/0912/98/99bcdded3abe.jpg стопорится

http://i043.radikal.ru/0912/1d/6741f190b8b7.jpg настройки всё на минимум поставил

http://i034.radikal.ru/0912/df/118c1f9b4267.jpg если инвентарь открыть то продолжается!

Shooters

06.12.2009, 16:21

Тамбик или другие шарящие . помогите :) уже который раз здесь спрашиваю - реакции на вопрос 0. Надеюсь на этот вопрос мне ответят :)

Сервер http://lineage-hell.servegame.com/ . запускаю л2пнх (3.4.8.1.38 вроде такой) при вводе логина/пароля он просто не заходит на сервер. вырубаю пакет хак - происходит дисконнект. Все делал как написанно. помогите плз! Очень прошу!

Pirat48

06.12.2009, 18:09

скачай новый 3.5

TAMBIK

06.12.2009, 19:17

Shooters,
все что вам надо найдете у меня в подписи
прога и гайд

Maxima

08.12.2009, 13:34

Здравсвуйте, вообщем настроил скрипт от Тамбика для Финала, на свой сервер, там пакеты были другие, я их правил и скрипт работает, спасибо за скрипт Тамбик. Проблема в том, что скриптом можно точить только на одном аккаунте. Вообщем попробывал переделать следующие строки

const

myname ='MypKo'; //<<== пишем свой НИК

max = 200;//<<== колличество ячеек в рюкзаке

chat = 3;// <<== какой ЧАТ выводить сообщения
==========================================
ВЫРЕЗАНО по причине, Ограничение колва знаков на форуме
==========================================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('2F');
SendToServerEx(myname);
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2) of
12:begin autoMsg:=true;end;
13:begin autoMsg:=false;end;
24:begin
if (maxlvl=0) then SendMsg2 (' Неуказан Уровень Заточки ');
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if autostart and (maxlvl>0) then begin
SendMsg2( ' ! ! ! П О Е Х А Л И ! ! !' );
SendMsg2( '_______________________________' );
start:=true;
GetItemID ;
end;
end;
25:begin
stopEnchantItem;// остановка скрипта
SendMsg2( ' ! ! ! С Т О П ! ! ! ' );
stopselectskrol;
end;
end;
end;
//=========
procedure stopEnchantItem;// остановка скрипта
begin
autoMsg:=true;
start:=false;
deleteBase;
enchantID:=0;
ItemEnch:=0;
stopselectskrol;// отмена выбора скролл
SendMsg2 (' ___ О С Т А Н О В Л Е Н О ___ ');
Timer01.enabled:=false;
Timer02.enabled:=false;
Timer03.enabled:=false;
end;
//=========
begin
//не обрабатываем пустые пакеты
if pck='' then exit;
if (ConnectName=myname) and FromServer and (pck[1]=#$11) then begin ItemList;end;
if (ConnectName=myname) and FromServer and (pck[1]=#$7C) then begin ChooseInventory;end;
if (ConnectName=myname) and FromClient and (pck[1]=#$38) then begin Resultmaxlvl;pck:='';exit;end;
if (ConnectName=myname) and FromClient and (pck[1]=#$15) then begin RequestActionUse;pck:='';exit;end;
begin
if (start=false) and (ConnectName=myname) and FromClient then
case pck[1] of
#$0C:begin
t:=0;
OpenInventory;//открыть инвентарь
skrolObjectID:=0;
skrolID:=0;
skrolObjectID:=ReadD(2);
skrolID:= Getitem(skrolObjectID,2,3);//находим по ObjectID скрол с ItemID
stopselectskrol;
if (skrolID = 0) then SendMsg2(' . SKROLL ID НЕТ .' );
if (skrolID > 0) then begin
t:=1;
sumskrol:=0;
sumskrol:=Getitem(skrolID,3,5);
SendMsg2(' .................' );
SendMsg2(' активирован SKROLL ID : '+IntToStr(skrolID)+' = '+IntToStr(sumskrol)+' ШТ' );
SendMsg2(' .................' );
end;end;
#$43:if ReadH(2)=76 then begin
l:=1;
SendMsg2(' Выбор Предмета для Заточки ' );
SendMsg2(' .................' );
end;
#$65:begin
enchantObjectID:=0;
enchantObjectID:=ReadD(2);
itemOID:=0;
itemOID:=Getitem(enchantObjectID,2,3);//находим по ObjectID предмет с ItemID
if (itemOID > 0) then begin
d:=1;
if (t=1) and (l=1) and (d=1) then begin
autostart:=true;
SendMsg2 (' заточен предмет c ID : '+IntToStr(ItemOID)+' ');
SendMsg2(' .................' );
addIDtoarray(ItemOID);//добавляем в базу ID предмета
stopselectskrol;
end;
end;
end;
end;
end;
end.

Теперь я так понял что пакеты(в строках которые я изменил) не отсылаются/принимаются, на сервер/ от клиента. Собственно вопрос, можно ли с помощью Пакетхака и соответственно переделав Скрипт от Тамбик, точить на нескольких аккаунтах, и где моя ошибка. Спасибо заранее. За ответ буду безгранично благодарен.
с/y

TAMBIK

08.12.2009, 13:50

Maxima

08.12.2009, 15:18

в скрипте
Tип: 0x19 (UseItem)
19 79 C1 18 40 00 00 00 00
skrolObjectID:=ReadD(2); считываем

Tип: 0x5F (RequestEnchantItem)
5F 7A C1 18 40
enchantObjectID:=ReadD(2);считываем
и т.д

те надо все пакеты проверять
и делать как у тебя

проще от MKS скрипт переделать
и там поднимали вопрос с теми же пакетами как у тебя

Или я тебя не понял или ты меня :)
В нормальном виде скрипт у меня работает, я нашел все нужные пакеты для заточки и правил их в скрипте. Проблемма в том что если я хочу использовать паралельно второе соединение(то бишь второй подключенный акк) для заточки у меня начинаются глюки. Почему это происходит, я понимаю, а именно изза того что скрипт перехватывает пакеты от клиента и сервера сразу от обоих соединений в итоге получается киш миш. Я попробывал ето исправить тем что дописал в скрипте где идет перехват Соц Действий итд.. команду (ConnectName=myname) в скрипте выделил красным цветом, Тем самым как я понимаю я перехватываю эти пакеты только с соединения myname. Но что то не пашет, ето видно из того что когда я теперь нажимаю соц действие на заточку, он у меня етот пакет не тормозит а пропусакет дальше. Надеюсь ты понимаешь о чем я? от МКС я не хочу переделывать скрипт, так как у него там два таймера для моего серва нужно 3, там переделывать короче больше нужно, да и не вижу смысла, твой мне в полне подходит)) буду рад ответу :)

alexteam

08.12.2009, 15:31

1. поубирать все эти (ConnectName=myname)
2. SendToServerEx(myname) позаменать на SendToServer
3. в ините добавить одну строчку:
UseForConnectName := myname;
она заменит все эти ненужные на уровне скрипта проверки и "лишний текст".
4. отметить к исполнению и проверить работоспособность.
5. создать еще один такой же скрипт и сменить в нем имя на имя второго персонажа. отметить к исполнению.
6. повторят 5й пункт если нужно.

Добавлено через 2 минуты
описание действия переменной UseForConnectName можно найти тут
http://l2phx.pp.ru/arhive/l2ph_help/index.htm#page=scripting.htm

Maxima

08.12.2009, 16:18

Все сделал как ты сказал, не пашет(, только сообщение клиенту отсылает что скрипт загружен, остальные действия не прокатывают, пробывал потом еще перед каждым SendToServer типа
begin
UseForConnectName := myname;
buf:=hstr('2F');
SendToServer;
end;
поставить все равно не идет
вот вариант который я по твоему предложнию откорректировал

const

myname ='MypJIo'; //<<== пишем свой НИК

max = 200;//<<== колличество ячеек в рюкзаке

chat = 3;// <<== какой ЧАТ выводить сообщения

var
BaseItems:array[1..max,1..11] of integer;
BaseID:array[1..max] of integer;
Timer01: TTimer;
Timer02: TTimer;
Timer03: TTimer;
flag,start,select,selectID,autoMsg:Boolean;
autostart:Boolean;
mytext:string;
ListSize,ItemEnch:word;
textID,itemID:integer;
enchantObjectID:integer;
enchantID,skrolObjectID:integer;
ItemOID,objectOID: integer;
sumskrol,sumitemID: integer;
t,l,d,x,y,ii:integer;
maxlvl: integer;
GetiD:integer;
skrolID,skrolObj:integer;
index:integer;
//-----------------------------------------
procedure SendMsg2(msg:string);
begin
if autoMsg then begin
buf:=#$4A;
WriteD(0);
WriteD(chat);// <<=куда выводить сообщения
WriteS('');
WriteS(msg);
SendToClient;
end;
end;
//===========================================
procedure Resultmaxlvl;
var
i:integer;
begin
i:=2;
mytext:=ReadS(i);
textID:=ReadD(i);
if (textID=3) then begin
maxlvl:=StrToInt(mytext);
SendMsg2( ' Установлен МАХ Уровень Заточки : '+IntToStr(maxlvl)+'' );
end;
end;
//.................................................. ............................
procedure ItemList;
var
i, j, k: integer;
count,x:integer;
begin
deleteBase;
count:=0;
x:=0;
y:=0;
j:=4;
ListSize:=ReadH(j);
for i:=1 to ListSize do
if (i<=ListSize) then begin
BaseItems[i,1]:=ReadH(j); //ItemType1
BaseItems[i,2]:=ReadD(j); //ObjectID
BaseItems[i,3]:=ReadD(j); //ItemID
BaseItems[i,4]:=ReadD(j); //LocationSlot
BaseItems[i,5]:=ReadD(j); // Amount:
BaseItems[i,6]:=ReadD(j); // Amount:
BaseItems[i,7]:=ReadH(j);//ItemType2
BaseItems[i,8]:=ReadH(j);// CustomType1
BaseItems[i,9]:=ReadH(j);//isEquipped:
BaseItems[i,10]:=ReadD(j);//BodyPart
BaseItems[i,11]:=ReadH(j);//EnchantLevel
inc(x); // счетчик
count:=round((Length(pck)-5) / ListSize);
y:=count*x-(j-6);
inc(j,y);
end else for k:=1 to 11 do BaseItems[i,k]:=0;
if start and (0 < skrolObjectID) then begin
sumskrol:=0;
sumskrol:=Getitem(skrolID,3,5);
SendMsg2 (' SKROL ... c ID : '+IntToStr(skrolID)+' = '+IntToStr(sumskrol)+' ШТ ');
if start and (0<sumskrol) then Timer01.enabled:=true;
if start and (sumskrol=0) then begin
stopEnchantItem;// остановка скрипта
SendMsg2 ('........ НЕДОСТАТОЧНО SKROL........ ');
end;
end;
end;
//=============================
procedure deleteBase;
var
i,j,k:integer;
begin
for i:=1 to max do
BaseItems[i,1]:=0;
BaseItems[i,2]:=0; //ObjectID
BaseItems[i,3]:=0; //ItemID
BaseItems[i,4]:=0;
BaseItems[i,5]:=0;
BaseItems[i,6]:=0;
BaseItems[i,7]:=0;
BaseItems[i,8]:=0;
BaseItems[i,9]:=0;
BaseItems[i,10]:=0;
BaseItems[i,11]:=0;
end;
//===========================
function Getitem(Obj,up,down:integer): integer;
var
i:integer;
begin
Result:= 0; //В начале у нас 0
for i:=1 to max do
if (BaseItems[i,up]=Obj) then begin
Result:=BaseItems[i,down];
end;
end;
//===========================
function Getsumitem(Obj,up,down:integer): integer;
var
i:integer;
begin
Result:= 0; //В начале у нас 0
for i:=1 to max do
if (BaseItems[i,up]=Obj) then begin
Result:=Result+BaseItems[i,down];
end;
end;
//добавляем в базу ID предмета
procedure addIDtoarray(ItemOID:integer);
begin
SendMsg2( '------------------------------------- ' );
SendMsg2 (' добавить в базу для заточки ID : '+IntToStr(ItemOID)+' Предмета ');
SendMsg2(' .................' );
flag:=false;
for ii:=1 to max do
if (BaseID[ii]=ItemOID) then begin // текущий ID уже есть в массиве,
flag := true;
sumitemID:=Getsumitem(ItemOID,3,5);//счет скоко предметов
SendMsg2 (' предмет в базе есть с ID : '+IntToStr(ItemOID)+' = '+IntToStr(sumitemID)+' ШТ ');
SendMsg2( '------------------------------------- ' );
Break; // прерываем дальнейший перебор массива.
end;
if (flag = false) then begin
for ii:=1 to max do
if (BaseID[ii]=0) then begin // добавим ID в массив,
BaseID[ii]:=ItemOID;
index:=ii;
sumitemID:=Getsumitem(ItemOID,3,5);//счет скоко предметов
SendMsg2 (' Добавлен Предмет с ID : '+IntToStr(ItemOID)+' = '+IntToStr(sumitemID)+' ШТ ');
SendMsg2( '------------------------------------- ' );
Break; // прерываем дальнейший перебор массива.
end;
end;
end;

Maxima

08.12.2009, 16:22

//=============================
procedure ChooseInventory;
begin
if start and (itemID>0) then begin
objectOID:=0;
objectOID:=GetObjectID(itemID);//находим по ItemID предмет с ObjectID
if (objectOID=0) then begin
stopselectskrol;
SendMsg2 ('Больше Предметов c ID : '+IntToStr(itemID)+' для заточки НЕТ !!! ');
for ii:=1 to index do
if (BaseID[ii]=itemID) then begin
BaseID[ii]:=0;
SendMsg2 (' ..... ПОИСК ______ ПРЕДМЕТА..... ');
GetItemID ;
Break; // прерываем дальнейший перебор массива.
end;
if (itemID=0) then begin
stopEnchantItem;// остановка скрипта
SendMsg2 ('___НЕТ ПРЕДМЕТОВ ДЛЯ ЗАТОЧКИ___ ');
end;
end;
end;
end;
//=================================
//находим ItemID предмета для Заточки в базе ItemID
procedure GetItemID ;
begin
if start then begin
itemID:=0;
for ii:=1 to max do
if (BaseID[ii]<>0) then begin
itemID:=BaseID[ii];
SendMsg2 (' НАШЛИ ПРЕДМЕТ для ЗАТОЧКИ с ID = '+IntToStr(itemID)+' ');
Timer01.enabled:=true;
Break; // прерываем дальнейший перебор массива.
end;
end;
end;
//=================================
//находим enchantID предмета по ItemID для заточки
function GetObjectID(itemID:integer) : integer;
var
i:integer;
begin
enchantID:= 0;
ItemEnch:=0;
Result:= 0;
SendMsg2( '*******************************************' );
if (itemID>0) then begin
SendMsg2 (' Ищем ObjectID предмета с ID : ' +IntToStr(itemID)+' ');
SendMsg2('------------------------------' );
for i:=1 to max do
if (BaseItems[i,3]= itemID) and (BaseItems[i,11]< maxlvl) then begin
enchantID:=BaseItems[i,2];
Result:=BaseItems[i,2];
ItemEnch:=BaseItems[i,11];
SendMsg2(' ..... найден предмет для заточки ..... ');
SendMsg2(' ID : '+IntToStr( itemID)+' и ObjectID : '+IntToStr(enchantID)+' заточен до : '+IntToStr(ItemEnch)+' ');
SendMsg2('------------------------------' );
if start and (enchantID>0) then Timer02.enabled:=true;
Break; // прерываем дальнейший перебор массива.
end;
end;
end;
//==========================
procedure stopselectskrol;
begin
buf:=hstr('434E00');
SendToServer;
end;
//===================================
procedure OnTimer01(Sender: TObject);
begin
buf:=#$0C;
WriteD(skrolObjectID);
WriteD(0);
SendToServer;
Timer01.enabled:=false;
end;
//--------------------------
procedure OnTimer02(Sender: TObject);
begin
buf:=hstr('434C00');
WriteD(enchantID);
SendToServer;
Timer02.enabled:=false;
Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin
buf:=#$65;
WriteD(enchantID);
WriteD(0);
SendToServer;
Timer03.enabled:=false;
SendMsg2(' ..... Точим Предмет ..... ');
SendMsg2( ' ID : '+IntToStr(itemID)+' ObjectID : '+IntToStr(enchantID)+' - до : '+IntToStr(maxlvl)+' ' );
SendMsg2( '_______________________________' );
end;

Maxima

08.12.2009, 16:23

//-----------------------------------------
procedure Init;
begin
UseForConnectName := myname;
t:=0;l:=0;d:=0;
autostart:=false;flag:=false;selectID:=false;
autoMsg:=true;start:=false;select:=false;
GetiD:=0;sumskrol:=0;objectOID:=0;
maxlvl:=0;itemID:=0; enchantID:=0;
ItemEnch:=0;skrolObjectID:=0;
enchantObjectID:=0;
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=200; //<<== время выбора свитка

Timer02:=TTimer.Create(nil);
Timer02.OnTimer:=@OnTimer02;
Timer02.enabled:=false;
Timer02.interval:=500; //<<== время выбора предмета

Timer03:=TTimer.Create(nil);
Timer03.OnTimer:=@OnTimer03;
Timer03.enabled:=false;
Timer03.interval:=3800; //<<== время между заточкой
SendMsg2( ' Привет от TAMBIKa' );
SendMsg2( 'в пати чат пишем уровень заточки' );
SendMsg2( ' заточить предметы один раз ! ! !' );
SendMsg2( ' СТАРТ соцдействие ДА ' );
SendMsg2( ' СТОП соцдействие НЕТ' );
SendMsg2('В К Л сообщения соцдействие-приветствие\hello ' );
SendMsg2('ВЫКЛ сообщения соцдействие-победа\victory ' );
SendMsg2( '------------------------------------- ' );
deleteBase;
OpenInventory;//открыть инвентарь.14=RequestItemList
for ii:=1 to max do
BaseID[ii]:=0;
end;
procedure Free;
begin
Timer01.free;
Timer02.free;
Timer03.free;
end;
//=========================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('2F');
SendToServer;
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2) of
12:begin autoMsg:=true;end;
13:begin autoMsg:=false;end;
24:begin
if (maxlvl=0) then SendMsg2 (' Неуказан Уровень Заточки ');
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if autostart and (maxlvl>0) then begin
SendMsg2( ' ! ! ! П О Е Х А Л И ! ! !' );
SendMsg2( '_______________________________' );
start:=true;
GetItemID ;
end;
end;
25:begin
stopEnchantItem;// остановка скрипта
SendMsg2( ' ! ! ! С Т О П ! ! ! ' );
stopselectskrol;
end;
end;
end;
//=========
procedure stopEnchantItem;// остановка скрипта
begin
autoMsg:=true;
start:=false;
deleteBase;
enchantID:=0;
ItemEnch:=0;
stopselectskrol;// отмена выбора скролл
SendMsg2 (' ___ О С Т А Н О В Л Е Н О ___ ');
Timer01.enabled:=false;
Timer02.enabled:=false;
Timer03.enabled:=false;
end;
//=========
begin
//не обрабатываем пустые пакеты
if pck='' then exit;
if FromServer and (pck[1]=#$11) then begin ItemList;end;
if FromServer and (pck[1]=#$7C) then begin ChooseInventory;end;
if FromClient and (pck[1]=#$38) then begin Resultmaxlvl;pck:='';exit;end;
if FromClient and (pck[1]=#$15) then begin RequestActionUse;pck:='';exit;end;
begin
if (start=false) and FromClient then
case pck[1] of
#$0C:begin
t:=0;
OpenInventory;//открыть инвентарь
skrolObjectID:=0;
skrolID:=0;
skrolObjectID:=ReadD(2);
skrolID:= Getitem(skrolObjectID,2,3);//находим по ObjectID скрол с ItemID
stopselectskrol;
if (skrolID = 0) then SendMsg2(' . SKROLL ID НЕТ .' );
if (skrolID > 0) then begin
t:=1;
sumskrol:=0;
sumskrol:=Getitem(skrolID,3,5);
SendMsg2(' .................' );
SendMsg2(' активирован SKROLL ID : '+IntToStr(skrolID)+' = '+IntToStr(sumskrol)+' ШТ' );
SendMsg2(' .................' );
end;end;
#$43:if ReadH(2)=76 then begin
l:=1;
SendMsg2(' Выбор Предмета для Заточки ' );
SendMsg2(' .................' );
end;
#$65:begin
enchantObjectID:=0;
enchantObjectID:=ReadD(2);
itemOID:=0;
itemOID:=Getitem(enchantObjectID,2,3);//находим по ObjectID предмет с ItemID
if (itemOID > 0) then begin
d:=1;
if (t=1) and (l=1) and (d=1) then begin
autostart:=true;
SendMsg2 (' заточен предмет c ID : '+IntToStr(ItemOID)+' ');
SendMsg2(' .................' );
addIDtoarray(ItemOID);//добавляем в базу ID предмета
stopselectskrol;
end;
end;
end;
end;
end;
end.
Через два часика вернусь еще раз посмотрю в чем там дело

alexteam

08.12.2009, 17:31

UseForConnectName Достаточно назначить один раз.
после назначения скрипт привязывается только к этому имени соединения. пакеты с других соединений в такой скрипт не поступают (если так можно выразиться).

Maxima

08.12.2009, 19:28

+ еще одна нужная функция в моей библиотеке, за что спасибо. только вот проблема всетаки не решилась, сообщение о загрузке скрипта пашет значит я так предполагаю что эта функция внутри процедуры Инит работает. В скрипте разбираюсь, дальше. Еще вопрос если я внутри других процедур ету функцию заявлю, хуже от етого не станет?, я имею в виду не повлияет на работу скрипта? Хочу попробывать методом тыка, поискать ошибку. Я так понимаю что процедура инит глобальная и другие должды быть в ней локальны, может случиться такое какая нибуть процедура в етом скрипте независима? То есть для нее должны быть указаны экстра функции/параметры?

alexteam

08.12.2009, 20:31

UseForConnectName устанавливается глобально. достаточно назначить один раз где угодно, естественно удобней и логичней устанавливать ее в ините.
после этого она примет указаное ей значение вплоть до завершения выполнения скрипта (снятие галочки).

Maxima

08.12.2009, 21:11

Да уж, но факт остается фактом, скрипт при етом не фурычит, мож кто посмотрит код, под оффтопом который я выше запостил что там может быть не так? Он растянут в 3 сообщения, изза ограничения колва знаков на форуме)

Maxima

08.12.2009, 22:25

С пакетами все нормально, я их на своем серваке отследил, они отличаются от твоих, и скрипт у меня же работает в твоем варианте, вот только когда начинаю привязывать к опрделенному соединению ничего не делает, кроме того как отсылает сообщение, можете на своем серве со своими пакетами попробывать, я думаю ето того стоит, если скрипт под несколько соединений замастрячить)

santak

09.12.2009, 01:56

TAMBIK
Сделай пожалуйста точка+покупка для Ц4

PeageHT

13.01.2010, 01:59

TAMBIK,обьесни плз все пашет но... када нажимаеш ДА он точит 1 раз и все приходиться о5 самому точить 1 раз и следом он о5 1 раз токо точет,почему он нехочет точить сам до скольки я ему назначел?)

Добавлено через 34 минуты
http://s003.radikal.ru/i203/1001/d6/b3fa800bef1dt.jpg (http://radikal.ru/F/s003.radikal.ru/i203/1001/d6/b3fa800bef1d.jpg.html)

вот что пишет

Breadfan

13.01.2010, 04:39

Извиняюсь, долго не был на форуме ( были некоторые проблемы с доступом), но у меня тут вопрос созрел: а чем тот скрипт от NL0Pb не устраивает то? Вроде нагляден, удобен...чего еще желать то? Ан нет..я просто сообразить не могу - " а нахрена??"

QaK

13.01.2010, 19:45

Breadfan, чтобы было =) зато есть из чего выбрать =)

AbnormalState0.1

14.01.2010, 16:31

SmertoO

14.01.2010, 18:04

AbnormalState0.1, таймер побольше выстави

AbnormalState0.1

14.01.2010, 20:41

AbnormalState0.1, таймер побольше выстави
Спасибо за умный совет конечно... :D У меня на сервере после каждой 10 использованной заточки с одинаковым временем реюза должна следовать задержка хотябы на 1 секунду, иначе чар отправляется в тюрьму... А если таймер ставить на 10+ секунд, что возможно и помогло бы, то я во веки ничего не заточу...

P.S. Вот, что админ этого сервера мне рассказал своими словами собственно:

"Просто точи 10 точек, потом перерыв и так дальше..."

Если честно система идиотская т.к. попадают туда даже те, кто руками точит иногда, но что поделать...

Breadfan

15.01.2010, 05:19

Такая проблема возникла. На сервере после каждой 10 заточки надо делать небольшой перерыв иначе кидает в тюрьму. Что можно с этим поделать?

Breadfan, у меня на сервере лично скрипт NLObP не работает... Не находит вещи и заточки в инвентаре. пакет ИтемЛист отлови и смотри как он составлен - часто править надо часть что его разбирает - это часто на разных серверах встречается.

Добавлено через 2 минуты
Спасибо за умный совет конечно... :D У меня на сервере после каждой 10 использованной заточки с одинаковым временем реюза должна следовать задержка хотябы на 1 секунду, иначе чар отправляется в тюрьму... А если таймер ставить на 10+ секунд, что возможно и помогло бы, то я во веки ничего не заточу...

P.S. Вот, что админ этого сервера мне рассказал своими словами собственно:

"Просто точи 10 точек, потом перерыв и так дальше..."

Если честно система идиотская т.к. попадают туда даже те, кто руками точит иногда, но что поделать... - считай шаги, и каждый 10*n шаг - задержку делай.

AbnormalState0.1

15.01.2010, 21:43

каждый 10*n шаг - задержку делай
А поподробнее можно? :) Что именно в скрипте надо изменить, чтобы точилось так?

QaK

18.01.2010, 21:11

AbnormalState0.1, надо ввести дополнительную переменную типа integer, при каждой попыткке заточить увеличивай ее на 1, и проверяй, если = 10, то присваиваем 1 и делаем паузу.

slavovan

02.02.2010, 21:36

Афтару сп огромное :)
Так держать!

SeregaZ

03.02.2010, 00:07

вот тоже склоняюсь к мысли что на сервере стоит нечто типа защиты на одинаковое время покупки и заточки чего либо. так как бывает он несколько часов точить и без результатно, у тебя заканчивается терпение и ты останавливаешь точку, но к примеру ты точил до 9, а сейчас +7 - и чтоб добро не пропадало - думаешь дай ка я вручную 2 точки куплю и вот чудо! оно берет и точится :) а ведь до этого 2 часа слома...
вот собственно вопрос как сделать таймер более "плавучим". скажем оригинальная пауза 1 секунда покупка-точка. допустим указываем диапазон значений к примеру от 1 до 2 секунд. и каждый раз таймер "плавает" в пределах этого значения и точит. выйдет более полная эмуляция человека.
кто решал подобные задачи, расскажите что вы придумали в данной ситуации.

alexteam

03.02.2010, 12:14

в обработчик таймера вставить timer.interval := 1000+round(random(1000));

SeregaZ

03.02.2010, 14:50

сюда?
procedure OnTimer01(Sender: TObject);
begin
case a of
1:begin
Timer01.interval := 1000+round(random(1000));
buf:=HStr('04 75 19 10 48 9B C7 01 00 FB 2A 01 00 57 F5 FF FF 00');
SendToServer;
inc(a);
end;
2:begin
Timer01.interval := 1000+round(random(1000));
buf:=HStr('04 75 19 10 48 9B C7 01 00 FB 2A 01 00 57 F5 FF FF 00');
SendToServer;
inc(a);
end;
3:begin
Timer01.interval := 1000+round(random(1000));
buf:=HStr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 33 00 30 00 33 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 35 00 37 00 35 00 00 00');
SendToServ....

или достаточно в Init где это самое обьявление таймера?

procedure Init;
begin
useforconnectname := 'blablabla';
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval := 1000+round(random(1000));
end;

alexteam

03.02.2010, 15:37

procedure OnTimer01(Sender: TObject);
begin
Timer01.interval := 1000+round(random(1000));
case a of
.....

SeregaZ

03.02.2010, 16:48

ща затестим. попробую сперва 1-2 секунды. если результата не будет 2-3 секунды. потом отпишу что вышло.

Добавлено через 45 минут
ага... так я прям сразу и затестил...
объявлять надо этот рандом чтоли? или что с ним делать? как впрочем и round...
http://mnp.tut.su/img/ph.jpg

alexteam

03.02.2010, 18:18

:= 1000+round(random()*1000);

UndisputeD

04.02.2010, 11:33

Пользуюсь скриптом Auto_enchant_maxlvl - interlude+покупка, в скрипте я так понимаю только 1 проверка на то сколько точек в наличии, после которой, при выполненых условиях, докупается нужное кол-во точек.

Пример: скрипт настроен на докупку заточек при условии что в инвентаре чара осталось 10 заточек. То есть когда в инвинтаре остается 10 точек, точьки докупаются. Проблема в том, что если на момент докупки на эту самую докупку нет денег(бот не успел набить нужное кол-во)то точки не докупаются вобще, по окончанию точек скрипт останавливается с сообщением "Недостаточно скролов, остановлено".

Вопрос:как сделать так, что-бы проверок на докупку было две или 3, то есть что-бы скрипт докупал точки в указанном кол-ве когда в инвенторе осталось скажем 40, 30 и 20 заточек?

macemen

08.02.2010, 19:35

не подскажите если ставить промежуток между заточек выше 3700(мне нужно примерно 15000) при включение скрипта выдаёт крит
2010.2.8 18:24:58
OS : Windows XP 5.1 (Build: 2600)
CPU : AuthenticAMD AMD Athlon(tm) 64 X2 Dual Core Processor 5000+ @ 2600 MHz 1023MB RAM
Video : NVIDIA GeForce 9600 GT (9562)
PosCode : LS1(87) 44265:-48351:-793 2/1 [798]

General protection fault!

History: UGameEngine::OnSocialAction <- UNetworkHandler::Tick <- Function Name=SocialActionPac <- UGameEngine::Tick <- UpdateWorld <- MainLoop

Respekt2033

16.02.2010, 17:16

Всем привет, помогите мне, я делаю все как написано, но после того как подходит дело к автоматической заточке, жму Yes и нечего не происходит, пробовал много раз на разных персах, сервер
http://gs.p-t-k.net/l2/
2 пвп, помогите буду очень благодарен!!!
//QaK: Помогите у меня не работает телевизор, я его включаю, а он не работает - почему?
З.Ы. Учимся грамотно задавать вопрос

DarkSnake

08.03.2010, 18:12

1й скрин пояаляется при выборе уровня макс заточки, при этом если нажать на да то точить будет. 2й же появляется примерно через 20 минут. Как исправить? Клиент Эпилог, скрипт "Auto_enchant_maxlvl - gracia_final.rar "

burla4enko

10.04.2010, 08:26

Здрасьте! Не могу скачать скрипты =( В чем проблема? Выбивает на пустую страницу, с таким адресом: http://coderx.ru/attachment.php?attachmentid=756&d=1259652371

sews921

13.04.2010, 14:50

Автору Зачод работает как часы, хоть и долго долбался как его включить чтобы все заработало))
Но зделал спс ещё рас.

ABVGD

15.04.2010, 19:47

Сервер l2rx(Kamael) скрипт работает на ура,НО после его работы(10-20мин)л2 виснет и l2pbx (3.4.1.83)выдает следующую ошибку:

Exception class: EStringListError
Exception message: List index out of bounds (4998).
Exception address: 13167181
------------------------------------------------------------------------------
Stack list, generated 15.04.2010 18:32:20
(0002617C){l2pbx.exe } [1316717C] Classes.TStringList.Get + $1C
(00024B39){l2pbx.exe } [13165B39] Classes.TStrings.Error + $2D
(0002617C){l2pbx.exe } [1316717C] Classes.TStringList.Get + $1C
(0016699F){l2pbx.exe } [132A799F] main.TL2PacketHackMain.PacketSend + $73
(0006E3DB){l2pbx.exe } [131AF3DB] Controls.TControl.WndProc + $2BB
(000723D3){l2pbx.exe } [131B33D3] Controls.TWinControl.WndProc + $4FB
(000EEE62){l2pbx.exe } [1322FE62] fs_iinterpreter.TfsDesignator.SetValue (Line 1929, "fs_iinterpreter.pas" + 2) + $A
(00015391){l2pbx.exe } [13156391] Variants.@VarClr + $1
(00085CCB){l2pbx.exe } [131C6CCB] Forms.TCustomForm.WndProc + $553
(00023AA0){l2pbx.exe } [13164AA0] Classes.TThreadList.UnlockList + $4
(000723D3){l2pbx.exe } [131B33D3] Controls.TWinControl.WndProc + $4FB
(00085CCB){l2pbx.exe } [131C6CCB] Forms.TCustomForm.WndProc + $553
(00104250){l2pbx.exe } [13245250] JvWndProcHook.TJvHookInfos.WindowProc + $A4
(00071AFC){l2pbx.exe } [131B2AFC] Controls.TWinControl.MainWndProc + $2C
(0002E910){l2pbx.exe } [1316F910] Classes.StdWndProc + $14
(0006978E){l2pbx.exe } [131AA78E] Controls.FindControl + $42
(0008DB58){l2pbx.exe } [131CEB58] Forms.TApplication.ProcessMessage + $FC
(0008DB92){l2pbx.exe } [131CEB92] Forms.TApplication.HandleMessage + $A
(0008DE87){l2pbx.exe } [131CEE87] Forms.TApplication.Run + $B3
(00175B71){l2pbx.exe } [132B6B71] l2pbx.l2pbx + $81
------------------------------------------------------------------------------
System : Windows XP Professional, Version: 5.1, Build: A28, "Service Pack 3"
Processor: AMD, AMD Athlon(tm) 64 X2 Dual Core Processor 3800+, 2000 MHz MMXex 3DNow!ex 64 bits DEP
Memory: 2046; free 949
Display : 1024x768 pixels, 32 bpp
------------------------------------------------------------------------------
(продолжение в след. сообщении)

в логе вообще ничего не пишет

P.S. прошу помоги,скрипт реально хороший и удобный,но не идеален(((

ABVGD

15.04.2010, 19:48

List of loaded modules:
[00400000] C:\WINDOWS.0\system32\Normaliz.dll
6.0.5441.0 - 6.0.5441.0 (winmain(wmbla).060628-1735)
Unicode Normalization DLL
[00E00000] C:\WINDOWS.0\system32\NVWRSRU.DLL
<10000000> 6.14.10.12005 - 6.14.10.12005
NVIDIA nView Desktop and Window Manager
[00EA0000] C:\Program Files\VisualTaskTips\VttHooks.dll
<10000000> (no version info)
[010C0000] C:\WINDOWS.0\system32\nvwddi.dll
<10000000> 6.14.11.6225 - 6.14.11.6225
NVIDIA nView Display Driver Interface Lib, Version 162.25
[10000000] C:\WINDOWS.0\system32\nview.dll
6.14.10.12005 - 6.14.10.12005
NVIDIA nView Desktop and Window Manager 120.05
[13140000] C:\Documents and Settings\н ф с\Мои документы\l2\l2pbx.exe
(no version info)
[3F9E0000] C:\WINDOWS.0\system32\wininet.dll
8.0.6001.22918 - 8.00.6001.22918 (longhorn_ie8_ldr.090827-0100)
Internet Extensions for Win32
[40080000] C:\WINDOWS.0\system32\iertutil.dll
8.0.6001.22918 - 8.00.6001.22918 (longhorn_ie8_ldr.090827-0100)
Run time utility for Internet Explorer
[45020000] C:\WINDOWS.0\system32\urlmon.dll
8.0.6001.22918 - 8.00.6001.22918 (longhorn_ie8_ldr.090827-0100)
OLE32 Extensions for Win32
[5B260000] C:\WINDOWS.0\system32\uxtheme.dll
6.0.2900.5512 - 6.00.2900.5512 (xpsp.080413-2105)
Библиотека тем UxTheme (Microsoft)
[5F2F0000] C:\WINDOWS.0\system32\olepro32.dll
5.1.2600.5512 - 5.1.2600.5512
[698B0000] C:\WINDOWS.0\system32\hnetcfg.dll
5.1.2600.5589 - 5.1.2600.5589 (xpsp_sp3_qfe.080428-1317)
Диспетчер конфигурации домашней сети
[71A30000] C:\WINDOWS.0\system32\mswsock.dll
5.1.2600.5649 - 5.1.2600.5649 (xpsp_sp3_qfe.080728-1259)
Расширение поставщика службы API Microsoft Windows Sockets 2.0
[71A70000] C:\WINDOWS.0\System32\wshtcpip.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
Windows Sockets Helper DLL
[71A80000] C:\WINDOWS.0\system32\WS2HELP.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
Модуль поддержки Windows Socket 2.0 для Windows NT
[71A90000] C:\WINDOWS.0\system32\WS2_32.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
Windows Socket 2.0 32-Bit DLL
[71AB0000] C:\WINDOWS.0\system32\wsock32.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
32-разрядная библиотека Windows Socket
[71B00000] C:\WINDOWS.0\system32\mpr.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
Библиотека маршрутизации для нескольких служб доступа
[71BD0000] C:\WINDOWS.0\system32\SAMLIB.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2113)
SAM Library DLL
[72FC0000] C:\WINDOWS.0\system32\winspool.drv
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
Драйвер диспетчера очереди Windows
[746E0000] C:\WINDOWS.0\system32\MSCTF.dll
5.1.2600.5655 - 5.1.2600.5655 (xpsp_sp3_qfe.080811-1303)
Библиотека (DLL) MSCTF-сервера
[74DF0000] C:\WINDOWS.0\system32\RICHED20.DLL
5.30.23.1231 - 5.30.23.1231
Rich Text Edit Control, v3.0
[75310000] C:\WINDOWS.0\system32\msctfime.ime
5.1.2600.5768 - 5.1.2600.5768 (xpsp_sp3_qfe.090226-1518)
Microsoft Text Frame Work Service IME
[76360000] C:\WINDOWS.0\system32\IMM32.DLL
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
Windows XP IMM32 API Client DLL
[76380000] C:\WINDOWS.0\system32\comdlg32.dll
6.0.2900.5512 - 6.00.2900.5512 (xpsp.080413-2105)
Библиотека общих диалоговых окон
[76B20000] C:\WINDOWS.0\system32\WINMM.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0845)
MCI API DLL
[76BE0000] C:\WINDOWS.0\system32\PSAPI.DLL
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
Process Status Helper
[76F50000] C:\WINDOWS.0\system32\WLDAP32.dll
5.1.2600.5740 - 5.1.2600.5740 (xpsp_sp3_qfe.090108-1427)
Win32 LDAP API DLL
[77110000] C:\WINDOWS.0\system32\oleaut32.dll
5.1.2600.5512 - 5.1.2600.5512
[773C0000] C:\WINDOWS.0\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.5705_x-ww_36cfed49\comctl32.dll
6.0.2900.5705 - 6.0 (xpsp_sp3_qfe.081104-1302)
User Experience Controls Library
[774D0000] C:\WINDOWS.0\system32\ole32.dll
5.1.2600.5692 - 5.1.2600.5692 (xpsp_sp3_qfe.081013-1330)
Microsoft OLE для Windows
[77680000] C:\WINDOWS.0\system32\NTMARTA.DLL
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2113)
Поставщик Windows NT MARTA
[77BF0000] C:\WINDOWS.0\system32\version.dll

ABVGD

15.04.2010, 19:49

------------------------------------------------------------------------------
Active Controls hierarchy:
TCheckListBox "ScriptsList"
TGroupBox "GroupBox3"
TPanel "Panel19"
TTabSheet "TabSheet6"
TPageControl "PageControl1"
TL2PacketHackMain "L2PacketHackMain"
------------------------------------------------------------------------------

J-Fobos

16.04.2010, 02:12

ABVGD, скачайте свежую версию пакетхака.

ABVGD

16.04.2010, 08:55

скачивал L2PacketHack 3.5.33.164 с этим пакех хаком при включении скрипта,он никаких дейстий не производит.....да и в пронципе и лог пустой....непонимаю в чем проблема

J-Fobos

16.04.2010, 14:44

скачивал L2PacketHack 3.5.33.164 с этим пакех хаком при включении скрипта,он никаких дейстий не производит.....да и в пронципе и лог пустой....непонимаю в чем проблема
Лог вроде как не может быть пустым, там как минимум должно быть сообщение что пакетхак запущен. Просмотрите внимательно настройки, может перехват выключен.

ABVGD

17.04.2010, 00:09

спасибо и правда перехват был выключен,будет тестить

Добавлено через 5 часов 52 минуты
все отлично работает!!!Наконец могу оставлять работать на ночь

Angel

17.04.2010, 17:16

присоединюсь к вопросу PeageHT, описанному тут (http://coderx.ru/showpost.php?p=57415&postcount=50):
сервер: shock-world.com
версия клиента: Gracia Epilogue
версия пакетхака: 3.5.33.164
скрипт: Auto_enchant_maxlvl - gracia_final
используется LSP перехват.

суть вопроса: скрипт останавливается после нажатия соцдействия ДА.
если нажать снова заточит еще на одно значение и вновь остановится.

скриншот работы скрипта из клиента игры тут (http://img88.imageshack.us/img88/9494/shot00000st.jpg).

добавлю, что у нас пока администрация никаких ограничений на время между заточками не ввела и скоро тестовый период закончится вайпом, хотелось бы хоть немного успеть побегать с точеными вещами.
Заранее благодарю!

Javka

22.04.2010, 17:55

Привет всем, ребят помогите :)

Настроил скрипт, в пати чат пишет мол привет от Тамбика и инструкции....
Все делаю как написано, но при нажатии на "Да" ничего не происходит.

Скрипт от NLObP так же не работает, пишет нету itemsid.ini, хотя он лежит в директории l2phx/settings.

Сервер l2deice.org

Breadfan

22.04.2010, 18:20

не в папку сеттингс, а скопируй его в папку со скриптом...или в теле скрипта найди обращение к файлу и путь впиши верный

Javka

22.04.2010, 18:39

Спасибо) Помогло

ildarado

10.05.2010, 23:03

Уважаемый TAMBIK! Уже достаточно давно мучаюсь и как то не получается настроить скрипт.
1. в пати чат пишем уровень заточки
Какую строчку писать в пати чат ? Я пишу +20??
2. заточить один раз чтоб запомнить чем и что точить
ЗАтачиваю ничего не происходит
3.СТАРТ нажать соцдействие ДА
ТОже нажимаю ничего не происходит
Сделал itemsid.ini под свой сервер все id соответстует
Может вы сделаете видео как у вас происходит вся процедура заточки и настройки скрипта.Очень буду благодарин
Извините если что то не так написал

J-Fobos

11.05.2010, 00:50

надо писать не +20, а просто 20

ildarado

11.05.2010, 08:48

J-Fobos
Я и так писал но ничего происходило должно же выходить сообщение что команда принита.

playOK

12.05.2010, 15:19

Не корректно работает скрипт на хрониках Эпилог. Если часть вещей сломалась скрипт не перещитывает оставшиеся, а пытается точить изначальное количество, в результате чего зависает. Спасает перезапуск скрипта, но все же хотелось бы полного автоматизма.

Carnaby

18.05.2010, 04:07

заточит на +2 и остоновится на оч долгое время есть заного не нажать соц действие да так и не прододолжит.
если инвентарь открыть то продолжается
аналогично. скрипт Auto_enchant_maxlvl, как исправить, подскажите

PitzZBull

31.05.2010, 00:13

я не пойму не от тамбика не пашет скрипт не от юфо...вобщем так...ввожу все данные, разворачиваю в ла2, пишу ему макс уровень заточки 16, и все молчит дальше действий не происходит, мб потому что это эпилог? но пакеты то по идеи одинаковые, что сделать что скрипт работал? на некоторых серверах пашет а нанекоторых как я описал выше.

domovoi

31.05.2010, 11:28

Привет всем.
у мну не понятная проблема со скриптом на заточку скилов! когда запускаю скил вылетает ошибка. Что с ней делать уже всю голову переломал!? пользуюсь l2phx 3.5.33.164 Сервер ГФ, La2world.
Что самое интересное, прогу мне настроенную скинул человек короый играет на этом же сервере и у него все работает. прочитал тут некоторые посты на сайте. Все про подобную ошибку говорят, что нужен файлик Newxor.dll а у мну его нет и небыло, и не могу ни где найти!
плиз помогите!
Заранее спс

Djvladimir

18.06.2010, 21:31

Скрипт работает но вот такая проблема, точит тока на +1 а дальше не хочет и на экране вот такая картина
http://s56.radikal.ru/i154/1006/e4/f6e0e317860at.jpg (http://radikal.ru/F/s56.radikal.ru/i154/1006/e4/f6e0e317860a.jpg.html)

вот лог
18.06.2010 07:58:00 Успешно загрузили E:\РАЗНЕ\GAME DOWNLOADS\l2ph3.5\inject.dll
18.06.2010 07:58:00 Стартует L2ph v3.5.33.164
18.06.2010 07:58:00 На 7788 зарегистрирован локальный сервер
18.06.2010 07:58:10 Надёжно пропатчен новый клиент l2.exe (1716)
18.06.2010 07:59:37 (Inject.dll) Коннект на 213.186.116.137:2106 проигнорирован
18.06.2010 07:59:42 (Inject.dll) Перехвачен коннект на 213.186.117.99:8440
18.06.2010 07:59:42 ServerListen: Обнаружено новое соединение.
18.06.2010 07:59:42 Тунель ($66952272) создан
18.06.2010 07:59:42 Тунель ($66952272) запущен для чтения с сокета № 12
18.06.2010 07:59:42 Тунель ($66952272), Серверный сокет № 12 / Клиентский сокет № 324, Соединение установлено с 213.186.117.99:8440
18.06.2010 07:59:47 Имя соединения для тунеля ($66952272): LEMONGRAS
18.06.2010 08:01:39 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 0
18.06.2010 08:02:51 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 299
18.06.2010 08:10:35 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 309
18.06.2010 08:13:03 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 304

Добавлено через 11 часов 15 минут
присоединюсь к вопросу PeageHT, описанному тут (http://coderx.ru/showpost.php?p=57415&postcount=50):
сервер: shock-world.com
версия клиента: Gracia Epilogue
версия пакетхака: 3.5.33.164
скрипт: Auto_enchant_maxlvl - gracia_final
используется LSP перехват.

суть вопроса: скрипт останавливается после нажатия соцдействия ДА.
если нажать снова заточит еще на одно значение и вновь остановится.

скриншот работы скрипта из клиента игры тут (http://img88.imageshack.us/img88/9494/shot00000st.jpg).

добавлю, что у нас пока администрация никаких ограничений на время между заточками не ввела и скоро тестовый период закончится вайпом, хотелось бы хоть немного успеть побегать с точеными вещами.
Заранее благодарю!
помогите НАМ)

Yammi

23.06.2010, 13:54

Скрипт работает но вот такая проблема, точит тока на +1 а дальше не хочет и на экране вот такая картина
http://s56.radikal.ru/i154/1006/e4/f6e0e317860at.jpg (http://radikal.ru/F/s56.radikal.ru/i154/1006/e4/f6e0e317860a.jpg.html)

вот лог
18.06.2010 07:58:00 Успешно загрузили E:\РАЗНЕ\GAME DOWNLOADS\l2ph3.5\inject.dll
18.06.2010 07:58:00 Стартует L2ph v3.5.33.164
18.06.2010 07:58:00 На 7788 зарегистрирован локальный сервер
18.06.2010 07:58:10 Надёжно пропатчен новый клиент l2.exe (1716)
18.06.2010 07:59:37 (Inject.dll) Коннект на 213.186.116.137:2106 проигнорирован
18.06.2010 07:59:42 (Inject.dll) Перехвачен коннект на 213.186.117.99:8440
18.06.2010 07:59:42 ServerListen: Обнаружено новое соединение.
18.06.2010 07:59:42 Тунель ($66952272) создан
18.06.2010 07:59:42 Тунель ($66952272) запущен для чтения с сокета № 12
18.06.2010 07:59:42 Тунель ($66952272), Серверный сокет № 12 / Клиентский сокет № 324, Соединение установлено с 213.186.117.99:8440
18.06.2010 07:59:47 Имя соединения для тунеля ($66952272): LEMONGRAS
18.06.2010 08:01:39 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 0
18.06.2010 08:02:51 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 299
18.06.2010 08:10:35 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 309
18.06.2010 08:13:03 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 304

Добавлено через 11 часов 15 минут

помогите НАМ)

Ребят помогите плз, как запустили скрипт на епилоге? какой скрипт запустили? и будет ли он работать на грации финал?? Спасибо заранее.
У меня даже скрипт не пишет в игре найден ID и т.д думаю мб ID лист не тот или хз (( хелп плз)

Spozi

24.06.2010, 03:58

Скрипт работает но вот такая проблема, точит тока на +1 а дальше не хочет и на экране вот такая картина
http://s56.radikal.ru/i154/1006/e4/f6e0e317860at.jpg (http://radikal.ru/F/s56.radikal.ru/i154/1006/e4/f6e0e317860a.jpg.html)

вот лог
18.06.2010 07:58:00 Успешно загрузили E:\РАЗНЕ\GAME DOWNLOADS\l2ph3.5\inject.dll
18.06.2010 07:58:00 Стартует L2ph v3.5.33.164
18.06.2010 07:58:00 На 7788 зарегистрирован локальный сервер
18.06.2010 07:58:10 Надёжно пропатчен новый клиент l2.exe (1716)
18.06.2010 07:59:37 (Inject.dll) Коннект на 213.186.116.137:2106 проигнорирован
18.06.2010 07:59:42 (Inject.dll) Перехвачен коннект на 213.186.117.99:8440
18.06.2010 07:59:42 ServerListen: Обнаружено новое соединение.
18.06.2010 07:59:42 Тунель ($66952272) создан
18.06.2010 07:59:42 Тунель ($66952272) запущен для чтения с сокета № 12
18.06.2010 07:59:42 Тунель ($66952272), Серверный сокет № 12 / Клиентский сокет № 324, Соединение установлено с 213.186.117.99:8440
18.06.2010 07:59:47 Имя соединения для тунеля ($66952272): LEMONGRAS
18.06.2010 08:01:39 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 0
18.06.2010 08:02:51 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 299
18.06.2010 08:10:35 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 309
18.06.2010 08:13:03 Auto_enchant_maxlvl - gracia_final: Операция успешно завершена; on line 304

Добавлено через 11 часов 15 минут

помогите НАМ)

Присоединяюсь к вопросу) Ставлю 60, точу на 1, нажимаю да и он точит 1 раз.. нажимаю еще раз "да" он точит еще один...
т.е чтоб заточить на 60 мне нужно 60 раз нажать да

Djvladimir

26.06.2010, 12:41

сюда ваще ктонть заходит?

J-Fobos

26.06.2010, 13:17

сюда ваще ктонть заходит?
Да, каждый день

1835685

04.07.2010, 01:55

Тамвик или кто нибудь ещё помогите! Вот ссылка у тамвика http://coderx.ru/attachment.php?attachmentid=756&d=1259652371 На ил
я его кач, забросил в папку Scripts, но когда л2пх врубил он в скриптах не отображался.
Что делать?

J-Fobos

04.07.2010, 02:29

1835685

04.07.2010, 04:07

Где эта справка я что то не вижу.

J-Fobos

04.07.2010, 14:12

Где эта справка я что то не вижу.
Да ее спрятали дальше некуда, кто бы догадался закрепленные темы раздела глянуть.
http://coderx.ru/showthread.php?t=423

1835685

09.07.2010, 16:35

Мля пытаюсь, пытаюсь этот файл не читает.

Добавлено через 11 минут
http://coderx.ru/attachment.php?attachmentid=862&d=1262007021
Вот ссылка, ну никак не могу сделать. Может поможете не отображает файл в папке "Scripts". Что делать? И пож не надо меня отправлять какие то справки смотреть, если в силах объяснить то напишите пожалуйста.

Breadfan

09.07.2010, 16:49

ты в окне открытия файла скрипта - тип файла ставишь на "Все файлы" или оставляешь как "файл скрипта" ?

1835685

09.07.2010, 17:27

Вот вроде всё зделал но вот возникла проблема. Всё написало типо должно точить взял точку точнул пуху и нажал на соц действие "да".
Результата 0, если знаете подскажите.
Сервер: www.la2crystal.com

Добавлено через 18 минут
Сори немогу скрин выложить так бы показал какой у мну скрипт, мне почему то кажется что не тот.

1835685

16.07.2010, 00:39

Кто нибудь поможет нет?

J-Fobos

16.07.2010, 00:56

Кто нибудь поможет нет?
Думаю что нет, хотя может кто-то добрый найдется :)

Breadfan

16.07.2010, 01:12

Думаю что нет, хотя может кто-то добрый найдется :) - без скринов и более-менее внятного описания происходящего? Сомневаюсь. Из его шикарного описания - даже невозможно понять чего именно пишет в чате...хоть бы вручную переписал чтоль, раз скринами никак

1835685

17.07.2010, 12:11

Вы скажите как скрины тут выложить. Тогда конешно покажу =)

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

Добавлено через 4 минуты
Мля не получается!

Добавлено через 1 час 45 минут
Вот скрин:
http://s59.radikal.ru/i164/1007/35/07eacb58f508.jpg
Всё идёт как должно быть, но когда нажимаеш на соц. действие "да" то он махает головой а точить так и не начинает.

Добавлено через 8 минут
Не знаю что делать.

Добавлено через 18 часов 59 минут
Ну что, может кто та поможет?

CrazyInLove

25.08.2010, 17:13

такая проблема,с скриптом UFO ,когда затачивается до n-ой точки,после берется обычная точка и ломает вещь,может кто-то исправить скрипт ? мне приходится в итоге сидеть перед компом и смотреть ,чтоб быстро оффнуть на 6:D

haxter

30.08.2010, 02:41

как качть чет не пому скажитеееееееее

//Breadfan: а внятно, и (желательно) грамотно написать - никак ?

kofein

30.08.2010, 03:18

Привет всем! Помогите пожалуйста мне с таковой проблемой:
Играю на сервере Интерлюд
Скачал l2phx.3.5.33.164, сделал все как положено, выбрал второй вариант настройки http://coderx.ru/showpost.php?p=49659&postcount=1175
т.к. первый без результативен то есть не логинится.
Вернемся к самой проблеме, когда я захожу в л2, конекчусь, и захожу в мир, л2 просто закрывается... В чем проблема? помогите! Побівал различные виды настроек- либо ничего вообще не происходит во время логина, либо выкидывает.
+ еще выдало ошибку Access violation at address 03B72174. Write of address 00000304.

//Breadfan: Вам в этой (http://coderx.ru/showthread.php?t=3791) ветке надо писать, а не тут.

JIyka

09.09.2010, 02:45

Помогите переделать скрипт Auto_enchant + 1 - interlude + покупка !!.rar под стопковые скролы (как в эпилоге)

http://s40.radikal.ru/i090/1009/97/8b81b834ac98.jpg (http://www.radikal.ru)

Auto_enchant_maxlvl - interlude+покупка !!.rar а этот норм работает

Breadfan

09.09.2010, 03:05

а скроллы при чем, ID 7577 - это драк лук

Xeop

17.09.2010, 14:59

все делаю как написано, нажимаю на Yes точит на 1 уровень выше потом вылазит окно с выбором итема и все на этом в патичате пишет ОСТАНОВЛЕНО. В чем проблема? помогите плиз

QaK

18.09.2010, 11:15

Despot, тебе сюда (http://coderx.ru/showthread.php?t=3791)

Damiencs

18.09.2010, 13:58

Всем доброе время суток! Ребят подскажите кто нето точил с помощью скрипта на http://alleria.ru !а то пробую ничего вообще тишина!я конечно мало что понимаю в сриптах!но вроде все как описано делал!и ничего!пакеты видит прога робит а скрипты нет!(может кто точил на нем)дайте рабочий вариант или как настроить!(а то друг спиздонил арку мою!играли в клане менялись шмотом а он в один день взял и вышел с вещичками моими!а точится самому не хватает нервов уже)

Damiencs

19.09.2010, 16:55

кто нет поможет или не?

//J-Fobos: http://coderx.ru/search.php

Djvladimir

03.10.2010, 15:23

Хочу обратиться за помощью , недавно на нашем сервере поставили обновление
http://rulineage.com/------ серв
Раньше свитки были все в одной стопке и скрипт прекрасно точил но после обновы свитки стали покупатся по одной таким образом что одна ячейка инвентаря = один свиток , скрипт терь точит один раз и останавливаеться, кто может переписать или изменить под новые требовани (администрация сказала свитки так остануться всегда( )

goodmen69

05.10.2010, 03:06

TAMBIK, проблема с интерлюдией.
пользуюсь версией l2phx.3.5.33.164 все настроил все работает вроде правильно.
скрипт настроил только его активирую и клиент с игрой выкиддывает из сервера.
подскажи пожалуйста в чем проблема и как её решить?

Hunter

25.11.2010, 17:00

Тамбик в общем я загрузил л2пх патом установил скрипт на заточку (интерлюд) еще не потверждал захожу в ла2 и не загружается окно ла2, в окне показа логов пишет вот такую тему: "25.11.2010 15:54:06 Надёжно пропатчен новый клиент l2.bin (1496)". это че означает серв надежно защищен???
версия L2PacketHack 3.5.33.164

//J-Fobos: если вас интересует работа пакетхака на конкретном сервере задайте вопрос в соответствующей теме. Просто, то что вы сейчас спросили к заточке не очень относится :)

Batyr

02.12.2010, 23:33

Здравствуйте, скрипт работает отменно, только сразу же при поломке он выдает сообщение, что свитков заточки в инвентаре 0 и постоянно так пишет пока не перезапустишь и клиент и La2phx...

1669

http://www.lin2pvp.ru/
Прослушиваемый порт: 2325
Грация Финал - Эпилог

Посоветуйте что-нибудь...

NLObP

03.12.2010, 01:19

Batyr, инвентарь неправильно определяет, похоже на это.

Batyr

03.12.2010, 02:52

Batyr, инвентарь неправильно определяет, похоже на это.

спасибо, сам разобрался) просто в месте

procedure enchantSkroll;
begin
skrolObject:=skrolOID;
sumskrol:=Getitem(skrolID,3,5);//считаем SKROL
SendMsg2 (' SKROLL ... c ID : '+IntToStr(skrolID)+' = '+IntToStr(sumskrol)+' ШТ ');
if (sumskrol>0) then Timer01.enabled:=true;// вкл таймер выбора свитка
if (sumskrol=0) then Timer01.enabled:=true;//Поменял это then begin; на то что написано...зачем останавливать заточку если свитка нет, заточки же итак не будет)
autoMsg:=true;

SendMsg2 ('........ НЕДОСТАТОЧНО SKROLL........ ');
end;

Breadfan

03.12.2010, 03:11

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

hopuah1991

10.12.2010, 15:34

А де взять для эпилога такую темку?

QaK

10.12.2010, 22:20

hopuah1991, м.б. переделать самому из существующего?

Nickers

10.12.2010, 22:46

hopuah1991, м.б. переделать самому из существующего?
Как смещения редактировать под версии? Есть темка такая?
(Я случаем не бред несу?)

NLObP

11.12.2010, 04:36

Как смещения редактировать под версии?

Берешь конкретный сервер, точишся руками, смотришь пакеты: ItemList, InventoryUpdate. Если во всех предметах видно правильное описание по ItemID (смещение 10 и 78 по рисунку), то смотришь, в например этот кусок скрипта:
procedure ItemList;
var
i, j, k: integer;
ListSize: integer;
begin
j:=4; //пропускаем дo ListSize
ListSize:=ReadH(j);
for i:=1 to ListSize do
if (i<=ListSize) then begin
BaseItems[i,1]:=ReadH(j); //ItemType1- 1:одето броня. 0:бижа. 4:в рюкзаке
BaseItems[i,2]:=ReadD(j); //ObjectID
BaseItems[i,3]:=ReadD(j); //ItemID
BaseItems[i,4]:=ReadD(j); //LocationSlot
BaseItems[i,5]:=ReadD(j); // q Amount:
j:=j+4; // q Amount:
BaseItems[i,6]:=ReadH(j); //ItemType2
BaseItems[i,7]:=ReadH(j); // CustomType1
BaseItems[i,8]:=ReadH(j); //isEquipped:
BaseItems[i,9]:=ReadD(j); //BodyPart
BaseItems[i,10]:=ReadH(j); //EnchantLevel
inc(j,30);// ФИНАЛ
end else for k:=1 to 10 do BaseItems[i,k]:=0; // забиваем нулями
if (0<ItemID) then objectOID:=GetObjectID(ItemID);//находим по ItemID предмет с ObjectID
end;

Нас интересуют смещения ObjectID, EnchantLevel и кусочек скрипта - inc(j,30). Так вот. На рисунке, в первом блоке EnchantLevel находится по смещению 36 он размером 2 байта, за ним идет CustType2 смещение 38. Оно нам и надо. В следующем блоке ObjectID по смещению - 74. Вычисляем разницу 74-38=36. Вот поэтому сюда inc(j,30); надо не 30, а 36 вставить. Так как по видимому другие хроники. Процедура должна быть такая:
procedure ItemList;
var
i, j, k: integer;
ListSize: integer;
begin
j:=4; //пропускаем дo ListSize
ListSize:=ReadH(j);
for i:=1 to ListSize do
if (i<=ListSize) then begin
BaseItems[i,1]:=ReadH(j); //ItemType1- 1:одето броня. 0:бижа. 4:в рюкзаке
BaseItems[i,2]:=ReadD(j); //ObjectID
BaseItems[i,3]:=ReadD(j); //ItemID
BaseItems[i,4]:=ReadD(j); //LocationSlot
BaseItems[i,5]:=ReadD(j); // q Amount:
j:=j+4; // q Amount:
BaseItems[i,6]:=ReadH(j); //ItemType2
BaseItems[i,7]:=ReadH(j); // CustomType1
BaseItems[i,8]:=ReadH(j); //isEquipped:
BaseItems[i,9]:=ReadD(j); //BodyPart
BaseItems[i,10]:=ReadH(j); //EnchantLevel
inc(j,36);// ФИНАЛ
end else for k:=1 to 10 do BaseItems[i,k]:=0; // забиваем нулями
if (0<ItemID) then objectOID:=GetObjectID(ItemID);//находим по ItemID предмет с ObjectID
end;

С пакетом и процедурой InventoryUpdate, поступаем аналогично.
Кроме этого из лога надо проверить соответствие ID пакетов, тем которые в скрипте. Ну и сама логика заточки в скрипте должна соответствовать хроникам сервера.

NLObP

11.12.2010, 04:38

Если описание по ItemId не видно, то надо сначала исправить описание пакетов ItemList, InventoryUpdate в файле packets.ini в комплекте пакетхака под свой сервер.

rediska32rus

13.12.2010, 18:26

народ помогите переписать данный скрипт под фрею, сижу пол дня башню ломаю, ничего не выходит при нажатии соц действия "да" пишет "предмет не заточен или пакеты не приняты", плюс ко всему знания в скриптописании равны 0, помогите плз
ps использую последнюю версию хлапы 3.5.33.166
в моих попытках было измение скрипта в этой части
BaseItems[i,1]:=ReadH(j);
BaseItems[i,2]:=ReadD(j);//ObjectID
BaseItems[i,3]:=ReadD(j);//ItemID
BaseItems[i,4]:=ReadD(j);//LocationSlot
BaseItems[i,5]:=ReadD(j);// Amount:
BaseItems[i,6]:=ReadD(j);// Amount:
BaseItems[i,7]:=ReadH(j);//ItemType2
BaseItems[i,8]:=ReadH(j);// CustomType1
BaseItems[i,9]:=ReadH(j);//isEquipped:
BaseItems[i,10]:=ReadD(j);//BodyPart
BaseItems[i,11]:=ReadH(j);//EnchantLevel
после просмотра структуры пакета фреи переделал в следующее
if (i<=ListSize) then begin
BaseItems[i,1]:=ReadH(j);//Show window
BaseItems[i,2]:=ReadH(j);//itemcount
BaseItems[i,3]:=ReadD(j);//objectid
BaseItems[i,4]:=ReadD(j);//itemid
BaseItems[i,5]:=ReadD(j);// locationslot
BaseItems[i,6]:=ReadQ(j);// Amount:
BaseItems[i,7]:=ReadH(j);//ItemType2
BaseItems[i,8]:=ReadH(j);// CustomType1
BaseItems[i,9]:=ReadH(j);//isEquipped:
BaseItems[i,10]:=ReadD(j);//BodyPart
BaseItems[i,11]:=ReadH(j);//EnchantLevel
но результат остался прежним(
еще раз все проверив пришел к выводу что вышепроделанное мной бред:help:
Если описание по ItemId не видно, то надо сначала исправить описание пакетов ItemList, InventoryUpdate в файле packets.ini в комплекте пакетхака под свой сервер.
невидно только описание предметов фреи, остальные читает правильно
pss приложил лог заточки предмета(серьга элегии) вроде лишних пакетов о продаже и прочего нет

NLObP

14.12.2010, 00:27

rediska32rus, что то ты совсем не то сделал. Дай ссылку на скрипт, патч клиента и тестовый аккаунт. Я завтра вечером могу попробовать.

Gray314

14.12.2010, 15:36

to rediska32rus вот возможное решение твое проблемы, покрайней мере мен помогло: http://coderx.ru/showthread.php?t=6043

з.ы. на каком сервере играешь?:)

rediska32rus

16.12.2010, 02:09

NLObP, я использую тот же скрипт что и Gray314, я зашел в его тему, почитал, закоментил нужную строку, но результата нет, даже не определяет нужный уровень заточки, и соответственно ничего не работает, сервер и тестовый акк в личке.

Так после комбинирования настроек хлапы процесс сдвинулся с места теперь все определяет, но есть проблема, нельзя указать уровень заточки, в пакетах отображается что я пишу число 16, но скрипт на ннего не реагирует.

Все скрипт теперь работает, нашел свой старый косяк в скрипте, ОГРОМНОЕ СПАСИБО NLObP за решение проблемы и Gray314, за то что подсказал где посмотреть подобную тему

xBasilx

16.12.2010, 14:55

xBasilx

17.12.2010, 20:03

парни подскажите пожалуйста - почему у меня не определяется окно игры и имя персонажа. В списке соединений "0-пусто".

//Breadfan: читайте тему http://coderx.ru/showthread.php?t=3791

iSee

06.01.2011, 13:48

Проблема в следующем,скачал и настроил скрипт,все работает,но требуется сделать следующее,чтобы перед покупкой заточек он менял монету на адены,а затем покупал заточки и точил и так по кругу

Nickers

06.01.2011, 14:12

Объясняю как это сделать под скрипт:
Auto_enchant_maxlvl - interlude+покупка !!
(Думаю под другие версии (или скрипты других авторов) можно реализовать так же...)

(Делал другу под один пвп сервер)
Находим процедуру OnTimer03
Идем в самый низ (До end; ) и перед end; вставляем:
if (GetItem(57,3,4)<1500000000) then
begin
Repeat
begin
buf:=#$A7#$B1#$12#$01#$00#$40#$80#$58#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
Until (GetItem(57,3,4)<1500000000);
end;
Внимание! Если стереть (Случайно) end; скрипту буит плохо...

Где в GetItem(57,3,4)<1500000000(Нужно менять в 2х местах!!!)
1.5ккк - Значениео больше которого вам нужно кол-во адены в инвентаре...

buf:=#$A7#$B1#$12#$01#$00#$40#$80#$58#$00#$01#$00# $00#$00#$00#$00#$00#$00#$00#$00#$00#$00;
Пакет, который посылаем... (Перед каждой парой ставим #$)

Скрипт будет проводить проверку с переодичностью заточки, если адены меньше чем 1.5ккк, посылает пакет, пока не будет Адены больше чем 1.5ккк (Если будет ровно 1.5ккк он пошлет еще раз!)
Если пакет никак не способствует увеличению кол-ва адены, скрипт и весь ПХ зависнет в агонии...
--------------------------------------------------------

Если есть более продуктивные способы меня это не волнует ^^

Batyr

08.01.2011, 17:52

Нужна помошь, скрипт Auto_enchant + 1 _selectskroll - gracia_final настроил, работает прекрасно, но вот как сделать так чтобы запустить несколько окон и несколько окон точили? я копировал скрипт и изменил никнеймы и настроил под каждого персонажа, но постоянно пишет "недостаточно скроллов блесс скроллов..."
Есть способ точить в несколько окон?

Breadfan

09.01.2011, 16:42

RODMAN91

24.01.2011, 12:28

GregoryH

02.07.2011, 03:09

Auto_enchant + 1 - interlude + покупка !!.rar
Скрипт прекрасный, но немного у меня не работает ... При заточки приходится каждый раз нажимать tab только тогда он продолжает точить и когда заканчиваются точки он не может докупить их как это можно исправить?

NLObP

03.07.2011, 03:06

При заточки приходится каждый раз нажимать tab только тогда он продолжает точить

Это похоже на то, что пакет 21=InventoryUpdate не верно расшифровывается. А вот 11=ItemList, который приходит при нажатии клавиши TAB, расшифровывается верно.

SwapKasper

23.10.2011, 00:07

Скрипт для Фреи существует?

boy200007

23.10.2011, 18:51

Парни, под Фрею есть уже готовый рабочий скрипт на заточку или надо ручками переделывать? Если у кого есть, выложите пожалуйста архив, а то я не очень силён в программировании, но готов подсказать с электричеством. Заранее благодарен.

//Breadfan: http://coderx.ru/showpost.php?p=102751&postcount=424

я не понел что там надо сделать или что я не так делаю ?
открываю пнх. запускаю л2. он обнаружил все. патом захожу на скрипт и открываю. пищу свой ник и нажимаю на гром значок. но ни че не происходить. тупо стоит клиент фрея сервер фрея. подскажите пож. а тот скрипт который в начале стоит с надписью хелло он работает. целый день сижу не как до меня не доходить заранее спасибо

°Exzest°

20.12.2011, 18:33

goodvin1709

20.12.2011, 21:57

Блин напишы свой скрипт на основе базы инвентаря другого скрипта.и будет тебе радость я так и сделал.

°Exzest°

20.12.2011, 22:15

Была такая идея.
Попробовал, не вышло, потом ещё ковырялся весь вечер и ничего.
Я в этом деле тупее пробки.
Видел тут манулы по скриптингу, но если и учиться, то это на выходных после НГ только выйдет при очень сильном желании и хорошем состоянии)))

P.S. С наступающим всех :)

EmL

24.12.2011, 11:15

NLObP

25.12.2011, 01:53

Точно токая же проблема. Помогите пожалуйста.

Попробуй L2ph v3.5.33.173, в ней должна отсутствовать ошибка
Операция успешно завершена; on line

Sanek

16.01.2012, 00:20

У меня тоже самое:
Скрипт работает но вот такая проблема, точит тока на +1 а дальше не хочет и на экране вот такая картина
http://s56.radikal.ru/i154/1006/e4/f6e0e317860at.jpg (http://radikal.ru/F/s56.radikal.ru/i154/1006/e4/f6e0e317860a.jpg.html)

Приходится постоянно нажимать соц.действие, что не есть совсем автозаточка.
Скрипт ниже точит автоматически, но у него свои баги. Подскажите, пожалуйста, что нужно взять из скрипта ниже и добавить/изменить в скрипт выложенный в этой теме для грации, для того чтобы скрипт точил дальше, а не останавливался.
const
nik='xxxx';
Enchant=16;

var
UseItem, SelectItem, EnchantItem: string;
CurrentEnch: integer;
key: boolean;
Timer01, Timer02: TTimer;

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=3000;

Timer02:=TTimer.Create(nil);
Timer02.OnTimer:=@OnTimer02;
Timer02.enabled:=false;
Timer02.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
case key of
false: begin
buf:=UseItem;
SendToServerEx(nik);
Timer02.enabled:=true;
end;
true: begin
buf:=EnchantItem;
SendToServerEx(nik);
end;
end;
key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
buf:=SelectItem;
SendToServerEx(nik);
Timer02.enabled:=false;
end;

procedure Free;
begin
Timer01.free;
Timer02.free;
CurrentEnch:=0;
key:=false;
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 FromClient and (pck[1]=#$19) then UseItem:=pck;
if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
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.

DARTY

23.06.2012, 20:05

Использую ЛСП перехват, скрипт Auto_enchant_maxlvl - interlude+покупка !!
Всё включил, точи минуты две, потом перестаёт. Что б продолжил точить, надо закрыть и открыть сумку. Как это исправить?

JuniK

17.07.2012, 03:45

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

1mz

18.08.2012, 15:55

скрипт вроде как запускается, а в клиенте нечег оне происходит

Сергей Чернявский

21.04.2013, 08:52

Добрый день народ, форум как вообще не мертв? нехнаю в надежде на наших кодеров я все же напишу.
О себе играю в л2 давно, и перехватчик пакетов настраивался всегда, что хочу попросить или спросить, допустим , для пуще простоты, мы почислили ини пакетов, он пустой, (ТАК КАК НА СЕРВЕРЕ ДРУГАЯ ПАКЕТНАЯ СИСТЕМА),
ее алгоритм понятен сразу, я сейчас приведу примеры отличия от стандартных пакетов,
Tип: 0x19 (UseItem)
19 79 C1 18 40 00 00 00 00
skrolObjectID:=ReadD(2); Стандартный
нестандартный
он же на сервере, 3 примера
04 C7 FB 86 B7 2B 01 10 00 00 00 00
E6 0E 25 8D 96 2B 01 10 00 00 00 00
E5 2A 28 BE B9 2B 01 10 00 00 00 00

Tип: 0x5F (RequestEnchantItem)
5F 7A C1 18 40
enchantObjectID

0B BB 5F 10 64 A0 09 10
A3 A3 DD 93 5A A0 09 10
9D 5E E9 12 63 A0 09 10
он же на сервере.

Ребята что делать, пофигу пусть на л2пх будет работать только автозаточка, что куда добавить как исправить? потому что определять пакеты нада по другой стороне, ? помогите я слежу за сообщением весь день, пока играю,!

J-Fobos

21.04.2013, 20:27

Сергей Чернявский, отредактируйте ини файл с описанием пакетов.

Сергей Чернявский

21.04.2013, 23:16

Сергей Чернявский, отредактируйте ини файл с описанием пакетов.

как именно ??
вот к примеру пакет 15=TradeRequest:d(ObjectID)
то есть если пакет начинается на 15 то он определяет что это,

а в этих пакетах определение идет на конце?? как именно нужно вставить это??? я же примеры привел, это одни и те же команды что я вверху написал,Ю там по три пакета!

Добавлено через 2 часа 17 минут
Сергей Чернявский, отредактируйте ини файл с описанием пакетов.

ты ахрененно помог, спасибо кули

J-Fobos

22.04.2013, 15:51

да пожалуйста

JoiMantana

08.05.2013, 07:25

Глубокоувожаемый J-Fobos , я осознал свою ошибку и прошу прощения а свою дерзость. Прошу понять меня и простить. Давай заного построим наши отношения типа пользователь-Профи.
Прошу к сотрудничеству. Дело в том что мне кажется что смысла редактировать файл ини с описанием пакетов нету, постольку поскольку шифрация у пакетов другая. Недавно я нашел один бажег) прошу не много! сделаю все сам разберусь и настрою!

Я лювлю пакеты через l2ph 3.5.34.176.

Мне необходимо отправить много пакетов за 2-5 секунд а именно 148,

Обьясняю, мне необходимо кристализировать предметы со скоростью света, затем я могу уж вручную их покупать.

Проблема!!! проблема все в том же, сервер определяет пакеты по последним байтам или битам я не разбираюсь, то есть пример, вот 50 пакетов на кристализацию одного и того же предмета

D4 A0 BC E9 58 FB 00 10 01 00 00 00
51 38 23 90 59 FB 00 10 01 00 00 00
E8 36 3B 74 5B FB 00 10 01 00 00 00
CB 9C 03 C9 62 FB 00 10 01 00 00 00
3A D8 D5 EB 66 FB 00 10 01 00 00 00
FE 3F ED B1 68 FB 00 10 01 00 00 00
01 2E 9C E1 6A FB 00 10 01 00 00 00
BD 5B A4 A5 78 FB 00 10 01 00 00 00
69 7E 86 14 7A FB 00 10 01 00 00 00
FB 7D 71 F0 82 FB 00 10 01 00 00 00
A5 0A AC 40 24 FB 00 10 01 00 00 00
BC A0 13 DE 8A FB 00 10 01 00 00 00
F9 00 D8 A2 26 FB 00 10 01 00 00 00
04 78 A7 F9 94 FB 00 10 01 00 00 00
02 0A CA C3 95 FB 00 10 01 00 00 00
25 31 C1 AF 96 FB 00 10 01 00 00 00
CF F1 18 A0 97 FB 00 10 01 00 00 00
89 B5 6F CD 9A FB 00 10 01 00 00 00
05 D2 E7 AE 9B FB 00 10 01 00 00 00
CE 99 D6 85 9C FB 00 10 01 00 00 00
67 07 09 2D 9E FB 00 10 01 00 00 00
8E D1 18 9F A0 FB 00 10 01 00 00 00
C2 5A 98 D2 A3 FB 00 10 01 00 00 00
93 45 12 47 A4 FB 00 10 01 00 00 00
37 66 A5 D1 A5 FB 00 10 01 00 00 00
8D 71 A8 EB AE FB 00 10 01 00 00 00
F6 8D B0 A0 AF FB 00 10 01 00 00 00
2C 24 52 B6 C0 FB 00 10 01 00 00 00
59 8A C3 F3 C1 FB 00 10 01 00 00 00
07 3B 1E 15 C4 FB 00 10 01 00 00 00
8B F4 5A 00 C5 FB 00 10 01 00 00 00
F9 79 E4 CE D0 FB 00 10 01 00 00 00
8A 04 D3 A4 D2 FB 00 10 01 00 00 00
B2 2E 7A 7D D3 FB 00 10 01 00 00 00
3B F8 7B 47 D5 FB 00 10 01 00 00 00
83 48 0B 1D DE FB 00 10 01 00 00 00
F1 2B 63 C9 DF FB 00 10 01 00 00 00
A6 69 C2 27 27 FB 00 10 01 00 00 00
FD 5D EB 38 F7 FB 00 10 01 00 00 00
47 29 06 28 FE FB 00 10 01 00 00 00
EA 30 0E 1C FF FB 00 10 01 00 00 00
4A 74 28 5A 50 FB 00 10 01 00 00 00
67 D5 B0 4B 06 FC 00 10 01 00 00 00
E0 3B CC 68 07 FC 00 10 01 00 00 00
79 D4 44 81 09 FC 00 10 01 00 00 00
46 4B 78 7F 55 FB 00 10 01 00 00 00
3E AB 69 57 0B FC 00 10 01 00 00 00
2E EC 50 DF 57 FB 00 10 01 00 00 00
B6 01 0F B0 83 FB 00 10 01 00 00 00
1A 7C 1B AC 8E FB 00 10 01 00 00 00
D5 D5 4B 1A EC FB 00 10 01 00 00 00
A9 6D 41 44 01 FC 00 10 01 00 00 00
F5 D3 8F 9F 0A FC 00 10 01 00 00 00
A4 83 63 F2 0F FB 00 10 01 00 00 00
2F 64 87 12 19 FB 00 10 01 00 00 00
4C 95 A5 72 1B FB 00 10 01 00 00 00
7E B3 59 47 1C FB 00 10 01 00 00 00
C5 AB 20 51 1D FB 00 10 01 00 00 00
DB DD 71 7C 21 FB 00 10 01 00 00 00
08 18 A9 6E 01 FB 00 10 01 00 00 00
8E 5E 59 14 02 FB 00 10 01 00 00 00
92 00 68 61 05 FB 00 10 01 00 00 00
F8 98 0D C8 08 FB 00 10 01 00 00 00
A5 49 44 F2 09 FB 00 10 01 00 00 00
45 98 2B 72 0B FB 00 10 01 00 00 00

пожалуйста подскажите как что мне сделать как и где? чтобы я мог быстро кристализовать предметы.:)
если без денег никуда, то прошу личное сообщение, будем договариваться

J-Fobos

08.05.2013, 19:31

Обсуждение багов у нас запрещено, так что о них не упоминаем.

По пакетам вопрос.
"сервер определяет пакеты по последним байтам"
Может не по последним байтам, а по первым?

welcome

15.05.2013, 21:00

АвТОзаТоЧкА для Епилог работает или нет ? у меня все работает только авто заточка не работает что надо зделат скажите пожатуста спасибо!

Добавлено через 13 минут
АвТОзаТоЧкА Епилоге работает или нет ? у меня все работает толко АвТОзаТоЧкА не работает что надо зделать скажите пожалуска спасибо!

SendMsg2( ' Привет от TAMBIKa' );
SendMsg2( 'в пати чат пишем уровень заточки' );
SendMsg2( ' заточить предметы один раз ! ! !' );
SendMsg2( ' СТАРТ соцдействие ДА ' );
SendMsg2( ' СТОП соцдействие НЕТ' );
SendMsg2('В К Л сообщения соцдействие-приветствие\hello ' );
SendMsg2('ВЫКЛ сообщения соцдействие-победа\victory ' )

1.написал на сколько тачит
2.сам 1 раз точил и не точить
3.да пишу нечего не пишется