From cc3f850c514967ae2f9effef7e68e1d4965c6865 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 1 Apr 2023 09:48:08 -0700 Subject: Refactor to make cooperative hacking nicer --- src/transactions.lisp | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'src/transactions.lisp') 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)))) -- cgit v1.2.3