Скриптинг Форум посвещенный созданию скриптов для L2PacketHack
21.05.2009, 11:19
#1
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
Автозаточка, просто и сердито!
Расчитано на пвп серваки и изобилие блес точек...
Использование: включаем скрипт,
включаем скрипт << СМОТРЕТЬ
забиваем ник и уровень точки, точим нужную шмотку на +1(не важно со скольки), скрипт запоминает необходимые данные, 1е соц действие включает и выключает автозаточку.
1е соц действие << СМОТРЕТЬ
Скорость заточки выставлена 500мс(+2 в секунду), можно ускорять или замедлять в зависимости от сервака...
>>>
1-й скрипт от mks
delphi Код:
const
nik='xxxx' ;
Enchant=13 ;
var
UseItem, EnchantItem: string ;
Count, CurrentEnch: integer ;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create ( nil ) ;
Timer01.OnTimer :=@OnTimer01;
Timer01.enabled :=false ;
Timer01.interval :=500 ;
end ;
procedure OnTimer01( Sender: TObject ) ;
begin
buf:=UseItem;
SendToServerEx( nik) ;
buf:=EnchantItem;
SendToServerEx( nik) ;
end ;
procedure Free;
begin
Timer01.free ;
count:=0 ;
CurrentEnch:=0 ;
end ;
begin
if FromServer and ( pck[1 ]=#$87 ) then
begin
CurrentEnch:=ReadD( 2 ) ;
if CurrentEnch=Enchant then Timer01.enabled :=false ;
end ;
if FromClient and ( pck[1 ]=#$19 ) then UseItem:=pck;
if FromClient and ( pck[1 ]=#$5F) then EnchantItem:=pck;
if FromClient and ( pck=#$34 #$02 #$00 #$00 #$00 ) then
begin
pck:='' ;
Timer01.enabled :=not ( Timer01.enabled ) ;
end ;
end .
<<<
Переделал для тех у кого 1й скрипт работает, но не останавливается заточив до указанного уровня:
>>>
2-й скрипт от mks
delphi Код:
const
nik='xxxx' ;
Enchant=30 ;
var
UseItem, EnchantItem: string ;
Count, CurrentEnch: integer ;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create ( nil ) ;
Timer01.OnTimer :=@OnTimer01;
Timer01.enabled :=false ;
Timer01.interval :=500 ;
end ;
procedure OnTimer01( Sender: TObject ) ;
begin
buf:=UseItem;
SendToServerEx( nik) ;
buf:=EnchantItem;
SendToServerEx( nik) ;
end ;
procedure Free;
begin
Timer01.free ;
count:=0 ;
CurrentEnch:=0 ;
end ;
begin
if FromServer and ( pck[1 ]=#$87 ) then case ReadD( 2 ) of
0 : begin
CurrentEnch:=CurrentEnch+1 ;
if CurrentEnch=Enchant then Timer01.enabled :=false ;
end ;
2 : CurrentEnch:=0 ;
end ;
if FromClient and ( pck[1 ]=#$19 ) then UseItem:=pck;
if FromClient and ( pck[1 ]=#$5F) then EnchantItem:=pck;
if FromClient and ( pck=#$34 #$02 #$00 #$00 #$00 ) then
begin
pck:='' ;
Timer01.enabled :=not ( Timer01.enabled ) ;
end ;
end .
<<<
Переделал слегка для Грации Файнал.
Холява закончилась, если выставляешь интервал заточки меньше чем 2100мс получаешь авто-бан(возможно не везде так)
>>>
3-й скрипт от mks
delphi Код:
const
nik='xxxx' ;
Enchant=16 ;
var
UseItem, SelectItem, EnchantItem: string ;
Count, CurrentEnch, key, ItemID: integer ;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create ( nil ) ;
Timer01.OnTimer :=@OnTimer01;
Timer01.enabled :=false ;
Timer01.interval :=2100 ;
end ;
procedure OnTimer01( Sender: TObject ) ;
begin
case key of
1 : begin
buf:=UseItem;
SendToServerEx( nik) ;
buf:=SelectItem;
SendToServerEx( nik) ;
end ;
2 : begin
buf:=EnchantItem;
SendToServerEx( nik) ;
end ;
end ;
end ;
procedure Free;
begin
Timer01.free ;
count:=0 ;
CurrentEnch:=0 ;
end ;
begin
if FromServer and ( pck[1 ]=#$87 ) then case ReadD( 2 ) of
0 : begin
CurrentEnch:=CurrentEnch+1 ;
if CurrentEnch=Enchant then Timer01.enabled :=false ;
end ;
3 : CurrentEnch:=0 ;
end ;
if FromServer and ( pck[1 ]=#$FE) then
if ReadD( 4 ) =ItemID then key:=2 else key:=1 ;
if FromClient and ( pck[1 ]=#$19 ) then UseItem:=pck;
if FromClient and ( pck[1 ]=#$D0) then
begin
ItemID:=ReadD( 4 ) ;
SelectItem:=pck;
end ;
if FromClient and ( pck[1 ]=#$5F) then EnchantItem:=pck;
if FromClient and ( pck[1 ]+pck[2 ]=#$56 #$0C) then
begin
pck:='' ;
Timer01.enabled :=not ( Timer01.enabled ) ;
end ;
end .
<<<
для Грации Файнал.
4-й скрипт от mks
добавлен 2й таймер
Последний раз редактировалось NLObP, 08.12.2009 в 23:07 .
За это сообщение mks нажился 41 спасибками от:
1oO ,
Acdsee ,
Amorality ,
Boom ,
Breadfan ,
DarkSnake ,
DenisTalipov ,
dev ,
Devik ,
DrBro ,
EnD1 ,
Foil ,
GvozD ,
HORSE ,
Hwoarang ,
Imperial2008 ,
Insane* ,
KaBa ,
kai5510 ,
leto ,
LOOOOO ,
Lukito ,
makrops ,
motograd ,
Nikit0s ,
NLObP ,
Pinko ,
pmen ,
Random-al ,
Red[SD] ,
TAMBIK ,
Tanuxa ,
Trayel ,
uFoZz ,
Universee ,
vasiliy ,
Xeff ,
zotrussia ,
Алексей ,
][_,~][][~][_, ,
°Exzest°
21.05.2009, 23:02
#2
Новичок
Регистрация: 21.05.2009
Сообщений: 4
Сказал Спасибо: 3
Имеет 6 спасибок в 3 сообщенях
Подскажите у меня не то4иться.
Всё сделал правильно вписал ник,3ато4ку,поставил галочку развернул l2 заточил на +1 и эфекта никакова!
Др скрипты ра6отают
серв gracia p2
Подскажите что я не так делаю?
За это сообщение motograd нажился 4 спасибками от:
21.05.2009, 23:09
#3
Рыцарь
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Цитата:
Сообщение от
motograd
Подскажите что я не так делаю?
1-е соц действие видимо не делашь раз не описал это
За это сообщение Grinch нажился 3 спасибками от:
21.05.2009, 23:11
#4
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
Цитата:
Сообщение от
motograd
Подскажите у меня не то4иться.
Всё сделал правильно вписал ник,3ато4ку,поставил галочку развернул l2 заточил на +1 и эфекта никакова!
Др скрипты ра6отают
серв gracia p2
Подскажите что я не так делаю?
а 1е соцдействие нажал? оно включает и выключает автозаточку
За это сообщение mks нажился 2 спасибками от:
22.05.2009, 13:25
#5
Новичок
Регистрация: 21.05.2009
Сообщений: 4
Сказал Спасибо: 3
Имеет 6 спасибок в 3 сообщенях
Я ставлю енчянт например 20 а пуха всё равно точится после 20 почемуто
Подскажите почему?
За это сообщение motograd нажился спасибкой от:
22.05.2009, 14:07
#6
Рыцарь
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
ты какой способ перехвата юзаешь?
За это сообщение Grinch нажился спасибкой от:
22.05.2009, 14:20
#7
Новичок
Регистрация: 21.05.2009
Сообщений: 4
Сказал Спасибо: 3
Имеет 6 спасибок в 3 сообщенях
Обычный перехват тк LSP перехват почемуто не включяется
За это сообщение motograd нажился спасибкой от:
23.05.2009, 12:48
#8
Новичок
Регистрация: 17.05.2009
Адрес: украина
Сообщений: 9
Сказал Спасибо: 43
Имеет 2 спасибок в 1 сообщении
КУ ЛЮДИ ПОМОГИТЕ
//Grinch пишите по русски ваш албанский никому не нужен
Добавлено через 17 часов 22 минуты
delphi Код:
const
nik='RIDERR' ;
Enchant=13 ;
var
UseItem, EnchantItem: string ;
Count, CurrentEnch: integer ;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create ( nil ) ;
Timer01.OnTimer :=@OnTimer01;
Timer01.enabled :=false ;
Timer01.interval :=80 ;
end ;
procedure OnTimer01( Sender: TObject ) ;
begin
buf:=UseItem;
SendToServerEx( nik) ;
buf:=EnchantItem;
SendToServerEx( nik) ;
if CurrentEnch=Enchant-1 then Timer01.enabled :=false ;
end ;
procedure Free;
begin
Timer01.free ;
count:=0 ;
CurrentEnch:=0 ;
end ;
begin
if FromServer and ( pck[1 ]=#$87 ) then CurrentEnch:=ReadD( 2 ) ;
if FromClient and ( pck[1 ]=#$19 ) then UseItem:=pck;
if FromClient and ( pck[1 ]=#$5F) then EnchantItem:=pck;
if FromClient and ( pck=#$34 #$02 #$00 #$00 #$00 ) then
begin
pck:='' ;
Timer01.enabled :=not ( Timer01.enabled ) ;
end ;
end .
ау люди че у меня не правильно с скриптом помогите плизз =) я просто в скрипте нуб =)
//mks: еще просьба если вставляете скрипты использовать следующий вид:
[ HIGHLIGHT="DELPHI" ] СКРИПТ [ /HIGHLIGHT ] без пробелов
Последний раз редактировалось mks, 23.05.2009 в 15:11 .
Причина: Добавлено сообщение
За это сообщение MaRK нажился 2 спасибками от:
23.05.2009, 15:02
#9
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
MaRK , все у тебя нормально со скриптом, если следуешь инструкции и ниче не происходит, то возможны 2 варианта: у тебя вообще л2пх работает на серве?(коннект перехватывает? имя персонажа правильно отображает?), и второй вариант(я уже сталкивался с таким на одном пвп серваке) - пакеты заточки изменены специально что б не юзали скрипты на автозаточку, в этом случаи скрипт переделывать надо.
ЗЫ Скрипт 100% рабочий, использовался на нескольких разных серверах грации 2
За это сообщение mks нажился 2 спасибками от:
28.05.2009, 00:35
#10
Новичок
Регистрация: 15.03.2009
Сообщений: 8
Сказал Спасибо: 1
Имеет 4 спасибок в 2 сообщенях
на интерлюде пашет?
Добавлено через 11 минут
и простите за нубство, но что за 1е соц действие?))
Последний раз редактировалось OoJokeRoO, 28.05.2009 в 00:35 .
Причина: Добавлено сообщение
За это сообщение OoJokeRoO нажился 3 спасибками от:
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 03:11 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!