View/Edit #2168!writeable_wiz_verbs wwv

writeable_wiz_verbs wwv
this
none
this
#2168
rxdo
"Copied from SoulWind (#7122):writeable_wiz_verbs Sep 28 16:45:35 1999";
"Copied from BSDdaemon (#8271):writeable_wiz_verbs Sep 26 08:16:43 1999";
"Search the data base for verbs owned by wizards and are writeable";
"First loop through all the objects...";
for o in [#1..max_object()]
  player.object_number = o;
  "Loop though the verbs on this object...";
  try
    for v in [1..length(verbs(o))]
      player.verb_number = v;
      try
        {own, perms, names} = verb_info(o, v);
        if (own.wizard == 1)
          if (index(perms, "w"))
            player.writeable_wiz_verbs = {@player.writeable_wiz_verbs, {o, v}};
          endif
        endif
      except (E_PERM)
      endtry
    endfor
  except (E_PERM)
  endtry
endfor