Вернуться   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 вне форума   Ответить с цитированием
Старый 08.06.2009, 11:52   #41
Пользователь
 
Аватар для HORSE
 
Регистрация: 06.06.2009
Сообщений: 92
Сказал Спасибо: 31
Имеет 9 спасибок в 8 сообщенях
HORSE пока неопределено
По умолчанию

эмм...ок..завтра кину...что бы тя не нагружать...
Сервер megal2.ru

Добавлено через 9 часов 56 минут
Вот (http://depositfiles.com/files/039eqdzjp)
Заточку начал с +3...и слетело на +7 или +8...

Последний раз редактировалось HORSE, 08.06.2009 в 11:52. Причина: Добавлено сообщение
HORSE вне форума   Ответить с цитированием
Старый 08.06.2009, 11:57   #42
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от HORSE Посмотреть сообщение
Купил Династи Неклю...точил с 0 до 4 вроде...
Только я не могу понять как вы в той "матрице" что то розберете...
Глянул лог. Сервак я понял Грация, ID пакетов изменены.

Код:
Tип: 0x0C (UseItem)
Pазмер: 9+2
Время прихода: 23:17:40:921
0002 d  ObjectID: 431973704 (0x19BF6548)
0006 d  ?: 0 (0x00000000)

Tип: 0x65 (RequestEnchantItem)
Pазмер: 9+2
Время прихода: 23:17:50:531
0002 d  ObjectID: 431973704 (0x19BF6548)
0006 d  ?: 0 (0x00000000)
в пакете
Код:
Tип: 0x87 (EnchantResult)
Pазмер: 13+2
Время прихода: 23:17:50:921
0002 d  Result: 3 (0x00000003)
0006 d  Result: 3 (0x00000003)
0010 d  Result: 3 (0x00000003)
по крайней мере до +3 видно соответствие увеличения до 3 и сброс в 0 после фейла. Так что приведенный тобой скрипт должен работать, только надо ObjectID смотреть чтобы правильные были.

PS: А ещё лучше поменять в скрипте от mks на это
Код:
    if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);
    if FromClient and (pck[1]=#$0C) then UseItem:=pck;
    if FromClient and (pck[1]=#$65) then EnchantItem:=pck;
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни



Последний раз редактировалось NLObP, 08.06.2009 в 12:01.
NLObP вне форума   Ответить с цитированием
Старый 08.06.2009, 12:14   #43
Пользователь
 
Аватар для HORSE
 
Регистрация: 06.06.2009
Сообщений: 92
Сказал Спасибо: 31
Имеет 9 спасибок в 8 сообщенях
HORSE пока неопределено
По умолчанию

Скрипт mks у меня пашет...но как то корявенько...
А мой скрипт тоже пашет, но как я говорил, я не знаю как пакетом указать степень заточки и скрипт точит,ломает до тех пор пока не скончаться точки....мне посоветовали сделать с таймером, но я увы в этом не могу розобраться...не получаеться=(((
HORSE вне форума   Ответить с цитированием
Старый 08.06.2009, 12:29   #44
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

HORSE, был бы один и нормальный сервер, тогда можно было бы голову ломать, а так админы на каждом сервере своё мутят.

Выбирай степень заточенности из пакета Tип: 0x21 (InventoryUpdate) или Tип: 0x11 (ItemList)
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


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

поймал такой пакетик от сервера

21 01 00 02 00 00 00 48 65 BF 19 F0 24 00 00 01
00 00 00 01 00 00 00 02 00 00 00 00 00 08 00 00
00 04 00 00 00 00 00 00 00 FF FF FF FF FE FF FF
FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00

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

Добавлено через 20 минут
PS: А ещё лучше поменять в скрипте от mks на это
Код:
    if FromServer and (pck[1]=#$87) then CurrentEnch:=ReadD(2);
    if FromClient and (pck[1]=#$0C) then UseItem:=pck;
    if FromClient and (pck[1]=#$65) then EnchantItem:=pck;
[/quote]
Последний кусок скрипта поменять???
Тогда же мне кажеться придеться крутить структуру скрипта,дописать переменные...или же ент??

Последний раз редактировалось HORSE, 08.06.2009 в 14:03. Причина: Добавлено сообщение
HORSE вне форума   Ответить с цитированием
Старый 08.06.2009, 15:39   #46
Новичок
 
Регистрация: 08.06.2009
Сообщений: 28
Сказал Спасибо: 1
Имеет 2 спасибок в 1 сообщении
artemx1 пока неопределено
По умолчанию

я играю на l2rx.com l2pbx работет нормально видит пакеты и тдт но когда я в скрипт вписываю свойо имя и нажымаю выполнить получаю пару сек лагает потом дисконект ето фикс ?
artemx1 вне форума   Ответить с цитированием
Старый 08.06.2009, 16:54   #47
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от HORSE Посмотреть сообщение
поймал такой пакетик от сервера

21 01 00 02 00 00 00 48 65 BF 19 F0 24 00 00 01
00 00 00 01 00 00 00 02 00 00 00 00 00 08 00 00
00 04 00 00 00 00 00 00 00 FF FF FF FF FE FF FF
FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00
Да похоже на то. Вот расшифровка твоего пакета
Код:
Tип: 0x21 (InventoryUpdate)
Pазмер: 77+2
Время прихода: 15:48:20:078
0002 h  Count: 1 (0x0001)
              [Начало повторяющегося блока 1/1]
0004 h  UpdateType: 2 (0x0002)
0006 h  ItemType1: 0 (0x0000)
0008 d  ObjectID: 431973704 (0x19BF6548)
0012 d  ItemID: Ожерелье Династии ID:9456 (0x24F0) (0x000024F0)
0016 d  LocationSlot: 1 (0x00000001)
0020 d  Quantity: 1 (0x00000001)
0024 h  ItemType2: 2 (0x0002)
0026 h  CustomType1: 0 (0x0000)
0028 h  Equipped: 0 (0x0000)
0030 d  BodyPart: 8 (0x00000008)
0034 h  EnchantLevel: 4 (0x0004)
0036 h  CustType2: 0 (0x0000)
0038 d  AugmentationBonus: 0 (0x00000000)
0042 d  Mana: -1 (0xFFFFFFFF)
0046 d  AttackAttrElement: -2 (0xFFFFFFFE)
0050 d  AttackAttrElementVal: 0 (0x00000000)
0054 d  DefAttrFire: 0 (0x00000000)
0058 d  DefAttrWater: 0 (0x00000000)
0062 d  DefAttrWind: 0 (0x00000000)
0066 d  DefAttrEarth: 0 (0x00000000)
0070 d  DefAttrHoly: 0 (0x00000000)
0074 d  DefAttrUnholy: 0 (0x00000000)
              [Конец повторяющегося блока  1/1]
Примерно так
Код:
  if FromServer then
  begin
    case pck[1] of
      #$21: begin //InventoryUpdate
        if (ReadD[12]=ID_предмета) and (ReadD[34]=уровень заточки) then что_хотим_сделать;
      end;
  end;
Добавлено через 34 секунды
Цитата:
Сообщение от HORSE Посмотреть сообщение
Последний кусок скрипта поменять???
Да, просто поменяй как написано.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни



Последний раз редактировалось NLObP, 09.06.2009 в 14:12. Причина: Добавлено сообщение
NLObP вне форума   Ответить с цитированием
Старый 08.06.2009, 17:23   #48
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Переделал слегка для Грации Файнал.
Холява закончилась, если выставляешь интервал заточки меньше чем 2100мс получаешь авто-бан(возможно не везде так)
delphi Код:
const    nik='xxxx';    Enchant=16; var    UseItem, SelectItem, EnchantItem: string;    Count, CurrentEnch, key, ItemID: integer;    Timer01: TTimer; procedure Init; begin    Timer01:=TTimer.Create(nil);    Timer01.OnTimer:=@OnTimer01;    Timer01.enabled:=false;    Timer01.interval:=2100; end; procedure OnTimer01(Sender: TObject); begin    case key of       1: begin          buf:=UseItem;          SendToServerEx(nik);          buf:=SelectItem;          SendToServerEx(nik);          end;       2: begin          buf:=EnchantItem;          SendToServerEx(nik);          end;    end; end; procedure Free; begin   Timer01.free;   count:=0;   CurrentEnch:=0; end; begin     if FromServer and (pck[1]=#$87) then case ReadD(2) of        0: begin           CurrentEnch:=CurrentEnch+1;           if CurrentEnch=Enchant then Timer01.enabled:=false;           end;        3: CurrentEnch:=0;        end;     if FromServer and (pck[1]=#$FE) then        if ReadD(4)=ItemID then key:=2 else key:=1;     if FromClient and (pck[1]=#$19) then UseItem:=pck;     if FromClient and (pck[1]=#$D0) then        begin        ItemID:=ReadD(4);        SelectItem:=pck;        end;     if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;     if FromClient and (pck[1]+pck[2]=#$56#$0C) then        begin           pck:='';           Timer01.enabled:=not(Timer01.enabled);        end; end.
mks вне форума   Ответить с цитированием
За это сообщение mks нажился спасибкой от:
Старый 08.06.2009, 19:29   #49
Пользователь
 
Аватар для HORSE
 
Регистрация: 06.06.2009
Сообщений: 92
Сказал Спасибо: 31
Имеет 9 спасибок в 8 сообщенях
HORSE пока неопределено
По умолчанию

решил всё таки добить свой скрипт...
но у меня ругаеться на end. в конце...
ЧТо я сделал не так???
PHP код:
const
Name='HORSE'
var
timer:TTimer;
x:byte//определение, какоде действие по счету мы совершаем

procedure Init;
begin
timer
:=TTimer.Create(nil);
timer.interval:=150;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
x:=1;//сначала х=1
end;

procedure Free;
begin
timer
.Free;
end;

procedure fireTimer(SenderTObject);
begin
case x of
1
:begin
     buf
:=hstr('5F 48 65 BF 19 00 00 00 00 ');
     
SendToServerEx(Name);
     
inc(x);
   
end;
2:begin
     buf
:=hstr('5F 48 65 BF 19 00 00 00 00 ');
     
SendToServerEx(Name);
     
x:=1;
   
end;
end;{case}

if 
FromServer then
  begin
    
case pck[1of
      
#$21: begin //InventoryUpdate
        
if (pck[12]=9456) and (pck[34]=5then timer.enabled:=false;;
      
end;
end
Добавлено через 5 минут
Цитата:
Сообщение от NLObP Посмотреть сообщение
Да, просто поменяй как написано.
ох я как поменял...нажал соц действие как полезли окна в Пакетнику...это было штото...
Дело в том что у меня скрипт mks оч переборчивый...или это из за серва или из за серва...ставишь значение +7 первый раз оно точит на +7...но когда точнул что то другое на +1 - нажал ХЕЛЛО то оно уже точит на +8...может потому что в системном окошке пишет- улучшение предмета на +7 было успешно произведено?!)))

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

HORSE, у тебя перед end. не хватает end; одного
и вообще как может pck[12]=9456?

Последний раз редактировалось mks, 08.06.2009 в 20:37.
mks вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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