Скорость работы скрипта

[MaJIou_DoGG]

Чтот у меня не получается его втулить т к он 16+к символов, попробую кусками

//  Auto_enchant + 1 - gracia_final_selectskroll
//  хроники  Грация ФИНАЛ
//===========================================
   const
   myname='DoGG'; //<<== пишем свой НИК

   max=150;//<<== колличество ячеек в рюкзаке

   xxx=3;//<<== безопасный уровень заточки

   chat = 3;// <<== какой ЧАТ выводить сообщения
//  3 - Party; 4 - Clan; 9 - Alli; 10 - anons ; 17 - Hero;
//==========================================
//  в пати чат пишем уровень заточки
//  можно менять в процесе работы скрипта
//  заточить один предмет чтоб запомнить чем и что точить
//  СТАРТ нажать соцдействие ДА
//  СТОП нажать соцдействие  НЕТ
//  включить системные сообщения соцдействие - приветствие \ hello 
//  выключить системные сообщения соцдействие - победа \ victory 
//----------------------------
//  возможно использовать скрол до безопасного уровеня заточки 
//  выше  использовать  блесс скрол
//  для этого заточить предмет один раз скрол  и  один раз блесс скрол
//----------------------------
//  дальше скрипт сам точит до указаного уровня заточки
//  все предметы ОДИНАКОВЫЕ  с  ПЕРВЫМ  заточеным 
//  скрипт  точит первый предмет до +1, потом второй до +1 и т.д
//  если предмет при заточки блесс скрол слетел на 0 или на уровень как у вас на сервере
//  то будет точиться он пока несравняется с остальными
//   и т.д
//  пока недостигнете заданого уровня заточки
//  если предметов более одного : один предмет остается
//  АВТОР ==>>>> TAMBIK
//==========================================  
  var
 BaseItems:array[1..max,1..11] of integer;
 Baselvl:array[1..max] of integer;
 Timer01: TTimer;
 Timer02: TTimer;
 Timer03: TTimer;

  mytext:string; 
 autostart,start,autoMsg:Boolean;
 flag : Boolean;
 selectskrol,selectblessedskrol:Boolean;
 autoselect:Boolean;
 t,l,d,x,y,ii,i:integer;
 ListSize,ItemEnch:word; 
 textID:integer;
 enchantObjectID:integer;
 enchantID,skrolObjectID,skrolObject:integer; 
 itemID,objectOID:integer;  
 sumskroll,sumskrol,sumitemID,sumitem:integer;
 maxlvl,minlvl,enchlvl,selectlvl:integer;
 ID,skrolID,blessedskrolID:integer;
 skrolOID,blessedskrolOID:integer;
 index :integer;
//===========================================
procedure SendMsg2(msg:string);
begin 
if autoMsg then begin
  buf:=#$4A;
  WriteD(0);
  WriteD(chat);// <<=куда выводить сообщения
  WriteS('');
  WriteS(msg);
  SendToClientEx(myname);
end;
end;
//===========================================
procedure Resultmaxlvl;
var
  i:integer;
begin
 i:=2;
 mytext:=ReadS(i);
 textID:=ReadD(i);
 if (textID=3)  then begin
  maxlvl:=StrToInt(mytext);
SendMsg2( ' Установлен  МАХ  Уровень Заточки: '+IntToStr(maxlvl)+'' );
pck:='';
exit;
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(myname);
 SendMsg2( '        ! ! !   П О Е Х А Л И    ! ! !' );
 SendMsg2( '_______________________________' );
 start:=true;
  end;
  end;
 25:begin
  SendMsg2( '         ! ! !   С Т О П   ! ! ! ' );
  stopEnchantItem;// остановка скрипта
 end;
 end;
end;
//==========
procedure  stopEnchantItem;// остановка скрипта
begin 
 autoMsg:=true;
 start:=false;
 deleteBase;
 enchantID:=0;
 ItemEnch:=0;
 stopselectskrol;// отмена выбора скролл
 SendMsg2 ('  ___ О С Т А Н О В Л Е Н О ___ ');
 Timer01.enabled:=false;
 Timer02.enabled:=false;
 Timer03.enabled:=false;
  index :=0;
 for ii:=1 to max do 
  Baselvl[ii]:=-1;
end;