sub main()
uo.automenu('What you you want to create?', 'Leather Cap')
uo.automenu('Choose a category', 'leather')
while not uo.dead()
if uo.count('0x1078')<2 then
recharging()
give_money()
shoping()
toHome()
else
tailoring()
endif
wend
end sub

sub recharging()
Var i
DIM RuneBooks[2]
Runebooks[1] = '0x6152F6C2'
Runebooks[2] = '0x6152F05D'

uo.useobject('0x6CAA9E35')
wait(1000)
uo.findtype('0x1F4C', -1, 'lastcontainer')
for i=1 to 2
uo.waittargetobject('finditem')
uo.recall(runebooks[i], '800')
wait(15000)
next
uo.deletejournal()
uo.findtype('0x09F2', -1, 'lastcontainer')
while not uo.injournal('You are full')
uo.useobject('finditem')
wait(1500)
wend
end sub

sub give_money()
uo.findtype('0x0EED',-1, 'lastcontainer')
uo.grab('10800', 'finditem')
end sub

sub take_gold()
uo.findtype('0x0EED', -1, 'my')
uo.moveitem('finditem', '0', 'lastcontainer')
end sub

sub tailoring()
uo.deletejournal()
uo.findtype('0x1078',-1,'backpack')
uo.waittargetobjecttype('finditem', '0x1078')
uo.usetype('0x0F9D')
while not (uo.injournal('your pack') or uo.injournal('You destroy'))
wait(100)
wend
wait(1000)
if uo.waiting() then
uo.canceltarget()
endif
if uo.count('0x1DB9')>120 then
recharging()
selling()
tohome()
take_gold()
endif
end sub

sub toHome()
var x,y
x=uo.getx()
y=uo.gety()
uo.disarm()
uo.recall('0x6152f6c2','607')
while uo.getx()==x AND uo.gety()==y
wait(100)
wend
end sub

sub shoping()
var j,lastX, lastY

for j=601 to 609
lastX=uo.getx()
lastY=uo.gety()
uo.disarm()
uo.recall('0x6152F05D', j)
while uo.getx()==lastX and uo.gety()==lastY
wait(100)
wend
uo.deletejournal()
uo.buy('hides')
while not (uo.injournal('My thanks for the patronage.') or uo.injournal('Greetings.'))
wait(100)
wend
next
end sub

sub selling()
var myX, myY,time

myX=uo.getX()
myY=uo.getY()
uo.recall('0x6152F05D', '606')
while uo.getx()==myX and uo.gety()==myY
wait(100)
wend
while uo.count('0x1DB9')>0
uo.deletejournal()
uo.sell('caps')
time=uo.timer()+600
while not (uo.injournal('The total of thy sale|Wait ') or time<uo.timer())
wait(1000)
wend
wend
end sub