Помогите скрипт на тинкер

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Slunus
Posts: 1
Joined: 2010-07-15 23:48:32

Помогите скрипт на тинкер

Post by Slunus »

Ребята, мне нужет скрипт на крафт бутылок.Скрипт Элдера не работает помогите!!
<'((><
Posts: 5
Joined: 2006-12-07 14:48:38
Contact:

Re: Помогите скрипт на тинкер

Post by <'((>< »

Code: Select all

sub Tinkering_bottle()
var i
VAR Exit=0, LastTimer
uo.print('Выбери СУНДУК С ингами:') 
uo.exec('addobject Container') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Выбери Инструменты:') 
uo.exec('addobject tools') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1
UO.DeleteJournal() 
UO.FindType('0x0F0E','0x0000','backpack')
If UO.GetQuantity('finditem')>20 Then 
UO.SetReceivingContainer('Container')
wait(2000) 
UO.Grab('all','finditem') 
wait(2000) 
UO.UnSetReceivingContainer() 
Endif 
UO.FindType('0x1BEF',-1,'backpack')  
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','Container') 
wait(1000) 
UO.Grab('300','finditem') 
wait(1000) 
Endif 
LastTimer=UO.Timer() 
UO.DeleteJournal()  
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle') 
UO.UseObject('tools') 
wait(4000)
CheckLag()
if i==3 or not i then 
uo.useskill ("Spirit Speak") 
i=1 
else 
i=i+1 
endif
If UO.InJournal('fail') then 
repeat 
wait(100)
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend    
end sub 
Post Reply