Code: Select all
sub BS()
uo.Set('norbcheck','1')
uo.Set('norbcalc','1')
var x = 0
var y = 0
Var TimeOut=13000
Var TimeCur = 0
var vikid = 0
uo.Print('otkuda tjanem ingi?:')
uo.Exec('addobject getcontainerdrova')
while uo.Targeting()
wait(100)
wend
uo.Print('otkuda tjanem sumki belt pounch?:')
uo.Exec('addobject otkudasumki')
while uo.Targeting()
wait(100)
wend
uo.Print('kuda skladyvajem sumki belt pounch?:')
uo.Exec('addobject kudasumki')
while uo.Targeting()
wait(100)
wend
uo.useobject('getcontainerdrova')
wait(100)
uo.useobject('otkudasumki')
wait(100)
uo.useobject('kudasumki')
wait(100)
while x <> 1
vikid = 0
UO.FindType('0x1BEF','0x06D6','getcontainerdrova')
If UO.FindCount() Then
UO.MoveItem('finditem','400','backpack')
endif
wait(3000)
wait(1000)
for y = 0 to 65
uo.charprint('3',str(y))
uo.deletejournal()
uo.findtype('0x1BEF')
uo.recall('finditem','3')
TimeCur = 0
#while not UO.InJournal('put') and not uo.injournal('lack') and not uo.injournal('fail') and not TimeCur>TimeOut
wait(100)
#timecur=timecur+100
wait(200)
repeat
wait(200)
timecur=timecur+100
until uo.injournal('put') or uo.injournal('fail') or TimeCur>TimeOut
wait(800)
wait(800)
next
wait(2000)
UO.FindType('0x09B0','0x0000','otkudasumki')
UO.MoveItem('finditem','1','backpack')
wait(500)
UO.FindType('0x09B0','-1','backpack')
UO.SetReceivingContainer('finditem')
vikid = 0
while vikid <> 1
UO.FindType('0x1B73','0x06D6','backpack')
If UO.FindCount() Then
UO.Grab('1','finditem')
wait(150)
else
vikid = 1
endif
wend
UO.unSetReceivingContainer()
vikid = 0
while vikid <> 1
UO.FindType('0x09B0','0x0000','backpack')
If UO.FindCount() Then
UO.MoveItem('finditem','-1','kudasumki')
wait(2000)
else
vikid = 1
endif
wend
wait(1000)
vikid = 0
while vikid <> 1
UO.FindType('0x1BEF','-1','backpack')
If UO.FindCount() Then
UO.MoveItem('finditem','-1','getcontainerdrova')
wait(2000)
else
vikid = 1
endif
wend
wait(3000)
wend
end sub