проблемы со скриптами)

[Astery]

ван момент щас притащу :Р

Добавлено через 14 минут
19 1C 98 0E 10 00 00 00 00 беру свиток
D0 4C 00 2B E7 0F 10 наверно выбор вещи хД
5F 2B E7 0F 10 00 00 00 00 это вроде запрос на энчант)

з.ы.эт все от клиента)

49 32 00 00 00 00 00 00 00 эт 2 в общий чат)тож от клиента)


56 0C 00 00 00 00 00 00 00 00 приветствие:Р тож клиент)
надо от сервера пакеты?)

[Breadfan]

Оффтоп

3 страницы рассуждений "из пустого в порожнее" о(^.^)о Сервер написать надо было сразу, может ктонть глянул да и все, чем выискивать в чем тут дело А то начнется - "открыли корзинку, достали сумку, закрыли корзинку, открыли сумку..." Я, конечно, понимаю что логикой гораздо изящнее проблему решать, но иногда быстрее просто разок ковырнуть отверткой и "...посмотреть чего у нее там внутри..."

[J-Fobos]

Что-то здесь не чисто...

Здесь говорится что 15 0C 00 00 00 00 00 00 00 00 приветствие, а здесь уже 56 0C 00 00 00 00 00 00 00 00.

Ну и Say2 здесь один, а тут другой.

[Astery]

l2phx.3.4.1.83 то пакеты с этой версии)
последние я вытащила из l2phx.3.5.33.164
мб из-за этого?)

[J-Fobos]

3.5.33.164 показывает правильные пакеты, а значит скрипт должен хоть как-то, но работать. Проверяйте

[Astery]

проверяла)ставлю галочку пишет скрипт откомпилирован и все)

Добавлено через 35 секунд
дальше ни на старую ни на новую версию скрипта никак не реагирует)

Добавлено через 1 минуту
и что самое странное,раньше он даже с другой версии пакетхака работал)выходит с неправильными пакетами:Р чет ваще непонятное все)

Добавлено через 15 минут
ой все сспсппспспспспсппс всем:Ря опять поменяла пакет на 2 в общий чат и запустила в посл версии) все работает)))

Добавлено через 1 минуту
а кстати) я тут пыталась немного его переделать) добавить таймер3 который поставит интервал еще 1 чтобы от конца одного энчанта и до начала второго было 3 секунды) у меня что-то не вышло слегка)щас скажу куда ставила)

Добавлено через 5 минут

const
   nik='Astery';
   Enchant=9;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: boolean;
   Timer01, Timer02,Timer03: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=5640;

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=1320;

   Timer03:=TTimer.Create(nil);
   Timer03.OnTimer:=@OnTimer03;
   Timer03.enabled:=false;
   Timer03.interval:=3000;
end;

procedure OnTimer01(Sender: TObject);
begin
   case key of
      false: begin
         buf:=UseItem;
         SendToServerEx(nik);
         Timer02.enabled:=true;
         end;
      true: begin
         buf:=EnchantItem;
         SendToServerEx(nik);
         Timer03.enabled:=true;
         end;
   end;
         key:=not(key);
end;

procedure OnTimer02(Sender: TObject);
begin
         buf:=SelectItem;
         SendToServerEx(nik);
         Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
  CurrentEnch:=0;
  key:=false;
end;

begin
    if FromServer and (pck[1]=#$87) then case ReadD(2) of
       0: begin
          CurrentEnch:=CurrentEnch+1;
          if CurrentEnch=Enchant then Timer01.enabled:=false;
          end;
       3: CurrentEnch:=0;
       end;
    if FromClient and (pck[1]=#$19) then UseItem:=pck;
    if FromClient and (pck[1]=#$D0) then SelectItem:=pck;
    if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
    if FromClient and (pck=HStr('49 32 00 00 00 00 00 00 00')) then
       begin
          pck:='';
          Timer01.enabled:=not(Timer01.enabled);
       end;
end.

вот) сразу сорь я ток начинаю пытаться разбираться в этом
спсппспспс еще раз что помогли:Р

[J-Fobos]

Ну в таком скрипте вообще одним таймером обойтись можно. Слишком уж накручено все. Я если честно не вижу смысла вводить 3-й таймер, надо убрать второй и результат будет что надо

[Astery]

всмысле убрать второй?

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

[J-Fobos]

Это все правильно, но проблема решится не добавлением третьего таймера, а убиранием второго. Организуйте все действия в одном таймере (на форуме есть много примеров работы таймера).

[Astery]

щас:Р пспспсп)

Добавлено через 18 минут
вот чето нарисовала если не так плис поправьте если несложно:Р

const
   nik='Astery';
   Enchant=9;

var
   UseItem, SelectItem, EnchantItem: string;
   CurrentEnch: integer;
   key: byte;
   Timer01: TTimer;



procedure OnTimer01(Sender: TObject);
begin
   inc(key);
   case key of
      1:begin
           buf:=UseItem;
           SendToServerEx(nik);        
         end;
      2:begin
           buf:=EnchantItem;
           SendToServerEx(nik);
         end;
      3:begin
           buf:=SelectItem;
           SendToServerEx(nik);
           Timer01.enabled:=false; 
           key := 0; 
         end;
   end;
end;


procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=5640;
   key := 0; 
end;

procedure Free;
begin
  Timer01.free;
  CurrentEnch:=0;
end;

begin
   if FromServer then //от сервера.
   case pck[1] of 
   #$87:
     case ReadD(2) of
       0:begin
            inc(CurrentEnch);
            Timer01.enabled := (CurrentEnch = Enchant); //держим таймер включеным пока не достигнут нужный енчант.
          end;
       3: CurrentEnch := 0; 
     end;

   end
   else //от клиента.
   case pck[1] of
     #$19: UseItem:=pck;

     #$D0: SelectItem:=pck;

     #$5F: EnchantItem:=pck;

     #$49: //say
        case reads(2) of
        '2':begin //say '2'
              pck := '';
              Timer01.enabled:=not Timer01.enabled;
            end;
        end;
    end;
end.