[Emocean]

Здрасте. Помогите со скриптом. Вот часть моего скрипта, которая должна автоматически применять харвестр на проманоренном мобе:

const
     Name   ='Name';
     Harvester_IID  =5125;
//====================================================================================================================================
var
   MainOID,TargetOID,temp1,temp2,for1,hoid:integer;
//====================================================================================================================================
procedure Init;
begin
     buf:=#$0F; SendToServerEx(Name);
end;
//====================================================================================================================================
begin
     if FromServer then
        case ConnectName of
             Name:
                      begin
                           case pck[1] of
                                //====================================================================================================================================
                                // ItemListPacket:w(window)w(ListCount)w(itemType1)d(ObjectID)i(ItemID)d(count)w(itemType2)w(CustType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(CustType2)d(Augment)d(--)
                                //====================================================================================================================================
                                #$1B: if MainOID=0 then begin
                                         temp1:=ReadH(4);
                                         for for1:=1 to temp1 do begin
                                             temp2:=ReadD(36*for1-24);
                                             case temp2 of
                                                  Harvester_IID:   hoid:=ReadD(36*for1-28);
                                             end;
                                         end;
                                         pck:='';
                                       end;
                                //====================================================================================================================================
                                // MyTargetSelected:h(ObjectID)w(color)
                                //====================================================================================================================================
                                #$A6: TargetOID:=readd(2);
                                //====================================================================================================================================
                                // TargetUnselected:h(targetID)d(X)d(Y)d(Z)d(d)
                                //====================================================================================================================================
                                #$2A: TargetOID:=0;
                                //====================================================================================================================================
                                // Die:d(CharID)d(d)d(HAsHideout)d(HasCastle)d(flags)d(sweepable)d(access)
                                //====================================================================================================================================
                                #$06: if readd(2)=TargetOID then if hoid<>0 then begin
                                        buf:=#$14;
                                        WriteD(hoid);
                                        WriteD(0);
                                        SendToServer;
                                      end;
                               //====================================================================================================================================
                           end;
                      end;
        end;
end.

По идее должно работать так: берешь моба в таргет, сажаешь семечко, убиваешь, и сразу после этого должен автоматически использоваться харвестр для сбора фруктов при условии, что таргет остался на убитом мобе.
Однако почему-то оно работает не всегда, и часть мобов пропускает. В чем может быть дело?