4e8
@verb #12:"@lockout" none none none rdo #55
@program #12:"@lockout" none none none
"Copied from Fantasy FO (#2450):@lockout by Raistlin_Majere (#9780) Oct 19 20:48:03 1997"
"this verb was originaly taken from Leo #8383 but majorly improved by Raistlin_Majere #9780"
"syntax: '@lockout'."
if (player != this)
  return
endif
for nah in (this.spied)
  nah:tell("[" + tostr(this) + "]: Terminal locked.")
endfor
Avoided = this.spied
player.spied = {}
this:tell("Terminal locked.  Waiting for password.")
set_connection_option(this, "client-echo", 0)
for x in [1..2]
  set_connection_option(this, "binary", 1)
  notify(this, "PASSWORD > ")
  set_connection_option(this, "binary", 0)
  pwd = read(this)
  this:tell()
  if ($perm_utils:authorise_user(this, pwd))
    set_connection_option(this, "client-echo", 1)
    this.spied = Avoided
    this:tell("Welcome back.")
    return
  endif
endfor
this.spied = Avoided
this:tell("Bzzt.  You lose.")
suspend(1)
boot_player(this)
"Last modified by Lao-Tzu (#8084) on Tue Dec 11 15:42:05 2001 MST."
"This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:43 2002 MDT."
.

0