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

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

[J-Fobos]

Почти правильно.
Только вместо key: boolean используйте key: integer , ну и соответственно уже управляйте значением key. Не забудьте задать начальное значнеие этой переменной.

А еще для более оптимальной работы внутри таймера изменяйте интервал Timer01.interval:=1000; на нужный вам.

[Astery]

вообще не поняла)))
просто заменить в начале это key: boolean на это key: integer ?
я чет не понимать терь ничо хД

[NLObP]

Astery, сорри, я стормозил. Она изменяет свое значение в кейсе.

[alexteam]

http://coderx.ru/showpost.php?p=105448&postcount=30
визуально все правильно.

[NLObP]

Переменная key нигде не изменяет своего значения, кроме как сброс её в ноль.

[alexteam]

NLObP, ниправда. самая первая инструкция в обработчике таймера.
Astery, счетчик.

[Astery]

вообще что такое переменная key? я чет не совсем поняла)

[J-Fobos]

Минут 5 втыкал на последний скрипт, думал крыша едет - час назад вроде как другой был, потом удосужился чуть страничку промотать вниз и увидел "Последний раз редактировалось alexteam"

Там еще в таймере добавить Timer01.interval:=****; - чтобы задержки были разными для разных действий.

[nevazhno]

суть в том что кикает, как при клике 2й раз на скрол, когда 1й еще не доточил...