511
@verb #8438:"_confunc _disfunc" this none this rxdo #8438
@program #8438:"_confunc _disfunc" this none this
if (caller in {$login, this, #0})
  fork (verb == "_confunc" ? 2 | 1)
    if (verb == "_confunc")
      "To Pueblo or not to Pueblo. . ."
      HTML = this.pueblo_version
      this.output_rendering_object = HTML ? $pueblo_renderer | #283
      this.output_linelength = HTML ? 90 | 72
      this.visual_options = HTML ? {"Pueblo"} | {"ANSI"}
      this.edit_options = HTML ? {"quiet_insert", "shouts"} | {"quiet_insert", "shouts"}
      pals = $set_utils:intersection(connected_players(), this.pals)
      if (pals)
        player:tell("Pals connected: ", $string_utils:name_and_number_list(pals), ".")
      else
        player:tell("None of your pals are connected.")
      endif
      this:answering_machine()
      force_input(this, "portfolio")
      player:tell()
    else
      this.home.lock = 1
      this.home.invites = {}
      if (this.busy || #-1 in this.gaglist || this.msg_mood == "busy")
        this.busy = 0
        this.gaglist = setremove(this.gaglist, #-1)
      endif
      this.msg_mood = ""
      this.last_paged = #-1
    endif
  endfork
endif
return pass(@args)
"Last modified by Jay (#8438) on Thu Dec 20 22:55:20 2001 MST."
.

0