diff options
Diffstat (limited to 'src/transactions.lisp')
-rw-r--r-- | src/transactions.lisp | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/src/transactions.lisp b/src/transactions.lisp index 3372520..94ca83a 100644 --- a/src/transactions.lisp +++ b/src/transactions.lisp @@ -2,35 +2,6 @@ (in-package :dnd) -(defun birth-from-the-goddess-loins (player name) - (db:with-transaction () - (make-instance 'hero :name name :player player))) -(defun new-sesh (player) - (db:with-transaction () (make-instance 'session :player player))) -(defun destroy-sesh (session) - (db:with-transaction () - (db:delete-object session))) -(defun register-player (nick) - (db:with-transaction () - (make-instance 'player :nickname nick))) - -(defun create-adventure (player title &key (description "") seers) - (db:with-transaction () - (make-instance 'adventure :title title :creator player - :seers seers - :description description))) - -(defun report-a-rumor (reporter adventure reported) - (db:with-transaction () - (let ((rumor - (make-instance 'rumor - :reported reported - :reporter reporter))) - (push rumor (rumors adventure))))) - -(defun add-adventure-seer (player adventure) - (db:with-transaction () - (push player (seers adventure)))) |