From 187fce76197031dba1112bd6023b41166f039f3e Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 6 Mar 2023 19:44:53 -0800 Subject: Add: adventure creation --- src/transactions.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/transactions.lisp') diff --git a/src/transactions.lisp b/src/transactions.lisp index 647452b..dff037d 100644 --- a/src/transactions.lisp +++ b/src/transactions.lisp @@ -17,6 +17,8 @@ (db:with-transaction () (make-instance 'player :nickname nick))) -(defun create-adventure (player title) +(defun create-adventure (player title &key (description "") seers) (db:with-transaction () - (make-instance 'adventure :title title :creator player))) + (make-instance 'adventure :title title :creator player + :seers seers + :description description))) -- cgit v1.2.3