Yoko

Code: Select all

###################################### 
### Ходим по собранным координатам ### 
###################################### 
while 1==1 
if treeCount>0 then 
for i=1 to treeCount 
if TryRecall==1 AND uo.Count('ZLK')>=LogsQty then 
ToRecall() 
end if 
uo.print('Идем к дереву '+str(i)+': x='+str(treex[i])+' y='+str(treey[i])) 
infologs() 
flag=gotoxy(treex[i],treey[i]) 
if flag==1 then 
if TryHiding==1 then 
ToHide() 
end if 
GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz())) 
end if 
next 
end if 
wend 
end sub 

Code: Select all

 for i=1 to treeCount 

Code: Select all

for i=nachalo to treeCount 

Code: Select all

sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Сундук с регами и бутылками') 
uo.exec('addobject Bag')
while uo.targeting() 
wait(100) 
wend 
uo.print('Сундук куда бутылки бросать') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F0E','0x0998','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 

UO.FindType('0x0F0E',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag') 
wait(1000) 
UO.Grab('500','finditem') 
wait(1000) 
Endif 

UO.FindType('0x0F88','0x0000','backpack') 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','Bag') 
wait(1000) 
UO.Grab('400','finditem') 
wait(1000) 
Endif 

LastTimer=UO.Timer() 
UO.DeleteJournal() 

UO.UseType('0x0F88') 
UO.WaitMenu('What','Poison')        
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 
If UO.InJournal("You toss the failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend    
end sub

Code: Select all

sub camping()
# BETEP™ #
VAR Exit=0 
uo.print('Сундук c хворостом') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
UO.UseObject('Bag')
uo.print('Помойка') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
UO.UseObject('Bag2')
while NOT UO.Dead() OR Exit<>1 
UO.FindType('0x0DE1','0x0000','Bag') 
If UO.GetQuantity('finditem')>0 Then 
UO.Grab('1','finditem') 
wait(1000)
UO.DropHere('finditem') 
wait(1000)
UO.UseObject('finditem') 
wait(1000) 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('1','finditem') 
UO.UnSetReceivingContainer() 
Else 
Exit=1 
Endif 
wend 
end sub 

Code: Select all

sub CarpentBETEP() 
VAR Exit=0, LastTimer, TryToPoison 
uo.print('Ñóíäóê ') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Ïîìîéêà ') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 
UO.FindType('0x0E89','0x0000','backpack'); 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2'); 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 
UO.FindType('0x1BDD',-1,'backpack') ;
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BDD','0x0000','Bag') ;
wait(1000) 
UO.Grab('300','finditem') ;
wait(1000) 
Endif 
LastTimer=UO.Timer() 
CheckLag()
UO.DeleteJournal() 
UO.UseType('0x1034') 
UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')  ;
wait(12000) 
wend    
end sub


sub CheckLag()
IF UO.Waiting() > 0 THEN 
UO.Exec("canceltarget") 
END IF 
UO.DeleteJournal() 
UO.Click('backpack') 
REPEAT
WAIT(50) 
UNTIL UO.InJournal('backpack') 
end sub