@verb #5450:"@setg*ender @genders*et gender" this any any rd #7407
@program #5450:"@setg*ender @genders*et gender" this any any
if (!$perm_utils:controls(player, this))
  return player:tell("You don't own ", this:title(), "!")
endif
if (!(iobjstr in $gender_utils.genders))
  iobjstr = "splat"
endif
this.gender = iobjstr
player:tell(this:title(), " is now a ", iobjstr, ".")
"Last modified by Dax (#789) on Mon May 10 08:45:48 1999 MDT."
.