From bc19dfeb20194b1369bf9698b9eb11587fa5cd28 Mon Sep 17 00:00:00 2001 From: Darren Bane Date: Sat, 2 May 2020 19:59:21 -0400 Subject: Code complete, but needs to be tested --- crpg.lisp | 172 ++++++++++++++++++++++++++++++++++++++++++-------------------- 1 file changed, 118 insertions(+), 54 deletions(-) (limited to 'crpg.lisp') diff --git a/crpg.lisp b/crpg.lisp index 10f40d3..6f37799 100755 --- a/crpg.lisp +++ b/crpg.lisp @@ -6,29 +6,34 @@ (:export #:main)) (in-package #:crpg) -(defclass () ((row :initarg r :accessor row) - (col :initarg c :accessor col))) -(defmethod print-object ((obj ) stream) +(defclass () ((row :initarg r :accessor row) + (col :initarg c :accessor col))) +(defmethod print-object ((obj ) stream) (format stream "~A ~A" (row obj) (col obj))) - -;; TODO: class, or maybe rename the other one to -(defvar *monster* (make-array '(10 10))) -(defvar *item* (make-array '(10 10))) - -(defvar *curr-loc* (make-instance (find-class ') 'r 5 'c 5)) +(defclass () ((monster :initarg m :accessor monster) + (item :initarg i :accessor item))) +(defmethod initialize-instance :after ((self ) &key) + (setf (monster self) nil) + (setf (item self) nil)) +(defvar *map* (make-array '(10 10))) +(defvar *curr-coord* (make-instance (find-class ') 'r 5 'c 5)) (defconstant +move-err+ "You cannot move in that direction!") (defconstant +press-key+ "Press Enter to continue.") -(defconstant +exit+ (make-instance (find-class ') +(defconstant +exit+ (make-instance (find-class ') 'r (+ (random 10) 1) 'c (+ (random 10) 1))) ;; (format *standard-output* "~A~%" +exit+) ;; (sleep 3) - -;; TODO: class? -(defvar *gold* 0) -(defvar *health* 20) -(defvar *weapon* 1) - +(defclass () ((gold :accessor gold) + (health :accessor health) + (weapon :accessor weapon))) +(defmethod initialize-instance :after ((self ) &key) + (setf (gold self) 0) + (setf (health self) 20) + (setf (weapon self) 1)) +(defmethod print-object ((obj ) stream) + (format stream "Gold: ~A Health: ~A Weapon: ~A~%" (gold obj) (health obj) (weapon obj))) +(defvar *the-player* (make-instance (find-class '))) (defclass () ((name :initarg n :reader name) (attack :initarg a :reader attack) (health :initarg h :accessor health))) @@ -50,19 +55,29 @@ (create-monster "dragon" 9 8))) (defclass () ((name :initarg n :reader name) (class :initarg c :reader class) - (val :initarg v :reader val))) + (value :initarg v :reader value))) +(defclass () ()) +(defclass () ()) +(defclass () ()) (defun create-item (n c v) - (make-instance (find-class ') 'n n 'c c 'v v)) + (make-instance (find-class c) 'n n 'v v)) (defconstant +items+ (vector - (create-item "apple" 'food 1) - (create-item "bread" 'food 2) - (create-item "chicken" 'food 3))) + (create-item "apple" ' 1) + (create-item "bread" ' 2) + (create-item "chicken" ' 3) + (create-item "dagger" ' 2) + (create-item "sword" ' 3) + (create-item "halberd" ' 4) + (create-item "smoke" ' 1) + (create-item "noose trap" ' 2) + (create-item "pit trap" ' 3))) (defgeneric copy (obj)) (defmethod copy ((obj )) (create-monster (name obj) (attack obj) (health obj))) (defvar *curr-monster*) (defvar *monster-gold*) +(defvar *curr-item*) (defun my-print (x) (format *standard-output* "~A~%" x)) (defun print-help () @@ -72,56 +87,65 @@ (my-print " e - east") (my-print " w - west") (my-print " a - attack") + (my-print " t - take item") (my-print " x - use exit") (write-char #\newline) - (my-print " q - quit")) -(defgeneric move (loc dir)) -(defmethod move ((loc ) dir) + (my-print " q - quit") + (cursor 14 40) + (format *standard-output* "+~A+~%" (make-string 10 :initial-element #\-)) + (cursor 15 40) + (format *standard-output* "|~A|~%" (make-string 10 :initial-element #\space)) + (cursor 16 40) + (format *standard-output* "+~A+~%" (make-string 10 :initial-element #\-)) + (cursor 17 44) + (my-print "ITEM")) +(defgeneric move (coord dir)) +(defmethod move ((coord ) dir) (case dir - ((n) (if (= (row loc) 1) + ((n) (if (= (row coord) 1) (my-print +move-err+) - (progn (setf (row loc) (- (row loc) 1)) + (progn (setf (row coord) (- (row coord) 1)) (my-print "You go north.")))) - ((s) (if (= (row loc) 10) + ((s) (if (= (row coord) 10) (my-print +move-err+) - (progn (setf (row loc) (+ (row loc) 1)) + (progn (setf (row coord) (+ (row coord) 1)) (my-print "You go south.")))) - ((w) (if (= (col loc) 1) + ((w) (if (= (col coord) 1) (my-print +move-err+) - (progn (setf (col loc) (- (col loc) 1)) + (progn (setf (col coord) (- (col coord) 1)) (my-print "You go west.")))) - ((e) (if (= (col loc) 10) + ((e) (if (= (col coord) 10) (my-print +move-err+) - (progn (setf (col loc) (+ (col loc) 1)) + (progn (setf (col coord) (+ (col coord) 1)) (my-print "You go east.")))) (t (error "bad dir")))) -(defgeneric loc= (l r)) -(defmethod loc= ((l ) (r )) +(defgeneric coord= (l r)) +(defmethod coord= ((l ) (r )) (and (= (row l) (row r)) (= (col l) (col r)))) (defun handle-cmd (cmd) (cond ((string= cmd "n") - (move *curr-loc* 'n)) + (move *curr-coord* 'n)) ((string= cmd "s") - (move *curr-loc* 's)) + (move *curr-coord* 's)) ((string= cmd "w") - (move *curr-loc* 'w)) + (move *curr-coord* 'w)) ((string= cmd "e") - (move *curr-loc* 'e)) + (move *curr-coord* 'e)) ((string= cmd "x") - (if (loc= *curr-loc* +exit+) - (if (< *gold* 100) + (if (coord= *curr-coord* +exit+) + (if (< (gold *the-player*) 100) (my-print "You dont have enough gold!") (my-print "You have escaped! Well done!")))) ((string= cmd "a") (if (null *curr-monster*) (my-print "There's nothing to attack!") - (progn (loop while (and (> (health *curr-monster*) 0) (> *health* 0)) + (progn (loop while (and (> (health *curr-monster*) 0) (> (health *the-player*) 0)) do (cursor 10 1) (clrtoeol) (cursor 11 1) (clrtoeol) (cursor 12 1) (clrtoeol) (cursor 10 1) - (let ((attack (+ *weapon* (random 9))) + (let ((attack (+ (weapon *the-player*) (random 9))) (monster-attack (attack *curr-monster*))) (cond ((= attack monster-attack) @@ -131,21 +155,45 @@ (setf (health *curr-monster*) (- (health *curr-monster*) 1))) ((< attack monster-attack) (my-print "You have been wounded!") - (setq *health* (- *health* 1)))) + (setf (health *the-player*) (- (health *the-player*) 1)))) (my-print +press-key+) (read-line))) (cursor 10 1) - (if (> *health* 0) + (if (> (health *the-player*) 0) (progn (my-print "You won the fight!") (format *standard-output* "You found ~A pieces of gold!~%" *monster-gold*) - (setq *gold* (+ *gold* *monster-gold*)) + (setf (gold *the-player*) (+ (gold *the-player*) *monster-gold*)) (setq *curr-monster* nil) - (setf (aref *monster* (row *curr-loc*) (col *curr-loc*)) nil) + (setf (monster (aref *map* (row *curr-coord*) (col *curr-coord*))) nil) (my-print +press-key+) (read-line)) (progn (format *standard-output* "The ~A killed you!~%" (name *curr-monster*)) (my-print "Game over!") (throw 'quit nil)))))) + ((string= cmd "t") + (if (null *curr-item*) + (progn (cursor 10 1) + (my-print "Nothing to take!") + (my-print +press-key+) + (read-line)) + (progn (case (class-of *curr-item*) + ((find-class ') + (cursor 10 1) + (format *standard-output* "You eat the ~A.~%" (name *curr-item*)) + (if (>= (health *the-player*) 20) + (my-print "You had no wounds, so the food is wasted.~%") + (progn (setf (health *the-player*) (+ (health *the-player*) (value *curr-item*))) + (format *standard-output* "You gain ~A health points ~%" (value *curr-item*))))) + ((find-class ') + (cursor 10 1) + (if (>= (weapon *the-player*) (value *curr-item*)) + (my-print "You have a similar or better weapon.") + (progn (format *standard-output* "You pick up a ~A!") + (setf (weapon *the-player*) (value *curr-item*)) + (format *standard-output* "Your weapon rating is now ~A.~%" (weapon *the-player)))))) + (my-print +press-key+) + (read-line) + (setf (item (aref *map* (row *curr-coord*) (col *curr-coord))) nil)))) ((string= cmd "q") (my-print "Bye!") (throw 'quit nil)))) @@ -159,22 +207,38 @@ (defun main-loop () (loop (cursor 1 1) - (format *standard-output* "Your position: ~A~%" *curr-loc*) + (format *standard-output* "Your position: ~A~%" *curr-coord*) (cursor 1 25) - (format *standard-output* "Gold: ~A Health: ~A~%" *gold* *health*) + (format *standard-output* "~A~%" *the-player*) (cursor 2 1) - (if (loc= *curr-loc* +exit+) + (if (coord= *curr-coord* +exit+) (my-print "You are at the exit!") (clrtoeol)) (cursor 3 1) (clrtoeol) - (let ((monster-type (aref *monster* (row *curr-loc*) (col *curr-loc*)))) + (let ((monster-type (monster (aref *map* (row *curr-coord*) (col *curr-coord*))))) (if (null monster-type) (progn (setq *curr-monster* nil) (setq *monster-gold* 0)) (progn (setq *curr-monster* (copy (elt +monsters+ monster-type))) (format *standard-output* "Monster: ~A~%" *curr-monster*) (setq *monster-gold* (* monster-type (random 6)))))) + (let ((item-type (item (aref *map* (row *curr-coord*) (col *curr-coord*))))) + (if (null item-type) + (progn (cursor 15 41) + (my-print "nothing")) + (progn (setq *curr-item* (elt +items+ item-type)) + (cursor 15 41) + (my-print (name *curr-item*)) + (if (eq (class-of *curr-item*) (find-class ')) + (progn (cursor 10 1) + (format *standard-output* "The ~A damages you for ~A points!~%" (name *curr-item*) (value *curr-item*)) + (setf (health *the-player*) (- (health *the-player*) (value *curr-item*))) + (setf (item (aref *map* (row *curr-coord*) (col *curr-coord*))) nil) + (if (<= (health *the-player*) 0) + (progn (my-print "You die!") + (my-print "Game over!") + (throw 'quit nil)))))))) (handle-cmd (get-next-cmd)))) (defun init () (page) @@ -183,12 +247,12 @@ ((>= row 10)) (do ((col 1 (+ col 1))) ((>= col 10)) + (setf (aref *map* row col) (make-instance (find-class '))) (let ((rnd (random 11))) (if (/= rnd 0) - (setf (aref *monster* row col) (- rnd 1)))))) - - (do ((row 1 (+ row 1))) - )) + (setf (monster (aref *map* row col)) (- rnd 1)))) + (if (< (random 1.0) 0.2) + (setf (item (aref *map* row col)) (random 9)))))) (defun main () (init) (print-help) -- cgit 1.4.1-2-gfad0