asdf

sub hats()
var OldWeight=0
var times=0
var timer=0
OldWeight=UO.Weight
wait(200)
while times < 6 and uo.life > 1
times=0
wait(200)
if (Uo.Count(0x175d) <= 30) then
OldWeight=UO.Weight
while UO.Weight == OldWeight and times < 6
OldWeight=UO.Weight
uo.exec("buy bolts vendor")
wait(6000)
lagsensor()
times=times+1
wend
if not uo.weight == oldweight then
UO.Exec("waitmenu 'Cloth' 'Headwear' 'Headwear' 'Bandana'")
UO.Exec("waittargettype 0x175d ; usetype 0x0f9d")
UO.Print("Tricorne count: "+STR(UO.Count("0x171b"))+"")
UO.Print("Skullcap count: "+STR(UO.Count("0x171b"))+"")
wait(4000)
lagsensor()
endif
endif

if uo.count("0x175d") > 30 then
repeat
UO.Exec("waitmenu 'Cloth' 'Headwear' 'Headwear' 'Bandana'")
UO.Exec("waittargettype 0x175d ; usetype 0x0f9d")
UO.Print("Tricorne count: "+STR(UO.Count("0x171b"))+"")
UO.Print("Bandana count: "+STR(UO.Count("0x153F"))+"")
#wait(200)
wait(4000)
lagsensor()
#timer=0
#repeat
#wait(100)
#timer=timer+1
#until uo.injournal("You put the") or uo.injournal("Tailoring failed") or timer > 600
UNTIL (Uo.Count("0x171b") > 30) or (Uo.Count(0x175d) <= 30) or (Uo.Count(0x153F) > 60)
endif



if (uo.count("0x0171b")>30) or (Uo.Count(0x153F)>60) then
repeat
times=0
OldWeight=UO.Weight
while UO.Weight == OldWeight and times < 6
OldWeight=UO.Weight
UO.Exec("sell tricorne vendor")
wait(2000)
lagsensor()
times=times+1
wend
UNTIL (Uo.Count(0x171b) < 3) and (Uo.Count(0x153F)<3) or times >= 6
endif
wend
end sub

sub guards()
repeat
wait(100)
    if UO.life < uo.str then
        uo.say("Guards")
        wait(500)
            if UO.life < 0 then
                uo.exec("terminate guards")
            endif
    endif
wait(100)
until false
wait(100)
end sub

sub lagsensor()
  UO.deletejournal()
  UO.Click(UO.GetSerial("backpack"))
  repeat
    wait(250)
  until UO.InJournal("backpack")
  return 1
end sub




sub recall()
var i,n

Dim A[5]
A[1] = 0x40001EFB ;Runa 1
A[2] = 0x4000A730 ;Runa 2
A[3] = 0x4001ACBE ;Runa 3
A[4] = 0x4000A3F1 ;Runa 4
A[5] = 0x4002E267 ;Runa 5
i = 7000

FOR n=1 TO 5
if (uo.count("0x0F7A")<10) or (uo.count("0x0F86")<10) or (uo.count("0x0F7B")<10) or (uo.count

("0x0eed")>15000) then
refill()
endif
repeat
uo.deletejournal()
UO.Cast("Recall",A[n])
lagsensor()
Wait(i)
until uo.injournal("The spell fizzles.")==0
if uo.injournal("rune is starting to fade") then
repeat
uo.deletejournal()
UO.Cast("Mark",A[n])
lagsensor()
Wait(i)
until uo.injournal("The spell fizzles.")==0
endif
hats()
NEXT

uo.exec("exec omstart")

end sub


sub omstart()
uo.exec("terminate recall")
uo.exec("terminate recall")
uo.exec("terminate recall")
uo.exec("terminate hats")
uo.exec("terminate hats")
uo.exec("terminate hats")
uo.exec("terminate guards")
uo.exec("terminate guards")
uo.exec("terminate guards")
wait(2000)
uo.exec("exec recall")
uo.exec("exec guards")
endsub

sub refill()

repeat
uo.deletejournal()
UO.Cast("Recall","0x40000F32")#husan
wait(6000)
Until UO.injournal("The spell fizzles.") ==0


if uo.injournal("rune is starting to fade") then
repeat
uo.deletejournal()
UO.Cast("Mark","0x40000F32")#husan
lagsensor()
Wait(8000)
until uo.injournal("The spell fizzles.")==0
endif


uo.setreceivingcontainer("0x400322ed")
uo.useobject("0x400322ed")
wait(2000)

if uo.count("0x0eed") > 15000 then
uo.setreceivingcontainer("0x400322ed")
UO.Exec("findtype 0x0eed in backpack;grab 13000 finditem")
endif


if uo.count("0x0F7A") < 20 then
uo.setreceivingcontainer("backpack")
uo.exec("findtype 0x0F7A in 0x400322ed;grab 20 finditem")
wait(1000)
endif


if uo.count("0x0F86") < 20 then
uo.setreceivingcontainer("backpack")
uo.exec("findtype 0x0F86 in 0x400322ed;grab 20 finditem")
wait(1000)
endif


if uo.count("0x0F7B") < 20 then
uo.setreceivingcontainer("backpack")
uo.exec("findtype 0x0F7B in 0x400322ed;grab 20 finditem")
wait(1000)
endif

endsub