Yoko
http://forum.yoko.com.ua/

Народ помогите скрипт дописать
http://forum.yoko.com.ua/viewtopic.php?f=20&t=11342		 Page 1 of 1
Author:  tigerr1 [ 2007-01-28 12:33:39 ]
Post subject:  Народ помогите скрипт дописать
Привет всем кто читает ету тему!

#itemId()
sub Item()
uo.print("Identification")
UO.Useskill('Item Identification')
uo.waittargettype("0x13fd")
wait(3000)
uo.say(",drophere")
Endsub
просьба сделайте чтобы онискал в бек пеке по айди вешь,потом айдишил ее отслеживая по журналу файл или нет если файл то повторял. А потом просто выкидывал бы себе под ноги её и все заново! за раннее спасибо... :oops:

P.S в скриптах вообще не шарю..
Author:  Savage [ 2007-01-28 16:47:38 ]
Post subject: 
Code:
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
Author:  tigerr1 [ 2007-01-28 20:44:30 ]
Post subject: 
Savage BIGRespect :!:
Author:  tigerr1 [ 2007-01-28 23:03:05 ]
Post subject: 
спасибо тебе за скрипт но если не сложно могеш его чуток поправить?

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 итемов иметь...т.е на ночь не хватит...и еще про сброс вещей...можно сделать так чтобы он скидывал ето в пак под ногами или рядом в сундук.....извини если побеспокоил но просто очень надо.....
Author:  Savage [ 2007-01-29 12:08:08 ]
Post subject: 
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/