PDA

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

kpa9pt
26.01.2010, 16:01
В общем наверняка многие из вас видели вот этот вот скрипт на авто точение скилов:



const
nik='ник';
Enchant=10;

var
SubID, SkillID, SkillLvl, CurrEnch: integer;

procedure Init;
begin

end;

procedure OnTimer01(Sender: TObject);
begin

end;

procedure Free;
begin
CurrEnch:=0;
end;

procedure OnConnect(WithClient: Boolean);
begin

end;

procedure OnDisonnect(WithClient: Boolean);
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.

Смысл в том что подходим к npc точим скил руками на +1 и дальше программа точит до заданного уровня.
Я сделал следующее:
Поймал пакет заточки скила на +1(сохранил его), дальше сточил скил на 0, запустил этот скрипт и отправил сохранённый пакет.
В итоге скил точиться на +1 но дальше скриптом на точиться...
Вот кто поможет или знает в чём проблема, мне нужно добиться авто точки скилов именно с пакета, а не вручную.
kpa9pt
27.01.2010, 18:09
Всё я совсем разобрался не выходит из-за этого:

if FromClient and (pck[1]=#$D0) then
begin
SubID:=ReadH(2);
SkillID:=ReadD(4);
SkillLvl:=ReadD(8)-1;
CurrEnch:=1;
end;

Если кому-то это понадобиться пишите в пм объясню, что сделать.
valerarelax
14.09.2011, 02:16
kpa9pt, привет напиши в аську есть пару вопросов по поводу твоего скрипта, разумеется не за просто так ) 454408880
Holydoly
30.09.2011, 16:59
подскажыте пожалуста а этот скрипт роботае на с4?
goodvin1709
02.10.2011, 01:02
подскажыте пожалуста а этот скрипт роботае на с4?
Братья екстрасенсы подскажыте ему работает ли этот скрипт а то у него вера наверное непозволяет протестировать..
Holydoly
02.10.2011, 16:59
я тестировал на с4 непашыт!!!
Pinko
02.10.2011, 17:44
Holydoly,
http://coderx.ru/showthread.php?t=7616
Holydoly
04.10.2011, 02:57
помогите розобратся что это таткое? пожалуста:angel:

SubID:=ReadH(24);
SkillID:=ReadD(4);
SkillLvl:=ReadD(8)-1;
CurrEnch:=1;
supernewbie
04.10.2011, 04:34
помогите розобратся что это таткое? пожалуста:angel:

SubID:=ReadH(24);
SkillID:=ReadD(4);
SkillLvl:=ReadD(8)-1;
CurrEnch:=1;
какая-то непонятная субстанция
я думаю это часть тайны
goodvin1709
04.10.2011, 18:08
SubID:=ReadH(24);//А ето я непонел)
SkillID:=ReadD(4);//Мы считали ID скила с пакета.
SkillLvl:=ReadD(8)-1//Cчитили Лвл скила.
CurrEnch:=1;//Устанавливаем заточку на 1.
Pinko
04.10.2011, 22:05
помогите розобратся что это таткое? пожалуста:angel:

SubID:=ReadH(24);в оригинале 2
SkillID:=ReadD(4);
SkillLvl:=ReadD(8)-1;
CurrEnch:=1;
нормально хоть копируй

Поймал пакет заточки скила на +1(сохранил его), дальше сточил скил на 0, запустил этот скрипт и отправил сохранённый пакет.
пакет выложи