PDA

Просмотр полной версии : Заточка скилов Gracia Epilog


nordx
29.08.2012, 17:33
Добрый день, не смог не где найти скрипт заточки скилов, есть какие то старые они точат очень быстро и из игры сразу выкидывает. Если у кого есть выложите пожалуйста, буду очень благодарен.

Zergatul
29.08.2012, 19:25
А разве так трудно изменить скрипт, который точит очень быстро?

nordx
29.08.2012, 22:52
Для меня это кажется не возможным. =(

Zergatul
29.08.2012, 23:33
Тогда тебе тут ничем не помогут

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



const
nik='Ник';
Enchant=15;

var
SubID, SkillID, SkillLvl, CurrEnch, Type1: integer;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
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.

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

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


const
nik='Ник';
Enchant=15;
TimeOut = 1000;

var
SubID, SkillID, SkillLvl, CurrEnch, Type1: integer;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
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). Не помню как там должно быть

nordx
01.09.2012, 11:15
cпасибо большое.