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

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 31.08.2010, 12:40   #1
Новичок
 
Регистрация: 31.08.2010
Сообщений: 6
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Valer4ik пока неопределено
По умолчанию помогите со скриптом на заточку скиллов

я уже 4 дня пытаюсь справится с этим скриптом.
как никрутил его всё равно выбивает с игри после 2-3 заточек а если заточка непроходит то скрипт остонавливаеца.
народ помогите пожалуйста найти РАБОЧИЙ скрипт для заточки скиллов!!!! хроники Gracia Epilogue, надо задержку между точками 2-3 сек, чтобы начиналась заточка заново после неудачной заточки.
ОЧЕНь надо!!
зарание ОГРОМНОЕ спасибо.


SCRIPT
PHP код:
const
   
nik='tangence';
   
Enchant=10;

var
   
SubIDSkillIDSkillLvlCurrEnchinteger;

procedure Init//Вызывается при включении скрипта
begin

end
;

procedure OnTimer01(SenderTObject);
begin

end
;

procedure Free//Вызывается при выключении скрипта
begin
 CurrEnch
:=0;
end;

procedure OnConnect(WithClientBoolean); //Вызывается при установке соединения
begin

end
;

procedure OnDisonnect(WithClientBoolean); //Вызывается при потере соединения
begin

end
;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    
if FromServer and (pck[1]=#$62) then case pck[2] of
        #$A0:   //точнулся
                
if CurrEnch<Enchant then
                   begin
                     CurrEnch
:=CurrEnch+1;
                     
Buf:=#$D0;
                     
WriteH(SubID);
                     
WriteD(SkillID);
                     
WriteD(SkillLvl+CurrEnch);
                     
SendToServerEx(nik);
                   
end;
        
#$A1:   //не точнулся
             
begin
                     CurrEnch
:=1;

                     
Buf:=#$D0;
                     
WriteH(SubID);
                     
WriteD(SkillID);
                     
WriteD(SkillLvl+CurrEnch);
                     
SendToServerEx(nik);

             
end;
    
end;

    if 
FromClient and (pck[1]=#$D0) then
        
begin
           SubID
:=ReadH(2);
           
SkillID:=ReadD(4);
           
SkillLvl:=ReadD(8)-1;
           
CurrEnch:=1;
        
end;
end
Valer4ik вне форума   Ответить с цитированием
Старый 01.09.2010, 15:48   #2
Пользователь
 
Аватар для kolr
 
Регистрация: 24.11.2009
Сообщений: 75
Сказал Спасибо: 5
Имеет 6 спасибок в 6 сообщенях
kolr пока неопределено
По умолчанию

PHP код:
const 
nik='OutSpace';                 //olololololo
Enchant=20

var 
SkillID,  SkillLvlCurrEnchinteger
timer:Ttimer;

procedure SendMsg2(msg:string);
begin 
  buf
:=#$4A;
  
WriteD(0);
  
WriteD(10);
  
WriteS('');
  
WriteS(msg);
  
SendToClient;
end;


procedure OnTimer01(SenderTObject); 
begin 

end
;

procedure Init//Вызывается при включении скрипта 
begin 
end


procedure Free//Вызывается при выключении скрипта 
begin 
CurrEnch
:=0;
end


begin 
if FromServer and (pck[1]=#$62) then case pck[2] of 
#$A0: //точнулся 
if CurrEnch<Enchant then 
begin 
SendMsg2
('Точим + '+IntToStr(CurrEnch)+'');
CurrEnch:=CurrEnch+1
Buf:=HStr('D0 0F 00'); 
WriteD(SkillID); 
WriteD(SkillLvl+CurrEnch); 
SendToServerEx(nik);
delay(100);
Buf:=HStr('A6');
SendToServerEx(nik);
delay(100);
Buf:=HStr('D0 46 00 00 00 00 00');
WriteD(SkillID); 
WriteD(SkillLvl+CurrEnch); 
SendToServerEx(nik);
delay(100);
end
#$A1: //не точнулся 
begin 
CurrEnch
:=1
SendMsg2('Слом начинем сначала');
Buf:=HStr('D0 46 00 00 00 00 00');
WriteD(SkillID); 
WriteD(100+CurrEnch); 
SendToServerEx(nik);
delay(100);
Buf:=HStr('D0 0F 00'); 
WriteD(SkillID);
WriteD(101); 
SendToServerEx(nik);
delay(100);
Buf:=HStr('A6');
SendToServerEx(nik);
delay(100);
Buf:=HStr('D0 46 00 00 00 00 00');
WriteD(SkillID); 
WriteD(100+CurrEnch); 
SendToServerEx(nik);
delay(100);
SkillLvL:=100;
end
end
if 
FromClient and (pck[1]=#$D0) and  (pck[2]=#$0F) then 
begin 
 
SkillID
:=ReadD(4); 
SkillLvl:=ReadD(8)-1

CurrEnch:=1
end
end

ЗЫ: писал под себя, там взависимости на что ты хочеш скил точить нада скиллвл менять

Последний раз редактировалось kolr, 01.09.2010 в 17:15.
kolr вне форума   Ответить с цитированием
Старый 02.09.2010, 18:45   #3
Новичок
 
Регистрация: 31.08.2010
Сообщений: 6
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Valer4ik пока неопределено
По умолчанию

vopervih ogromnoe spasibo!!!!!
kak ia uznaiu na chto imenno meniat' skill lvl, esli naprimer zahoviu tochnut' Hurivane na silu...??
Valer4ik вне форума   Ответить с цитированием
Старый 02.09.2010, 19:17   #4
Пользователь
 
Аватар для kolr
 
Регистрация: 24.11.2009
Сообщений: 75
Сказал Спасибо: 5
Имеет 6 спасибок в 6 сообщенях
kolr пока неопределено
По умолчанию

точиш скил на один и сотриш его скил лвл
kolr вне форума   Ответить с цитированием
Старый 02.09.2010, 19:40   #5
Новичок
 
Регистрация: 31.08.2010
Сообщений: 6
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Valer4ik пока неопределено
По умолчанию

ia pomenial skill lvl. stalo perehodit na nujnii tip zatochki
vot tolko posle etogo kak skill lomaeca zatocha ostonavlevaeca na +1!
gde beda?
spasibo za terpenie!

Добавлено через 4 минуты
korl
gde mojno s toboi online popobshiaca?
mne OCHEN' nujna v etom pomosh'!

Последний раз редактировалось Valer4ik, 02.09.2010 в 19:40. Причина: Добавлено сообщение
Valer4ik вне форума   Ответить с цитированием
Старый 02.09.2010, 19:53   #6
Пользователь
 
Аватар для kolr
 
Регистрация: 24.11.2009
Сообщений: 75
Сказал Спасибо: 5
Имеет 6 спасибок в 6 сообщенях
kolr пока неопределено
По умолчанию

вобщем я хз в чом там у тебя проблема, я выложил тибе робочий скрипт сиди розбирайся. Удачи
kolr вне форума   Ответить с цитированием
Старый 02.09.2010, 19:58   #7
Новичок
 
Регистрация: 31.08.2010
Сообщений: 6
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Valer4ik пока неопределено
По умолчанию

esli ia nichigo nemeniaiu to vsio tochica i posle togo kak lomaeca.
a esli meniaiu " SkillLvL:=100; " i " WriteD(101); " na skajem 601 to posle togo kak lomaeca tochica na +1 i vstaiot!

Добавлено через 1 минуту
skaji mne gde konkretno v skripte nado menia esli SkillLvL 601?
tak pomeniat' chtobi tochilos' posle togo kak lomaeca.

Последний раз редактировалось Valer4ik, 02.09.2010 в 19:58. Причина: Добавлено сообщение
Valer4ik вне форума   Ответить с цитированием
Старый 02.09.2010, 20:04   #8
Пользователь
 
Аватар для kolr
 
Регистрация: 24.11.2009
Сообщений: 75
Сказал Спасибо: 5
Имеет 6 спасибок в 6 сообщенях
kolr пока неопределено
По умолчанию

WriteD(600+CurrEnch);
WriteD(600+CurrEnch);
SkillLvL:=600;
WriteD(601); Както так...
kolr вне форума   Ответить с цитированием
Старый 03.09.2010, 11:14   #9
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

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


NLObP вне форума   Ответить с цитированием
Старый 17.10.2010, 23:23   #10
Новичок
 
Регистрация: 17.10.2010
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
DrakonX пока неопределено
По умолчанию

Так вопрос я этот скрипт юзаю на фреи ява сервак вот пвп ставлю 20 заточку и происходит следующие он точить но счетчик бежит с удвоенной скоростью да и если он достиг желаемого результата то он берет и ломает скил даже если ставить на +2 соровну ломает и заново точит как это исправить
DrakonX вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



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

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


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

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

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