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

Жесткий скриптинг Раздел для обсуждения готовых и тестируемых скриптов
Внимание! В разделе введена жесткая модерация, темы и сообщения публикуются только после проверки модераторами

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 30.11.2008, 18:44   #1
Пользователь
 
Аватар для metalFan
 
Регистрация: 26.10.2007
Сообщений: 43
Сказал Спасибо: 8
Имеет 21 спасибок в 8 сообщенях
metalFan
По умолчанию PK Scanner (Gracia)

delphi Код:
// Авторы: Furious, metalFan // Отдельное спасибо PanAm за помощь в написании // Версия: Gracia 1.5 PreFinal Const UserName=('онатоле'); var ObjectID, KarmaPK, TargetPK, MessagePK, ClassPK, i, x, y, z, TempPK: Integer; NamePK, CvarPK : String; ClassName: TStringList; procedure Init; begin MessagePK:=1; TargetPK:=0; buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS('PK Scanner for Gracia 1.5 by Furious, metalFan'); SendToClientEx(UserName); ClassName :=TStringList.Create; ClassName.LoadFromFile('ClassName.ini'); end; procedure Free; begin ClassName.free; end; procedure OnConnect(WithClient: Boolean); begin end; procedure OnDisonnect(WithClient: Boolean); begin end; procedure MessageSend(Msg:string); begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(Msg); SendToClientEx(UserName); end; procedure TargetingPK(ObjectID: Integer); begin if TargetPK=1 then begin buf:=#$1F; WriteD(ObjectID); WriteD(0); Writed(0); Writed(0); WriteC(0); SendToServerEx(UserName); end; end; procedure KillRadar; begin buf:=#$F1; WriteD(0); WriteD(1); WriteD(0); WriteD(0); WriteD(0); SendToClientEx(UserName); end; function GetClassName(CID : integer) : string; begin result:=ClassName.Strings[CID]; end; begin if (FromServer) and (ConnectName=UserName) and (pck[1]=#$31) then begin x:=ReadD(2); y:=ReadD(6); z:=ReadD(10); i:=22; NamePK:=ReadS(i); ClassPK:=ReadD(i+8); KarmaPK:=ReadD(i+176); if (KarmaPK>0) then begin ObjectID:=ReadD(18); TargetingPK(ObjectID); if MessagePK=1 then begin MessageSend(''+NamePK+' | '+GetClassName(ClassPK)+' | '+IntToStr(KarmaPK)+) end; buf:=#$F1; WriteD(0); WriteD(1); WriteD(X); WriteD(Y); WriteD(Z); SendToClientEx(UserName); end; end; if (FromServer) and (ConnectName=UserName) and (pck[1]=#$08) then begin TempPK:=ReadD(2); case TempPK of ObjectID: KillRadar; end; end; if (FromClient) and (ConnectName=UserName) and (pck[1]=#$49) then begin CvarPK:=ReadS(2); case CvarPK of '\start': begin TargetPK:=1; MessageSend('Search On!'); pck:=''; end; '\stop': begin TargetPK:=0; MessageSend('Stopped all services!'); pck:=''; end; '\radar': begin MessageSend('Radar Killed'); KillRadar; pck:=''; end; end; end; end.
Киньте файл classname.ini в папку пакетхака
Тестился на L2F Gracia, L2J Gracia
Может будет пахать на руоффе.
Будьте здоровы
metalFan вне форума   Ответить с цитированием
За это сообщение metalFan нажился 3 спасибками от:
Старый 01.12.2008, 04:04   #2
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

metalFan, и что он делает при появлении ПК?

Добавлено через 1 минуту
берёт ПК в таргет чтоль?
__________________
Я здесь практически не появляюсь!, Skype - ikskor

Последний раз редактировалось xkor, 01.12.2008 в 04:04. Причина: Добавлено сообщение
xkor вне форума   Ответить с цитированием
Старый 23.12.2008, 12:59   #3
Пользователь
 
Аватар для metalFan
 
Регистрация: 26.10.2007
Сообщений: 43
Сказал Спасибо: 8
Имеет 21 спасибок в 8 сообщенях
metalFan
По умолчанию

xkor, да пишет инфу про чара, и берет в таргет, взятие в таргет моа контролировать и т.п.
metalFan вне форума   Ответить с цитированием
Старый 23.12.2008, 13:00   #4
Пользователь
 
Аватар для metalFan
 
Регистрация: 26.10.2007
Сообщений: 43
Сказал Спасибо: 8
Имеет 21 спасибок в 8 сообщенях
metalFan
По умолчанию

почемуто класейм иник не скинулся надо будет кинуть
metalFan вне форума   Ответить с цитированием
Старый 29.11.2010, 14:25   #5
Новичок
 
Регистрация: 18.09.2010
Сообщений: 6
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Damiencs пока неопределено
По умолчанию

Доброго всем дня! подскажите пожалуйста где взять classname.ini(файл). я думал он в папке system а поиском не нашел его на компьюторе вообще! подскажите где взять или скиньте ссылку на него. (В Яндексе нет не советуй там искать)
Damiencs вне форума   Ответить с цитированием
Старый 01.12.2010, 15:21   #6
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

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


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

  CoderX :: Forums > Lineage II > L2PacketHack > Жесткий скриптинг


Опции темы
Опции просмотра

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

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


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

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

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