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

[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.

где я ошибся?

[TAMBIK]

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

,только загвостка в том что эт файл является: Video CD и каким
оброзом его открыть(точнее сказать с помощью какой проги) я незнаю,перепробывал все имеющиеся редакторы на компе,не одним толково не вскрыл его(((

в проге l2phx. ItemsID


проги для отккрытия itemname-e
http://mmoworld.info/f8/l2dat-enc-de...t-failov-4384/

[Doberman]

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

в проге l2phx. ItemsID


проги для отккрытия itemname-e
http://mmoworld.info/f8/l2dat-enc-de...t-failov-4384/

Всё гуд, вскрыл,поправил

[TAMBIK]

Скажите вот кусок из скрипта :

//=============================================
 if FromServer and (pck[1]=#$21) then 
        case ReadD(12) of
         1061,1539: begin//Зелье Исцеления ID:1061
                    hpID:=ReadD(8);
                    SendMsg2('запомнил:  З е л ь е    Исцеления')
                     end; 
         734,1374: begin//Зелье Ускорения ID:734
                   uskorID:=ReadD(8); 
                   Timer2.enabled:=true;
                    SendMsg2('запомнил:  З е л ь е     Ускорения');
                    end;
         735,1375: begin//Зелье Быстрой Атаки ID:735
                    atakID:=ReadD(8); 
                    Timer3.enabled:=true;
                    SendMsg2('запомнил:  З е л ь е     Атаки'); 
                   end;
            и т.д      
 //==================================================

Можно как то подругому проще это все выполнить
ОПТИМИЗИРОВАТЬ действия

[alexteam]

не вижу мест которые возможно бы было выполнить проще...

[Grinch]

TAMBIK, и так нормально, по другому сделать можно но резона нет

[Chip]

1. Сервер интерлюд + новые скилы

l2ph запускаю перед клиентом
Проблема: логин, выбор сервера и болт потом(бывает с 20 раза заходит)
Пинг почему-то отображает 1, а в реале 100!!!
Если вдруг зашло, точит на ура Ы вепон(только не видит имени, надо по id искать в списке)
Есть еще Epic weapon(id=10300 вроде), на него не реагирует, не хочет точить
2Север тот же
l2ph запускаю во время выбора сервера, потом захожу в игру и пишет ошибку после запуска скрипта Версия 3,19





А в последней версии, после запуска не видит что есть в инвенторе!!!

[TAMBIK]

Подскажите как сделать ? пример:

1. при произведенном мною действии
2 . если нет ответа на действие
// вот здесь наверно надо мне чтобы высчитывалось время
// между п.1 и п.2 _ ток как сделать я невкурю
3. если время высчитаное более заданого то
4. произвести другое действие

[newbie61]

Подскажите, играю на Грации Финал, использую пакет хак для точки скилов, вопрос в следующим: какую лучше поставить задержку отправления пакетов на сервер, чтобы меньше палиться в логах.

[QaK]

TAMBIK, делаешь п1 - запускаешь таймер, в интервале ставишь, скклько надо тебе ждать, в обработчик таймера - п4 и стоп таймера, ну и проверяешь, если получил ответ на п1 и таймер.енабле = true тогда товет получили и тормозишь таймер.
Как-то так ... что непонятно - спрашивай

Добавлено через 38 секунд
newbie61, чем больше, тем лучше, ставь секунд 30, не промахнешься.

[TAMBIK]

[quote=QaK;35012]TAMBIK, делаешь п1 - запускаешь таймер, в интервале ставишь, скклько надо тебе ждать, в обработчик таймера - п4 и стоп таймера, ну и проверяешь, если получил ответ на п1 и таймер.енабле = true тогда товет получили и тормозишь таймер.
Как-то так ... что непонятно - спрашивай

вот так ?

// п.1
 procedure Action;
  begin
  timer5.enabled:=true;
  end; 
procedure OnTimer5(Sender: TObject);
 begin
  stopAttacka;
  end;
// п.4
  procedure stopAttaka;
   begin
   timer5.enabled:=false;
   end;
 procedure Init;
  begin
  timer5:=TTimer.Create(nil);
  timer5.OnTimer:=@OnTimer5;
  timer5.enabled:=false;
  timer5.interval:=6000;
  end;
 procedure Free; 
  begin
  Timer5.free;
  end;

// п.2
  begin
  if FromServer and(pck[1]=#$33)and(ReadD(2)=myID) then 

        if  timer5.enabled=true  then  timer5.enabled:=false;  
            end;