get $target,$ret,$second in $loc;
if $second > 0 then useweapon else bopalone;

##bopalone:
get $target in $loc;
if $target > 0 then findwield;

##findwield: rem - find an object wielded by the $init_obj;
$second is wielded by $init_obj;

if $second eq 0 then noweapon else useweapon;

##useweapon:
say 'hit',"[$init_obj] hit [$target] with [$second]";

##noweapon:
say 'hit',"[$init_obj] hit [$target]";