Скриптинг Форум посвещенный созданию скриптов для 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°
28.05.2009, 00:42
#11
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
Сообщение от
OoJokeRoO
и простите за нубство, но что за 1е соц действие?
Greeting
За это сообщение NLObP нажился спасибкой от:
28.05.2009, 01:41
#12
Рыцарь
Регистрация: 21.09.2007
Сообщений: 376
Сказал Спасибо: 11
Имеет 218 спасибок в 106 сообщенях
Цитата:
Сообщение от
OoJokeRoO
на интерлюде пашет?
нет, работает на хрониках начиная с камаэль
За это сообщение mks нажился спасибкой от:
28.05.2009, 10:16
#13
Новичок
Регистрация: 05.01.2009
Сообщений: 2
Сказал Спасибо: 0
Имеет 1 спасибку в 1 сообщении
Сервер Hellbound,соединение перехватывает нормально,ник отобр.норм.,вот скрипт:
delphi Код:
const
nik='pixel' ;
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 :=800 ;
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 .
При запуске скрипта l2ph вылетает со стандартной ошибкой "отправлять/не отправлять". Соединение с сервером рвётся.
В чём загвоздка?
За это сообщение pixel нажился спасибкой от:
28.05.2009, 11:50
#14
Новичок
Регистрация: 15.03.2009
Сообщений: 8
Сказал Спасибо: 1
Имеет 4 спасибок в 2 сообщенях
блиннн
тогда никто незнает скрипта на интерлюд?) оч надо, серв весь переточеный ппц))
За это сообщение OoJokeRoO нажился спасибкой от:
28.05.2009, 12:00
#15
Новичок
Регистрация: 28.05.2009
Сообщений: 19
Сказал Спасибо: 2
Имеет 2 спасибок в 2 сообщенях
перерыл ввесь форум но такого скрипта на интерлюд так и не нашол, у меня на сервере если пуха сгорает то заточка не на 0 прыгает а на 30 поетому скрипт NLObP не прокатит,виснет l2phx(гугл тоже не помог,дайте скриптец если у кого есть плиз =)
За это сообщение xXxMassarakshxXx нажился спасибкой от:
28.05.2009, 12:47
#16
Рыцарь
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
Цитата:
Сообщение от
xXxMassarakshxXx
дайте скриптец если у кого есть плиз =)
ни у кого нету, если только самому адаптировать под свой сервак
За это сообщение QaK нажился спасибкой от:
28.05.2009, 13:20
#17
Новичок
Регистрация: 28.05.2009
Сообщений: 19
Сказал Спасибо: 2
Имеет 2 спасибок в 2 сообщенях
Цитата:
Сообщение от
QaK
ни у кого нету, если только самому адаптировать под свой сервак
я в скриптинге не селен ,сам не напишу (
//QaK: учиьтся, учиться и еще раз учиться
Последний раз редактировалось QaK, 28.05.2009 в 13:34 .
За это сообщение xXxMassarakshxXx нажился спасибкой от:
31.05.2009, 11:22
#18
Новичок
Регистрация: 31.05.2009
Сообщений: 1
Сказал Спасибо: 4
Имеет 1 спасибку в 1 сообщении
Cпасибо за скриптик, но есть одна загвоздка,столкнулся с такой же проблемой как некий "motograd", ответа на его вопрос не нашел, решил ещё раз спросить. Поставил енчат на "7", но он продолжает точить дальше, попробовал так же подставить числа переведеные в байты,но уже другой эффект, допустим ставлю енчат "5", тогда он точит не до посинения, а просто 5 раз. Использую LSP перехват. Не подскажите в чем тут проблемка?
За это сообщение Devik нажился спасибкой от:
31.05.2009, 13:40
#19
Новичок
Регистрация: 31.05.2009
Адрес: Астрахань
Сообщений: 11
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
Подскажите пожулуйста что над делать если скрипт на точку на грации не видет моего персонажа...что надо делать??????
За это сообщение Ga6pueL нажился спасибкой от:
31.05.2009, 14:03
#20
Рыцарь
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
читать FaQ
За это сообщение Grinch нажился спасибкой от:
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 03:00 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!