@verb #7113:"vlock" none none none ro #7113
@program #7113:"vlock" none none none
"Copied from Comkid (#2158):vlock Sep 25 17:07:26 1999"
if (player != this)
  return
endif
player:tell("*** VLOCK ***")
player:tell("This MOO terminal is currently locked. Please enter user's password to continue.")
while (1)
  set_connection_option(this, "client-echo", 0)
  player:tell("Password: ")
  password = read(player)
  set_connection_option(this, "client-echo", 1)
  validpass = crypt(password, "aa") == player.crypt
  if (validpass)
    player:tell("Correct Password.")
    player:tell("*** Re Login ***")
    kill_task(task_id())
  endif
endwhile
"Last modified by Drag (#7113) on Sat Sep 25 17:11:34 1999 MDT."
.