Code:
sub f22()
;Var Vic=0x001F
;Var Vic=0x0003
Var Vics=0x03CA
Var Vic
;Var cleaver = uo.GetGraphic(uo.ObjAtLayer('Rhand'))
myX=UO.GetX()
myY=UO.GetY()
lastX=myX
lastY=myY
uo.set( "finddistance" , "8" )
repeat
uo.FindType(Vics,-1, "ground" )
if uo.FindCount() then
Vic=UO.GetSerial('finditem')
if uo.isNPC(Vic)==0 then
repeat
if uo.getdistance(Vic)>1 then
WalkN (0,0,Vic)
end if
uo.attack(Vic)
wait(500)
if uo.GetGraphic(uo.ObjAtLayer('Rhand')) == '0x0EC2' then
if uo.skillval('Swordsmanship',1) == 1000 then
wait(100)
uo.usetype(0x13E3)
endif
endif
if uo.GetGraphic(uo.ObjAtLayer('Rhand')) == '0x13E3' then
if uo.skillval('Mace Fighting',1) == 1000 then
wait(100)
uo.usetype(0x0EC4)
endif
endif
if uo.GetGraphic(uo.ObjAtLayer('Rhand')) == '0x0EC4' then
if uo.skillval('Fencing',1) == 1000 then
wait(100)
uo.disarm()
endif
endif
if uo.skillval('Wrestling',1) == 1000 then
wait(100)
uo.closeuo()
endif
until uo.GetX(Vic)<1
wait(200)
l1()
wait(500)
uo.forget(Vic)
; else
; uo.ignore(Vic)
endif
endif
;if uo.gety()>1375 then
GotoXY(5306,1288)
wait(100)
; endif
if uo.gethp()<160 then
repeat
hp()
wait(3000)
until uo.gethp()==180
endif
wait(300)
until uo.gethp()<100
uo.closeuo()
end sub