Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт, включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку. 1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...
const
nik='Reconnect';
Enchant=20;
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:=3000;
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.
Добавлено через 35 минут
Лог пнх
Код:
26.09.2009 21:04:45 Стартует L2ph v3.5.24.142
26.09.2009 21:04:45 На 7788 зарегистрирован локальный сервер
26.09.2009 21:05:10 Надёжно пропатчен новый клиент l2.exe (3900)
26.09.2009 21:05:22 (Inject.dll) Коннект на 79.174.64.104:2106 проигнорирован
26.09.2009 21:05:24 (Inject.dll) Перехвачен коннект на 79.174.64.104:7777
26.09.2009 21:05:24 ServerListen: Обнаружено новое соединение.
26.09.2009 21:05:24 Тунель ($16840160) создан
26.09.2009 21:05:24 Тунель ($16840160) запущен для чтения с сокета № 228
26.09.2009 21:05:24 Тунель ($16840160), Серверный сокет № 228 / Клиентский сокет № 312, Соединение с 79.174.64.104:7777 .....
26.09.2009 21:05:24 Тунель ($16840160), Серверный сокет № 228 / Клиентский сокет № 312, Соединение установлено с 79.174.64.104:7777
26.09.2009 21:05:27 Имя соединения для тунеля ($16840160): Reconnect
26.09.2009 21:06:10 Тунель ($16840160) Отвалились от клиента
26.09.2009 21:06:10 Тунель ($16840160) Отвалились от сервера
26.09.2009 21:06:10 Тунель ($16840160) уничтожен
Последний раз редактировалось Yeap, 26.09.2009 в 18:15.
Причина: Добавлено сообщение
Извиняюсь , вот нашел интересный скрипт, на вашем форуме. Играю на Interlude - Funsworld.ru . Оружие затачивается только блессами , поскольку они только ипродаются . Смысл заточки таков : Заточка при ломании скидывается не на 0 , а на 10 . Пробывал много скриптов на блесс ниодин не работал . Вот взял скрипт для Interlude от TRAMBIK (а) . Заработало ! Это очень обрадовало . Но теперь поевилась проблемка . Я так смотрю которая в хорошом репертуаре . Заточка не останавливается. Очень прошу помочь , вас ( людей которые действительно хорошо в этом розбераються ) сам не смог ничего изменить и задать нормального вида . Зарание огромное спасибо.
Пользуюсь : l2phx.3.4.1.83 .
Сам скрипт , "код" :
Код:
const
nik='pixel';
Enchant=13;
var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=800;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);
end;
procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;
begin
if FromServer and (pck[1]=#$81) then case ReadD(2) of
0: begin
CurrentEnch:=CurrentEnch+1;
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
2: CurrentEnch:=0;
end;
if FromClient and (pck[1]=#$14) then UseItem:=pck;
if FromClient and (pck[1]=#$58) then EnchantItem:=pck;
if FromClient and (pck=#$1B#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.
EnchantResult (результаты с пакетов ) +10 , +11 , +12
Цитата:
81 0A 00 00 00
Tип: 0x81 (EnchantResult)
Pазмер: 5+2
Время прихода: 00:08:29:906
0002 d result: 10 (0x0000000A)
Цитата:
81 0B 00 00 00
Tип: 0x81 (EnchantResult)
Pазмер: 5+2
Время прихода: 00:08:58:171
0002 d result: 11 (0x0000000B)
Цитата:
81 0C 00 00 00
Tип: 0x81 (EnchantResult)
Pазмер: 5+2
Время прихода: 00:09:40:015
0002 d result: 12 (0x0000000C)
P.S хоть подскажите в каком направление двигатся что бы исправить ошибку . Зарание огромное спасибо .! )
Помогите в грации финал. Активно использую скрипт на заточку.
Код:
const nik='xxx';
Enchant=27;
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:=3370;
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.
Подправте пожалуйста. В игре появились изменения. Надо добавить, чтоб когда оружие сбрасывалось на 0 скрипт посылал мой пакет.
Надо добавить, чтоб когда оружие сбрасывалось на 0
скрипт посылал мой пакет
скрипт послал твой пакет
правильно заданый вопрос содержит ответ
Извиняюсь. За транслит.
Когда неудачная заточка блес скролом оружия, скрипт посылает пакет на диалог нпс, нпс мне точит оружие на 10 и.т.д. Диалог пакет найду а вот вписать в скрипт не получается.
Когда неудачная заточка блес скролом оружия, скрипт посылает пакет на диалог нпс, нпс мне точит оружие на 10 и.т.д. Диалог пакет найду а вот вписать в скрипт не получается.
те надо два пакета
1 пакет-от клиента диалог с нпс,
2 пакет-от сервера что те заточили на 10
здесь
Код:
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;
делаем так
Код:
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:begin
Timer01.enabled:=false;
buf:=hstr(' 1 пакет ');
SendToServerEx(nik);
end;
end;
if FromServer and (pck[1]=#$ПЕРВЫЕ ДВЕ ЦИФРЫ 2 пакета) then begin
Timer01.enabled:=true;
CurrentEnch:=10;// уровень до какого точит нпс
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;
не известен 2 пакет так что пока совет такой
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
1-это правлино ли я вставил эти пакеты?
2-чет ваще ничего не работает
А как-то еще химичил чето первый пакет отсылался и то без команды запускалось все. в итоге кик с серва гм информед часто так, норм с ГМ познакомился. Сказал что на заточку много нажымал. Типа так быстрее.
Последний раз редактировалось neonv1, 08.10.2009 в 08:42.
Пробывал все 3 скрипта что лежат на форуме, от Хорс, Мкс и Нлубп. при скрипте от Мкс не происходит ничего, поменял в нем немного пакет 1соц действия... теперь у меня отсылается в огромном колличестве пакеты логаута, причем я не могу открыть и посмотреть сам пакет. скрипт от Нлубп
Проблема в айтимайди листе, он не видит его вообще. Скрипт от Хорс
нее понял как он работает...
Сервер Глация Финал. походу ява.
Вот пакеты точки Д пушки (денег не хватило на Ы xD)
Код:
серверу отправляем при нажатии точки
0C 2F 4E 08 10 00 00 00 00
сервер отвечает
7C AF 19 00 00
ставим пушку в окно точки
43 4C 00 DD 4D 08 10
сервер отвечает
FE 81 00 DD 4D 08 10
нажимаем кнопку точки
65 DD 4D 08 10 00 00 00 00
сервер отвечает
87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
18 70 49 08 10 01 00 00 00 0E 00 00 00 ED 3B 00 00