Yoko

sub Chopper()
   VAR CorpseType='0x0000' ; change this to real type
   VAR CutterType='0x0000' ; and this
   VAR Distance=3      ; valid distance to cut corpse

Start:
   UO.FindType(CorpseType,-1,'ground')
   If UO.FindCount() Then
      If UO.GetDistance('finditem')<=Distance Then
         UO.WaitTargetObject('finditem')
         UO.UseType(CutterType)
         wait(1000)
      Else
         Ignore('finditem)
         Goto Start
      End if
   End if
   IgnoreReset()
end sub

sub REZ()
   var body = '0x2006'
   var dagger = '0x0F51'
   var corpse
   UO.Set('quiet','1')
   ;uo.ignorereset()
   uo.set('finddistance', '3')
   uo.findtype(body, -1, 'ground')
   if uo.findcount() and Uo.GetDistance( 'finditem' ) < 3  then

var x = uo.GetGraphic(uo.ObjAtLayer('Lhand'))
var y = uo.GetGraphic(uo.ObjAtLayer('Rhand'))

uo.warmode(0)
wait(500)
corpse = uo.getSerial("finditem")
UO.WaitTargetObject(corpse)
UO.UseType(dagger)
wait(1000)
    uo.Equipt('Lhand',x)
    uo.Equipt('Rhand',y) 
;   Loot()
uo.warmode(1)
endif