[Shadow]

Вообщем начал потихоньку разбираться со скриптами. Прикрутил закупку заточек. Но вот с взятием в таргет так и не разобрался. Автотаргет не работает, так как кот(магазин) меня не атакует.
Вот собственно кусок на закупку:

//04=Action:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ)b(ShiftFlag)
procedure Roy;//(Attacker: Integer);
begin
  buf:=#$04;
  WriteD(1209014909);
  WriteD(107977);
  WriteD(218146);
  WriteD(-3672);
  WriteC(00);
  SendToServerEx(Name);
end;
//......................................
//***************************************************************
//21=RequestBypassToServer:s(Cmd)
procedure RequestByPassToServer(cmd:string);
begin
  buf:=#$21;
  WriteS(cmd);
  SendToServerEx(Name);
end;
//......................................
//***************************************************************
procedure RequestMultiSellItem(ListId,EntryID,Count:integer);
begin
  msg.Lines.Add('Покупаем ListID:'+inttostr(ListID)+' EntryID:'+inttostr(EntryID)+' в кол-ве:'+inttostr(count));
    buf:=#$A7;
    WriteD(ListID);
    WriteD(EntryId);
    WriteD(Count);
    SendToServerEx(Name);
//  end;
end;
//***************************************************************
procedure BuyEnchScroll;
begin
  RequestByPassToServer('menu_select?ask=-303&reply=559');
  delay(500);
  RequestMultiSellItem(559,17,1);
  delay(500);
end;
//Дальше в скрипте ------------------
      //************************************************
      msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));
      RequestEnchantItem(ItemOID);
      ready:=false;
      timer.enabled:=true; //пока в тесте отключаем (вкл. после заточки предмета)
//*** Закупка ***
      delay(250);
      RequestMultiSellItem(559,17,1);   //Scroll S Weapon
      delay(250);
//***
    end;
    #$81: if readd(2)=0 then begin
          CurEnchLvl:=0; //начнем с начала
         // BuyEnchScroll;
//-------------------------------------- 
 

Вообщем закупается одна заточка при открытом диалоговом окне с заточками.
Еще хочу прикрутить проверку кол-ва Аден, и подходить к другому коту и менять их. И дальше точить. Но опять все упирается в таргет.

Код надо в теги [ HIGHLIGHT ] обрамлять (правая решетка с параметром delphi)