Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 21.05.2009, 11:19   #1
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию Автозаточка, просто и сердито!

Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт,
включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку.
1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...

>>>1-й скрипт от mks<<<

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

>>>2-й скрипт от mks<<<


Переделал слегка для Грации Файнал.
Холява закончилась, если выставляешь интервал заточки меньше чем 2100мс получаешь авто-бан(возможно не везде так)

>>>3-й скрипт от mks<<<

для Грации Файнал.
4-й скрипт от mks
добавлен 2й таймер

Последний раз редактировалось NLObP, 08.12.2009 в 23:07.
mks вне форума   Ответить с цитированием
Старый 31.05.2009, 14:03   #21
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

вроде так под ИНТЕРЛЮД
Код:
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.

Последний раз редактировалось TAMBIK, 15.07.2009 в 11:13. Причина: номер пакета EnchantItem ошибка была
TAMBIK вне форума   Ответить с цитированием
За это сообщение TAMBIK нажился 8 спасибками от:
Старый 01.06.2009, 14:13   #22
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Цитата:
Сообщение от Devik Посмотреть сообщение
Cпасибо за скриптик, но есть одна загвоздка,столкнулся с такой же проблемой как некий "motograd", ответа на его вопрос не нашел, решил ещё раз спросить. Поставил енчат на "7", но он продолжает точить дальше, попробовал так же подставить числа переведеные в байты,но уже другой эффект, допустим ставлю енчат "5", тогда он точит не до посинения, а просто 5 раз. Использую LSP перехват. Не подскажите в чем тут проблемка?
эт надо смотреть че от сервера идет после заточки, уже не раз попадал на серваки где тупо не приходит пакет EnchantResult, а если нет этого пакета, то текущая заточка в скрипте всегда будет равна 0, что не позволит выполницо условию выключения таймера заточки
mks вне форума   Ответить с цитированием
За это сообщение mks нажился спасибкой от:
Старый 03.06.2009, 23:04   #23
Новичок
 
Регистрация: 03.06.2009
Сообщений: 4
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
uFoZz пока неопределено
По умолчанию

помогите плиз) только запускаю скрипт и вылетает ошибка, чё делать?(

http://imageshost.ru/links/29646a6bd...3e065d0e5d143e
uFoZz вне форума   Ответить с цитированием
Старый 04.06.2009, 12:32   #24
Новичок
 
Регистрация: 28.05.2009
Сообщений: 19
Сказал Спасибо: 2
Имеет 2 спасибок в 2 сообщенях
xXxMassarakshxXx пока неопределено
По умолчанию

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

Последний раз редактировалось xXxMassarakshxXx, 05.06.2009 в 12:09.
xXxMassarakshxXx вне форума   Ответить с цитированием
Старый 04.06.2009, 17:35   #25
Новичок
 
Регистрация: 03.06.2009
Сообщений: 4
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
uFoZz пока неопределено
По умолчанию

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

Последний раз редактировалось NLObP, 04.06.2009 в 18:34.
uFoZz вне форума   Ответить с цитированием
Старый 07.06.2009, 14:42   #26
Новичок
 
Регистрация: 23.11.2008
Сообщений: 14
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
vovanchikst пока неопределено
По умолчанию

У меня таже проблема походу не приходит пакет EnchantResult, и поетому итем продолжает точится выше заданого числа. Возможно переделать как то скрипт что всё работало?
vovanchikst вне форума   Ответить с цитированием
Старый 07.06.2009, 16:16   #27
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Цитата:
Сообщение от vovanchikst Посмотреть сообщение
У меня таже проблема походу не приходит пакет EnchantResult, и поетому итем продолжает точится выше заданого числа. Возможно переделать как то скрипт что всё работало?
Ну здесь есть как минимум 2 варианта: придумать как вытащить текущую заточку предмета из пакета InventoryUpdate, либо тупо добавить счетчик в таймер, примерно так:
CurrentEnch:=CurrentEnch+1;
только в этом случаи точить всегда с нуля
mks вне форума   Ответить с цитированием
Старый 07.06.2009, 16:47   #28
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Киньте лог пакетов с заточкой чего-нибудь до +4 или +5 (лучше с руофа или птс сервака). У меня на локальном ява сервере Грация в пакете EnchantResult всего три значения 0-улучшили, 1-сломали, 2-сбросило в 0.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 07.06.2009, 19:29   #29
Пользователь
 
Аватар для HORSE
 
Регистрация: 06.06.2009
Сообщений: 92
Сказал Спасибо: 31
Имеет 9 спасибок в 8 сообщенях
HORSE пока неопределено
По умолчанию

а кто знает как будет выглядеть пакет заточки вещи на +10...оч нужно для скрипта....или как его узнать??

Добавлено через 1 час 53 минуты
Цитата:
Сообщение от mks Посмотреть сообщение
Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт, забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку.
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...
delphi Код:
const    nik='xxxx';    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:=500; end; procedure OnTimer01(Sender: TObject); begin    buf:=UseItem;    SendToServerEx(nik);    buf:=EnchantItem;    SendToServerEx(nik);    if CurrentEnch=Enchant-1 then Timer01.enabled:=false; end; procedure Free; begin   Timer01.free;   count:=0;   CurrentEnch:=0; end; begin     if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);     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) then        begin           pck:='';           Timer01.enabled:=not(Timer01.enabled);        end; end.

ЗЫ сожалею, но прошлую тему случайно рубанул, сильно не бейте плз
//Чтобы не флудить
//QaK:Гы-гы, Акелла промахнулся, Акелла промахнулся =)
эммм...я в скрипте не могу понять одного....где команда активации точки по нажатию 1 соц. действия????

Последний раз редактировалось HORSE, 07.06.2009 в 19:29. Причина: Добавлено сообщение
HORSE вне форума   Ответить с цитированием
Старый 07.06.2009, 20:31   #30
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Цитата:
Сообщение от HORSE Посмотреть сообщение
а кто знает как будет выглядеть пакет заточки вещи на +10...оч нужно для скрипта....или как его узнать??
На хрониках начиная с камаэль механизм заточки состоит из 2х пакетов:
UseItem -использование свитка заточки
EnchantItem -выбор затачиваемой весчи
не важно на сколько точишь, пакеты от клиента идут одни и те же что на +5, что на +65535

Цитата:
эммм...я в скрипте не могу понять одного....где команда активации точки по нажатию 1 соц. действия????
"delphi' Код:
if FromClient and (pck=#$34#$02#$00#$00#$00) then        begin           pck:='';           Timer01.enabled:=not(Timer01.enabled);        end;
mks вне форума   Ответить с цитированием
За это сообщение mks нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:32.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!