1
parse
(method (instring)
	(echo instring))
/
tell
(method (instring)
	(ignore E_NOT_CONNECTED
	    (or (echo instring) "")))
/
tell-line
(method (instring)
    (tell (+ instring "\n")))
/
quit
;; the quit method must also be on EVERY connectable object
(method () (begin (#0:remove-connection)
		  (echo "*** DISCONNECTING ***\n")
		  (location:announce
	             (+ (tostr this) " has disconnected\n"))
		  (disconnect)))
/
get-address
(method ()
  (if (read-ok? caller)
    (address)
    ""))
/
accept-connect
;; default is no reconnection.
(method (from-obj password-string) 0)
/
welcome
;; right now, the DB is set up so this will get called on any object
;; after it has been reconnected to.
(method () (echo (+ "Connecting to " (tostr this) "\n")))
/
/
/+++++++++ end of object #8 ... no lines after this ++++++++++