Народ помогите скрипт дописать

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
tigerr1
Posts: 8
Joined: 2005-09-13 13:16:51
Contact:

Народ помогите скрипт дописать

Post by tigerr1 »

Привет всем кто читает ету тему!

#itemId()
sub Item()
uo.print("Identification")
UO.Useskill('Item Identification')
uo.waittargettype("0x13fd")
wait(3000)
uo.say(",drophere")
Endsub

просьба сделайте чтобы онискал в бек пеке по айди вешь,потом айдишил ее отслеживая по журналу файл или нет если файл то повторял. А потом просто выкидывал бы себе под ноги её и все заново! за раннее спасибо... :oops:

P.S в скриптах вообще не шарю..
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Code: Select all

sub Item() 
   VAR Item="0x13fd"
   While UO.Count(Item)
      UO.FindType(Item,-1,'backpack')
      wait(300)
      If UO.FindCount() Then
         Repeat
            UO.DeleteJournal()
            UO.WaitTargetObject('finditem')
            UO.Useskill('Item Identification')
            wait(4000)
         Until UO.InJournal('Не файл сообщение')
         UO.DropHere('finditem')
      Endif
   Wend
end sub
tigerr1
Posts: 8
Joined: 2005-09-13 13:16:51
Contact:

Post by tigerr1 »

Savage BIGRespect :!:
tigerr1
Posts: 8
Joined: 2005-09-13 13:16:51
Contact:

Post by tigerr1 »

спасибо тебе за скрипт но если не сложно могеш его чуток поправить?

sub Item()
VAR Item="0x0995"
While UO.Count(Item)
UO.FindType(Item,-1,'backpack')
wait(300)
If UO.FindCount() Then
Repeat
UO.DeleteJournal()
UO.WaitTargetObject('finditem')
UO.Useskill('Item Identification')
wait(10000)
Until UO.InJournal('This is a normal item')
UO.DropHere('finditem')
Endif
Wend
end sub


сюда можно вставить чтобы он шарил по сумкам в бек пеке а то он ищет токо в самом паке и негде больше..а в паке можно токо 148 итемов иметь...т.е на ночь не хватит...и еще про сброс вещей...можно сделать так чтобы он скидывал ето в пак под ногами или рядом в сундук.....извини если побеспокоил но просто очень надо.....
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Code: Select all

sub Item() 
VAR Item="0x0995"
VAR Sunduk="0x12345678"
While UO.Count(Item)
UO.FindType(Item,-1,'my')
wait(300)
If UO.FindCount() Then
Repeat
UO.DeleteJournal()
UO.WaitTargetObject('finditem')
UO.Useskill('Item Identification')
wait(10000)
Until UO.InJournal('This is a normal item')
UO.MoveItem('finditem',1,Sunduk)
Endif
Wend
end sub
Post Reply