Вернуться   CoderX :: Forums > Основные форумы > Курилка > Пепельница
Войти через OpenID

Пепельница Для тем - мусора...

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 29.08.2012, 17:33   #1
Новичок
 
Регистрация: 29.08.2012
Сообщений: 5
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
nordx пока неопределено
По умолчанию Заточка скилов Gracia Epilog

Добрый день, не смог не где найти скрипт заточки скилов, есть какие то старые они точат очень быстро и из игры сразу выкидывает. Если у кого есть выложите пожалуйста, буду очень благодарен.
nordx вне форума   Ответить с цитированием
Старый 29.08.2012, 19:25   #2
Местный
 
Регистрация: 13.12.2007
Сообщений: 126
Сказал Спасибо: 10
Имеет 39 спасибок в 32 сообщенях
Zergatul
По умолчанию

А разве так трудно изменить скрипт, который точит очень быстро?
Zergatul вне форума   Ответить с цитированием
Старый 29.08.2012, 22:52   #3
Новичок
 
Регистрация: 29.08.2012
Сообщений: 5
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
nordx пока неопределено
По умолчанию

Для меня это кажется не возможным. =(
nordx вне форума   Ответить с цитированием
Старый 29.08.2012, 23:33   #4
Местный
 
Регистрация: 13.12.2007
Сообщений: 126
Сказал Спасибо: 10
Имеет 39 спасибок в 32 сообщенях
Zergatul
По умолчанию

Тогда тебе тут ничем не помогут
Zergatul вне форума   Ответить с цитированием
Старый 30.08.2012, 16:19   #5
Новичок
 
Регистрация: 29.08.2012
Сообщений: 5
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
nordx пока неопределено
По умолчанию

Можете подсказать, как можно переделать данный код, при заточке меня выкидывает из игры. Как можно устновить задержку. Буду очень благодарен.


PHP код:
const
   
nik='Ник';
   
Enchant=15;

var
   
SubIDSkillIDSkillLvlCurrEnchType1integer;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    
if FromServer and ((pck[1]=#$62) and (pck[3]=#$05)) 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) and (pck[2]=#$0F)) then
        
begin
           SubID
:=ReadH(2);
           
SkillID:=ReadD(4);
           
SkillLvl:=ReadD(8)-1
           
CurrEnch:=1;
        
end;
end
nordx вне форума   Ответить с цитированием
Старый 30.08.2012, 19:19   #6
Местный
 
Регистрация: 13.12.2007
Сообщений: 126
Сказал Спасибо: 10
Имеет 39 спасибок в 32 сообщенях
Zergatul
По умолчанию

В каждом топике еще напиши, может быстрее помогут

Добавлено через 2 минуты
А вообще-то здесь не любят людей, которые абсолютно ничего не понимают в программировании. Но сегодня тебе повезло:

PHP код:
const 
   
nik='Ник'
   
Enchant=15;
   
TimeOut 1000;

var 
   
SubIDSkillIDSkillLvlCurrEnchType1integer

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

    if 
FromClient and ((pck[1]=#$D0) and (pck[2]=#$0F)) then 
        
begin 
           SubID
:=ReadH(2); 
           
SkillID:=ReadD(4); 
           
SkillLvl:=ReadD(8)-1;  
           
CurrEnch:=1
        
end
end
Добавлено через 1 минуту
Если скажет что ошибка на строчке Sleep(TimeOut), изменишь на Delay(TimeOut). Не помню как там должно быть

Последний раз редактировалось Zergatul, 30.08.2012 в 19:19. Причина: Добавлено сообщение
Zergatul вне форума   Ответить с цитированием
За это сообщение Zergatul нажился 2 спасибками от:
Старый 01.09.2012, 11:15   #7
Новичок
 
Регистрация: 29.08.2012
Сообщений: 5
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
nordx пока неопределено
По умолчанию

cпасибо большое.
nordx вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Курилка > Пепельница


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

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

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


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

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

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