Вернуться   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 вне форума   Ответить с цитированием
Старый 16.07.2009, 00:36   #141
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

mks,
Жду с нетерпением.)

Добавлено через 2 часа 16 минут
Еси не секрет, когда ждать выкладывания скрипта? Это сегодня будет?

Последний раз редактировалось Amorality, 16.07.2009 в 00:36. Причина: Добавлено сообщение
Amorality вне форума   Ответить с цитированием
Старый 16.07.2009, 02:38   #142
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Amorality, ой.. сори задержался)
собственно вот, пробуй:
скрипт для грации файнал
delphi Код:
const    nik='xxxx';    Enchant=16; var    UseItem, SelectItem, EnchantItem: string;    CurrentEnch: integer;    key: boolean;    Timer01: TTimer; procedure Init; begin    Timer01:=TTimer.Create(nil);    Timer01.OnTimer:=@OnTimer01;    Timer01.enabled:=false;    Timer01.interval:=3000; end; procedure OnTimer01(Sender: TObject); begin    case key of       false: begin          buf:=UseItem;          SendToServerEx(nik);          buf:=SelectItem;          SendToServerEx(nik);          end;       true: begin          buf:=EnchantItem;          SendToServerEx(nik);          end;    end;          key:=not(key); end; procedure Free; begin   Timer01.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.
mks вне форума   Ответить с цитированием
За это сообщение mks нажился 3 спасибками от:
Старый 16.07.2009, 05:43   #143
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

mks,
В целом механизм работает, но так, что смысла от него мало..
ТОчит несколько раз, а потом забывает положить в отсек вещь и меня кикает с сервера со словами "Гм вкурсе, удачи". Может потому что он слишком быстро отправляет пакеты? Увеличение задержки вплоть до 5 сек. проблему не решило.. Однако может стоит еще добавить задержку в пол секунды перед тем, как ПНХ ложит вещь в отсек? А то мне кажется он просто не успевает.

Или проверять, лежить ли вещь в отсеке, если лежит, то только тогда нажимать "Точить", если нет, то ложить снова.. иначе будет кикать.

Попровь плз скрипт, надеюсь поможешь.
Amorality вне форума   Ответить с цитированием
Старый 16.07.2009, 10:53   #144
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Amorality,
Цитата:
Однако может стоит еще добавить задержку в пол секунды перед тем, как ПНХ ложит вещь в отсек?
Да попробуй, изначально я делал там задержку, но при тестах убедился что на моем сервере она не нужна.
Цитата:
Или проверять, лежить ли вещь в отсеке, если лежит, то только тогда нажимать "Точить", если нет, то ложить снова.. иначе будет кикать.
можно и так попробовать
у меня ща нет возможности тестить, так что пробуй, если че получаться не будет я помогу
mks вне форума   Ответить с цитированием
За это сообщение mks нажился спасибкой от:
Старый 16.07.2009, 12:14   #145
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

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

PS: От полученных результатов не откажемся.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 16.07.2009, 18:23   #146
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

Дайте плз какие-нить советы чтоли, куда вообще копать для проверки нахождения вещи в отсеке точки..

Ну или как добавить промежуток в данном скрипте, если он уже реализован через Timer, not и case?
Amorality вне форума   Ответить с цитированием
Старый 16.07.2009, 18:35   #147
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Ну поскольку этот промежуток я думаю не следует делать таким же большим как и в основном таймере, считаю будет лучше добавить второй таймер, ща сотрудники свалят попробуем
mks вне форума   Ответить с цитированием
За это сообщение mks нажился спасибкой от:
Старый 16.07.2009, 19:01   #148
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

mks,
Ну а проверить наличие в слоте похоже невозможно.. ничего подобного не приходит и не уходит в пакетах.
Amorality вне форума   Ответить с цитированием
Старый 16.07.2009, 19:24   #149
Рыцарь
 
Аватар для mks
 
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
mks пока неопределено
По умолчанию

Amorality, добавил 2й таймер, в данном скрипте получается идет пакет UseItem, 500ms, SelectItem, 2500ms(этот интервал равен интервал 1го таймера минус интервал 2го), EnchantItem.
Пробуй, скрипт в блокноте писал)
delphi Код:
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.

Последний раз редактировалось mks, 16.07.2009 в 19:35.
mks вне форума   Ответить с цитированием
За это сообщение mks нажился 5 спасибками от:
Старый 17.07.2009, 00:52   #150
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

mks,
Все пашет, спасибо большое
Amorality вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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