Newer
Older
naledi / items.lisp
;;;;
;;;; Terra Nostra is a Minecraft-like survival game for the commandline.
;;;;
;;;; This file defines in-game items.
;;;; 
;;;; (c) 2018 Daniel Vedder, MIT license
;;;;

(defstruct item
	(name "")
	(description "")
	(weight 0)
	(movable T)
	(destroy-with '())
	(drops '())
	(craft-with '()))

(let ((item-list NIL))
	(defun register-item (symbol-name item-object)
		(setf item-list
			(cons (list symbol-name item-object) item-list)))

	(defun get-item-type (symbol-name)
		(cassoc symbol-name item-list))

	(defun get-item (symbol-name)
		(copy-item (get-item-type symbol-name))))

(defmacro new-item (name &body body)
	`(register-item ,name
		 (make-item ,@body)))


;;; RESOURCE ITEMS

(new-item 'wood
	:name "wood" :weight 1
	:description "A block of wood, just right for working with")

(new-item 'stone
	:name "stone" :weight 2
	:description "A fist-sized stone. What are you going to do with it?")

(new-item 'iron
	:name "iron" :weight 3
	:description "An iron ingot, ready for further crafting.")

;;; NATURE ITEMS

(new-item 'oak
	:name "oak"
	:description "An old, majestic oak, gnarled with age."
	:destroy-with '(stone-axe iron-axe)
	:drops '(wood) :movable NIL :weight 2000)

(new-item 'rock
	:name "rock"
	:description "A huge lump of grey basalt, sticking out of the ground."
	:destroy-with '(stone-pickaxe iron-pickaxe)
	:drops '(stone) :movable NIL :weight 5000)

;;; TOOL ITEMS

;;TODO Faustkeil?

(new-item 'stone-axe
	:name "stone axe"
	:description "An axe, crudely but effectively fashioned out of stone."
	:weight 2 :craft-with '(stone wood))

(new-item 'iron-axe
	:name "iron axe"
	:description "A finely honed iron axe, just right for chopping wood."
	:weight 3 :craft-with '(iron wood))

(new-item 'stone-pickaxe
	:name "stone pickaxe"
	:description "A pickaxe, somewhat helplessly made from stone."
	:weight 3 :craft-with '(stone wood))

(new-item 'iron-pickaxe
	:name "iron pickaxe"
	:description "A solid iron pickaxe. Prepare to split rock!"
	:weight 4 :craft-with '(iron wood))