Вернуться   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 вне форума   Ответить с цитированием
Старый 03.12.2009, 23:28   #311
Новичок
 
Регистрация: 25.11.2009
Сообщений: 19
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Pirat48 пока неопределено
По умолчанию

Цитата:
Сообщение от TAMBIK Посмотреть сообщение
Pirat48,
он должен сам точить
до уровня какой вы задали
а чё я не так делаю снул скрипт включил ,заточил на 1 1соц действие ну да появляется окно заточки там предмет на этом станет.
Грация финал.
а иногда тупа окно появляется и не чё не происходит как это исправить?

Последний раз редактировалось Pirat48, 03.12.2009 в 23:32.
Pirat48 вне форума   Ответить с цитированием
Старый 04.12.2009, 23:14   #312
Новичок
 
Регистрация: 02.11.2009
Сообщений: 22
Сказал Спасибо: 1
Имеет 1 спасибку в 1 сообщении
hackbozb пока неопределено
По умолчанию

Опиши ошибку или что там у тебя поподробнее, что "станет", какое окно появляется? проверь чтоб все параметры были прописаны правильно, имя и тому подобные вещи.....
hackbozb вне форума   Ответить с цитированием
Старый 05.12.2009, 17:40   #313
Новичок
 
Регистрация: 25.11.2009
Сообщений: 19
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Pirat48 пока неопределено
По умолчанию

Короче,я всё сделал правильно ведь она работала))
затачиваю на +1
жму соц дейстивие (1)
потом появляется "окошко это" и как повезёт!
может появлсятся с оружием внутри уже тоесть остаётся ок нажать так как дальше не чего не происходит.
или просто появится тип заточить вещь тут надо оружие кинуть но оно изчезает и всё приходтся заного.
Pirat48 вне форума   Ответить с цитированием
Старый 05.12.2009, 20:10   #314
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Pirat48,
Код:
   const
   nik='TAMBIK';
   Enchant=6;

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

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=600;// Время выбора свитка и предмета

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=3300;// Время между заточкой
   key:=0;
end;
procedure Free;
begin
  Timer01.free;
  Timer02.free;
  count:=0;
  CurrentEnch:=0;
end;

procedure OnTimer01(Sender:TObject);
begin
 case key of
  1:begin
     buf:=UseItem;
     SendToServerEx(nik);
     inc(key);
     end;
   2:begin
     buf:=SelectItem;
     SendToServerEx(nik);
     Timer01.enabled:=false;
     Timer02.enabled:=true;
     key:=0;
     end;
 end;
end;
procedure OnTimer02(Sender:TObject);
  begin
      buf:=EnchantItem;
      SendToServerEx(nik);
      key:=1;
      Timer02.enabled:=false;
      Timer01.enabled:=true;
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
       begin
       ItemID:=ReadD(4);
       SelectItem:=pck;
       end;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck[1]+pck[2]=#$56#$0C) then
       begin
          key:=1;
          Timer01.enabled:=true;
          pck:='';
       end;
end.
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
За это сообщение TAMBIK нажился спасибкой от:
Старый 07.12.2009, 14:50   #315
Новичок
 
Регистрация: 25.11.2009
Сообщений: 19
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Pirat48 пока неопределено
По умолчанию

TAMBIK
НЕ останавливается на указаной цифре

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

Цитата:
Сообщение от Pirat48 Посмотреть сообщение
TAMBIK
НЕ останавливается на указаной цифре
cмотри пакет
87=EnchantResult:d(Result)
что приходит
когда заточил предмет
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Старый 08.12.2009, 14:04   #317
Новичок
 
Регистрация: 25.11.2009
Сообщений: 19
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Pirat48 пока неопределено
По умолчанию

На окне заточки под16 а пушка в это время на 3-6 смотря ка поломается.
Извини я не такой опытный где их смотреть?? и как отфильтровать если над?
этот 87=EnchantResult:d(Result)

Последний раз редактировалось Pirat48, 08.12.2009 в 18:52.
Pirat48 вне форума   Ответить с цитированием
Старый 08.12.2009, 20:06   #318
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Pirat48,
в подписи у меня
Настройки 3.4.1.100 и Выше
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Старый 08.12.2009, 21:12   #319
Новичок
 
Регистрация: 25.11.2009
Сообщений: 19
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Pirat48 пока неопределено
По умолчанию

Цитата:
Сообщение от TAMBIK Посмотреть сообщение
Pirat48,
в подписи у меня
Настройки 3.4.1.100 и Выше
этот пакет так и называется?))

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

Добавлено через 1 минуту
ну посматрел на пакет там протсо 87 и нули....

Последний раз редактировалось Pirat48, 08.12.2009 в 21:12. Причина: Добавлено сообщение
Pirat48 вне форума   Ответить с цитированием
Старый 08.12.2009, 22:12   #320
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

вкл скрипт
предмет точить с 0

Код:
ну посматрел на пакет там протсо 87 и нули...
даже если отменил ? сломал ??
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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