Просмотр полной версии : Кружок нубов(Вопрос-Ответ)
Страницы :
1
2
3
4
5
[
6]
7
8
9
alexteam
10.01.2010, 13:08
id сейчас равен handle сокета инициализировавшего соединение а не слоту как ранее.
ранее было 10 соединений максимум, сейчас максимум 2^32.
pro100_user, у друга версия/настройки пакетхака те же самые? ОС у вас одинаковые? антивири одинаковые?
StekloReZ
10.01.2010, 15:22
id сейчас равен handle сокета инициализировавшего соединение а не слоту как ранее.
ранее было 10 соединений максимум, сейчас максимум 2^32.
Тогда как мне узнать имена законнекеных чаров в данный момент?
Ибо потоки и сокеты для меня пока что нечто абстрактное (
alexteam
10.01.2010, 15:37
в тело скрипта добавить чтото на подобии.
if list.items.indexof(connectname) = -1 then
list.items.add(connectname);
На windows 7 32-bit почему то не перехватывает коннект к серверу.
Excellence
10.01.2010, 19:43
В новом пх (3.5.33.164 на момент написания) появились 2 новые строчки:
http://s49.radikal.ru/i125/1001/0c/2315a2a3087ct.jpg (http://radikal.ru/F/s49.radikal.ru/i125/1001/0c/2315a2a3087c.jpg.html)
Можете подсказать на практике где их стоит использовать и для чего они вообще нужны?
Можете ответить ?
Можете ответить ?
а что тут отвечать? сделано для руофа. в одну сторону обработка работает, а в другую в бесплатных версиях ph - нет.
alexteam
10.01.2010, 23:05
Что написано то и делают...
в одну сторону обработка работает, а в другую в бесплатных версиях ph - нет.
0_о
//QaK:Дабл O_o
pro100_user
11.01.2010, 07:30
pro100_user, у друга версия/настройки пакетхака те же самые? ОС у вас одинаковые? антивири одинаковые?
версия/настройки пакетхака - одинаковые
ОС - у меня ХР, у него Seven
Антивиры - у него нод, у меня отсутствует
в том то и проблема, что с одинаковыми настройками пх у него все норм запускается, у меня нет
pro100_user, поставил бы антивирь с файерволом .... а то .... мало ли чего в сети нацеплять можно...
Всем привет .У меня вопрос . Работает ли l2phx.3.5.33.164 на грации эпилог?
pro100_user
11.01.2010, 19:16
pro100_user, поставил бы антивирь с файерволом .... а то .... мало ли чего в сети нацеплять можно...
поставил нод, проверил - ничего необычного... за совет спс=) По проблемке (http://coderx.ru/showpost.php?p=56513&postcount=1250) у кого то есть какиенить размышления?
C0derxWarr1or
11.01.2010, 19:48
помогите решить ошибку ....
http://s51.radikal.ru/i134/1001/90/278c78d4a476.jpg
alexteam
11.01.2010, 19:58
ога... канеш.. без детального лога в лес топ-топ.
C0derxWarr1or
11.01.2010, 20:09
Exception class: EAccessViolation
Exception message: Access violation at address 0056B036 in module 'l2pbx.exe'. Read of address 00000000.
Exception address: 0056B036
------------------------------------------------------------------------------
Stack list, generated 11.01.2010 18:08:51
(0016A036){l2pbx.exe } [0056B036] main.TL2PacketHackMain.PacketSend (Line 2222, "main.pas" + 9) + $3
(0006E3E7){l2pbx.exe } [0046F3E7] Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
(00085CD7){l2pbx.exe } [00486CD7] Forms.TCustomForm.WndProc (Line 3512, "Forms.pas" + 136) + $5
(00023AAC){l2pbx.exe } [00424AAC] Classes.TThreadList.UnlockList (Line 3359, "common\Classes.pas" + 0) + $4
(000723DF){l2pbx.exe } [004733DF] Controls.TWinControl.WndProc (Line 7304, "Controls.pas" + 111) + $6
(00085CD7){l2pbx.exe } [00486CD7] Forms.TCustomForm.WndProc (Line 3512, "Forms.pas" + 136) + $5
(0012EDE8){l2pbx.exe } [0052FDE8] JvWndProcHook.TJvHookInfos.WindowProc + $A4
(00071B08){l2pbx.exe } [00472B08] Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
(0002E91C){l2pbx.exe } [0042F91C] Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0
(0006979A){l2pbx.exe } [0046A79A] Controls.FindControl (Line 2104, "Controls.pas" + 6) + $9
(0008DB0C){l2pbx.exe } [0048EB0C] Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
(0008DB46){l2pbx.exe } [0048EB46] Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
(0008DE3B){l2pbx.exe } [0048EE3B] Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
(00178BA7){l2pbx.exe } [00579BA7] l2pbx.l2pbx (Line 25, "" + 4) + $7
------------------------------------------------------------------------------
System : Windows XP Professional, Version: 5.1, Build: A28, "Service Pack 3"
Processor: AMD, AMD Athlon(tm) 64 X2 Dual Core Processor 5200+, 2720 MHz MMXex 3DNow!ex 64 bits DEP
Memory: 2047; free 811
Display : 1280x1024 pixels, 32 bpp
------------------------------------------------------------------------------
List of loaded modules:
[00340000] C:\WINDOWS\system32\Normaliz.dll
<00400000> 6.0.5441.0 - 6.0.5441.0 (winmain(wmbla).060628-1735)
Unicode Normalization DLL
[00400000] D:\_recaver\Рабочий стол\Тексты GM-Shop\l2phx.3.4.1.61\l2pbx.exe
3.4.1.59 - 3.4.1.59
[00F10000] C:\Program Files\VolumeControl2\LHook.dll
<00400000> (no version info)
[018E0000] C:\Program Files\Avira\AntiVir Desktop\avsda.dll
<10000000> 9.0.1.1 - 9.00.01.01
AntiVir layered service provider
[01CB0000] C:\WINDOWS\system32\xpsp2res.dll
<00010000> 5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2113)
Сообщения пакета обновления 2
[10000000] C:\Program Files\Punto Switcher\correct.dll
(no version info)
[3F9E0000] C:\WINDOWS\system32\wininet.dll
8.0.6001.22945 - 8.00.6001.22945 (longhorn_ie8_ldr.091027-0100)
Internet Extensions for Win32
[40080000] C:\WINDOWS\system32\iertutil.dll
8.0.6001.22945 - 8.00.6001.22945 (longhorn_ie8_ldr.091027-0100)
Run time utility for Internet Explorer
[45020000] C:\WINDOWS\system32\urlmon.dll
8.0.6001.22945 - 8.00.6001.22945 (longhorn_ie8_ldr.091027-0100)
OLE32 Extensions for Win32
[5B260000] C:\WINDOWS\system32\uxtheme.dll
6.0.2900.5512 - 6.00.2900.5512 (xpsp.080413-2105)
Библиотека тем UxTheme (Microsoft)
[5F2F0000] C:\WINDOWS\system32\olepro32.dll
5.1.2600.5512 - 5.1.2600.5512
[698B0000] C:\WINDOWS\system32\hnetcfg.dll
5.1.2600.5589 - 5.1.2600.5589 (xpsp_sp3_qfe.080428-1317)
Диспетчер конфигурации домашней сети
[71A30000] C:\WINDOWS\system32\mswsock.dll
5.1.2600.5625 - 5.1.2600.5625 (xpsp_sp3_qfe.080620-1309)
Расширение поставщика службы API Microsoft Windows Sockets 2.0
[71A70000] C:\WINDOWS\System32\wshtcpip.dll
5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
вот
alexteam
11.01.2010, 21:05
метод перехвата лсп ? либо вылетает на ровном месте даже без клиента ?
Ну как бэ поискал по форуму была похожая тема решил не создавать тему попросить совета тут .
И так : Проблема вот в чем пх не видет ла2 как не пытался .
Добавлял название ехе в пх.
Пробавал ставить разные версии.
Не что не помогло .Вроде програмка не сложная как wpe pro смысл тотже а нюансов куча.
Вся инфа:
OC seven
Сервер Asterios gracia epilogue.
l2phx.3.5.33.164
Скрины настроек :
http://img137.imageshack.us/i/30745532.jpg/
http://img213.imageshack.us/i/59069581.jpg/
Ну как бэ так :(
C0derxWarr1or
11.01.2010, 21:52
l2 всё видет просто если ставлю авто посылку каждый пак вылетает ета ошибка конект не падает просто лаг идёт
Порыскал по форуму включил перехват теперь видет все кроме l2.exe
http://img19.imageshack.us/i/85198564.jpg/
Есть прогресс :)
Что написано то и делают...
0_о
//QaK:Дабл O_o
высказались?
читаю на форуме:
http://coderx.ru/showthread.php?t=3054
делаю выводы: значит есть $$$ версия ph, которая работает на офе.
иде, тыкнете пальчиком, я в своих выводах сделал не правильный вывод?
пишите третий раз терь о_О...
alexteam
12.01.2010, 12:37
0_о а при чем тут пх ? хкоровская примочка - это отдельная программа как бэ...
ты прям как в суде:
адвокат подсудимого, поменяйте формулировку вопроса свидетелю.
суть от этого неизменится.
alexteam
12.01.2010, 16:52
измениться. ибо кое кто тут утверждает что есть платная версия пх, а это не так.
C0derxWarr1or
12.01.2010, 23:29
alexteam
спасибо что не ответил я должен сам был сделать - сделал сделал ехешник под версию игры ... а потом через 5 версию с ЛСП зашол так что всё ок спс)
как не так? давай тогда возьмемся за разбор этого самого предложения:
"ЗЫ впринципе у меня есть обход защиты, но далеко не за так и не для нубочитеров..."
суть темы
"L2PacketHack, работает ли на РУ ОФе"
то есть обход защиты для работы L2PacketHack правильно?
дальше фраза далеко не за так разве не подразумевается $?
вот отсюда и напрашивается вывод о существовании платной версии программы.
куда мне до тебя местного форумного папки - обьясни тогда уж что именно я должен был понять, читая ту тему?
alexteam
13.01.2010, 11:55
п.1 пх лежащий на фтп (коим я к примеру и пользуюсь) умеет работать как socks5 сервер.
п.2 есть отдельный программный продукт предоставляющая возможность перенаправлять траффик линейки на любую утилиту которая может работать в режиме соцк5
п.3 пункты 1 и 2 связаны только тем что пх может работать в режиме соцк5. никаких модификаций в пх как програмный продукт не вноситься. соответственно отдельной версии либо билда не сущствует.
соответственно значит есть $$$ версия ph, которая работает на офе.
неверно.
НЕТ платного пх. ферштейн. ?
неверно - то есть на самом деле на офе всетаки не работает?
Добавлено через 1 минуту
пс: я не вижу разницы между бесплатной программой + платный способ заставить ее работать, или платная цельная программа, которая работает.
alexteam
13.01.2010, 15:12
пх работает на руофе, на 50%.
зы. разница в формулировке и в том как обстоит дело, и существенная. не путай себя и людей. -)
SeregaZ, alexteam, вам блин делать нечего кроме как спорить о формулировках?
ну раз нефиг и я подключусь
пс: я не вижу разницы между бесплатной программой + платный способ заставить ее работать, или платная цельная программа, которая работает.а разница в том что нету "бесплатной программой + платный способ заставить ее работать", есть бесплатная программа которая работает, но не там где кому то надо, и есть отдельная платная программа которая позволяет предыдущей программе а так же её аналогам работать там где этому кому то надо...
короче не ипите себе и другим мозг!, обход есть, он платный и он не привязан к пакетхаку, так что "платного пакетхака" нет, есть платное дополнение
ЗЫ ра руофе голый пакетхак уже и на 50% не пашет, во фросте включили шифрацию обоих направлений...
Cooper85
13.01.2010, 18:41
ЗЫ ра руофе голый пакетхак уже и на 50% не пашет, во фросте включили шифрацию обоих направлений...
Угу начиная с 1000 байта идет шифрация.
00 00 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 - оригинал
______s____c____h____u_____t____g____a_____r____t
64 0C D6 A9 68 0C D0 A9 E7 66 53 27 01 66 46 27 A5 9F 32 91 48 9F - 1 пример
14 04 BE 91 30 04 B8 91 DF 6E 57 F5 DF 6E 42 F5 9B D4 10 54 E4 D4 - 2 пример
64 0C A5 A9 00 0C A5 A9 93 66 27 27 66 66 27 27 D7 9F 46 91 48 9F - 1 ксор
14 04 CD 91 58 04 CD 91 AB 6E 23 F5 B8 6E 23 F5 E9 D4 64 54 E4 D4 - 2 ксор
alexteam
13.01.2010, 18:43
SeregaZ, alexteam, вам блин делать нечего кроме как спорить о формулировках?
xkor, есть... делать глюкалку еще глючней %)
Phoenix163
14.01.2010, 05:06
Здравствуйте.
Возможно задаю вопрос не там, но пробежавшись по форуму подобной темы не увидел, по этому сразу извиняюсь.
После включения L2phx и включения самого клиента ввожу логин и пароль, но вот то что происходит дальше - не описано ни где. После нажатия [Login] клиент выбивает критом:
2010.1.14 03:56:33
OS : Windows XP 5.1 (Build: 2600)
CPU : AuthenticAMD Unknown processor @ 2623 MHz with 2046MB RAM
Video : ATI Radeon HD 2900 XT (6936)
General protection fault!
History: NConsoleWnd::RequestAuthLogin <- NCAuthWnd::OnLoginBtnClick <- NControl::SendEventMessage <- NCButton::OnClickButton <- NCButton::OnLButtonUp <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::DispatchWndMsg <- NConsoleWnd::DispatchWndMsgX <- NConsoleWnd::MasterConsoleEventProcess <- UEngine::InputEvent <- UWindowsViewport::CauseInputEvent <- UWindowsViewport::UpdateInput <- UViewport::ReadInput <- APlayerController::Tick <- ALineagePlayerController::Tick <- TickAllActors <- ULevel::Tick <- (NetMode=0) <- TickLevel <- UGameEngine::Tick <- UpdateWorld <- MainLoop
В чем ошибка? (L2phx 3.4.1.83)
PS: в последней версии L2phx так ничего и не понял, пытаюсь разобраться с данной.
PPS: сервер Interlude (l _a _2 _- _w _o _s _. _r _u)
последнюю 164 ставь. что там разбиратся то е мае? все тоже самое, только в скриптах добавь в процедуру init:
useforconnectname := 'имячара';
SeregaZ, alexteam, вам блин делать нечего кроме как спорить о формулировках?
ну раз нефиг и я подключусь
а разница в том что нету "бесплатной программой + платный способ заставить ее работать", есть бесплатная программа которая работает, но не там где кому то надо, и есть отдельная платная программа которая позволяет предыдущей программе а так же её аналогам работать там где этому кому то надо...
короче не ипите себе и другим мозг!, обход есть, он платный и он не привязан к пакетхаку, так что "платного пакетхака" нет, есть платное дополнение
ЗЫ ра руофе голый пакетхак уже и на 50% не пашет, во фросте включили шифрацию обоих направлений...
Огласите пожалуйста стоимость этой платной дополнительной программы с которой пакетхак работает на руофе.
P.S: Думаю над приобретением...
а там помимо $$$ было еще одно требование - "не для нубочитеров".
видишь в чем суть как можно меньше распространять этот или любой другой продукт подобного темного плана - возможная утечка информации. например ты купил, тут к тебе друг пришел - увидел, ооо! дай дай дай дай. кароче он тебя заколебал - ты ему дал копию. он пришел домой играет, решил перед пацанами повыкручиваца - вот чо у меня есть! - ему: да ты нуб, докажи, покажи. кароче так она перейдет им, а среди них обязательно найдется троюродный плямянник родной тетки со стороны мамы какогонить саркисяна... или иже подобных нехороших людей...
вобщем через неделю все пофиксят, сменят шифрацию, и будет мучительно больно за безцельно прожитые годы...
alexteam
16.01.2010, 00:12
ты ему дал копию
не получиццо XD
Тем более распространить не получится...
Да и нету у меня друзей настолько разбирающихся в компах и ла2 что бы ею воспользоваться
не получиццо XD
опять ты? при должном умении все получиццо.
какие варианты защиты от копирования: это писанина где попала в реестре, установки дополнительных дров в винде, возможно привязка к частоте процессора, марке железа, мак адреса сетевой карты - много нюансов все не предусмотреть кто-то через сетевую в инет, кто-то через модем через 8...
можно пойти по пути касперского - активацию по интернету, или ваще запуск программы, только после того, как она связалась с сервером и получила оттуда добро на запуск - но тогда если играешь по локалке - запустить её не получится.
большинство обходиться. где-то геморно, где-то не очень...
Добавлено через 1 минуту
в крайнем случае форум крэклаб тебе в помошь :)))
alexteam
16.01.2010, 11:54
опять ты?
xD
[13.01.2010 16:31:50] xkor: кстати ты это, не раскрывай даж примерно принцип работы моих приватных прог раньше меня)
посиму не будем обсуждать почему не получиццо xD
зы. пардон, неудержался.
или ваще запуск программы, только после того, как она связалась с сервером и получила оттуда добро на запуск
опс.. раздел: ментальная часть кода. задачи: связаться с сервером до своего запуска, получить добро, и запуститься xD
ну основную мысль ты понял? или специально для военных немного пояснить?
при запуске программа первым делом лезет со своим серийным номером на сервер, на котором регистрируется айпи адрес этого подключения (для учета общего количества запусков программы одного серийного номера на случай если всетаки упрут) и проверяется серийный номер "не забанен ли" в случае бана - шлется команда "енд" программе.
если не забанен с сервера в шифрованом виде в программу скидывается основная часть кода. она загружается в память, расшифровывает и работает с ней в памяти.
тем самым копирование будет бесполезно, так как по сути скопируется только пустой контейнер. если еще и этот контейнер привязать к железу, виндовсу, имени компьютера, марке монитора пользователя - нужное подчеркнуть - то выйдет проблемная для копирования программа.
если еще использовать авторские методы шифрации, которые вообще никому не известны...
это вся фигня в самом теле программы, или отдельный "преланчер" - дело вкуса и вопросов защищенности. который безопаснее - тот и применить.
насчет неполучица - я бы небыл бы так на твоем месте уверен. как там в контре... "на каждого крутого бойца, найдется боец и покруче" - писал эту программу человек? писал для человека? значит другой человек сможет в этом разобратся - это просто вопрос времени.
alexteam
16.01.2010, 17:42
надо будет в военку нашим отправить этот метод, хай в методу раздел добавят.
зы. кто знает скоко в индию письмо отправить стоит ? xD
xXxMassarakshxXx
16.01.2010, 22:52
хотел узнать почему через недолгое время работы с л2пх,а именно точюсь скриптом,начинаются жутки лаги,как этого можно избежать?
Зарание благодарен!
я думаю, по аналогии с другими программами, в скрипте утечка памяти. поскольку на сам ph батон крошить мы не можем, значит дело всетаки в скрипте.
или, у меня была аналогичная проблема в густо населенных городах - там тормозило неимоверно. отчасти помогло отключение обработки пакетов - ну всмысле в том окне, где пакеты отображаются - попробуй тоже отключить и посмотреть. скрипты от этого не пострадают, также будут работать, просто будет невидно какие пакеты в данный момент шлются или получаются.
xXxMassarakshxXx
17.01.2010, 17:02
я всегда отключаю обработку пакетов когда использую скрипты,но не помогает чего то,потребление виртуальной памяти выростает за 2 сек на 1мб.....
отключал в пакетхаке все что там есть не помогает,сумарное потребленее состовляет 2,500мб после чего виснет комп(15 мин работы пакетхака) а ла2 пишется что ест всего лиш 250-300мб...
значит утечка памяти иде-то. ты последнюю версию использовал? и виснет с каким-то определенным скриптом, или вовсе без них?
еще момент - обычно рекомендуется отключать антивирус перед запуском ph, так как он ругаеца и тд и тп. возможно всетаки заразу ты подцепил, и она заразила ph - из-за этого он некорректно работает, но поскольку, предположим, антивирус мы отключаем - то спалить эту контору не плучитца.
xXxMassarakshxXx
17.01.2010, 20:43
последния версия пакетхака,щяс проверю с другими скриптами,работал со скриптом NLObP на автоматизацию заточки,антивира вообще нету)а пакетхак перекачал 20 мин назад и пробывал точится,таже беда,щяс с рыбалочкой првоерю и т.д
HellCeZaR
18.01.2010, 17:49
Извените за нубский вопрос, но как можно обойти защиту nophx.dll?
а то l2ph даже не находит клиент ла2
Подскажите пожалуйста каконибуть сервер где я магу попробовать чтото сделать с l2ph
Phys1, шог?
HellCeZaR, попробуй переименовать экзешник и заголовок пакетхака.
tiranosaur
19.01.2010, 21:37
#$87: begin
if readd(2)=0 then begin
msg.Lines.Add('Улучшили ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(good);
end else begin
msg.Lines.Add('Сломали ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID)+' ItemEnchLvl='+IntToStr(ItemEnch));
inc(broken);
end;
// CurEnchLvl:=0; //начнем с начала. Расскоментировать для блессет скроллов
end;
как в этой части сделать чтобы к переменной предположим Х добавлялась 1 при поломке? знаю в си имеет вид Х+=1
и еще помогите пжл запустить бота рыбака в OUT режиме. чет ошибки на отключение выдает. использую версии phx 3.5.28.151 и 3.5.33.164 выдает ошибки на дисконнект
или подскажите пжл где искать. запарился ужо
alexteam
19.01.2010, 21:41
"value := value + 1" == "inc(value)" == "inc(value, 1)"
Phys1, шог?
на шоке можно чтото сделать новичку?
и еше у меня тут на одном сервере вылезает ошибка что я сделал нетак скрин: _http://dump.ru/file/4177179
supernewbie
21.01.2010, 10:04
Помогите пожалуйсто мне) Я так понимаю, читать из пакета можно командой Read(D), но вот скажем как можно выловить по ИДу вещи из инвенторя, ИД объекта? И как потом вставить этот ИД в WriteD...
ЗЫ я уже перерыл полфорума( мб я тупой но не нашел ничего, разжуйте мне пож)
перебор инвентаря обсуждался. где-то тут примеры от alexteam были :)
я пока плюнул на этот перебор. мне нужен был id свитка пробуждения - пока каждый раз запуская скрипт - тыкаю вручную свиток и он запоминает его айди и дальше уже сам будит на пвп воротах сопати от слипа:
if FromServer and (pck[1]=#$27) and (idsvitka = '0') //чтение id свитка
then begin
iditema:=pck[12]+pck[13]+pck[14]+pck[15];
if (iditema=HStr('95 17 00 00')) //свиток пробуждения
then begin
idsvitka:=pck[8]+pck[9]+pck[10]+pck[11];
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('айди свитка определен: ' + idsvitka);
SendToClient;
end;
end;
сам пакет инвентори апдейт:
27 01 00 02 00 04 00 13 08 76 40 95 17 00 00 7E 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00
95 17 00 00 это айди свитка по базе
13 08 76 40 это айди предмета в игре
реад конечно круче, чем всякие мазохизмы с pck[8]+pck[9]+pck[10]+pck[11] - зато сам делал и мне все понятно :)
Ma3aXakA
21.01.2010, 14:25
Кто может помоч как разобраца в l2phx.3.5.33.164.Во всех придыдуших версиях все понял а в этой не фурычу:(помагите.Все по Дитально обьяснить или в картинках или в видео ваше не че не понял если че неправильно сори :)
supernewbie
21.01.2010, 17:36
перебор инвентаря обсуждался. где-то тут примеры от alexteam были :)
я пока плюнул на этот перебор. мне нужен был id свитка пробуждения - пока каждый раз запуская скрипт - тыкаю вручную свиток и он запоминает его айди и дальше уже сам будит на пвп воротах сопати от слипа:
if FromServer and (pck[1]=#$27) and (idsvitka = '0') //чтение id свитка
then begin
iditema:=pck[12]+pck[13]+pck[14]+pck[15];
if (iditema=HStr('95 17 00 00')) //свиток пробуждения
then begin
idsvitka:=pck[8]+pck[9]+pck[10]+pck[11];
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('айди свитка определен: ' + idsvitka);
SendToClient;
end;
end;
сам пакет инвентори апдейт:
27 01 00 02 00 04 00 13 08 76 40 95 17 00 00 7E 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00
95 17 00 00 это айди свитка по базе
13 08 76 40 это айди предмета в игре
реад конечно круче, чем всякие мазохизмы с pck[8]+pck[9]+pck[10]+pck[11] - зато сам делал и мне все понятно :)
что-то я не понял что он делает, мне надо чтобы он читал из инвенторя по ИДу итема ид объекта. И потом вставить этот ИД в другой пакет. И что за пакет 27? Я просто вообще ничего не знаю :(
Добавлено через 4 минуты
Блин, а теперь и вовсе ругается(
const
Name='10';
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
end;
begin
if FromServer and (pck[1]=#$14) and (idsvitka = '0') //чтение id свитка <<<< Вот на эту строку
then begin
iditema:=pck[12]+pck[13]+pck[14]+pck[15];
if (iditema=HStr('B6 05 00 00')) //свиток пробуждения
then begin
idsvitka:=pck[8]+pck[9]+pck[10]+pck[11];
buf:=#$17;
WriteD(idsvitka);
WriteD(1);
WriteD(115176);
WriteD(-178666);
WriteD(-937);
SendToServer;
end;
timer.enabled:=false;
end;
end.
Что не так тут?(
Добавлено через 1 час 38 минут
Вообщем мне надо сделать чтобы у меня сканировался инвентарь, и выбрасывался предмет с 1 идом.
а во... увидел. вобщем тебе мой пример не подойдет. тебе нужен полный перебор инвентаря. уменя же инвентори апдейт - там пакет маленький всего на 1-2 вещи, которые изменяются в данный момент.
тебе надо разбирать пакет 1B - ItemListPacket
вот пример пакета:
1B 01 00 10 00 00 00 89 ED 8A 40 5A 03 00 00 01 00 00 00 02 00 00 00 01 00 06 00 00 00 00 00 00 00 00 00 2D 75 8A 40 98 03 00 00 01 00 00 00 02 00 00 00 01 00 08 00 00 00 00 00 00 00 01 00 26 49 89 40 ED 18 00 00 01 00 00 00 01 00 00 00 01 00 00 10 00 00 00 00 00 00 01 00 DA BC 8A 40 EE 18 00 00 01 00 00 00 01 00 00 00 01 00 40 00 00 00 00 00 00 00 00 00 92 E1 8A 40 79 03 00 00 01 00 00 00 02 00 00 00 01 00 30 00 00 00 00 00 00 00 01 00 74 13 8B 40 EB 18 00 00 01 00 00 00 01 00 00 00 01 00 00 80 00 00 00 00 00 00 00 00 D6 E9 8A 40 B4 19 00 00 01 00 00 00 00 00 00 00 01 00 00 40 00 00 00 00 00 00 00 00 AB 9D 8A 40 5A 03 00 00 01 00 00 00 02 00 00 00 01 00 06 00 00 00 00 00 00 00 00 00 CF D8 8A 40 79 03 00 00 01 00 00 00 02 00 00 00 01 00 30 00 00 00 00 00 00 00 01 00 11 3D 88 40 6F 02 00 00 01 00 00 00 01 00 00 00 01 00 00 20 00 00 00 00 00 00 01 00 EC A8 8A 40 AD 02 00 00 01 00 00 00 01 00 00 00 01 00 01 00 00 00 00 00 00 00 01 00 B4 00 8A 40 EC 18 00 00 01 00 00 00 01 00 00 00 01 00 00 02 00 00 00 00 00 00 00 00 A0 04 8B 40 C2 19 00 00 01 00 00 00 00 00 00 00 00 00 00 40 00 00 00 00 00 00 04 00 30 99 8A 40 41 05 00 00 53 02 00 00 05 00 00 00 00 00 00 01 00 00 00 00 00 00 04 00 9F FE 8A 40 BB 05 00 00 CE 03 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00 D9 8D 8A 40 39 00 00 00 7A 43 04 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00
как я сделал (точней еще не доделал) - сперва читаем количество предметов - отмечено синим - 16 штук.
потом прогоняем через цикл 16 раз, с выделением в нем ID предмета по базе и сравниваем со своим, который ищем.
это в примере сережка ТТ. к примеру если мы её ищем, то её ID в игре будут предидущие 4 позиции. выделил зеленым.
кароче не ленись. ищи пример от alexteam там про перебор инвентаря.
supernewbie
22.01.2010, 02:53
О, госпади, то есть тот ГРОМАДНЕЙШИЙ скрипт был на всего лишь жалкое какое-то нахождение ИДа?! О госпади... ну ладно...
сразу извените за тупой вопрос, но очень нужен скрипт\пакет для телепортации в любой город ... если таков существует :( ПРоблема в том что я застрял в текстурах на континенте грации сое не пашет, релог непомогает, гм"ам по**й на все а мне перса нада вытащить. Получаеться что летаю (трансформ в сову) под текстурами локаций и немогу "вылететь" наверх. Пробовал прописивать /target и имя гм-шопа\мульта\бафера\тп но ничего не получаеться.
http://s61.radikal.ru/i173/1001/cd/7a88166b9a69t.jpg (http://radikal.ru/F/s61.radikal.ru/i173/1001/cd/7a88166b9a69.jpg.html)
http://s004.radikal.ru/i207/1001/15/84aa729fda14t.jpg (http://radikal.ru/F/s004.radikal.ru/i207/1001/15/84aa729fda14.jpg.html)
http://s39.radikal.ru/i084/1001/38/4af92e925d2at.jpg (http://radikal.ru/F/s39.radikal.ru/i084/1001/38/4af92e925d2a.jpg.html)
Макся
/unstuck у вас на сервере не работает?
supernewbie
то был еще маленький скрипт :) в твоем случае он будет гораааааздо больше :)
Добавлено через 9 минут
вот. нашел за тебя... лентяй...
http://coderx.ru/showthread.php?t=25&page=125
начиная с поста #1248 и дальше вниз ищи посты alexteam. как там что работает я незнаю, я буду делать по своему, так что мучай его теперь по этим вопросам :)
alexteam
22.01.2010, 12:00
пошли клиенту пакет teleporttolocation с координатами x,y равных текущим и z около 5к. вылетишь.
кстати вот еще вариант - купи 2 окном телепорт в какой либо город - и иди этим окном у ту степь, где застрял 1 чар. попробуй сунуть трейд таргетом. если не получица - то вспоминай что ты перед этим делал, и делай 2 чаром тоже самое, чтобы им тоже застрять и тогда они рядом окажутся тогда точно трейд заработает.
я пробовал 2-м окном брать в таргет застрявшего перса, но он не берется , кроме того у мя есть сое, но они не пашут - перс появляеться в том же месте опять... наверное слишком "глубоко" сидит. Unstuck не пашет, типа пишет неверная команда... А скрипт я искал дето 30 минут и ненашел, поиск недал результата. Спасибо за советы, буду пробовать!
тогда еще идея - когда бежишь кудато - клиенту все время шлются твои текущие координаты.
то есть вторым чаром приблизительно в той степи тыкни мышкой куднить рядом в пределах нескольких шагов - запомни пакет передвижения, и следующие за ним ВалидейтЛокатион или как он там... забыл...
и во втором окне шли сперва этот пакет движения, и следом потом этот пакет текущего положения перса. авось вывезет наверх.
еще вариант - возьми в пати 2 окном чар 1 окна, рандом пати естественно. и 2 чаром бросай на землю свитки тп в другой город и подбирай. может по рандому первому чару свиток перепадет.
supernewbie
22.01.2010, 19:56
я ничег не понял, ( что делает скрипт алекса?((
как мне ид то оттуда достать(((
alexteam
22.01.2010, 20:17
пипец.. танцы с бубнами...
просто отошли клиенту пакет телепорттолокейшин с его (клиентом) обжектайди и координатами разнящимися с текущими по z, естественно в плюсовую сторону.
все остальное клиент сделает за тебя.
Добавлено через 10 минут
простой скрипт который это сделает при приходе пакета чарактеринфо:
const
charactername = 'charname';
z = 5000; //МЕНЯТЬ ИНДИВИДУАЛЬНО.
var
work : boolean;
charoid,x,y : integer;
values : array[0..100] of variant;
procedure Teleport;
begin
pck := #22;
writed(charoid);
writed(x);
writed(y);
writed(z);
sendtoclient;
work := false;
end;
procedure init;
begin
useforconnectname := charactername;
work := true;
end;
procedure free;
begin
end;
begin
if fromserver and (pck[1] = #$32) then
begin
readmask('ddddd',2,values);
x := values[0];
y := values[1];
charoid:= values[4];
buf := pck;
pck := '';
sendtoclient;
Teleport;
end;
end.
supernewbie
как чо? он перебирает инвентарь. а ты просто добавь туда сравнение, с тем айди по базе предмета, который тебе нужен и так получишь игровое айди и уже по этому игровому айди будешь выкидывать эту шмотку на пол, как и задумывалось.
supernewbie
23.01.2010, 23:07
госпади, читай и переводи мой ник(( я и так сделал самое простое что умею( милосердный SeregaZ, напшии мне это сравнение, с комментариями плз)
у меня товаришь есть на одном форуме... так вот он писал: идем с другом на рыбалку. я предпочитаю дать ему в руки удочку и показать как рыбачить, чем дать в руки эту самую, уже пойманную рыбу.
написал я кстати... вот только что закончил свой мега корявый перебор инвентаря :) находит у меня свиток - радости полные штаны.
вот положу тебе его, ну скопируешь, ну будешь пользоватся - так ведь все равно не поймешь как он работает, и опять при возникновении какой-либо проблемы пойдешь на форум, чтобы тебе опять сделали все готовое. и ник это не отмазка... все когда-то начинали...
if FromServer and (pck[1]=#$1B) //разбор инвентаря
then begin
countitem:= readh(4); //количество всех итемов
it1:=12;
it2:=13;
it3:=14;
it4:=15;
base1item:=it1+(28*countitem);
iditema:=pck+pck[it2]+pck[it3]+pck[it4];
repeat
if (iditema=HStr('95 17 00 00')) //свиток пробуждения
then begin
idsvitka:= pck[it1-4]+pck[it2-4]+pck[it3-4]+pck[it4-4];
end;
it1:= it1 + 28;
it2:= it2 + 28;
it3:= it3 + 28;
it4:= it4 + 28;
iditema:=pck[it1]+pck[it2]+pck[it3]+pck[it4];
until it1 > base1item;
if (idsvitka <> '1')
then begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('айди свитка определен: ' + idsvitka);
SendToClient;
end
else begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('свиток в инвентаре не обнаружен. пробуждение от слипа в данном случае не возможно.');
SendToClient;
end;
end;
нужно открыть инвентарь - и он найдет игровое айди предмета по айди по базе. если не найдет - то напишет, что не нашел. если что открывать инвентарь автоматом можно так:
buf:=HStr('0F'); //открытие инвентаря для поиска свитка в инвенторе
SendToServer;
[I]Добавлено через 8 минут
зато у меня теперь вопрос. значит у меня авто помошник на пвп воротах, мини ангел хранитель, проверяет значения хп сопати, если = 0, то пытается заюзать скил резурект.
в случае если пока он бежит до мертвого сопати, он жмет в город и его хп становица больше 0, идет команда на возврат на стартовую точку.
ну и возникла идея, в случае, если он всетаки реснул сопати, а этот самый сопати тупанул и нажал отмена реса и продолжает лежать - так вот для такого случая решил сделать реакцию на слово "рес" в пати чате.
в пакете Say2 удобно - есть айди персонажа. по нему буду строить таргет. но вот ник персонажа все портит. ники ведь бывают разной длинны. вот пример:
1 пакет:
4A 07 E5 90 48 03 00 00 00 45 00 6C 00 66 00 69 00 65 00 63 00 00 00 40 04 35 04 41 04 00 00
2 пакет:
4A 39 8E 90 48 03 00 00 00 42 00 61 00 74 00 61 00 72 00 65 00 79 00 6B 00 61 00 00 00 40 04 35 04 41 04 00 00
ну не догоняю я как боротся с масками пакетов, и оттуда получать данные :) вот как мне в этом случае - проверять пакет с конца. то есть конец то у обоих пакетов одинаковый слово "рес" - 40 04 35 04 41 04 00 00
supernewbie
24.01.2010, 00:24
не робит твой скипт( ругается на countitem...
Добавлено через 33 секунды
блин, корчое я расстроен( потратил неделю а так ничего и не получилось(((((
Добавлено через 3 минуты
ПОМОГИТЕ ГОСПАДИ ГОСПАДИ ЗА ЧТОООООООООООО(((((((((((((( ПОЧЕМУ НИЧЕГО НЕ РАБОТАЕТ ТО... :confused:
Добавлено через 30 секунд
ПОМОГИТЕ КТО_НИБУДЬ
естесно ругаеца. эти же все переменные надо сперва объявить, на самом верху, перед тем как использовать.
вот раньше были конструкторы, типа лего современного - только лучше. железные, с болтиками и гайками. ты задумываешь что-то, зная примерно какие у тебя комплектующие - и собираешь эту задумку из этого конструктора. тебе надо сперва с этими имеющимися детальками ознакомиться, а ты хочешь одноразовый заход на форум, взял готовое и досвидание... э неее! тут тебе дадут детальки, а уж ты потом собирай из этих деталек то что нужно.
supernewbie
24.01.2010, 16:32
где можно достать учебник по этому скриптовому языку?(
supernewbie, ищи что нибудь по языку паскаль.
кстати про детали от старого советского конструктора - использую досих пор детали в своем компьютере :)))) крепление вентилятора от блока питания нужно было сделать. он под углом к жесткому диску расположен. вот ети детальки подошли как нельзя лучше :)
Breadfan
25.01.2010, 01:10
to SeregaZ
тебе надо счтывать примерно так:
If pck[1]:=#$4A then
Begin
j:=2; // j - стартовая позиция указателя
CharOID:=ReadD(j); // -- OID перса
TextType:=ReadD(j); //-- индекс чата в котором пишется текст
nick:=ReadS(j); //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
text:=ReadS(j); //-- считывается текст
end;
Когда пакет с текстовыми данными - номера байт явно не указывай
ReadH\D\S\Q(j) - не только считывает содержимое j-того байта, но и соответствуще меняет значение j
Вообще же, текст в пакете оканчивается "00 00" - можно так выискивать конец блока...
25.01.2010 08:10:16 LSP модуль зарегистрирован в системе
25.01.2010 08:10:16 Стартует L2ph v3.5.15.126
25.01.2010 08:10:16 На 7788 зарегистрирован локальный сервер
25.01.2010 08:11:25 (LSP) Обнаружено соединение (Сокет 1720) IP/port 195.209.228.10:2106. Соединение будет проигнорировано
25.01.2010 08:11:26 (LSP) Обнаружено соединение (Сокет 1764) IP/port 217.170.89.3:7777. Соединение будет перехвачено
25.01.2010 08:11:27 (LSP) Соединение закрыто (Сокет 1764)
25.01.2010 08:11:27 (LSP) Обнаружено соединение (Сокет 1768) IP/port 217.170.89.7:7777. Соединение будет перехвачено
25.01.2010 08:11:27 (LSP) Соединение закрыто (Сокет 1768)
25.01.2010 08:11:30 (LSP) Обнаружено соединение (Сокет 1720) IP/port 217.170.89.3:7777. Соединение будет перехвачено
25.01.2010 08:11:46 (LSP) Соединение закрыто (Сокет 1720)
почему?
Breadfan
25.01.2010, 11:50
потому что http://coderx.ru/showthread.php?t=423
Breadfan
работает :) спасибо.
Подскажите какой нужен PHX на L2 Gracia Epilogue?:)
Добавлено через 2 минуты
не официальный сервер (х1000)
Mozilla, последнюю версию стяни - не ошибешься
Alexandr
30.01.2010, 04:02
Всем доброго времени суток!
У меня вот проблема версия l2phx 3.5.33.164
не хочед подключатся и пакеты показывает необычные =). Менял настройки все попробовал результата нету, помогите пожалуста.
как решить проблему?
Спасибо.
920
921
922
Breadfan
01.02.2010, 17:10
Это, блин, какой-то заговор...У вас есть где-то ресурс, на котором вы договариваетесь постить одинаково неинформативные сообщения?http://coderx.ru/showthread.php?t=423
вопрос, ПНХ верси 3.4.1.83 и версии выше не ловят пакеты а точнее их не показывают, ни от сервера ни от клиента, в чём может заключаться проблема? заранее спасибо.
пакетхак версии 3.5.33.164
лог:
04.02.2010 18:21:01 Успешно загрузили C:\л2фх\inject.dll
04.02.2010 18:21:01 LSP модуль зарегистрирован в системе
04.02.2010 18:21:01 Стартует L2ph v3.5.33.164
04.02.2010 18:21:01 На 56574 зарегистрирован локальный сервер
04.02.2010 18:21:51 LSP модуль зарегистрирован в системе
04.02.2010 18:21:51 LSP module was unregistered
04.02.2010 18:21:56 Надёжно пропатчен новый клиент l2.exe (3492)
04.02.2010 18:21:58 LSP успешно зарегистрирован
проблема такая, что я с л2фх спокойно захожу на сервер, бегаю итд. Но коннекта л2фх и серва нету. Хотя на некоторые серверы даже просто с включенным не пускало. Что это может быть? сервер=>> mordred.ru
Imperial2008
06.02.2010, 14:32
Могу ли я при перехвате определенного пакета, который приходит от сервера (скажем, пакет 7E) не допускать его к клиенту. Например вот этот пакет (7E) отвечает за "вылет" клиента на рабочий стол, могу ли я его блокировать? Если да, то как? Заранее благодарю.
if FromClient
and (pck=HStr('1b 04 00 00 00')) then begin
pck:='';
end;
но это от клиента. возможно от сервера можно сделать тоже самое.
pck:=''; это не кавычки, это два апострофа или кто они там...
Добавлено через 2 минуты
if FromServer and (pck[1]=#$7E) then begin
pck:='';
end;
вот что то типа так.
Друзья!
Срочно нужен скрипт чтобы убрать лаги когда хлапой выкидывают большое кол-во итемов в локации. Пожалуйста помогите!
Здравствуйте, у меня вопрос.Вот я запустил l2phx, зашел в игру,зашел своим чаром,а когда начинает грузиться игра просто вылетает.
И вот что пишет:
07.02.2010 11:33:56 Имя соединения:lDareDeviL
07.02.2010 11:33:58 Disconnect: отвалился сервер Thread[0].SH 696/3172 SSock=664
07.02.2010 11:33:58 Сохраняем лог пакетов...
07.02.2010 11:33:58 WSA error 0/664
07.02.2010 11:33:58 WSA error 0/692
07.02.2010 11:33:58 Disconnect: отвалился клиент Thread[0].CH 680/4036 CSock=692
07.02.2010 11:33:58 Thread Exit: поток сервера Thread[0].SH 696/3172 SSock=664
07.02.2010 11:33:58 Thread Exit: поток клиента Thread[0].CH 680/4036 CSock=692
ПОМОГИТЕ ЧТО ДЕЛАТЬ???
//nlobp: прочти FAQ и задай правильно вопрос (с картинками и т.д.).
Ma3aXakA
09.02.2010, 06:16
Слушайте можете сказать как определить степень зашиты сервера??И есть ли утила для этого?
spiritofsands
14.02.2010, 02:18
Использую скрипт IgExt на Hellbound. При соц. действии условие IF выполняется, но команда ShowBotMenu() почему-то не работает. В чем может быть дело? Где можно найти данную ф-цию?
alexteam
14.02.2010, 13:39
врядли ты сможеш юзать его на хелбаунде. из за хтмл который клиент хелбаунда не будет воспринимать.
Imperial2008
14.02.2010, 15:07
Подскажите, а можно как-то сделать gateway не через маршрутизатор и т.д., а посредством Интернета?
Alexandr, щифрация трафика изменена, надо писать свою newxor.dll
archimG, где скрины настроек и хроникик сервера? Попробуй вместо лсп-перехвата зать надежный.
Добавлено через 1 минуту
midko, и как ты себе представляешь убирание лагов скриптом? может скрипт опреративки допаяет? или к процу несколько миллионов транзисторов присобачить?
Добавлено через 30 секунд
Ma3aXakA, только ручками + brain.dll
Breadfan
15.02.2010, 09:01
может он про скрипт убивающий пакеты про дроп стрел (и тому подобного хлама)? но он гдето был тут...ищите вобщем
spiritofsands
16.02.2010, 02:13
врядли ты сможеш юзать его на хелбаунде. из за хтмл который клиент хелбаунда не будет воспринимать.
В каком файле можно посмотреть.изменить сам код? Ты писал, что нужна серьезная переработка хтмл. Может я этим займусь? Искал в исходниках, не нашел. Кстати, клиенту даже не приходит пакет хтмл. Или его не показывает пакетхак
Добавлено через 2 минуты
Друзья!
Срочно нужен скрипт чтобы убрать лаги когда хлапой выкидывают большое кол-во итемов в локации. Пожалуйста помогите!
Какие хроники? М.б. просто сделать скрипт, убивающий пакет дропа, если какой-нить серв с автоподбором.
alexteam
16.02.2010, 11:47
В каком файле можно посмотреть.изменить сам код? Ты писал, что нужна серьезная переработка хтмл. Может я этим займусь? Искал в исходниках, не нашел. Кстати, клиенту даже не приходит пакет хтмл. Или его не показывает пакетхак
для начала сам скрипт поправь.. под хелбаунд.. или что там у тебя..
spiritofsands
16.02.2010, 18:48
для начала сам скрипт поправь.. под хелбаунд.. или что там у тебя..
Да, хеллбаунд. А скрипт корректно обрабатывает пакеты (не изменены).
Например, #$62 это и есть system message.
Если в
#$34://socialactionreq
begin
case readd(2) of
$02: //greeting
begin //Меню бота
pck := '';
ShowBotMenu();
end;
end;
end;
после ShowBotMenu(); поставить функцию отправки сообщения в анонсы, она работает. Следовательно, иф срабатывает, только меню не выводится.
alexteam
16.02.2010, 18:55
'calltutorialshowhtml':
begin
//params = [contentofhtml]
buf := #$A6;
writes(params[0]);
SendToClientCheck;
end;
ботменю вызывает вот эту часть.
Добавлено через 2 минуты
так же чтобы менюшка показалась, вот эта часть тоже должна быть работоспособной.
#$0B : //CharSelected
begin
UserCreate(SettingsName);
SetNodesFile(SettingsName);
ReadMask('sdsdddddddddd',2,values);
PckCharSelected(values[0],values[1],values[10],values[11],values[12]);
ShowBaloonnHint('User log in '+UseForConnectName);
end;
spiritofsands
17.02.2010, 23:36
Сам пакет:
пример1
18 EE 42 A9 10 04 00 00 00 09 00 00 00 43 05 00 00 0B 00 00 00 DC 04 00 00 21 00 00 00 A2 02 00 00 22 00 00 00 A2 02 00 00
пример2
18 EE 42 A9 10 01 00 00 00 0B 00 00 00 DC 04 00 00
Var
i,p,mid,currentmainhp,currentmainmp,currentmaincp, maxmaincp : integer;
begin
case pck[1] of
#$18: //status update
begin
i:=2;
if readd(i)=mid then
begin
p:=1;
while p <= (readd(i)*2) do
begin
case readd(i) of
9: currentmainhp:=readd(i);
11: currentmainmp:=readd(i);
33:
begin
sendmsg('test1');
currentmaincp:=readd(i);
end;
34:
begin
sendmsg('test2');
maxmaincp:=readd(i);
end;
end;
p:=p+1;
end;
end;
end;
end;
end.
Скрипт не считівает никакое цп. Даже сообщения в лог тест1 и тест2 не пишутся. В чем я ошибся?
<это часть скрипта, отвечающая за обновление инфы>
Добавлено через 23 минуты
Проблему решил сам. Что было не так - хз, но вот рабочий вариант:
Var
i,p,mid,currentmainhp,currentmainmp,currentmaincp, maxmaincp : integer;
begin
case pck[1] of
#$18: //status update
begin
i:=2;
mid:=readd(i);
if mid=mid then
begin
for p:=1 to (readd(i)*2) do
begin
case readd(i) of
9:
begin
sendmsg('currentmainhp='+inttostr(currentmainhp));
currentmainhp:=readd(i);
end;
11:
begin
sendmsg('currentmainmp='+inttostr(currentmainmp));
currentmainmp:=readd(i);
end;
33:
begin
sendmsg('currentmaincp='+inttostr(currentmaincp));
currentmaincp:=readd(i);
end;
34:
begin
sendmsg('maxmaincp='+inttostr(maxmaincp));
maxmaincp:=readd(i);
end;
end;
end;
end;
end;
end;
end.
PavelQwa
21.02.2010, 10:40
Выскакивает ошибка как только я захожу в игру т.е чар уже появился но двигаться не может... Cервер la2real.net l2phx 3.5.33.164
2010.2.20 17:37:48
OS : Windows XP 5.1 (Build: 2600)
CPU : GenuineIntel PentiumPro-class processor @ 1997 MHz with 2042MB RAM
Video : NVIDIA GeForce 9300M GS (9062)
General protection fault!
History: NCHtmlFrame::GetMaxHeight <- NCHtmlViewer::GetFrameHeight <- UUIAPI_HTMLCTRL::execGetFrameMaxHeight <- UObject::execClassContext <- (TutorialViewerWnd Transient.TutorialViewerWnd0 @ Function Interface.TutorialViewerWnd.OnEvent : 00C8) <- UObject::ProcessEvent <- (TutorialViewerWnd Transient.TutorialViewerWnd0, Function Interface.TutorialViewerWnd.OnEvent) <- XMLUIManager::ExecuteUIEvent <- NConsoleWnd::ReceiveTutorialShowHtml <- UNetworkHandler::Tick <- Function Name=TutorialShowHtm <- UGameEngine::Tick <- UpdateWorld <- MainLoop
Подскажите как переделать этот скрипт на авто агументацию под ХБ?
Где что менять и как :confused:
Переделать для чего? Для каких целей?Учитесь грамотно задавать вопрос!
22.02.2010 21:23:53 Надёжно пропатчен новый клиент l2.bin (3552)
22.02.2010 21:24:12 (Inject.dll) Коннект на 217.144.185.140:5190 проигнорирован
22.02.2010 21:24:17 (Inject.dll) Коннект на 217.144.185.140:5190 проигнорирован
22.02.2010 21:24:19 (Inject.dll) Коннект на 217.144.185.140:1005 проигнорирован
зашел через новый пх, в игру зашло, до ввода порта 1005 в неигровые, получал вот что
22.02.2010 21:27:58 (Inject.dll) Коннект на 217.144.185.140:5190 проигнорирован
22.02.2010 21:28:00 (Inject.dll) Перехвачен коннект на 217.144.185.140:1005
22.02.2010 21:28:00 ServerListen: Обнаружено новое соединение.
22.02.2010 21:28:00 Тунель ($52010176) создан
22.02.2010 21:28:00 Тунель ($52010176) запущен для чтения с сокета № 768
22.02.2010 21:28:00 Тунель ($52010176), Серверный сокет № 768 / Клиентский сокет № 776, Соединение установлено с 217.144.185.140:1005
22.02.2010 21:28:00 Тунель ($52010176) Отвалились от клиента
22.02.2010 21:28:00 Тунель ($52010176) Отвалились от сервера
22.02.2010 21:28:00 Тунель ($52010176) уничтожен
что делать?
Lolshto?
28.02.2010, 14:58
зашел через новый пх, в игру зашло, до ввода порта 1005 в неигровые, получал вот что
что делать?
1005 это и есть твой игровой порт, его в список игнорируемых добавлять нельзя, на сервере какая-то защита.
Подскажите как переделать этот скрипт на авто агументацию под ХБ?
Где что менять и как :confused:
Переделать для чего? Для каких целей?Учитесь грамотно задавать вопрос!
под хроники HellBound Kamael, он под Gracia
spiritofsands
06.03.2010, 16:27
Возможно как-то заставить phx для каждого соединения исп. свой сокс?
Как вариант, возможно ли запустить два phx в режиме прослушивания( не перехвата)?
Цель - два окна с разным ип.
Как сделать нормальный newxor под Абисс сервер где полу грация полу ИЛ?
ЗДраствуйте ... извините , что пишу ну я нуб в скриптах и не понимаю много!
вот у меня проблемка l2packethack с енчантом ... настроил все, указал имя , написал ТРУ ну , что ео интерлюд , поставил макс кол-во слота в инвентаре...короче сделал все как и нужно ..
Ну вот нажимаю нажимаю галочку на енчант скрипте бай NLObP он запускайте и внизу скрипта:
Автоматизация заточки by NLObP!
itemsid.ini не найден!
прошу помощи, прочитал все FAQ реально не нашел...помогите люди добрые:)
Добавлено через 11 часов 19 минут
ппц вам что влом помоч?
Меня выкидывает при нажатии на войти это значит что не пашет на сервере или что ?! Помогите плииииз ))))
Добавлено через 13 минут
версия 3.5.12.120
Добавлено через 2 минуты
общии настройки первые 3 галки , версия протокола Т1 хелбаунд камаель , Настройки перехвата использовать LSP и деинсталировать при выходе из PH
в дополнительно стоят все галки
Breadfan
08.03.2010, 21:58
ЗДраствуйте ... извините , что пишу ну я нуб в скриптах и не понимаю много!
вот у меня проблемка l2packethack с енчантом ... настроил все, указал имя , написал ТРУ ну , что ео интерлюд , поставил макс кол-во слота в инвентаре...короче сделал все как и нужно ..
Ну вот нажимаю нажимаю галочку на енчант скрипте бай NLObP он запускайте и внизу скрипта:
Автоматизация заточки by NLObP!
itemsid.ini не найден!
прошу помощи, прочитал все FAQ реально не нашел...помогите люди добрые:)
Добавлено через 11 часов 19 минут
ппц вам что влом помоч?
а чего помогать то? он же пишет что не найден файл, или скопируй его к скрипту или путь пропиши
KloneZ, переезжай в топ указаный в первом посте.
я не зря помоему написал , что я нуб в етом и прошу помощи...я не заю что и где прописывать:(
что я нуб в етом
или скопируй его к скрипту или путь пропиши
нуб в копировании файла из одной папки в другую? О_о тогда это не к нам, мы начальным обучением работой с винью не занимаемся
QaK, сор ))тупанул..ето уже сделали..вот теперь запускаю клиент , довожу его до той стадии где выбирать сервера...запускаю пакет хак...и меня дальше выбора сервера не пускает ..что делать подскажите:)
Вадим, первый пост, ссылка на обсуждение
Народ такая проблема, пакетхак не определяет имя и наверно из-за этого не 1 скрипт у меня не пашет! что сделать чтоб определял имя?
Breadfan
16.03.2010, 17:27
скорее всего введена доп. шифрация трафика...проще всего расслабиться и играть как обычно, если же есть желание то - http://coderx.ru/forumdisplay.php?f=31 и материалы по дискретной математике в инете...ну или может ктото другой сделает все и предоставит :)
Привет, играю вот на этом сервере http://www.cyb3r.ws
Хочу настроить l2phx под автоматическую заточку пухи
запускаю программу запускаю клиент все настройки соблюдены
антивирусник отключен, Но как только прослеживаются Id оружия в программе Сразу пропадает интернет и все в принципе((
Может у кого уже такое было???! подскажите пожалуйста
//QaK: тебе сюда >>>>>>>> (http://coderx.ru/showthread.php?t=3791)
Какой процедурой функцией можно запустить внешнюю программу в l2ph?
Если можно пример использования....
//QaK:через скрипты - никак, если только плагинами добавить запуск проги, как дополнительную процедуру/функцию
Не знаю правильно или нет я выбрал тему, но думаю "Кружок нубов" для меня лучше всего подходит, ибо имею
оч маленький опыт работы с l2phx. :)
Собсвенно всё работает, пакеты от сервера\клиента видит, свои тоже отсылает, что уже оч радует.
Конкретно...меня интересуют способы 100% заточки или получения уже заточеного предмета с помощью этой
программы, но поскольку с правилами раздела я ознакомлен, то не каких "багов" и "готовых решений" я не жду
и не прошу.
Мною было найдено 2 способа:
1)http://www.youtube.com/watch?v=18wzhFZelwk&feature=related
На проверку этот способ оказался полностью не рабочим, ну покрайней мере на этом сервере и конкретно у
меня.
A7 28 46 0F 00 40 0D 03 00 01 00 00 00 00 00 00 00 00 00 00 00
С "40 0D" производились манипуляции показанные в видео и во втором варианте с "00 00", я менял на "10" или
"10 00", что соотвестует заточке на +16, покайней мере так показывает программа.
Однако, покупается не точеная пушка...
2)http://www.youtube.com/watch?v=CiT04CToJa0&feature=related
Второй же способ, на проверку оказался более интерересным, ибо давал хоть какой-то результат. Сделал всё
как в видео, собственно вот мой пакет:
14 C1 AC 0C 10 00 00 00 00
58 4F F1 10 10
21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 35 00 38 00 31 00 32 00 5F 00 44 00 65 00 70 00 6F 00
73 00 69 00 74 00 50 00 00 00
31 01 00 00 00 4F F1 10 10 01 00 00 00
Как вы могли заметить, не хватает одной строчки - это снятие предмета.
Поскольку, на этом сервере предмет снимается автоматически после заточки.
Как и было показано в видео, при таком способе бывает 3 результата.
1 - Предмет якобы ломается, о чем нас извещяет систем чат, но на самом деле предмет благополучно лежит на
ВХ.
2 - "Inappropriate enchant conditions." и вариант с руссификаций "Предмет колдовства в неправильном
состоянии.", предмет тоже лежит в ВХ.
3 - Предмет затачивается, что естественно можно тоже прочитать в систем чате. Сам предмет после этого к
сожалению не был показан.
Было произведено около 20-25 попыток, первые два "результата" работают на 100%, а вот третий...прям
совсем не как....
При этом так же расходуются заточки, но предмет не ломается и это радует, хоть какие то подвижки...
Ув. знатоки, внимание, вопрос!:D
Подскажите в каком направлении двигаться, чтобы достичь результата?
Или же эти спобособы "мертвые" и им не помогут "модификации"?
З.Ы. Буду благодарен любой инфе, не важно в каком виде, ссылочка там или намёк и т.д. Сам ещё пока "не
дорос" креативить в этой проге, потому прошу хоть небольшой подсказки, настравления на путь итинный так
сказать.:D
З.Ы.Ы. Ответы "в направлении леса" и т.д. не доставляют, ибо предсказуемы.:) Правила раздела старался не
нарушать и в моём понимании не нарушил, но "если чо"...конечно понятно, что "адм всегда прав".
//nlobp:предлагаю тему дальше не развивать
Rubicosha
30.03.2010, 23:44
Всем привет) У меня есть вопрос (прошу не карать,если не по теме, так как необжился еще на форуме). С ПНХ работаю впервые. Скачал последнюю версию - отлично пашет, претензий 0....Есть только один вопрос....Мне оч интересно - есть ли смысл редактировать пакеты (допустим на получение адены) и повторно их отправлять на сервер (естественно для халявного получения адены)?? Так как я сколько не пробовал (до того как наткнулся на этот форум) максимум, что у меня получалось - это оредактировать пакет , но результат видит только клиент (т.е. мну) Пробовал как на Хеллбаунд хрониках, так и на грации финал- результаты абсолютно идентичны ...как нужно правильно работать с пакетами. Еще раз прошу прощения если не по теме.
Rubicosha, предлагаю тему дальше не развивать ... во избежании
Всем привет, пишу скрипт для бота, но столкнулся с проблемой, что волкер не видит диалогов с нпс и бафнуться от нпс или сделать тп невозможно, поэтому подключил еще и phx.
Хотел, чтобы после запроса ботом диалога с нпс, phx перехватывал пакет от клиента и выполнял нужные мне дейсвия, но что-то с пакетами я не очень дружу, а тем более с делфи, поэтом прошу помоч.
Вот, что намудрил:
begin
if FromClient and (ConnectName='123')
and (pck[1]+pck[2]=#$1F#$3A) then begin //запрос бота на диалог с бафером
buf:=HStr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 35 00 34 00 35 00 30 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 00 00');
SendToServerEx('123');
pck:=''; //Нажал на кнопку "Buff"
buf:=HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 20 00 38 00 32 00 00 00');
SendToServerEx('123');
pck:=''; //Выбрал нужную комбинацию бафов.
end;
end.
Несколько раз сработало, но в основном ступор, нпс даже в таргет не берется, в чем может быть проблема?
hash, проблема в том что в пакетах которые вы используете меняется ObjectID у нпц. А у вас он всегда один и тот же, такой скрипт будет работать только на одном нпц (и то возможна ситуация что после рестарта сервера ObjectID сменится).
Для вашего случая надо такой скрипт.
begin
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('63 00 68 00 61 00 74 00')) then begin
pck[32] := #$67;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('6C 00 6F 00 74 00 6F 00')) then begin
pck[32] := #$76;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('73 00 75 00 70 00 70 00')) then begin
pck[32] := #$83;
pck[46] := #$77;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('71 00 75 00 65 00 73 00')) then begin
pck[32] := #$81;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('62 00 75 00 79 00 20 00')) then begin
pck[32] := #$66;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]= HStr('73 00 65 00 6C 00 6C 00')) then begin
pck[32] := #$83;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('74 00 65 00 72 00 72 00')) then begin
pck[32] := #$84;
pck[50] := #$83;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('6F 00 6C 00 79 00 6D 00')) then begin
pck[32] := #$79;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('64 00 65 00 70 00 6F 00')) then begin
pck[32] := #$68;
pck[46] := #$80;
end;
if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('77 00 69 00 74 00 68 00')) then begin
pck[32] := #$87;
pck[48] := #$80;
end;
end.
Проблема с диалогами довольно часто встречается и скрипт написан давненько, но по сей день работает. Я только переделал его под ваш вариант сравнения пакетов pck[1]+pck[2]=#$1F#$3A, чтоб вам было проще в нем разобраться.
Проблема с диалогами довольно часто встречается и скрипт написан давненько, но по сей день работает. Я только переделал его под ваш вариант сравнения пакетов pck[1]+pck[2]=#$1F#$3A, чтоб вам было проще в нем разобраться.
Я так понял с этим скриптом бот должен видеть диалог с нпс, в таком случае не работает :( . Я попробую обьяснить подробнее, что нужно, может у кого будет время помоч нубу.
Требуется выполнить всего 3 ответных действия на действия бота
1. Бот использует айтем "Bandage" пакет "19 D8 4D 1D 10 00 00 00 00"
phx в ответ выделяет бафера и бафается. Вот, что удалось нарыть по баферу: "1F 8F A0 00 10 E8 41 02 00 41 28 FF FF 52 F5 FF FF 00" - Взял в таргет.
Выбрал, что бафнуть "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00"
"Tип: 0x23 (RequestBypassToServer)
Pазмер: 275+2
Время прихода: 11:55:41:406
0002 s Command: npc_268476559_Buff 1040 1068 1035 1077 1204 1268 1036 1045 1048 1086 1240 1242 1388 1356 271 274 275 310 264 265 267 268 269 304 349 364"
2.Бот использует айтем "Emergency Dressing" пакет "19 D9 4D 1D 10 00 00 00 00" phx в ответ выделяет бафера и бафается: 1F 90 A0 00 10 A7 41 02 00 27 28 FF FF 52 F5 FF FF 00 - Выделил.
Нажал на меню Buff: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 36 00 30 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 00 00"
"Command: npc_268476560_Quest 9998_NPCBuffer"
Выбрал, что бафать: "23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 20 00 38 00 32 00 00 00"
"Command: Quest 9998_NPCBuffer 82"
3. Бот использует айтем "Greater Antidote" пакет: "19 DB 4D 1D 10 00 00 00 00"phx в ответ выделяет гейткипера и тпшится.
Взял в таргет кипера: "1F 50 70 00 10 FF 41 02 00 64 28 FF FF 52 F5 FF FF 00"
Выбрал меню нобл тп: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 34 00 32 00 30 00 38 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 32 00 30 00 30 00 30 00 5F 00 4E 00 6F 00 62 00 6C 00 65 00 73 00 73 00 65 00 54 00 65 00 6C 00 65 00 70 00 6F 00 72 00 74 00 00 00"
"Command: npc_268464208_Quest 2000_NoblesseTeleport"
Выбрал меню тп за адену: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 34 00 32 00 30 00 38 00 5F 00 43 00 68 00 61 00 74 00 20 00 32 00 00 00"
"Command: npc_268464208_Chat 2"
Выбрал точку тп: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 34 00 32 00 30 00 38 00 5F 00 67 00 6F 00 74 00 6F 00 20 00 39 00 30 00 37 00 31 00 00 00"
"Command: npc_268464208_goto 9071"
obj id действительно изменяется после каждого рестарта :(
Если мой вариант не работает, то придется вам определять objectID, NLObP выкладывал где-то на форуме как это делается, попробуйте использовать его алгоритм.
эх, говорила мне бабка учи делфи, зря не послушал :D
Добавлено через 2 часа 17 минут
const
Name='123'; // Ник персонажа
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=2500;
timer.OnTimer:=@fireTimer;
timer.enabled:=false;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('1F 8F A0 00 10 CC 41 02 00 71 28 FF FF 53 F5 FF FF 00');
SendToServer;
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00');
SendToServer;
buf:=hstr('1F 90 A0 00 10 9B 41 02 00 65 28 FF FF 53 F5 FF FF 00');
SendToServer;
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 36 00 30 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 00 00');
SendToServer;
buf:=hstr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 20 00 38 00 32 00 00 00');
SendToServer;
timer.enabled:=false;
end;
if FromClient and (ConnectName=Name) and (pck = HStr('19 D8 4D 1D 10 00 00 00 00')) then begin
timer.enabled:=true;
end;
end.
Как сделать интетрвал например в 5 секунд между отправкой каждого пакета?
Пробовал Delay(5000); но что-то неочем :(
hash, поищи по форуму "отправка пакетов по таймеру", или как-то так. Твоя реализация таймера - говно не совсем правильная =)
hash, поищи по форуму "отправка пакетов по таймеру", или как-то так. Твоя реализация таймера - говно не совсем правильная =)
все на, что хватило ума, но уверен - это глупо :)
const
Name='123';
var
Timer01, Timer02: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=2000;
Timer02:=TTimer.Create(nil);
Timer02.OnTimer:=@OnTimer02;
Timer02.enabled:=false;
Timer02.interval:=5000;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=hstr('1F 8F A0 00 10 B8 41 02 00 78 28 FF FF 53 F5 FF FF 00');
SendToServer;
Timer01.enabled:=false;
end;
procedure OnTimer02(Sender: TObject);
begin
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00 ');
SendToServer;
Timer02.enabled:=false;
end;
procedure Free;
begin
Timer01.free;
Timer02.free;
end;
begin
if FromClient and (ConnectName=Name) and (pck = HStr('19 D8 4D 1D 10 00 00 00 00')) then begin
timer01.enabled:=true;
timer02.enabled:=true;
end;
end.
А одним таймером? Типа вот так (сам таймер)
var
a:integer;
procedure Time(Sender: TObject);
begin
if a=0 then begin a:=1; buf:=hstr(''); end;
if a=1 then begin a:=2; buf:=hstr(''); end;
if a=2 then begin a:=0; Timer01.enabled:=false; buf:=hstr(''); end;
end;
Остальное как у вас, ну в Init надо задать чтоб изначально a =0 :)
ps: используйте плиз тег [ code ], а то читать не удобно
А одним таймером? Типа вот так (сам таймер)
var
a:integer;
procedure Time(Sender: TObject);
begin
if a=0 then begin a:=1; buf:=hstr(''); end;
if a=1 then begin a:=2; buf:=hstr(''); end;
if a=2 then begin a:=0; Timer01.enabled:=false; buf:=hstr(''); end;
end;
Остальное как у вас, ну в Init надо задать чтоб изначально a =0 :)
ps: используйте плиз тег [ code ], а то читать не удобно
Ещебы скрипт на авто скан Object ID нужного мне NPC, былобы идеально :)
Ещебы скрипт на авто скан Object ID нужного мне NPC, былобы идеально :)
NLObP написал отличный алгоритм определения ObjectID, поищите его посты на форуме, он пару раз объяснял как определить ObjectID у нужного нпц.
hash, берешь массив, запихиваешь в него инфу из приходящих пакетов NpcInfo ОбджектИд и НПЦ ИД =)
Здравствуйте,Поогите мне пожалуста я пробовал пользоваться l2ph 3.5.33.164 подключился к серверу (Грация Финал) всё вроде нормально пакеты получаю но вот отправить хоть редактированный мною покет хоть нет не могу в чем дело????
Здравствуйте,Поогите мне пожалуста я пробовал пользоваться l2ph 3.5.33.164 подключился к серверу (Грация Финал) всё вроде нормально пакеты получаю но вот отправить хоть редактированный мною покет хоть нет не могу в чем дело????
Не попадаете мышкой по кнопке "отправить" ? :rolleyes:
Если серьезно, то дайте больше информации о вашей проблеме.
//QaK:солидарен
Да нет,по кнопке попадаю ещё как)))
но просто такое ощущение что отправленные мной пакеты вообще не доходят...по началу всё было нрмально пакеты доходили но как бы я их не редактировал к примеру на заточку то приходило просто чистое оружие((( что делать?
Breadfan
09.04.2010, 02:21
Да это ж багоюзер(дюпальщик\какугоднодалеепотексту) наглый, сразу попадающий под статью "Обсуждение багов Lineage ЗАПРЕЩЕНО!" :spiteful:
Как поставить в значение таймера рендом число, которе постоянно меняется, например от 3000 до 6000?
Пробовал так:
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=3000+Random(2000);
Ошибка "Too many actual parameters"
1) Неверный синтаксис команды рандом.
Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range
0 <= X < 1.
В переводе на руский я думаю надобности нету :)
А еще надо использовать процедуру Randomize.
2) Плюс мне кажется нельзя (или ничего не даст) при объявлении таймера задавать такую функцию. Объявление происходит один раз и получается что interval изменятся не будет. В вашем случаи надо изменять Timer01.interval в событии OnTimer01.
UPD:
Думаю стоит еще написать пример генерации случайного числа от +20 до +50 :)
Function IntRandom(LowBorder, UpBorder: Integer): Integer;
Begin
IntRandom := LowBorder + Random(UpBorder - LowBorder + 1);
End;
Var
X: Integer;
begin
Randomize;
X := IntRandom(-20, 50);
end.
Andriyko87
14.04.2010, 12:36
Привет всем ! Такая проблема. Прога работает всьо в порядке, но через некоторое время вылетает с ошыбкой. По сути я понял что прога не может записать лог в папку бла бла бла, но как ето исправить ? Помогите плз.
Cannot create file "D:\games\for l2 (progu)\БОТ для vlineage.ru\l2phx.3.4.1.70\logs\BriaRay_12\04\2010 _00.40.12.txt". The system cannot find the path specified.
Exception class: EFCreateError
Exception message: Cannot create file "D:\games\for l2 (progu)\БОТ для vlineage.ru\l2phx.3.4.1.70\logs\BriaRay_12\04\2010 _00.40.12.txt". The system cannot find the path specified.
Exception address: 00427BC2
alexteam
14.04.2010, 12:39
в региональных настройках поставь разделителем даты время точку.
Andriyko87
14.04.2010, 12:58
Упс, извините, но как ето сделать ?)))
alexteam
14.04.2010, 13:04
http://tinyurl.com/y2cfn9h
Andriyko87
14.04.2010, 13:17
отредактировал региональное время, но ошыбка та же
Cannot create file "D:\games\for l2 (progu)\WALCKER FOR SHOCK-WORLD\l2phx.3.4.1.83\logs\BriaRay 14\04\2010 11.08.34.txt". The system cannot find the path specified.
Exception class: EFCreateError
Exception message: Cannot create file "D:\games\for l2 (progu)\WALCKER FOR SHOCK-WORLD\l2phx.3.4.1.83\logs\BriaRay 14\04\2010 11.08.34.txt". The system cannot find the path specified.
Exception address: 13167BB6
alexteam
14.04.2010, 13:22
формат даты.. млять.. поменяй!!!
чтобы вместо 14\04\2010 было 14.04.2010
Andriyko87
14.04.2010, 14:01
ОЧЕНЬ БЛАГОДАРЕН !!!!!!!! СПАСИБО БОЛЬШОЕ !!!!!!!
Добавлено через 37 минут
У меня терь новая проблема )))
List index out of bounds (4998).
Exception class: EStringListError
Exception message: List index out of bounds (4998).
Exception address: 13167181
supernewbie
15.04.2010, 19:29
а можно каким-нибудь образом сделать так чтобы l2phx сам создавал соединение и заходил за перса?
а можно каким-нибудь образом сделать так чтобы l2phx сам создавал соединение и заходил за перса?
нельзя, 2ph не работает с логин сервером
supernewbie, люди используют ph + l2walker
supernewbie
15.04.2010, 23:26
кто-нибудь знает бот (l2jes, walker), который умеет логинится за нескольк о аккаунтов по кругу?
supernewbie
17.04.2010, 14:14
форум мертв?
const
first='23...00';
second='23...00';
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
begin
if FromClient and (pck='19..00') then begin
buf:=Hstr(first);
SendToServer;
end;
if fromclient and (pck='19..00') then begin
buf:=hstr(second);
SendToServer;
end;
if fromclient and (pck='19..00') then begin
buf:=hstr(second);
SendToServer;
end;
end;
end.
Почему скрипт может не работать? При получении требуемого пакета, ПХ не шлёт нужный в ответ :(
Вместо многоточия был пакет, но он очень длинный...
KOPOBA, добавь диагностические сообщения, чтобы убедиться, что проверки проходят.
KOPOBA, добавь диагностические сообщения, чтобы убедиться, что проверки проходят.
Спасибо, действительно не проходят, премного благодарен.
люди,жутко извиняюсь за флуд,но киньте плиз ссылку где чётко рассказывают что и как надо делать с прогой(как её включить)
люди,жутко извиняюсь за флуд,но киньте плиз ссылку где чётко рассказывают что и как надо делать с прогой(как её включить)
http://coderx.ru/showthread.php?t=423 раз
http://coderx.ru/showthread.php?t=1490 два
http://coderx.ru/showthread.php?t=1447 три
Играю на сервере где до вчерашнего дня прекрасно работал пх и некоторые баги через него в том числе и заточка (через пета, вх). Но админ поставил какю-то защиту, теперь при отправке некоторых пакетов кикает с игры и пишет, что сообщено ГМу.
Нельзя ли это обойти? Или все, бб?
скорее всего этот вопрос поднимался ранее, но что-то не удалось мне найти его. собственно вопрос: можно ли запустить одновременно несколько скриптов на энчант в разных окнах ?
скорее всего этот вопрос поднимался ранее, но что-то не удалось мне найти его. собственно вопрос: можно ли запустить одновременно несколько скриптов на энчант в разных окнах ?
Да, можно. Надо в каждом скрипте использовать SendToClientEx(CharName: string) и SendToServerEx(CharName: string) с разными никами чаров.
Да, можно. Надо в каждом скрипте использовать SendToClientEx(CharName: string) и SendToServerEx(CharName: string) с разными никами чаров.
можно по подробнее, или ссылочку на пример подобного скрипта?
reis, берешь скрипт на точку, копируешь его n-e количество раз, где n - нужное тебе количество чаров, в скриптах вместо SendToServer пишешь SendToServerEx('Имячара'), вместо SendToClient пишешь SendToClientEx('Имячара') Имячара заменить на имя твоего чара, запускаешь каждый скрипт для своего чара =)
сэнкс, понял свою ошибку в синтаксисе, писал имя чара без кавычки одиночной
Добавлено через 3 часа 52 минуты
пробовал изменить скрипт на автозаточку от TAMBIK'a, изменил все, как было выше описано, но когда начинаю ставить второе окно на заточку, то макс. уровень пишется в первом, также и заточка начинается в первом окне, т.к. id заточек и предметов одинаковы.
что вы по этому поводу мне скажете?
сэнкс, понял свою ошибку в синтаксисе, писал имя чара без кавычки одиночной
Добавлено через 3 часа 52 минуты
пробовал изменить скрипт на автозаточку от TAMBIK'a, изменил все, как было выше описано, но когда начинаю ставить второе окно на заточку, то макс. уровень пишется в первом, также и заточка начинается в первом окне, т.к. id заточек и предметов одинаковы.
что вы по этому поводу мне скажете?
покажите как изменили скрипт (для 1 и 2 окна)
ps: в тег [ code ] скрипты возьмите, для удобства :)
Для первого окна:
const
myname='1';
max=200;
xxx=10;
chat = 3;
//===========================================
procedure SendMsg2(msg:string);
begin
if autoMsg then begin
buf:=#$4A;
WriteD(0);
WriteD(chat);// <<=куда выводить сообщения
WriteS('');
WriteS(msg);
SendToClientEx('1');
end;
end;
//===========================================
//==========================================
procedure ActionUse;
begin
case ReadD(2) of
12:begin autoMsg:=true; end;
13:begin autoMsg:=false; end;
24:begin
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (maxlvl=0) then SendMsg2( ' Неуказан Уровень Заточки !' );
SendMsg2( '_______________________________' );
if autostart and (maxlvl>0) then begin
buf:=hstr('14');
SendToServerEx('1');
SendMsg2( ' ! ! ! П О Е Х А Л И ! ! !' );
SendMsg2( '_______________________________' );
start:=true;
end;
end;
25:begin
SendMsg2( ' ! ! ! С Т О П ! ! ! ' );
stopEnchantItem;// остановка скрипта
end;
end;
end;
//==========
//==========================
procedure stopselectskrol;// отмена выбора скролл
begin
buf:=hstr('D04E00');
SendToServerEx('1');
end;
//===================================
//===================================
procedure OnTimer01(Sender: TObject);
begin
buf:=#$19;
WriteD(skrolObject);
WriteD(0);
SendToServerEx('1');
Timer01.enabled:=false;
end;
//--------------------------
procedure OnTimer02(Sender: TObject);
begin
buf:=hstr('D04C00');
WriteD(enchantID);
SendToServerEx('1');
Timer02.enabled:=false;
// Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin
buf:=#$5F;
WriteD(enchantID);
WriteD(0);
SendToServerEx('1');
Timer03.enabled:=false;
end;
//-----------------------------------------
//=========================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('14');
SendToServerEx('1');
end;
//=========================
Для второго окна:
const
myname='2';
max=200;
xxx=10;
chat = 3;
//===========================================
procedure SendMsg2(msg:string);
begin
if autoMsg then begin
buf:=#$4A;
WriteD(0);
WriteD(chat);// <<=куда выводить сообщения
WriteS('');
WriteS(msg);
SendToClientEx('2');
end;
end;
//===========================================
//==========================================
procedure ActionUse;
begin
case ReadD(2) of
12:begin autoMsg:=true; end;
13:begin autoMsg:=false; end;
24:begin
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (maxlvl=0) then SendMsg2( ' Неуказан Уровень Заточки !' );
SendMsg2( '_______________________________' );
if autostart and (maxlvl>0) then begin
buf:=hstr('14');
SendToServerEx('2');
SendMsg2( ' ! ! ! П О Е Х А Л И ! ! !' );
SendMsg2( '_______________________________' );
start:=true;
end;
end;
25:begin
SendMsg2( ' ! ! ! С Т О П ! ! ! ' );
stopEnchantItem;// остановка скрипта
end;
end;
end;
//==========
//==========================
procedure stopselectskrol;// отмена выбора скролл
begin
buf:=hstr('D04E00');
SendToServerEx('2');
end;
//===================================
//===================================
procedure OnTimer01(Sender: TObject);
begin
buf:=#$19;
WriteD(skrolObject);
WriteD(0);
SendToServerEx('2');
Timer01.enabled:=false;
end;
//--------------------------
procedure OnTimer02(Sender: TObject);
begin
buf:=hstr('D04C00');
WriteD(enchantID);
SendToServerEx('2');
Timer02.enabled:=false;
// Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin
buf:=#$5F;
WriteD(enchantID);
WriteD(0);
SendToServerEx('2');
Timer03.enabled:=false;
end;
//-----------------------------------------
//=========================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('14');
SendToServerEx('2');
end;
//=========================
Приведены куски кода в которых что-то изменялось, остальное осталось неизменно.
пользуюсь этим скриптом: Auto_enchant + 1 _selectskroll - gracia_final.rar (http://coderx.ru/attachment.php?attachmentid=862&d=1262007021)
Ну для начала бросилось в глаза что у вас есть const myname='1'; и это значит что надо писать SendToServerEx(myname);.
А в скрипте тамбика хватает только в строчке myname='TAMBIK'; написать ник, а остальной скрипт трогать не надо.
Ну для начала бросилось в глаза что у вас есть const myname='1'; и это значит что надо писать SendToServerEx(myname);.
да, так оно изначально и было, просто попробовал по совету QaK'a сделать.
А в скрипте тамбика хватает только в строчке myname='TAMBIK'; написать ник, а остальной скрипт трогать не надо.
если ничего не менять, то эффект такой же как я и писал. когда настраиваю энчант во втором окне, то все действия перенаправляются в первое.
reis, по совету QaK вы должны были менять SendToServer на SendToServerEx, а в скрипте который вы хотите использовать нету SendToServer, там только SendToServerEx, заменять нечего :)
Я проверил скрипт на 2-х окнах, отлично работает если менять только 1 строку (с ником)
reis, по совету QaK вы должны были менять SendToServer на SendToServerEx, а в скрипте который вы хотите использовать нету SendToServer, там только SendToServerEx, заменять нечего :)
от безисходности пробовал всё что только можно и нельзя)
Я проверил скрипт на 2-х окнах, отлично работает если менять только 1 строку (с ником)
пойду ещё разок попробую)
Добавлено через 35 минут
нет, ну это издевательство :) запускаю скрипты, пытаюсь во втором окне установить хотя бы уровень макс. заточки, пишу эти, чертовы, циферки, а уведомление о том что установлен макс. уровень заточки приходит в первое окно.
Tampler1
07.05.2010, 14:00
Подскажите как заблокировать пакет, исходящий от клиента?
Вот пакет исходящий от клиента 39 3A 00 00 00 00 00 00 00 00 (юз скил лечения)
Хочу чтобы при нажатии на скил, ничего не происходило
пишу:
Begin
if FromClient and (pck[1]=#$39) then pck:=' ';
end.
Где я допустил ошибку ?
Сервер Грация Финал
2лпх 3.5 вериси
Tampler1, вот так будет правильнее:
begin
if FromClient and (ConnectName='НИК')
and (pck=HStr('***')) then pck:='';
end.
где *** - строка из пакета "RequestMagicSkillUse"
Tampler1, главная ошибка здесь pck:=' '
Вы написали pck:='[пробел]', надо просто 2 кавычки рядом, без пробелов.
Еще надо сказать что из за pck[1]=#$39 будут блокироваться все пакеты с юзом скила и если вам нужен конкретный скил, то надо еще указывать и часть пакетом с ID скила (или весь пакет, как написал reis).
Tampler1
07.05.2010, 20:44
Пишу:
begin
if FromClient and (ConnectName='Tampler')
and (pck=HStr('39 3A 00 00 00 00 00 00 00 00')) then pck:='';
end.
Жму на значок желтой молнии, внизу пишет "Скрипт откомпилирован", но скил прекрасно нажимается и выполняется. Может как-то по-другому скрипт запускать надо?
Tampler1, да, по другому, посмотрите что написано напротив слова "важно" в 2 посте :)
http://coderx.ru/showthread.php?t=1447
J-Fobos, можешь дать ссылку на сервер в ЛС, где ты скрипт тестил в двух окнах ?
reis, 127.0.0.1, я на локальном всегда проверяю.
хорошая ссылка, хоть повеселил:)
Как узнать размер пришедшего от сервера пакета (процедура или функция) в скрипте?
Например,
39 D9 65 00 00 04 00 00 00 00
Tип: 0x39 (RequestMagicSkillUse)
Pазмер: 10+2 <---------------------- = 13 байт,
Время прихода: 15:08:13:562
0002 d skillID: Колчан Костяных Болтов ID:26073 (0x65D9)
0006 d CtrlPressed: 4 (0x00000004)
0010 c ShiftPressed: 0 (0x00)
Нужно в скрипте проверить размер пакета.
Как узнать размер пришедшего от сервера пакета (процедура или функция) в скрипте?
Например,
39 D9 65 00 00 04 00 00 00 00
Tип: 0x39 (RequestMagicSkillUse)
Pазмер: 10+2 <---------------------- = 13 байт,
Время прихода: 15:08:13:562
0002 d skillID: Колчан Костяных Болтов ID:26073 (0x65D9)
0006 d CtrlPressed: 4 (0x00000004)
0010 c ShiftPressed: 0 (0x00)
Нужно в скрипте проверить размер пакета.
Length(pck); не подойдет? Просто не знаю для каких целей.
С клиентом С1 ваша программа дружит?
если верить настройкам протокола, то она дружит с 4ми хрониками и выше. ну а там - не знаю, лично не проверял
Вот у меня вопрос по L2php 3.5.0.164 запускаю клиент и но выкидывает через 20 секунд без крит ошибки что это может быть? Если не по теме извиняюсь!
Возможно защита у клиента пкх киляет, а возможно при вкл. плагине/скрипте ошибка в runtime происходит и крошит все нафег, у меня такое часто бывает когда подгружаю дллку и в ней происходит ошибка в процессе работы, при этом падает сама длл + пхк + соединение с л2, весело в обс4ем, ищи проблемы у себя.)
у меня некорректно отображаются пакеты в пнх. хроники гф(птс). к примеру - при юзе скила в названии пакета пишется не "magicSkillUse" а "Unknown" или какое либо другое название. Как исправить ошибку?
на сервере стоит защита Skoria...вобщем я обхожу Skoria, запускаю l2phx, захожу в игру(причем без вылетов и критов), но в l2phx`e ничего не появляется...может я l2phx не могу настроить или неправильно его использую...подскажите в чем проблема
сервер http://la2-x50.com/
у меня некорректно отображаются пакеты в пнх. хроники гф(птс). к примеру - при юзе скила в названии пакета пишется не "magicSkillUse" а "Unknown" или какое либо другое название. Как исправить ошибку?
этот вопрос уже раз 5 поднимался, у вас либо шифрация пакетов изменена на сервере, либо Packets.ini не под ваш сервер. В первом случаи мало кто поможет бесплатно.
на сервере стоит защита Skoria...вобщем я обхожу Skoria, запускаю l2phx, захожу в игру(причем без вылетов и критов), но в l2phx`e ничего не появляется...может я l2phx не могу настроить или неправильно его использую...подскажите в чем проблема
сервер http://la2-x50.com/
"обхожу Skoria" громко звучит) в этой теме напишите http://coderx.ru/showthread.php?t=3791
у меня некорректно отображаются пакеты в пнх. хроники гф(птс). к примеру - при юзе скила в названии пакета пишется не "magicSkillUse" а "Unknown" или какое либо другое название. Как исправить ошибку?
xor`ить пакетики нужно, есть корректор для оффа (типа corrector-3a_CT22), но у фрихи немного другой алгоритм смены ид пакета в отличие от офов.
Всем доброго времени суток, ребят сильно не бейте)). Нашёл более подходящую статью для своего вопроса. Я уверен этот вопрос задавался на этом форуме не раз, но всё же помогите. И так ситуёвина вот такая :).
Это касается l2ph. С начал за пускал скрипт Tambik делал всё как написано по инстркуцкии но не каких действий не происходило со стороны скрипта ( только пишет в чат зелёным и всё, когда нажимаю соц. действие малчок). Потом решил использовать Nl0bp скрипт открылся нашёл чара. Но по началу писал не найден IntemsId. ini я рассувал его по всем папка. Надпись вроде бы исчезла. Но инвентарь всёравно не видно. Его вообще нет. Даже пустоты.
Ещё раз повтарюсь сильно не пинать :), да и кстате хроны Gracia Final использую l2ph версии 3.5.28.121
Здравствуйте. Заранее извиняюсь если подобный пост уже был, но тем не менее прошу, посоветуйте пожалуйста какой нибудь сервер ГрацииФинал, на котором не стоит защиты на пакетном уровне (ака спецэфическое шифрование пакетов), и не нужно составлять собственный NewXor, чтобы можно было попрактиковатся в использовании l2phx, и напишите версию l2phx которую вы там использовали.
Здравствуйте. Заранее извиняюсь если подобный пост уже был, но тем не менее прошу, посоветуйте пожалуйста какой нибудь сервер ГрацииФинал, на котором не стоит защиты на пакетном уровне (ака спецэфическое шифрование пакетов), и не нужно составлять собственный NewXor, чтобы можно было попрактиковатся в использовании l2phx, и напишите версию l2phx которую вы там использовали.
Любой сервер с низов л2топа :) Ну а версия как всегда - последняя :)
http://i052.radikal.ru/1005/96/b2223339f4b7t.jpg (http://radikal.ru/F/i052.radikal.ru/1005/96/b2223339f4b7.jpg.html)
Где мне взять настройки?
Программа скачана с вашего сайта.
http://i052.radikal.ru/1005/96/b2223339f4b7t.jpg (http://radikal.ru/F/i052.radikal.ru/1005/96/b2223339f4b7.jpg.html)
Где мне взять настройки?
Программа скачана с вашего сайта.
Прочтите закрепленные темы этого раздела, а еще скачайте более новую версию программы.
Прочтите закрепленные темы этого раздела, а еще скачайте более новую версию программы.
Все спс,разобрался.
NORT, rpg-club x1000 офф птс ГФ без шифрации пакетов
Расскажите кто то,как создавать пакеты для Interlude. Если будет время можете описать контретно для l2strong.ru
Если что мой скайп - zoxan09
обьясните нубу
begin
i := 10; //offset;
ReadMask('cdhfqs', i, [c, d, h, f, q, s]);
зачем нужен этот офф сет 10?
обьясните нубу
begin
i := 10; //offset;
ReadMask('cdhfqs', i, [c, d, h, f, q, s]);
зачем нужен этот офф сет 10?
//offset; это просто комментарий автора скрипта, там можно писать все что угодно, можно и без коментов.
Читает целый ряд значений из pck в зависимости от маски, и здвигает index на сумарную длинну прочитаных значений.
пример выше выполненный с помошью этой функции выглядит вот так:
var
i:integer;
s:string;
c:byte;
d:integer;
h:word;
f:double;
q:int64;
begin
i := 10; //offset;
ReadMask('cdhfqs', i, [c, d, h, f, q, s]);
полный текст тоесть можно неписать эту и и все равно будет работать?
взято с http://l2phx.pp.ru/arhive/l2ph_help/
как отправлять с 2 окон на разные клиенты разные пакеты?
мб гайд есть какойт или тема с таким вопросом. юзал поиск ничего не выдало стоящего.
Ты надеешься что тебя не пошлют в поиск?
Слово для поиска SendToServerEx
А вообще есть еще Что надо знать для написания скриптов
Пиз*ец..... где у этой школоты глаза пилять (http://coderx.ru/showpost.php?p=340&postcount=20)
Вот в теме "Что нужно знать для написания скриптов"
Цитата:
Сообщение от xkor
Например скрипт:
Код:
begin
if FromClient and (ConnectName='SokolA')
and (pck=HStr('1b 04 00 00 00')) then begin
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToServerEx('SokolB');
pck:='';
end;
end.
При получении от клиента играющего за чара с ником SokolA пакета 1b 04 00 00 00 (социальное действие "Victory") непропустит этот пакет и отправит пакет 45 00 00 00 00 00 00 00 00 00 (команда сесть) от имени клиента играющего за чара с ником SokolB, тоесть играете вы в два окна, в одном SokolA, в другом SokolB, нажимаете в первом Victory, и SokolB садится.
Ты такое хотел?
здравствуйте!
у мну така проблема! не работет срипт на заточку скилов! а точнее вылетает ошибка. уже все перепробывал! помогите разобратся! что самое интересное, эту прогу вмсте со сриптом и настройками скинул мне человек который играет на этом же сервере, и у него все работает! многие пишут что нужен файлик Newxor.dll, которого у мну нет и не было, и найти его ни где не могу!(у него тоже нет этого файлика). версия проги l2phx.3.5.33.164, клиент ГФ, сервер La2world.ru.
помогите пожалуста! заранее спс
domovoi, судя пото му что хак правильно определил ник перса файл Newxor.dll тебе не нужен.
Ну а что же это за ошибка такая? причем пакеты ловит все нормально! а скрипт такая ощибка!? помогите плиз!
заранее спасибо!
Добавлено через 9 минут
domovoi, судя пото му что хак правильно определил ник перса файл Newxor.dll тебе не нужен.
Yegor, что же это за ошибка такая? помоги разобратся пожалуйста.
в л2пх есть такая графа служебная самой программы, я так понимаю, - время прихода пакета. как можно получить это самое время в скрипте? суть в чем - объясню на примере ивента тыковок на одном моем любимом сервере. приходишь в локацию, начинаешь бить мобов, как только падает 1 поливалка - включаешь секундомер на сотке. и отходишь в сторонку. таймер был на этом сервере 1:40 - то есть дожидаешься до 1:35 и идешь лупить мобов. потом опять секундомер ставишь и опять ждешь пока время наступит. так у гирана с патей половинок 40 левелов сорком массовой атакой можно было вибить до 4 поливалок.
теперь тот сервер к сожалению плохие дядьки из отделка К изьяли. играю на другом пвп С4... и тут ситуация похожая. время от времени выпадают монетки фестиваль адена с мобов по левелу. вот хотелось бы в л2пх настроить фиксацию времени выпадения этих самых монеток, чтобы можно было вычислить таймер срабатывания дропа. я думаю он всеже имеет место быть (хотя горе админ говорил типа шанс 1%), так как один раз из 6 гвардов выпало 3 итема. бил с равным промежутком времени на глаз. другой раз 9 итемов тоже примерно на глаз правильным промежутком. но хотелось бы вычислить более точные секунды.
SeregaZ, в скриптовом движке есть функция Now: TDateTime
Вот пример использования
var
a:tDateTime;
begin
if FromServer and (pck[1]=#$00) then a:=Now;
end.
Когда от сервера придет пакет с нужным дропом в переменную а запишется время прихода пакета, а потом уже можно будет делать с этим временем все что душа пожелает.
Exuroven
14.06.2010, 12:17
Всем привет у меня такая проблема ,я хочу фармить ботами рб) как сделать так чтобы боты(маги) не подходили к рб до какого то расстояния и еще как у них кончится мана садились регенится,а то я вчера пришел фармить запустил ботов поставил асист,следование,скилы .Сначало когда была мана они норм били и не подходили но как только мана оф они стали бить пухами( жалко все померли!
Всем привет у меня такая проблема ,я хочу фармить ботами рб) как сделать так чтобы боты(маги) не подходили к рб до какого то расстояния и еще как у них кончится мана садились регенится,а то я вчера пришел фармить запустил ботов поставил асист,следование,скилы .Сначало когда была мана они норм били и не подходили но как только мана оф они стали бить пухами( жалко все померли!
Круто. Но причем тут пакетхак? :)
Piratexnik
16.06.2010, 20:26
Включаю l2phx.3.5.33.164 далее игру и при вводе любой буквы выкидывает из игры.
П.С. в настройках не чего не менял(тока интерлюд)
сервth http://lin2core.net
Piratexnik, в первом посте ссылка на нужную тебе тему.
Как она ваше пашет обьясните плизз по человечески прошу =))
ZuR, научись сначала по-человечески объяснять, чего тебе надо.
Вот я не могу понять многие скрипты работают на ИТ и ниже а как только решил взломать нашу ГРацию финал и Епилог так не чо не работает ппц кто может что нить посоветовать : ?:rolleyes:
Breadfan
24.06.2010, 09:20
"решил взломать нашу ГРацию финал и Епилог " - это как?
Р0ма, id пакетов разные, курим ini-шки для протоколов и переписываем скрипты))
Народ вот я нуб нубом ниче ни шарю в валкерах и тд и тп хочу научится владет ботом без помощи клиента, что для этого над, какие программы качать?)
Помогите пожалуйста я когда скачал l2phx он включался, потом решыл потестить на сервере la2edge.ru зарегался скачал патч утановол и l2phx перестал включатса когда его включаеш он через 1-2 секунды закрываетса и если в браузаре по умолчанию пишу в инете чтото связоное с l2phx браузер тоже закрываетса :( :( :(
Помогите пожалуйста я когда скачал l2phx он включался, потом решыл потестить на сервере la2edge.ru зарегался скачал патч утановол и l2phx перестал включатса когда его включаеш он через 1-2 секунды закрываетса и если в браузаре по умолчанию пишу в инете чтото связоное с l2phx браузер тоже закрываетса :( :( :(
Для тестов выбирайте сервера которых находятся в самих низах л2топ, чтоб уж наверняка защит не было и багов побольше работало.
Народ вот пакет для закупки точки в гмшопе: B0 A3 5F 01 00 20 A1 07 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00
B0 A3 5F 01 00 20 A1 07 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 . Как сделат ьчтоб вместо виапонки купился эпик допустим.
Добавлено через 9 часов 40 минут
Дайте аську пожалуйста ато неразберусь с этими пакетами
Breadfan
19.07.2010, 13:07
Да с чего ты взял что вообще можно ...вместо виапонки купился эпик допустим...
David Belle
19.07.2010, 20:52
Всем привет. Вопрос наверное идиотский, но.
Чем может быть вызван отдаленный по времени авто-бан аккаунта на pvp-фришке-interlude? При условии, что не использовались скрипты и не отсылались вручную пакеты. Просто включил PH (v3.5.33.164), зашёл клиентом на сервер, делал всякое клиентом и затем смотрел пакеты. В общем, изучал что вообще к чему, ибо чайник :) Затем закрыл клиент, закрыл PH. После всех манипуляций, в течение дня еще заходил на тот же аккаунт, уже без PH, всё нормально. И вот только через несколько часов, при попытке зайти написали, мол аккаунт забанен. Очевидно - автобан. Непонятно, почему с такой задержкой (раз это из-за PH); и чем конкретно может быть вызван?
Буду рад любому совету, опытных камрадов.
Всем привет. Вопрос наверное идиотский, но.
Чем может быть вызван отдаленный по времени авто-бан аккаунта на pvp-фришке-interlude? При условии, что не использовались скрипты и не отсылались вручную пакеты. Просто включил PH (v3.5.33.164), зашёл клиентом на сервер, делал всякое клиентом и затем смотрел пакеты. В общем, изучал что вообще к чему, ибо чайник :) Затем закрыл клиент, закрыл PH. После всех манипуляций, в течение дня еще заходил на тот же аккаунт, уже без PH, всё нормально. И вот только через несколько часов, при попытке зайти написали, мол аккаунт забанен. Очевидно - автобан. Непонятно, почему с такой задержкой (раз это из-за PH); и чем конкретно может быть вызван?
Буду рад любому совету, опытных камрадов.
Возражу немного, это не автобан, а ручной бан. Задержка в бане кокраз подтверждает это. Но как определилось использование пакетхака надо бы выяснить.
Для начала можно попробовать связаться с админом (или ГМом) и уточнить у него причину бана. А параллельно с этим найти чистую папку систем (только с убитым ГГ) и попробовать войти в игру (без ПХ), если получится войти, то подождать день, проверить забанят или нет.
Сейчас часто используются всякие сканер процессов на наличие имен типа l2phx.exe, и названий окон L2packet hack ver 3.5.132.100. Так что как минимум попробуй изменить имя окна в разделе дополнительно, название exe файла и имена библиотек
anasonic
24.07.2010, 21:02
Объясните пожалуйста как расшифровуется пакет "RequestMultiSellChoose"
0002 d ListID: 554 (0x0000022A) что это
0006 d EntryID: 19 (0x00000013) и это.
000A d Amount: 1 (0x00000001) тут ясно.
серв с4 вроде бы птс.
Breadfan
24.07.2010, 21:12
Насколько помню - ListID - ИД списка с которым ведется работа, EntryID - внутрисписочный ИД выбранного итема. То есть (сразу поясню) конкретной информации что именно покупается - не несет данный пакет, он, грубо говоря, сообщает: "беру итем номер (EntriID) из списка (ListID) - а какой он именно будет - уже зависит от сервера. Вроде бы в пакете BuyList:d(Money)d(ListID)h(ListSize:Loop.01.0019)h (ItemType1)d(0)d(ItemID:Get.Func01)d(CurrentCount) h(ItemType2)h(0)d(BodyPart)d(0)d(0)d(0)d(Price*Tax Rate)d(-2)d(0)d(0)d(0)d(0)d(0)d(0)d(0) идет информация о содержимом того самого списка
Но могу и наврать)
Немного уточню: EntryID - позиция предмета в списке что отображается в окне покупки, EntryID=1 для первого в списке предмета, EntryID=2 для второго и так далее.
Я думаю подобные скрипты уже 100% были, дайте пожалуйсто ссылку на скрин где было бы примерно такое: Написали в пм танцу - соц. действие танцуй. :) юзал поиск непомгло :(
Я думаю подобные скрипты уже 100% были, дайте пожалуйсто ссылку на скрин где было бы примерно такое: Написали в пм танцу - соц. действие танцуй. :) юзал поиск непомгло :(
Такого не выкладывали, сами напишите, не сложно )
Такого не выкладывали, сами напишите, не сложно )
Я просто только недавно стал заниматся, пока мой уровень чтото вроде поймать и заменить пакет, и немного писать условия) Я просто незнаю "операторов" которые работают с чатом :)
Я просто только недавно стал заниматся, пока мой уровень чтото вроде поймать и заменить пакет, и немного писать условия) Я просто незнаю "операторов" которые работают с чатом :)
Ну так поднимайте уровень, качайтесь)) Фармите документацию, спрашивайте если что не понятно, не будете же стоять возле ГК и просить дать готовый скрипт :)
нет) Просто узнать хотелось бы что используют с работами в чатах :) Поиск юзал непомогло :(
Breadfan
25.07.2010, 20:38
http://coderx.ru/showpost.php?p=50&postcount=1 Скрипт L2XBotOptimizer by Xelat - там наглядный пример управления через чат.
Breadfan
25.07.2010, 23:45
Ну вот кусочек:
//Say2
if FromClient and (pck[1]=#$38) then //если от клиента пакет #$38 (это пакет сообщения НО для ц4, на других хрониках - другой номер будет) то:
begin
Cmd:=ReadS(2); //в переменную Cmd записать string-блок из пакета, начинающийся со 2го байта пакета
if (Cmd[1]='-') then // если первый символ блока - "-" то выполнять:
begin
Cmd:=Copy(Cmd,2,Length(Cmd)-1); //Cmd=считать из(Cmd, начать со 2го символа, слово длинной на 1 меньше чем Cmd) т.е. например если было 12345 - станет 2345
case Cmd of //блок выбора: если в Cmd находится
'follow':FollowLeader; //follow - то вызвать процедуру FollowLeader
'heal':Heal('Vark'); // если heal - то вызвать проц-ру Heal передав в нее 'Vark'
'spoil':Spoil('Gnom'); // если spoil то проц-ру Spoil передав в нее 'Gnom'
'sweep':Sweep('Gnom'); // аналогично
'attack': //если в CMD было аттак то вызвать проц-ру аттак
begin
Attack('Vark');
Attack('Gnom');
end;
end;
pck:=''; // тут тот самый пакет, в котором было написан текст - удаляется, чтоб не идти на сервер и не вызывать лишних подозрений по поводу странных диалогов в чате.
end;
endну а дальше смотри процедуры сами что делают.
Прошу помоч вставить функцию автоматического принятия пати от командира, послечего производится весь цикл скрипта, после чего вставить функцию автоматического выхода из пати. Буду очень благодарен.
Вот скрипт, где основной цикл к которуму сначало нужно авто принятие пати от командира, потом после выполения скрипта авто выход пати, и чтоб это повторялось каждый раз, когда бот примет пати.
Скрипт бот-варк (http://dump.ru/file/4697803)
Прошу помоч вставить функцию автоматического принятия пати от командира, послечего производится весь цикл скрипта, после чего вставить функцию автоматического выхода из пати. Буду очень благодарен.
Вот скрипт, где основной цикл к которуму сначало нужно авто принятие пати от командира, потом после выполения скрипта авто выход пати, и чтоб это повторялось каждый раз, когда бот примет пати.
Скрипт бот-варк (http://dump.ru/file/4697803)
А я прошу купить мне квартиру(понятно что не за мои деньги). И я думаю у меня больше шансов чем у вас :D
у меня вот такой вопрос:
включаю хлапекс соединение есть ник перса пишет все норм,но когда вставляю значение пакета и нажимаю послать ничего не происходит.
что делать?
//J-Fobos: это форум программы PacketHack, вопросы по поводу хлапекса задавайте его разработчикам, они никакого отношения к нам не имеют.
//QaK:телепаты в отпуске, куда вставляешь какой пакет, что этим действием хочешь сделать. НЕ забудь сначала почитать правила форума.
Мне скинули L2phx 3.4.1.68 по скайпу. Я выключил антивирус и даже брендмауэр... Если его распаковать, то просто не будет exe файла и inject.dll, а если открыть прямо в архиве вылезет ошибка Невозможно выполнить "C:\Users\Armani\AppData\Local\Temp\Rar$EX15.785\l2 phx.3.4.1.68\l2pbx.exe"... При попытке скопировать из архива inject.dll или exe файл ничего не происходит, в других версиях l2phx просто не распаковывается inject.dll, через другой способ "проникновения" на сервер не зайдет... Помогите плз.
//J-Fobos: Обратите внимание что программа называется пакетхак и папка с программой называется соответственно l2phx.3.4.1.68, но в самой папке присутствует файл который называется l2pbx.exe, неизвестно что вам скинули в скайп, рекомендую скачать программу с нашего сайта.
Теперь по поводу inject.dll: некоторые антивирусы действительно ругаются на него (причины понятны, это перехватчик), но если использовать LSP перехват, то этот файл не обязателен и его можно удалить. Если вы хотите его использовать, то добавьте файл в исключение своего антивируса.
Добавлено через 2 часа 0 минут
Дело в том, что нужен именно этот перехват, а антивирус я вообще закрыл, брэндмауэр выключен.
//J-Fobos: Программа поддерживает 3 вида перехвата (инжект в процесс, перехват через LSP драйвер и направление на сокс5) и только для одного из них требуется inject.dll, так что без него вполне можно обойтись. К тому же я выше написал "добавьте файл в исключение своего антивируса", а не "выключайте антивирус" :)
//Breadfan: PS: Добавить в исключения только если архив скачан отсюда, а не откуда-то там "из скайпа" - ибо мой антивирь - непротив этого файла (или я давно добавил в исключения да забыл уже :D), если что - в разделе "файлы" есть ссылка.
Если глянуть в исходники пакетхака (l2phx.3.4.1.68), то увидим, что там в итоге создается l2pbx.exe. Но это, так к слову, что реально скачали - не известно.
а как можно в скриптах l2phx объявлять и заполнять многомерные массивы?
Breadfan
13.08.2010, 13:22
да как и обычные, proba:array [1..30000,1..2] of integer; - например 2у мерный.(пример - чисто теоретический!)
я так понял, в фастскрипте не работают записи? (record) Но уверенным быть на 100% не могу, поэтому спрашиваю
alexteam
13.08.2010, 14:15
нет там рекордоф.
как в версии l2phx.3.5.33.164 зделать что бы пакеты отправлялись через некоторое время , а не все сразу ( например хочю зделать себе пакеты на фулл баф , но когда нажимаю отправить на меня вешаетса первый баф =( ) подскажите плиз
http://i053.radikal.ru/1008/2a/f19de69f7153.jpg
vadiqqq, используйте скрипты, отправка пакетов по таймеру с заданным интервалом.
vadiqqq, используйте скрипты, отправка пакетов по таймеру с заданным интервалом.
вот втом то и дело что я не знаю как написать самому скрипт , если можешь напиши пожалуйста вот пакеты
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 32 00 30 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 32 00 30 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 32 00 33 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 32 00 34 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 33 00 33 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 33 00 30 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 32 00 35 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 32 00 32 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 33 00 35 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 39 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 34 00 33 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 30 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 32 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 33 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 36 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 38 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 37 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 31 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 32 00 00 00
21 62 00 75 00 66 00 66 00 20 00 70 00 20 00 36 00 00 00
Breadfan
14.08.2010, 16:17
да поищи готовые скрипты на баферов...где-то лежит скрипт на БД\СВС - его вполне можно приспособить для этого
да поищи готовые скрипты на баферов...где-то лежит скрипт на БД\СВС - его вполне можно приспособить для этого
просто я получяю баф не от сапортов , а от нпц бафера . Если не сложно тыкни пару ссылок которые мне подойдут (юзааю пакет хак два для , если с пакета разобрался , в скриптах 0)
vadiqqq, во первых воспользуйтесь поиском (раз 10 уже поднимался вопрос об отправке набора пакетов), во вторых научитесь писать скрипты (скрипт что вам нужен не сложный, его за 10 минут написать можно, но я думаю что никто не будет его писать только из за того что вы попросили) и в третьих вот ссылки тыц (http://coderx.ru/showpost.php?p=30293&postcount=404) тыц (http://coderx.ru/search.php)
Breadfan
14.08.2010, 17:14
просто я получяю баф не от сапортов , а от нпц бафера.. - то, от чего там получаешь баф - неважно, я тебе говорю о том, что в том скрипте сделана отправка готового набора пакетов, с определенными интервалами, вот изменив этот самый набор ты и сможешь его использовать.
такая проблемка... Есть двумерный массив, но я хочу использовать его как массив массивов. Пример:
var a : array [1..10, 1..10] of integer;
b : array [1..10] of integer;
begin
a[1] := b;
end.
я знаю что в паскале такое делать можно, а вот в фастскрпите выбивает ошибку, мол, мало параметров в двумерном массиве указано. Так вот можно вообще так делать в фастскрипте? И еще... как я понял, создание типов в фастскрипте тоже невозможно? (Хотел провернуть выше написанное через создание нового типа, но не смог)
vBulletin® v3.6.11, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot