Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[metalFan]

NLObP,

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

фу неправда нужен еще как

Добавлено через 32 секунды
я его уже на 10альфе проверил

Добавлено через 1 минуту
там надо было сдвиг поменять

[OMxxxxx]

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

[PanAm]

DateTimeToStr(Time);
DateTimeToStr(Now)

[-=Ma}{imuS=-]

всем привет, у меня появилась идея создать своеобразного мини-бота для рифта, который бы ассистил по указоному нику.

я пробовал вписывать ник командира в скрипт "воин помошник" но ничего не происходит, хотел сделать скрипт сам, но не нашел пакета на ассист, когда нажимаю на ассист приходит обычный пакет на выделение и атаку того или иного моба

вобщем прошу помощи, от чего мне хотя бы оттолкнутся? или напишите примерно как будет выглядеть скрипт

[Grinch]

хм ) там пакетик есть в нём ид кто и кого выделяют пакет популярный т.к. идёт для всех и вся т.е. надо отлавливать пакет через фильтр выделять обжект ид цели и её кординаты потом мутить пакет актион ) так работает клиент. сори что не пишу пакеты и разборку их. но скрипт похерил этот а в 11:45 влом отлавливать его.

[Breadfan]

А вот созрел для такого вопроса: если все часто используемые процедуры типа StatusUpdate, CreateItemBase и т.п. объеденить в отдельный файл и в скрипте подключать его командой

Uses '.\Scripts\DLL.txt';

Возможно ли такое использование для одновременной работы нескольких скриптов?

[QaK]

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

Возможно ли такое использование для одновременной работы нескольких скриптов?

хз вроде да.

[PanAm]

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

Возможно ли такое использование для одновременной работы нескольких скриптов?

Можно
даже больше
Если создать такой скрипт

Uses '.\Scripts\CharInfo.txt';
begin
end.

только скрипт Char Info надо переименовать в CharInfo, то запустив этот скрипт будет работать и CharInfo.

[Emocean]

Здрасте. Помогите со скриптом. Вот часть моего скрипта, которая должна автоматически применять харвестр на проманоренном мобе:

const
     Name   ='Name';
     Harvester_IID  =5125;
//====================================================================================================================================
var
   MainOID,TargetOID,temp1,temp2,for1,hoid:integer;
//====================================================================================================================================
procedure Init;
begin
     buf:=#$0F; SendToServerEx(Name);
end;
//====================================================================================================================================
begin
     if FromServer then
        case ConnectName of
             Name:
                      begin
                           case pck[1] of
                                //====================================================================================================================================
                                // ItemListPacket:w(window)w(ListCount)w(itemType1)d(ObjectID)i(ItemID)d(count)w(itemType2)w(CustType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(CustType2)d(Augment)d(--)
                                //====================================================================================================================================
                                #$1B: if MainOID=0 then begin
                                         temp1:=ReadH(4);
                                         for for1:=1 to temp1 do begin
                                             temp2:=ReadD(36*for1-24);
                                             case temp2 of
                                                  Harvester_IID:   hoid:=ReadD(36*for1-28);
                                             end;
                                         end;
                                         pck:='';
                                       end;
                                //====================================================================================================================================
                                // MyTargetSelected:h(ObjectID)w(color)
                                //====================================================================================================================================
                                #$A6: TargetOID:=readd(2);
                                //====================================================================================================================================
                                // TargetUnselected:h(targetID)d(X)d(Y)d(Z)d(d)
                                //====================================================================================================================================
                                #$2A: TargetOID:=0;
                                //====================================================================================================================================
                                // Die:d(CharID)d(d)d(HAsHideout)d(HasCastle)d(flags)d(sweepable)d(access)
                                //====================================================================================================================================
                                #$06: if readd(2)=TargetOID then if hoid<>0 then begin
                                        buf:=#$14;
                                        WriteD(hoid);
                                        WriteD(0);
                                        SendToServer;
                                      end;
                               //====================================================================================================================================
                           end;
                      end;
        end;
end.

По идее должно работать так: берешь моба в таргет, сажаешь семечко, убиваешь, и сразу после этого должен автоматически использоваться харвестр для сбора фруктов при условии, что таргет остался на убитом мобе.
Однако почему-то оно работает не всегда, и часть мобов пропускает. В чем может быть дело?

[Breadfan]

У меня по такому подобию сделан автосвип, так же иногда не свипал пока

buf:=#$14;
WriteD(hoid);
WriteD(0);
SendToServer;

не заменил на вызов процедуры с таймером в 200мс, хз почему так