Fork: 0
daniel / atlantis
Browse code
Implemented archive command, fixed a bug in 'talk'.
lisp master
1 parent f1c01b0 commit f3da3b8b02caa297dd35a731232eaee2af16e404
@Daniel Vedder Daniel Vedder authored on 21 Oct 2017
Patch
Unified Split
Showing 4 changed files
View
7
■■■■■
 doc/PLAYING
prompt" (>>>), which is the indication that the computer expects some input from
you. In a menu like this, you can choose an option by typing the relevant number
and pressing ENTER. (Commands to the computer must always be terminated by
pressing ENTER.)
 
## TODO Include autosave!
The first option, "Start a new game", will first ask you for your name. (This is
needed to save the game.) It then drops you into a submenu in which you can
choose which game world you want to play. As of Atlantis 0.3, only the "Winnie
may offer additional commands that are available when you are in that place
or in possession of the item. If any place/item provides commands, it is so
indicated in the game.
 
help - This will give a list of game commands with a concise description for
quick reference.
 
look - This is the most versatile command in the game. With it, you can inspect
any item, NPC or monster (e.g. look cook). You can also bring up
information about yourself with "look me" or about your current location
with "look here".
description.
 
 
Daniel Vedder
Last modified 20/10/2017
Last modified 21/10/2017
View
8
■■■■■
 doc/TODO
ATLANTIS TODO
 
LISP
* update Helios guide (include bug reporting with 'archive')
* split ui.lisp into two modules (one for interaction functions)
ATL
ATL
* fix commands that break after reloading game
* introduce honour roll
* fill in missing place descriptions
* hide 2 more pots of honey
* think of more quests
* integrate the quests to lead the player through the game
2. Bring jacket
3. Bring mushrooms
4. Reading material
5. Bring honey
View
8
■■■■■
 lisp/atlantis.lisp
(setf options '("Start a new game" "Load a saved game"
"Advanced" "Help" "About" "Exit"))
(case (choose-number-option options)
(0 ;; ask the player for his/her name
(format t "~&What is your name? ")
(setf player-name (read-line))
(setf player-name "")
(while (zerop (length player-name))
(format t "~&What is your name? ")
(setf player-name (read-line)))
(if (and (member player-name
(mapcar #'pathname-name (directory "../saves/*"))
:test #'equalp)
(not (yes-or-no-p "A game by this player already exists. Replace it?")))
View
11
■■■■■
 lisp/ui.lisp
;; A list of all in-game commands. Each new command must be registered here.
(defvar *commands*
'(help look goto take inventory
drop talk equip attack
seek clear manual))
seek clear manual archive))
 
;;; Command functions have to take two arguments (a player instance and
;;; an optional(!) argument to the function).
 
(defun clear (player &optional arg)
"Clear the screen (wrapper function)"
(clear-screen)
(describe-place (player-place player)))
 
(defun archive (player &optional arg)
"Save a snapshot of the current game state (especially for debugging)"
(let ((archive-name (concatenate 'string "../"
(world-player-name *world*) "_archive.world")))
(save-world archive-name)
(format t "~&Archived game to ~A." archive-name)))
 
(defun inventory (player &optional arg)
"A wrapper for 'look me'"
(look player "me"))
(format t "~&Please specify an NPC to talk to!")
(return-from talk))
;; Allow for a bit of syntactic sugar
(let ((split-name (cut-string npc-name 3)))
(when (and (< 1 (length split-name)) (equalp (first split-name) "to "))
(when (and (listp split-name) (equalp (first split-name) "to "))
(setf npc-name (second split-name))))
(let* ((place (get-game-object 'place (player-place player)))
(npc-name (fuzzy-match npc-name (place-npc place)))
(npc (when (member npc-name (place-npc place) :test #'equalp)