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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 11.12.2008, 16:33   #1
Пользователь
 
Регистрация: 04.12.2008
Сообщений: 43
Сказал Спасибо: 11
Имеет 29 спасибок в 21 сообщенях
Xelat пока неопределено
По умолчанию

Shizo,
что-то в этом роде.
Код:
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=3000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('ХХ ХХ ХХ ХХ');
  SendToServer;
  buf:=hstr('Х1 Х1 Х1 Х1');
  SendToServer;
end;
begin
  if FromClient and (ConnectName=Name) and (pck = HStr('5A 06 00 00 00')) then begin
    timer.enabled:=false;
  end;
end.
Xelat вне форума   Ответить с цитированием
За это сообщение Xelat нажился спасибкой от:
Старый 11.12.2008, 17:42   #2
Новичок
 
Регистрация: 10.12.2008
Сообщений: 18
Сказал Спасибо: 4
Имеет 4 спасибок в 4 сообщенях
Shizo пока неопределено
По умолчанию

Значит так я немного подкоректировал и уааля!

Заточка для грации 2

Код:

//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=2000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('/пакет открытия точки/');
  SendToServer;
  buf:=hstr('/пакет вещи в слот/');
  SendToServer;
  buf:=hstr('/пакет завершения точки (для ускорения процеса)/');
  SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.
спасибо за помощь все работает проверено на грации 2
Shizo вне форума   Ответить с цитированием
За это сообщение Shizo нажился спасибкой от:
Старый 20.01.2009, 07:43   #3
Новичок
 
Регистрация: 12.01.2009
Сообщений: 1
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
roah пока неопределено
По умолчанию

Цитата:
Сообщение от Shizo Посмотреть сообщение
Значит так я немного подкоректировал и уааля!

Заточка для грации 2

Код:

//Автоматизация заточки предметов до необходимого уровня.
//мини-скрипт идея, доработка Shizo.
//by Xelat
const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
var
  timer:TTimer;
procedure Init;
begin
  timer:=TTimer.Create(nil);
  timer.interval:=2000;
  timer.OnTimer:=@fireTimer;
  timer.enabled:=true;
end;
procedure Free;
begin
  timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
  buf:=hstr('/пакет открытия точки/');
  SendToServer;
  buf:=hstr('/пакет вещи в слот/');
  SendToServer;
  buf:=hstr('/пакет завершения точки (для ускорения процеса)/');
  SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.
спасибо за помощь все работает проверено на грации 2
всё бы хорошо но вылазиет ошибка "List index out of bounds (2999)."

че с этим сделать ?

сорри я туплю.. увеличил макс размер лога.. все кул..

и ещё при высоком пинге пакет на проверку неуспевает проверять и отправляет следущий пакет на точку ))

а так все отлично .. пойду искать заранее вариант как как зайти на забан акк..чтобы помто можно было всё это снять )

Последний раз редактировалось roah, 24.01.2009 в 02:32.
roah вне форума   Ответить с цитированием
Старый 21.01.2009, 03:16   #4
Новичок
 
Аватар для YssurTiger
 
Регистрация: 18.01.2009
Адрес: Владивосток
Сообщений: 16
Сказал Спасибо: 3
Имеет 2 спасибок в 2 сообщенях
YssurTiger пока неопределено
По умолчанию

Цитата:
Сообщение от Shizo Посмотреть сообщение
Значит так я немного подкоректировал и уааля!

Заточка для грации 2

Код:
const
      Name='/свое имя/'; //без этого не останавливал timer.enabled:=false;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('/Сюда пакет с нужной заточкой пухи!(это важно нада пральный пакет)/')) then begin
    timer.enabled:=false;
  end;
end.
я попробовал на своем серве gracia part 2 когда использовал без // работало отлично только не останавливало,а с // сразу пишет l2...чето ошибка какаето и ниже зеленым по синему написано Читер?? читерить плохо(ну походу админ посторался на славу)как можно преодолеть ету трудность?
Сюда пакет с нужной заточкой пухи - с этим чучуть непонял,у меня по завершению точения приходит 2 пакета один 87 02 00 00 00 00 00
02 как я понял ур заточки даной вещи,а вот что за второй пакет фиг знает.
можно удалить мое сообшение..сам во всем разобрался,просто немного затупил..нету версию юзал а там пакет под другим названием был=)))

Последний раз редактировалось YssurTiger, 24.01.2009 в 01:52. Причина: Все понятно
YssurTiger вне форума   Ответить с цитированием
Старый 12.12.2008, 20:16   #5
Новичок
 
Регистрация: 24.11.2008
Сообщений: 18
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Vebstor23 пока неопределено
По умолчанию

народ подскажити я пользуюсь скриптом заточки с этого серва зашол на серв там когда дотачиваеш до 10 эт 100% и когда точиш на +11 и т.д. там не 100% ну вот когда например затачиваемая вещ ломается на +13 кпримеру то затачиваемая вещ необнуляется до 0 а делается сразу +10 а в логах типо пишет что обнулилась до 10 и вот когда идёт продолжение скрипта то l2phx почемуто зацикливается и зависает без всякой ошибки также зависает клиент( вчём может быть причина? и как сделать чтоб начинал точить не с 0 а сразу с +10?
Vebstor23 вне форума   Ответить с цитированием
Старый 14.12.2008, 16:52   #6
Новичок
 
Регистрация: 13.12.2008
Сообщений: 1
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
maxstro пока неопределено
По умолчанию

Я понел в чем проблема. Скрипт пислася под простые заточки да? А у меня на серваке блессед заточки. И вобшем после каждого фейла он исключает предыдушую из списка как я понел. И когда фэйлится последняя шмотка он не понимает че делать, т.к. остались еше шмоти и зависает. Помогите исправить плз.

Цитата:
Сообщение от Vebstor23 Посмотреть сообщение
народ подскажити я пользуюсь скриптом заточки с этого серва зашол на серв там когда дотачиваеш до 10 эт 100% и когда точиш на +11 и т.д. там не 100% ну вот когда например затачиваемая вещ ломается на +13 кпримеру то затачиваемая вещ необнуляется до 0 а делается сразу +10 а в логах типо пишет что обнулилась до 10 и вот когда идёт продолжение скрипта то l2phx почемуто зацикливается и зависает без всякой ошибки также зависает клиент( вчём может быть причина? и как сделать чтоб начинал точить не с 0 а сразу с +10?
Кстате на этом же серваке играю.

Последний раз редактировалось maxstro, 15.12.2008 в 02:02.
maxstro вне форума   Ответить с цитированием
Старый 27.12.2008, 00:01   #7
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Virtu$ Посмотреть сообщение
проверял на 1 С4 сервере,запустил всё нормально точит...Но не 100%
Так и должно быть. Нет 100% заточки.

Добавлено через 1 минуту
Цитата:
Сообщение от Virtu$ Посмотреть сообщение
Сколько пух перекупил (Потому что скрипт 1 пуху не точит,после того как все переломались) Или я как то неправильно всё делаю,или я смысл скрипта не понял...!
Так и задумано, чтобы осталась одна вещь. Если надо точить одну вещь, то надо поправить скрипт, в нем есть место, где описан как это сделать.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни



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

Цитата:
Сообщение от Virtu$ Посмотреть сообщение
А что он такого особенного делает тогда!?Я и сам могу так точить...)
Ничего такого не делает, кроме автоматизации самого процесса заточки.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Старый 31.12.2008, 20:48   #9
Новичок
 
Аватар для freeworld
 
Регистрация: 31.12.2008
Сообщений: 4
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
freeworld пока неопределено
По умолчанию

Спасибо NLobP за скрипт...НО почему в грации 2...при запуске скрипта и старте заточки пишет "Нет такой заточки! Заточка прервана" хотя itemeid беру из Itemlist пакета...заточка как и шмотка затачиваемая в итем листе видна...Подскажите плз в чем проблема..P.S особенности серверка заточки в одном слоте все итемы при неудаче не ломаются
freeworld вне форума   Ответить с цитированием
Старый 01.01.2009, 03:29   #10
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

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


NLObP вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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