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