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

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