Ultima Online Antares

sub pereklad_dagerov()
DIM R[1]
VAR a
R[1] = 0x0F51
UO.Exec('addobject otkuda')
while UO.Targeting()
wait(100)
wend
UO.UseObject('otkuda')
UO.Exec('addobject kuda')
while UO.Targeting()
wait(100)
wend
for a=1 to 1
UO.FindType(R[a],'-1','otkuda')
If UO.FindCount() > 0 then
repeat
UO.MoveItem('finditem', '0', 'kuda')
wait(1000)
UO.FindType(R[a],'-1','otkuda')
until not UO.FindCount()
else
wait(100)
endif
next
end sub