[Maxima]

Здравсвуйте, вообщем настроил скрипт от Тамбика для Финала, на свой сервер, там пакеты были другие, я их правил и скрипт работает, спасибо за скрипт Тамбик. Проблема в том, что скриптом можно точить только на одном аккаунте. Вообщем попробывал переделать следующие строки

     const

   myname ='MypKo'; //<<== пишем свой НИК

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

   chat = 3;// <<== какой ЧАТ выводить сообщения
==========================================
ВЫРЕЗАНО по причине, Ограничение колва знаков на форуме
==========================================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('2F');
SendToServerEx(myname);
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2) of
  12:begin autoMsg:=true;end; 
  13:begin autoMsg:=false;end; 
 24:begin
   if (maxlvl=0) then SendMsg2 ('   Неуказан Уровень Заточки ');
   if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
   if autostart and (maxlvl>0) then begin
      SendMsg2( '     ! ! !   П О Е Х А Л И    ! ! !' );
      SendMsg2( '_______________________________' );
     start:=true;
      GetItemID ;
      end;
     end;
 25:begin
    stopEnchantItem;// остановка скрипта
    SendMsg2( '         ! ! !   С Т О П   ! ! ! ' );
    stopselectskrol;
   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;
  end;
//=========
begin
//не обрабатываем пустые пакеты
  if pck='' then exit; 
 if (ConnectName=myname) and FromServer and (pck[1]=#$11) then begin ItemList;end;
 if (ConnectName=myname) and FromServer and (pck[1]=#$7C) then begin ChooseInventory;end;
 if (ConnectName=myname) and FromClient and (pck[1]=#$38) then begin Resultmaxlvl;pck:='';exit;end;  
 if (ConnectName=myname) and FromClient and (pck[1]=#$15) then begin RequestActionUse;pck:='';exit;end; 
begin
 if (start=false) and (ConnectName=myname) and FromClient then   
    case pck[1] of
 #$0C:begin 
       t:=0;
  OpenInventory;//открыть инвентарь
  skrolObjectID:=0;
  skrolID:=0;
  skrolObjectID:=ReadD(2);
  skrolID:= Getitem(skrolObjectID,2,3);//находим по ObjectID скрол с ItemID
 stopselectskrol;
 if (skrolID = 0) then SendMsg2(' . SKROLL  ID  НЕТ .' );
 if (skrolID > 0) then begin 
      t:=1;
  sumskrol:=0;
  sumskrol:=Getitem(skrolID,3,5);
    SendMsg2(' .................' );
    SendMsg2('   активирован SKROLL  ID : '+IntToStr(skrolID)+'  =  '+IntToStr(sumskrol)+' ШТ' );
    SendMsg2(' .................' );
     end;end;
 #$43:if  ReadH(2)=76 then  begin
       l:=1;
       SendMsg2('   Выбор Предмета для Заточки ' );
       SendMsg2(' .................' );
     end;
 #$65:begin
    enchantObjectID:=0;
    enchantObjectID:=ReadD(2);
    itemOID:=0;
    itemOID:=Getitem(enchantObjectID,2,3);//находим по ObjectID предмет с ItemID
 if (itemOID > 0) then begin
         d:=1; 
 if (t=1) and (l=1) and (d=1) then begin
   autostart:=true;
   SendMsg2 (' заточен предмет  c  ID  :  '+IntToStr(ItemOID)+'  ');
   SendMsg2(' .................' );
   addIDtoarray(ItemOID);//добавляем в базу ID предмета
   stopselectskrol;
  end;
end;
end;
end;
end;
end.

Теперь я так понял что пакеты(в строках которые я изменил) не отсылаются/принимаются, на сервер/ от клиента. Собственно вопрос, можно ли с помощью Пакетхака и соответственно переделав Скрипт от Тамбик, точить на нескольких аккаунтах, и где моя ошибка. Спасибо заранее. За ответ буду безгранично благодарен.
с/y