Разработка Раздел для совместной разработки/доработки программы
01.08.2008, 06:48
#1
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
L2PacketHack 3.5.x
Исходники
здесь
Вот
такие скомпилированные версии есть у меня.
Ниже данные устарели.
Репозиторий находится
тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер
тут
Скомпилированные версии
тут Пароль к архиву:
coderx.ru
Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?
Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (
http://fast-report.com/ru/products/fast-script.html )
- JCL (
http://sourceforge.net/projects/jcl/ )
- JVCL (
http://sourceforge.net/projects/jvcl/ )
Дополнительные компоненты брать
тут .
(<-- TPerlRegEx есть только там)
/
upd :
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (
letitbit /
upload.com.ua )
Немного подправленный FastScript искать в файловом архиве.
Последний раз редактировалось NLObP, 17.10.2016 в 00:02 .
За это сообщение NLObP нажился 111 спасибками от:
-=Ma}{imuS=- ,
4erteg ,
Agat ,
ak47 ,
Alan ,
alexsl ,
alexteam ,
AoWpwnz ,
APXAHGEJI ,
Asmalaa Asrety ,
Benefit ,
BISMARCK_555 ,
boy200007 ,
boypush ,
Breadfan ,
BuKbI4 ,
CCCP ,
Crypto ,
Curious ,
cutter ,
DashKAaa ,
Denis63RUS ,
dyh9l ,
Elecktron ,
Emocean ,
Evgeniy ,
FatalHistori ,
Fer123 ,
Ferrari3200 ,
FFALL777 ,
Fim ,
freeworld ,
GameCoder ,
gavr1l0 ,
gexiss ,
goodvin1709 ,
Green ,
Grinch ,
HacPaTyc ,
INFERION ,
isya ,
Johnson ,
Keeper ,
Keisei ,
Kotyara2014 ,
lomoWAR ,
lordka) ,
LostQ ,
Lotar ,
Ma3aXakA ,
march ,
marslem ,
mat1s ,
MHz ,
micoach ,
MiRoN ,
mirt ,
MoD_Hanes ,
MrIICUX ,
Mulder ,
Murdoc ,
neonv1 ,
nezabudkin ,
Nigga ,
Niros ,
NoFear ,
OleSha ,
OMOH8787 ,
PanAm ,
pascalpwnz ,
PerioH ,
PIONER ,
QaK ,
rastaman_228 ,
ratvier ,
RockTeam ,
RoZ ,
Rubicosha ,
Rysis ,
Ryth ,
saxa24111 ,
shunder ,
skaner ,
skiner4119 ,
Snowbars ,
StekloReZ ,
stopicot ,
TAMBIK ,
Tchep ,
Therapyst ,
TryLaw ,
vahes ,
Velizarx ,
victor_rvm ,
Vilson ,
Vklu4atel^^ ,
vlad00777 ,
vovanchik ,
vul-test ,
wanick ,
wasabi_100 ,
WhiteDevil ,
Xelat ,
xkor ,
Yegor ,
Yellowboy ,
zDiablik ,
АлисаХочетСекс ,
Арти ,
женька
27.12.2008, 00:32
#431
Местный
Регистрация: 06.03.2008
Сообщений: 154
Сказал Спасибо: 46
Имеет 130 спасибок в 38 сообщенях
Цитата:
Сообщение от
Grinch
nezabudkin, а ты пробовал отправить пакет?
Да, отправлял Say2 и серверу и клиенту, все работает, бана пока нету...
27.12.2008, 00:47
#432
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
Сообщение от
nezabudkin
Да, отправлял Say2 и серверу и клиенту, все работает, бана пока нету...
Подтверждаю. Раньше скрипт "радар" подвешивал клиента, теперь работает.
delphi Код:
//**********************************************
//for Gracia
//Установка стрелки (радара) над чаром к цели, при использовании таргета
//Чтобы включить скрипт используйте в игре социальное действие - Yes
//Чтобы выключить скрипт используйте в игре социальное действие - No
//**********************************************
var
Attacker, SocialID, CorX, CorY, CorZ, Status: Integer ;
procedure SendMs( msg:string ) ;
begin
buf:=#$4A;
WriteD( 0 ) ;
WriteD( 10 ) ;
WriteS( '' ) ;
WriteS( msg) ;
SendToClient;
end ;
procedure TargetRadar( CorX, CorY, CorZ: Integer ) ;
begin
buf:=#$F1;
WriteD( 0 ) ;
WriteD( 1 ) ;
WriteD( CorX) ;
WriteD( CorY) ;
WriteD( CorZ) ;
SendToClient;
end ;
procedure TargetRadarDrop;
begin
buf:=#$F1;
WriteD( 1 ) ;
WriteD( 1 ) ;
WriteD( 0 ) ;
WriteD( 0 ) ;
WriteD( 0 ) ;
SendToClient;
end ;
begin
if FromClient and ( pck[1 ]=#$34 ) then
begin
SocialID:=ReadD( 2 ) ;
case ord ( pck[2 ]) of
$06 :begin
Status:=1 ;
SendMs( 'Радар включен' ) ;
pck:='' ;
end ;
$05 :begin
Status:=0 ;
TargetRadarDrop;
SendMs( 'Радар выключен' ) ;
pck:='' ;
end ;
end ;
end ;
if Status=1 then
begin
if FromServer and ( pck[1 ]=#$79 ) then
begin
CorX:=ReadD( 6 ) ;
CorY:=ReadD( 10 ) ;
CorZ:=ReadD( 14 ) ;
TargetRadar( CorX, CorY, CorZ) ;
end ;
end ;
end .
PS: с первого раза не заходит на сервер - это наверное с пакетхаком не связано.
Последний раз редактировалось NLObP, 27.12.2008 в 00:50 .
За это сообщение NLObP нажился спасибкой от:
27.12.2008, 02:24
#433
Пользователь
Регистрация: 04.12.2008
Сообщений: 43
Сказал Спасибо: 11
Имеет 29 спасибок в 21 сообщенях
Цитата:
Сообщение от
NLObP
PS: с первого раза не заходит на сервер - это наверное с пакетхаком не связано.
У меня с первого раза зашло! Спасибо огромнейшее! ))
Кстати, а ты ещё не пробовал отвязать клиента?
Всмысле послать клиенту логаут, а пнх оставить за главного?
27.12.2008, 03:56
#434
Admin!
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
Цитата:
Сообщение от
Xelat
Кстати, а ты ещё не пробовал отвязать клиента? Всмысле послать клиенту логаут, а пнх оставить за главного?
а вот этого на оффе точно не советую, на пакеты геймгварда пока умеет отвечать только геймгвард...
__________________
Я здесь практически не появляюсь!, Skype - ikskor
27.12.2008, 05:27
#435
Пользователь
Регистрация: 04.12.2008
Сообщений: 43
Сказал Спасибо: 11
Имеет 29 спасибок в 21 сообщенях
Сделайте пожалуйста, чтобы при снятой галочке на плагине - файл плагина можно было перезаписать.
27.12.2008, 05:52
#436
Admin!
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
Xelat , вообщето так и сделано изначально)
пока галочка плагина снята с ним можно делать что угодно...
__________________
Я здесь практически не появляюсь!, Skype - ikskor
27.12.2008, 06:33
#437
Пользователь
Регистрация: 04.12.2008
Сообщений: 43
Сказал Спасибо: 11
Имеет 29 спасибок в 21 сообщенях
Цитата:
Сообщение от
xkor
Xelat , вообщето так и сделано изначально)
пока галочка плагина снята с ним можно делать что угодно...
ппц... полчаса назад не работало!
Сейчас после твоей мессаги решил перепроверить - и заработало!
я в шоке!
PS. есть подозрение что тогда не работало, т.к. в процессе выполнения плагина возникала ошибка, которая не убивала плагин, он работал дальше, но видимо уже нормально не отвязывался.
27.12.2008, 13:33
#438
Рыцарь
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
через час работы клиент подвисает
хз бывает что и без пакт хака виснет. посадил еще раз на тест.
27.12.2008, 19:09
#439
Местный
Регистрация: 06.03.2008
Сообщений: 154
Сказал Спасибо: 46
Имеет 130 спасибок в 38 сообщенях
Цитата:
Сообщение от
Grinch
через час работы клиент подвисает хз бывает что и без пакт хака виснет. посадил еще раз на тест.
Это Иннова логает. Вчера вечером у меня тоже логало, а ночью я 5 часов был в онлайне и не одного лага!
Вчера вечером переписал свой скрипт Бота-локомотива под Грацию. Если бан не схвачу, в понедельник вечером выложу на всеобщее обозрение!!!
За это сообщение nezabudkin нажился 2 спасибками от:
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 03:29 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!