Yoko

Code: Select all

sub main()

Code: Select all

end sub

Code: Select all

sub main()
uo.print('покажыте книжку )
uo.exec('addobject BOOK2')
while uo.targeting()
wait(100)
wend
end sub

Code: Select all

sub TargetBOOK2() ## ALT+B
uo.print('ПОКАЖИ РУНБУКУ')
uo.exec('addobject BOOK2')
while uo.targeting()
wait(100)
wend
end sub

sub RecallBook() ## ALT +
var OldX=uo.GetX()
var OldY=uo.GetY()
var Time 
repeat 
uo.Exec('warmode 0')
uo.UseSkill('Hiding')
wait(1000)
uo.UseObject('BOOK2')
CheckLag()
uo.Lclick(135, 1*15+55)  
CheckLag()
Time=uo.Timer() 
repeat 
wait(500) 
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or Time+200<uo.Timer() 
uo.DeleteJournal()
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs')
end sub



sub RecallBook11() ## ALT +
var OldX=uo.GetX()
var OldY=uo.GetY()
var Time 
repeat 
uo.Exec('warmode 0')
uo.UseSkill('Hiding')
wait(1000)
uo.UseObject('BOOK2')
CheckLag()
uo.Lclick(135, 8*15+55)  
CheckLag()
Time=uo.Timer() 
repeat 
wait(500) 
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or Time+200<uo.Timer() 
uo.DeleteJournal()
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs')
end sub

sub lootmining()    ; перекладка руды в сундук 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x4027DDAC' ; АЙДИ сундука для руды  
DIM lama[1]
wait(800)
lama[3]=0x00DC ; 3 ore 
UO.SetReceivingContainer(UnloadCont) 
wait(800) 
For a=0 to 3 
Exit=0 
repeat 
UO.FindType(Ore[a]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(800) 
Else 
Exit=1 
endif 
until Exit==1 
Next 
UO.UnSetReceivingContainer() 
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub 
[/quote]