12
name
"admin"
/
owners
'(#13)
/
location
#17
/
home
#17
/
password
""
/
is-password-set?
(method ()
  (and password 1))
/
description
"This is the generic administrator.  its default password is 'trauma'"
/
destroy
(method ()
	(if (write-ok? caller)
           (begin   
              (#0:remove-admin this)
	      (pass))
	  (raise E_PERM "cannot destroy this object")))
/
shutdown-method
(method (unused)
    (if (= player this)
	(#0:force-shutdown)))
/
wiz-player
(method (inline)
   (if (= player this)
      (if (not
            (foreach (pl (#0:list-players))
               (if (pl:name-match (index 3 inline))
                  (begin (#0:add-admin pl)
                      (return (player:tell "Administrator added.\n"))))))
         (player:tell "Cannot find that player...\n"))))
/
/
'("@wiz" (or "ard" "") SOME)
wiz-player
'("shutdown")
shutdown-method
/+++++++++ end of object #13 ... no lines after this ++++++++++