Switch to edit mode.
Name(s): match_verb1: "$match_utils:match_verb(verbname, object) => Looks for a command-line style verb named <verbname> on <object> with current values of prepstr, dobjstr, dobj, iobjstr, and iobj. If a match is made, the verb is called and 1 is returned. Otherwise, 0 is returned."
2: vrb = args[1]
3: what = args[2]
4: if (where = $object_utils:has_verb(what, vrb))
5: if ((vargs = verb_args(where[1], vrb)) != {"this", "none", "this"})
6: if (vargs[2] == "any" || (!prepstr && vargs[2] == "none") || index("/" + vargs[2] + "/", "/" + prepstr + "/") && (vargs[1] == "any" || (!dobjstr && vargs[1] == "none") || (dobj == what && vargs[1] == "this")) && (vargs[3] == "any" || (!iobjstr && vargs[3] == "none") || (iobj == what && vargs[3] == "this")) && index(verb_info(where[1], vrb)[2], "x") && verb_code(where[1], vrb))
7: set_task_perms(caller_perms())
8: what:(vrb)(@args[3])
9: return 1
10: endif
11: endif
12: endif