(setq lpmud-option-table
      '((("nanny" "130.236.254.13")
	 (("bellman")
	  (lpmud-drink "firebreather")
	  (lpmud-spell "fireball"))
	 (("tbellman")
	  (lpmud-drink "beer")
	  (lpmud-spell "shock")))
	(("milou" "cdmud")
	 (("tbellman")
	  (lpmud-drink "beer")
	  (lpmud-spell "shock")))))

(setq lpmud-global-auto-actions
      '(("\\(\\w*\\) enters the game."	(function bow-player))
	("\\(\\w\\)+ bows before you."	"smile "
	 (buffer-substring (match-beginning 1)
			   (match-end 1)))
	;; ("\\w* frowns."	"say Is something wrong?")
	("Zellski arrives" "puke zellski")
	("salesman shouts"	"kick salesman")))

(defun bow-player (start stop found)
  (message "%s" (buffer-substring start stop))
  (save-excursion
    (goto-char found)
    (forward-word -1)
    (lpmud-send-string (concat "bow "
			       (buffer-substring (point) (1- found))))))
