Switch to edit mode.
Name(s): @gen*der1: set_task_perms(player)
2: if ($command_utils:object_match_failed(dobj, dobjstr))
3: "Doh"
4: elseif ((result = dobj:set_gender(iobjstr)) || result == E_NONE)
5: player:tell("Gender set.")
6: else
7: player:tell(result)
8: endif