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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 26.02.2009, 16:04   #1
Новичок
 
Регистрация: 26.02.2009
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
HeoH пока неопределено
По умолчанию Скрипт на заточку [Gracia]

Здраствуйте, у меня возникла тут небольшая проблема, сделал скрипт для заточки, и он все правильно, начинает точить, но не останавливается, когда нужно, подскажите что делать.

delphi Код:
const       Name='MyNick'; var   timer:TTimer; procedure Init; begin   timer:=TTimer.Create(nil);   timer.interval:=200;   timer.OnTimer:=@fireTimer;   timer.enabled:=false; end; procedure Free; begin   timer.Free; end; procedure fireTimer(Sender: TObject); begin   buf:=hstr('0C 27 10 07 10 00 00 00 00');   -   пакет на выбор самой точки   SendToServer;   buf:=hstr('43 4F 00 6D DC 2E 10');  -  пакет, собственно, для самой точки   SendToServer; end; begin       if pck='' then exit;       if FromClient and (ConnectName=Name) and (pck=HStr('5A 06 00 00 00')) then begin  -  Социалка "ДА" для начала скрипта.           timer.enabled:=true;       end;       if FromClient and (ConnectName=Name) and (pck=HStr('5A 05 00 00 00')) then begin  -  Социалка "Нет" для его завершения.           timer.enabled:=false;       end;   if FromClient and (ConnectName=Name) and (pck = HStr('87 07 00 00 00 00 00 00 00 00 00 00 00')) then begin  -  а ето вот тот пакет, который приходит, когда точится на7, ну так вот он приходит, а скрипт почему то не офф.     timer.enabled:=false;     end; end.

PS: Пользуюся l2pbx 3.4.1.83

Последний раз редактировалось NLObP, 14.03.2009 в 06:04.
HeoH вне форума   Ответить с цитированием
Старый 26.02.2009, 16:17   #2
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от HeoH Посмотреть сообщение
а ето вот тот пакет, который приходит, когда точится на7
откуда приходит: от клиента или сервера? и вообще лучше уровень заточки проверять через инвентарь ...

Добавлено через 45 секунд
в смысле - мониторить изменения параметров конкретной вещи, если атрибут EnchantValue станет равным 7 у конкретной весчи - тогда прекратить скрипт.

Последний раз редактировалось QaK, 26.02.2009 в 16:17. Причина: Добавлено сообщение
QaK вне форума   Ответить с цитированием
Старый 26.02.2009, 17:32   #3
Новичок
 
Регистрация: 26.02.2009
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
HeoH пока неопределено
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
откуда приходит: от клиента или сервера? и вообще лучше уровень заточки проверять через инвентарь ...

Добавлено через 45 секунд
в смысле - мониторить изменения параметров конкретной вещи, если атрибут EnchantValue станет равным 7 у конкретной весчи - тогда прекратить скрипт.
Извени, я в этом не очень разбираюся, немог бы ты поподробнее написать? Зараннее спасибо.
HeoH вне форума   Ответить с цитированием
Старый 26.02.2009, 19:07   #4
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от HeoH Посмотреть сообщение
, сделал скрипт для заточки,
сам делал?
QaK вне форума   Ответить с цитированием
Старый 26.02.2009, 23:48   #5
Новичок
 
Регистрация: 26.02.2009
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
HeoH пока неопределено
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
сам делал?
Тут в Теме нашел одной, тока заполнил его.
HeoH вне форума   Ответить с цитированием
Старый 27.02.2009, 08:19   #6
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

HeoH, запомнил и сделал - 2 разные вещи. Посмотри файлик PacketsT1.ini - там формат пакетов описан. А вообще - какие у тебя знания по темам: скриптописание для ПНХ, что такое пакет, принцип работы ПНХ, основы PASCAL'я.
QaK вне форума   Ответить с цитированием
Старый 07.03.2009, 05:19   #7
Новичок
 
Аватар для YssurTiger
 
Регистрация: 18.01.2009
Адрес: Владивосток
Сообщений: 16
Сказал Спасибо: 3
Имеет 2 спасибок в 2 сообщенях
YssurTiger пока неопределено
По умолчанию

delphi Код:
const       Name='DeskJet'; //без этого не останавливал timer.enabled:=false; var   timer:TTimer; procedure Init; begin   timer:=TTimer.Create(nil);   timer.interval:=1000;   timer.OnTimer:=@fireTimer;   timer.enabled:=true; end; procedure Free; begin   timer.Free; end; procedure fireTimer(Sender: TObject); begin   buf:=hstr('0C 63 01 09 10 00 00 00 00 '); //пакет открытия заточки   SendToServer;   buf:=hstr('43 4F 00 2F C4 18 10 '); //пакет оружия   SendToServer; end; begin   if FromServer and (ConnectName=Name) and (pck = HStr('87 14 00 00 00 00 00 00 00 00 00 00 00'))  then begin ///////пакет на всех грациях одинаковый...14 ур заточки.измеряется в байтах..     timer.enabled:=false;   end; end.
подправь под свой сервак,и мб я чет лишнее удалил посмотри,прост у мну скрипт под мой сервак был оч большой.т.к. было сразу покупка вещей заточек и т.д.

Последний раз редактировалось NLObP, 20.03.2009 в 13:24. Причина: правка кода
YssurTiger вне форума   Ответить с цитированием
За это сообщение YssurTiger нажился спасибкой от:
Старый 13.03.2009, 13:25   #8
Новичок
 
Регистрация: 09.08.2008
Сообщений: 2
Сказал Спасибо: 2
Имеет 0 спасибок в 0 сообщенях
newbie61 пока неопределено
По умолчанию

Цитата:
Сообщение от YssurTiger Посмотреть сообщение
Код:
00 00 00 00 00 00 00 00'))  then begin ///////пакет на всех грациях одинаковый...14 ур заточки.измеряется в байтах..
    timer.enabled:=false;
  end;
end.
подправь под свой сервак,и мб я чет лишнее удалил посмотри,прост у мну скрипт под мой сервак был оч большой.т.к. было сразу покупка вещей заточек и т.д.
При проверки на синтаксис подсвечивает "end." В чём может быть проблема?
newbie61 вне форума   Ответить с цитированием
Старый 13.03.2009, 14:10   #9
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

newbie61, или где-то лишний end или где-то нехватает end
QaK вне форума   Ответить с цитированием
За это сообщение QaK нажился спасибкой от:
Старый 20.03.2009, 10:54   #10
Новичок
 
Регистрация: 19.03.2009
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
oNly^^ пока неопределено
По умолчанию

пробывал юзать скрипт YssurTiger тагже подсечивает красным and
oNly^^ вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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