@verb #6017:"@rmfile-all" any none none rdo #6017
@program #6017:"@rmfile-all" any none none
a = player:my_match_object(args[1])
if (!(a == $failed_match))
  if (player == a.owner)
    for x in (a:filelist())
      a:filedelete(x)
    endfor
    player:tell("Done.")
  else
    player:tell("That isn't yours!")
  endif
else
  player:tell("Couldn't find it!")
endif
.