################################################
###  Ходящий Кузнец / Going Smith v2.2 Full  ###
################################################
sub main()
var Exit=0, LastTimer, i
var VendorName
######################
### Меню / Options ###
######################
###########################################################################################
###
var MaxWeight=19500 ## вес

###
var ToBs=1 ## - 1 - Ковать катаны из ингов, 0 - реколится домой и складывать инги в сундук.
###
############################################################################################

uo.Print('Выбери Вендора: ')
uo.Exec('addobject Vendor')
while uo.Targeting()
wait(100)
wend
VendorName=uo.GetName("Vendor")

while Exit<>1

for i=1 to 5 
FindVendor(VendorName)
wait(100)
UO.Buy('Shrink')
wait(1000)
end sub
 
sub gotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60
MyX=uo.getX()
MyY=uo.getY()
if LastX==MyX and LastY==MyY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.Press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.Press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.Press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.press(39)
next
end if
halt=15
end if
if numb(x-myX)<=1 and numb(y-myY)<=2 then
return 1
end if
if x<=MyX then
if y<=MyY then
for z=0 to 3
uo.Press(38)
next
else
for z=0 to 3
uo.Press(37)
next
end if
else
if y<=MyY then
for z=0 to 3
uo.Press(39)
next
else
for z=0 to 3
uo.Press(40)
next
end if
end if
lastX=myX
lastY=myY
wait(200)
next
return 0
end sub

sub FindVendor(VendorName)
var flag
while 1
#uo.Set('finddistance','14') ## - Искать на расстоянии 14.
uo.IgnoreReset() ## - Обнулить игнор. 
uo.FindType("0x0190","-1","ground")
while uo.FindCount() ## - Пока найден чар. 
uo.Ignore("finditem") ## - Игнор вещей.

if uo.GetName("finditem")==VendorName then
uo.Print(VendorName+" found")
First:
flag=gotoxy(UO.GetX("finditem"),UO.GetY("finditem"))
if flag==1 then
goto Second   
while Exit<>1

for i=1 to 5 
FindVendor(VendorName)
wait(100)
UO.Buy('Shrink')
wait(1000)

wend
Second:
end sub

sub numb(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub

sub SmeltFull()
SmeltItem(0x1410)
wait(200)
end sub

sub SmeltItem(ItemID)
var i
uo.FindType(ItemID,"-1","backpack")
uo.Print(uo.FindCount())
while uo.FindCount()>0
 
uo.WaitTargetObject("finditem")
uo.UseObject("Forge")
i=0
while not uo.InJournal("You put") and not i==50
i=i+1
wait(100)
wend

if uo.InJournal("The") then
uo.MoveItem("finditem","-1","ground")
end if

uo.findtype(ItemID,"-1","backpack")
wait(700)
wend
end sub

sub RecallToHome()
uo.Print('Прыгаем Домой.')
uo.Exec("recall Runebook 21")
wait(10000)
end sub

sub RecallToShop()
uo.Print('Прыгаем в Магазин.')
uo.Exec("recall Runebook 1025")
wait(10000)
end sub

sub WaitForRecall()
var Text1=uo.GetName()+": The spell fizzles."
var mess='',lastX=uo.getX(),lastY=uo.getY()
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 0
end if
if uo.getX()<>lastX or uo.getY()<>LastY then
return 1
end if
wait(50)
next
return 0
end sub

sub DropIngots()
if uo.Waiting() then
uo.CancelTarget()
end if
var a, Exit
var Chest='0x4004B893' ## - ID сундука для сброса ингов.
dim Ings[1]
Ings[0]=0x13FE
uo.Print('Выкладываем Инги.')
uo.SetReceivingContainer(Chest)
wait(500)
for a=0 to 0
exit=0
repeat
uo.FindType(Ings[a])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(500)
else
exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer(Chest)
uo.Print('Инги Выложены.')
end sub

sub ToBlacksmithy()
var LastTimer
repeat
uo.FindType('0x1BEF','0x0000','backpack')
uo.Print(str(uo.GetQuantity("finditem")))
uo.DeleteJournal()
LastTimer=uo.Timer()
uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','katana')
uo.UseType(0x1BEF)

while not uo.InJournal("You put") and not uo.InJournal("You have failed")
wait(250)
wend

if uo.InJournal("You have failed") then
wait(500)
;repeat
;wait(100)
;until uo.Timer()>=LastTimer+100
end if

uo.FindType(0x1BEF)
until not uo.GetQuantity("finditem")>8
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until uo.InJournal('backpack')
end sub
end sub