Здрасте. Помогите со скриптом. Вот часть моего скрипта, которая должна автоматически применять харвестр на проманоренном мобе:
delphi Код:
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.
По идее должно работать так: берешь моба в таргет, сажаешь семечко, убиваешь, и сразу после этого должен автоматически использоваться харвестр для сбора фруктов при условии, что таргет остался на убитом мобе.
Однако почему-то оно работает не всегда, и часть мобов пропускает. В чем может быть дело?