corwin/card-game.el
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Adjustable AI difficulty, and fix red-on-red alternating-colour builds

Browse source 
* cg-core.el (cg-ai-level): new difficulty defcustom.  (cg-red-suit-p):
return a normalised boolean so two red suits compare equal by colour --
diamond and heart were wrongly treated as opposite colours, letting a red
card build on another red card in the alternating-colour games.
* cg-crapette.el (cg-crap--ai-greedy-move, cg-crap--ai-play): honour easy
/ normal / hard.
* cg-trick.el (cg-trick--run): easy plays a random legal card.
* card-games.el (card-game): clickable AI-level control.
(card-game--cycle-ai, card-games-set-ai-level): change it.
* test/card-games-tests.el: cgt-red-suit-boolean, cgt-ai-level-easy-crapette;
bind cg-ai-level in cgt-crap-ai-enabling.
* NEWS.
This commit is contained in:
Corwin Brust 2026-07-01 11:40:55 -05:00
parent 9af486526d
commit e816cc0551
6 changed files with 108 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

17
cg-core.el
View file

@ -73,6 +73,17 @@ and SPC as an action key. Takes effect the next time a game starts."
(const :tag "Classic (adds hjkl, SPC)" classic))
:group 'card-games)
(defcustom cg-ai-level 'normal
"Difficulty of the computer opponents, where a game supports it.
`easy' plays a quick, simple game, `normal' plays soundly, and `hard'
thinks a little harder. Honoured by Russian Bank (Crapette) and the
trick-taking games so far; other games ignore it for now. Change it from
the `card-game' menu or with `card-games-set-ai-level'."
:type '(choice (const :tag "Easy" easy)
(const :tag "Normal" normal)
(const :tag "Hard" hard))
:group 'card-games)
(defclass cg-game ()
((name :initarg :name :initform "game" :type string
:documentation "Human-readable game name.")
@ -196,8 +207,10 @@ The glyphs are taken from `cg-symbols'."
"?"))
(defsubst cg-red-suit-p (suit)
"Return non-nil when SUIT index denotes a red suit."
(memq suit '(2 3)))
"Return t when SUIT index denotes a red suit, else nil.
Normalised to a boolean so callers may compare two results with `eq'
\(diamonds and hearts are both red but `memq' returns different tails)."
(and (memq suit '(2 3)) t))
(defsubst cg-sister-suit (suit)
"Return the other suit index of the same colour as SUIT."