Показать сообщение отдельно
Старый 25.08.2008, 20:07   #189
Пользователь
 
Аватар для Emocean
 
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
Emocean
По умолчанию

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