oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Extract error generation from player-exists? to ensure it's an indicator

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-22 23:04:52 +00:00
parent ee2234e9bb
commit 0a2a97ca77
1 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/player.lisp
View File

@@ -40,30 +40,32 @@
(id err) (balance err) (required err)))))
(fn player-exists? (id table) (-> (symbol hash-table) boolean)
(if (or (null (gethash id table))
(not (player-p (gethash id table))))
(error 'error-player-nonexistent :id id)
t))
(and (gethash id table)
(player-p (gethash id table))))
(defun error-if-no-player (id table)
(unless (player-exists? id table)
(error 'error-player-nonexistent :id id)))
(fn player-can-pay? (id table amount) (-> (symbol hash-table fixnum) boolean)
(player-exists? id table)
(error-if-no-player id table)
(->> (gethash id table) player-balance (<= amount)))
(fn player-bankrupt? (id table) (-> (symbol hash-table) boolean)
(player-exists? id table)
(error-if-no-player id table)
(->> (gethash id table) player-balance (>= 0)))
(fn player-debit (id table amount) (-> (symbol hash-table fixnum) fixnum)
(player-exists? id table)
(if (not (player-can-pay? id table amount))
(error 'error-player-broke
:id id :balance (player-balance (gethash id table)) :required amount))
(error-if-no-player id table)
(unless (player-can-pay? id table amount)
(error 'error-player-broke
:id id :balance (player-balance (gethash id table)) :required amount))
(decf (player-balance (gethash id table)) amount))
(fn player-credit (id table amount) (-> (symbol hash-table fixnum) fixnum)
(player-exists? id table)
(error-if-no-player id table)
(incf (player-balance (gethash id table)) amount))
(fn player-set-cards (id table cards) (-> (symbol hash-table cardset) t)
(player-exists? id table)
(error-if-no-player id table)
(setf (player-hand (gethash id table)) cards))