Chinese-chess-pvc is a project mainly written in Emacs Lisp, it's free.

A chinese chess computer player