Code: Select all
sub camping()
Uo.DeleteJournal()
while not UO.Dead()
Uo.FindType('0x0DE1',-1,'0x0000','backpack')
UO.MoveItem("finditem","1","ground")
UO.Ignore("finditem")
UO.IgnoreReset()
wait(2000)
Uo.FindType('0x0DE1','0x0000','ground')
Uo.UseObject('finditem')
wait(1500)
if Uo.InJournal('You fail to ignite the fire')then
Uo.UseObject('finditem')
wait(1500)
endif
Uo.FindType('0x0DE3','0x0000','ground')
UO.MoveItem("finditem","0","0x0E77")
UO.Ignore("finditem")
UO.IgnoreReset()
wait(2000)
if UO.count('0x0DE3','0x0000')>1 then
UO.FindType('0x0DE3','0x0000','backpack')
UO.setreceivingcontainer('0xx4021318B') ;serial Trashcan
UO.Grab('0','finditem')
wait(300)
endif
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
wend
end sub
Code: Select all
sub BS()
Uo.DeleteJournal()
while not UO.Dead()
Uo.FindType('0x0DE1',-1,'0x0000','backpack') -это что ? =)
UO.MoveItem("finditem","1","ground")
UO.Ignore("finditem")
UO.IgnoreReset()
wait(2000)
Uo.FindType('0x0DE1','0x0000','ground') - и это ?
Uo.UseObject('finditem')
wait(1500)
if Uo.InJournal('You fail to ignite the fire')then
Uo.UseObject('finditem')
wait(1500)
endif
Uo.FindType('0x0DE3','0x0000','ground')
UO.MoveItem("finditem","0","0x0E77")
UO.Ignore("finditem")
UO.IgnoreReset()
wait(2000)
if UO.count('0x0DE3','0x0000')>1 then
UO.FindType('0x0DE3','0x0000','backpack')
UO.setreceivingcontainer('0xx4021318B') ;serial Trashcan
UO.Grab('0','finditem')
wait(300)
endif
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
wend
end subCode: Select all
sub BS()
VAR Trash='0x00000000'
VAR Cont='0x400A3A03'
var ing = '0x1BEF' ; type of ingot
var color = '0x0750' ;color
UO.CancelMenu()
UO.SetReceivingContainer('backpack')
UO.Automenu("Blacksmithing","Armor")
UO.Automenu("Armor","Weapons")
UO.Automenu("Weapons","Swords")
UO.Automenu("Swords","Dagger")
; UO.Automenu("Swords","Dagger")
while True
UO.DeleteJournal()
if UO.Count(ing,color)<=10 then
UO.FindType(ing,color,Cont)
UO.Grab('100','finditem')
wait(2000)
endif
UO.UseType(ing,color)
Repeat
wait(1000)
Until UO.InJournal("You put") OR UO.InJournal("fail")
if UO.Count('0x0F51')>0 then ;0x0f51 тип даггера, перепроверьте
UO.FindType('0x0F51',-1,-1) ;0x0f51 тип даггера, перепроверьте
UO.MoveItem('finditem',0,Trash)
wait(1000)
endif
Wend
end sub