Аугментация в одно нажатие

[Breadfan]

Сообщение от QaK

это значит, что скрипт над переделывать, разбор пакета инвентаря неправильный

Да примеров - море, к примеру те же скрипты на заточку от NLobP

[skaner]

баян, куча подобного повсюду, но удобная чтука, на х10 и выше, - в том что порой он думает что у тебя кончились ЛСы....

[Imperial2008]

Захотел я попробовать на интерлюде поагментить. Но вот какая проблема. На первой странице она уже была указана, но толком решения я не нашел. Пакеты все верны, пуха агментится 1 раз, потом дисагментится 1 раз и на этом весь процесс заканчивается. Я думал, возможно, не правильно пересчитываются гемы, но нет, все пересчитывается верно. При чем ни обновление инвентаря, ни одевание/снятие пухи, ни выброс ее на землю, ни положение в ВХ ничего не исправляет. Помогает только одно - перезапустить скрипт предварительно поменяв кол-во гемов (каждый раз), но тогда и смысл скрипта теряется. Кто-то знает какой то выход? Буду очень благодарен.

[dAsk]

В чем ошибка? Вот скрин: ИД предметов вводил опираясь на ItemsID.ini

[BioDread]

Я думаю дело в том что каждый ЛС если находится в разных слотах имеет свой уникальный ид
Вот если б ЛСы лежали стопкой то ИД у каждого из них был бы одинаковым.
Люди кто знает если я не прав просвятите мну плиз)

[dAsk]

На моем сервере ЛС стопкой лежат. Хронини HellBound
Проблема актуальна

[mks]

Сообщение от BioDread

Я думаю дело в том что каждый ЛС если находится в разных слотах имеет свой уникальный ид
Вот если б ЛСы лежали стопкой то ИД у каждого из них был бы одинаковым.
Люди кто знает если я не прав просвятите мну плиз)

правильно думаешь)

[Vilson]

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

в таймере где выбираем предметы первым делом вызваю

RequestExRqItemLink(MyName, TargetItemObjID);

в основном блоке:

if (ConnectName=MyName) and (FromServer) then
case pck[1] of
#$FE:if ReadH(2)=108 then //RequestExRqItemLinkReply
begin
ReadAugSkillID:=ReadH(34);
if NeedAugSkillID=ReadAugSkillID then
begin
TimerItemSelect.Enabled:=False;
TimerAugItem.Enabled:=False;
StartAug:=False;
SendMsg2(MyName, ' УСПЕШНО ПОЛУЧЕН СКИЛ : '+IntToStr(NeedAugSkillID));
Exit;
end;
SendMsg2(MyName, 'НУЖЕН : '+IntToStr(NeedAugSkillID)+ ', ПОЛУЧЕНО : '+IntToStr(ReadAugSkillID));
RequestRefineCancel(MyName, TargetItemObjID);
pck:='';
exit;
end;
end;

Только помните что AugSkillID это не SkillID, смотрите таблицу соответствия. Например

<augmentation id="16333"> <skillId val="3249"> <skillLevel val="10"> <!-- Passive: Increases your critical attack rate. -->
<augmentation id="16284"> <skillId val="3244"> <skillLevel val="10"> <!-- Passive: Increases your P. Def. -->

[Pitkin]

Вот скрипт переделанный под Gracia Epilogue (фришка).На простом финале не тестил,если кому надо проверьте сами....

const
   nik='name';

var
   WeaponID, LsID, GemID, GemCount, zero: integer;

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

end;

procedure OnTimer01(Sender: TObject);
begin

end;

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

end;

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

end;

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

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if FromClient and (pck[1]=#$D0) then
        begin
           WeaponID:=ReadD(4);
           LsID:=ReadD(8);
           GemID:=ReadD(12);
           GemCount:=ReadD(16);
        end;

//Cancel Augment

    if FromClient and (pck = HStr('56 19 00 00 00 00 00 00 00 00')) then   //62 AB 07 00 00 00 00 00 00 (Social No)

       begin
       buf:=hstr('FE 52 00 ');//окно удаления арГ
        SendToClient;
        delay(400);
          pck:='';
          Buf:=#$D0#$42#$00;
          WriteD(WeaponID);
          SendToServerEx(nik);
          Buf:=#$D0#$43#$00;
          WriteD(WeaponID);
          SendToServerEx(nik);

       end;

//Augment
    if FromClient and (pck = HStr('56 18 00 00 00 00 00 00 00 00')) then    //62 A5 07 00 00 00 00 00 00 (Social Yes)
       begin
       buf:=hstr('FE 51 00 ');//окно Арг
          SendToClient;
          delay(400);
          pck:='';
          Buf:=#$D0#$26#$00;
          WriteD(WeaponID);
          SendToServerEx(nik);
          delay(350);
          Buf:=#$D0#$27#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          SendToServerEx(nik);
          delay(400);
          Buf:=#$D0#$28#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          WriteD(GemID);
          WriteD(GemCount);  
          WriteD(zero);
          SendToServerEx(nik);
          delay(400);
          Buf:=#$D0#$41#$00;
          WriteD(WeaponID);
          WriteD(LsID);
          WriteD(GemID);
          WriteD(GemCount); 
          WriteD(zero);
          SendToServerEx(nik);
          end;
end.

[dAsk]

На моем сервере (Хроники HellBound) при нажатии на соц. действие просто ничего не происходит. Я сравнивал пакеты вроде все сходится, есть подозрение что менять что-то нужно в этой части

        begin
           WeaponID:=ReadD(4);
           LsID:=ReadD(8);
           GemID:=ReadD(12);
           GemCount:=ReadD(16);
        end;

какие пакеты нужно просматривать чтобы что-то подстраивать под свой сервер в этой части скрипта?