Yoko

Code: Select all

sub TakeRegs() 
var Time,Space 
Time=Time() 
Space=' '
uo.TextOpen() 
uo.TextPrint('берем реги - ' +Space +Time)
#####BM
UO.FindType("0x0F7B","-1","ground")
Var bm = UO.GetSerial("finditem")
key(bm,0)
MovingItems("regi",'-1',5) 
wait(1000) 
Checklag() 
key(bm,1)
######BP
UO.FindType("0x0F7A","-1","ground")
Var bp = UO.GetSerial("finditem")
key(bp,0)
MovingItems("regi",'-1',5) 
wait(1000) 
Checklag() 
key(bp,1)
######MR
UO.FindType("0x0F86","-1","ground")
Var mr = UO.GetSerial("finditem")
key(mr,0)
MovingItems("regi",'-1',5) 
wait(1000) 
Checklag() 
key(mr,1)
end sub 



sub key(obj,d)# d-если 0 то отбить, если 1 то прибить!
var key='0x4427A46B'
uo.DeleteJournal()
CheckLag() 
if d==0 then 
repeat
UO.useobject('key')
wait(500)
CheckLag()
wait(500)
UO.Waittargetground(obj)
until uo.InJournal('You successfully unlock it from the structure.')
CheckLag()
else
repeat
UO.useobject('key')
wait(500)
CheckLag() 
UO.Waittargetground(obj)
until uo.InJournal('You successfully lock it down to structure.')
CheckLag()
end sub