[reis]

Для первого окна:

   const
   myname='1';

   max=200;

   xxx=10;

   chat = 3;

//===========================================
procedure SendMsg2(msg:string);
begin 
if autoMsg then begin
  buf:=#$4A;
  WriteD(0);
  WriteD(chat);// <<=куда выводить сообщения
  WriteS('');
  WriteS(msg);
  SendToClientEx('1');
end;
end;
//===========================================

//==========================================
procedure ActionUse;
 begin
   case ReadD(2) of
 12:begin  autoMsg:=true; end;
 13:begin  autoMsg:=false; end;
 24:begin 
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (maxlvl=0) then SendMsg2( '  Неуказан Уровень Заточки  !' );
SendMsg2( '_______________________________' );
if autostart and  (maxlvl>0)  then begin
 buf:=hstr('14');
 SendToServerEx('1');
 SendMsg2( '        ! ! !   П О Е Х А Л И    ! ! !' );
 SendMsg2( '_______________________________' );
 start:=true;
  end;
  end;
 25:begin
  SendMsg2( '         ! ! !   С Т О П   ! ! ! ' );
  stopEnchantItem;// остановка скрипта
 end;
 end;
end;
//==========

//==========================
procedure stopselectskrol;// отмена выбора скролл
begin
  buf:=hstr('D04E00');
 SendToServerEx('1');
end;
//===================================

//===================================
procedure OnTimer01(Sender: TObject);
begin
 buf:=#$19;
 WriteD(skrolObject);
 WriteD(0);
 SendToServerEx('1');
 Timer01.enabled:=false;
end;
//--------------------------
procedure OnTimer02(Sender: TObject);
begin
 buf:=hstr('D04C00');
 WriteD(enchantID);
 SendToServerEx('1');
 Timer02.enabled:=false;
// Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin 
 buf:=#$5F;
 WriteD(enchantID);
 WriteD(0);
 SendToServerEx('1');
 Timer03.enabled:=false;
 end;
//-----------------------------------------

//=========================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('14');
SendToServerEx('1');
end;
//=========================

Для второго окна:

   const
   myname='2';

   max=200;

   xxx=10;

   chat = 3;

//===========================================
procedure SendMsg2(msg:string);
begin 
if autoMsg then begin
  buf:=#$4A;
  WriteD(0);
  WriteD(chat);// <<=куда выводить сообщения
  WriteS('');
  WriteS(msg);
  SendToClientEx('2');
end;
end;
//===========================================

//==========================================
procedure ActionUse;
 begin
   case ReadD(2) of
 12:begin  autoMsg:=true; end;
 13:begin  autoMsg:=false; end;
 24:begin 
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (maxlvl=0) then SendMsg2( '  Неуказан Уровень Заточки  !' );
SendMsg2( '_______________________________' );
if autostart and  (maxlvl>0)  then begin
 buf:=hstr('14');
 SendToServerEx('2');
 SendMsg2( '        ! ! !   П О Е Х А Л И    ! ! !' );
 SendMsg2( '_______________________________' );
 start:=true;
  end;
  end;
 25:begin
  SendMsg2( '         ! ! !   С Т О П   ! ! ! ' );
  stopEnchantItem;// остановка скрипта
 end;
 end;
end;
//==========

//==========================
procedure stopselectskrol;// отмена выбора скролл
begin
  buf:=hstr('D04E00');
 SendToServerEx('2');
end;
//===================================

//===================================
procedure OnTimer01(Sender: TObject);
begin
 buf:=#$19;
 WriteD(skrolObject);
 WriteD(0);
 SendToServerEx('2');
 Timer01.enabled:=false;
end;
//--------------------------
procedure OnTimer02(Sender: TObject);
begin
 buf:=hstr('D04C00');
 WriteD(enchantID);
 SendToServerEx('2');
 Timer02.enabled:=false;
// Timer03.enabled:=true;
end;
procedure OnTimer03(Sender: TObject);
begin 
 buf:=#$5F;
 WriteD(enchantID);
 WriteD(0);
 SendToServerEx('2');
 Timer03.enabled:=false;
 end;
//-----------------------------------------

//=========================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('14');
SendToServerEx('2');
end;
//=========================

Приведены куски кода в которых что-то изменялось, остальное осталось неизменно.

пользуюсь этим скриптом: Auto_enchant + 1 _selectskroll - gracia_final.rar