Play chess, login on a FICS server

Question

I wish to play chess with chess.el on a FICS server using M-x chess-ics but using that logs me as a guest player. How can I login with my registered user/password?

EDIT

I've come with a way to login. At the beginning of chess-ics.el comes a list of servers, I can edit it and add my username (or handle) in front of "freechess.org" 5000 as a new arg for connection. Then M-x chess-isc will ask me my password and that's it. (I have to use set seek 1 when already logged in to get the extra seek buffer, and set availinfo 0 to stop the annoying noise on the freechess buffer).

Anyway, now my issue is this, I don't like editing the chess-ics.el file to tell that I want to log in as my username. How can I tell M-x chess-ics that I want to use my username for connection? I've tried C-u M-x chess-ics but it seems the chess-ics.el script doesn't support that.

I am guessing I need to make some custom command or something (sorry for the newbie language here) so that I can call not the default (chess-ics) but the (chess-ics my-username) which in turns calls what I want. Am I right? So I need to defun something and overwrite the default M-x chess-ics to call my new function. Is that it? What would be the correct syntax to do this. I'm really pretty new on hacking emacs lisp :(

Answer 1

From a quick scan of chess-ics.el (I've not used it myself so haven't verified this) it looks as though you ought to be able to configure chess-ics-server-list to include a handle and password on a per server basis, or you should be able to set chess-ics-handle and chess-ics-password from your init file.

Answer 2

Well, got it, I made this and setted it up on my init scripts:

;; Chess ICS
(defun playchess ()
  (interactive)
  (setq username (read-string "Username: "))
  (if (string= username "guest")
      (chess-ics "freechess.org" 5000 username)
    (setq pass (read-passwd "Password: "))
    (chess-ics "freechess.org" 5000 username pass)
    )
  )
(provide 'playchess)