data.lisp

;;; data.lisp
;; Copyright (c) 2014 Kalman Kiss, Zalaegerszeg Hungary
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;;
;; Author and contact:
;; Kalman Kiss <kiskami@freemail.hu>
;; 8900 Zalaegerszeg, Hungary
;; Kakukkfu u. 4.

(in-package #:firstrl)

(defconstant +INTRO-TEXT+ "INTRO * Heheheheeee... You came into my humble home, bold adventurer? You search for treasure? You hope to get out alive? No no no no... My minions are waiting for you. You'll die surely. Come, come! Find me, and I'll give you a present... A present of never ending pain and suffer. Heheheheeee... [Press SPACE to continue]")

(defstruct basicdata
  char typeid
  name
  font
  desc)

(defstruct (monsterdata (:include basicdata))
  att def 
  spe					; speed of attack
  hp
  xp
  rel					; relation to player
  )

(defconstant +MONSTERSDATA+ 
  '((:char "r" :typeid "rr" :name "rat" :font sans :desc ""
     :att 0 :def 0 :spe 0 :hp 1 :xp 1 :rel neutral)
    (:char "r" :typeid "rm" :name "mole" :font sans :desc ""
     :att 1 :def 0 :spe 1 :hp 2 :xp 2 :rel neutral)
    (:char "s" :typeid "sp" :name "spider" :font sans :desc ""
     :att 1 :def 1 :spe 1 :hp 4 :xp 3 :rel angry)
    (:char "s" :typeid "sc" :name "centipede" :font sans :desc ""
     :att 1 :def 1 :spe 1 :hp 3 :xp 2 :rel neutral) 
    (:char "s" :typeid "ss" :name "scorpion" :font sans :desc ""
     :att 1 :def 1 :spe 1 :hp 2 :xp 3 :rel angry)
    (:char "w" :typeid "w" :name "worm" :font sans :desc ""
     :att 1 :def 0 :spe 1 :hp 1 :xp 2 :rel neutral)
    (:char "B" :typeid "B" :name "bat" :font sans :desc ""
     :att 1 :def 2 :spe 1 :hp 1 :xp 4 :rel neutral)
    (:char "k" :typeid "k" :name "kobold" :font sans :desc ""
     :att 1 :def 1 :spe 1 :hp 8 :xp 8 :rel attack)
    (:char "o" :typeid "o" :name "orc" :font sans :desc ""
     :att 2 :def 1 :spe 1 :hp 12 :xp 10 :rel attack)
    (:char "h" :typeid "h" :name "humanoid" :font sans :desc ""
     :att 2 :def 2 :spe 1 :hp 12 :xp 12 :rel attack)
    (:char "G" :typeid "G" :name "gnome" :font sans :desc ""
     :att 1 :def 3 :spe 2 :hp 12 :xp 14 :rel attack)
    (:char "M" :typeid "M" :name "mummy" :font sans :desc ""
     :att 2 :def 0 :spe 1 :hp 14 :xp 18 :rel attack)
    (:char "O" :typeid "O" :name "ogre" :font sans :desc ""
     :att 3 :def 2 :spe 1 :hp 18 :xp 20 :rel attack)
    (:char "T" :typeid "T" :name "troll" :font sans :desc ""
     :att 2 :def 3 :spe 1 :hp 22 :xp 25 :rel angry)
    (:char "S" :typeid "S" :name "snake" :font sans :desc ""
     :att 4 :def 1 :spe 2 :hp 15 :xp 30 :rel angry)
    (:char "Z" :typeid "Z" :name "zombie" :font sans :desc ""
     :att 4 :def 1 :spe 1 :hp 10 :xp 40 :rel attack)
    (:char "@" :typeid "@*" :name "human" :font sans :desc ""
     :att 5 :def 4 :spe 2 :hp 20 :xp 50 :rel attack)
    (:char "&" :typeid "&" :name "daemon" :font sans-bold :desc ""
     :att 5 :def 5 :spe 2 :hp 35 :xp 70 :rel attack)))

(defconstant +ALIGNMENTSDATA+ '((:id lawful :desc "") 
				 (:id neutral :desc "") 
				 (:id chaotic :desc "")))

(defconstant +LEVELUPDATA+ '((:minxp 0 :att 1 :def 1 :spe 1 :hp 10)
			     (:minxp 26 :att 0 :def 0 :spe 0 :hp 10)
			     (:minxp 60 :att 1 :def 1 :spe 0 :hp 15)
			     (:minxp 112 :att 0 :def 1 :spe 1 :hp 20)
			     (:minxp 252 :att 2 :def 2 :spe 1 :hp 25)
			     ))

(defstruct (itemdata (:include basicdata)))

(defconstant +ITEMSDATA+ 
  '((:char "\"" :typeid "\"" :name "amulet" :font sans :desc "") 
    (:char ")" :typeid ")" :name "weapon" :font sans :desc "")
    (:char "[" :typeid "[" :name "armor" :font sans :desc "")
    (:char "!" :typeid "!" :name "potion" :font sans :desc "")
    (:char "?" :typeid "?" :name "scroll" :font sans :desc "")
    (:char "/" :typeid "/" :name "wand" :font sans :desc "")
    (:char "=" :typeid "=" :name "ring" :font sans :desc "")
    (:char "*" :typeid "*" :name "gem" :font sans :desc "")
    (:char "(" :typeid "(" :name "statue" :font sans :desc "")
    (:char "$" :typeid "$" :name "coins" :font sans :desc "")
    (:char "%" :typeid "%" :name "comestible" :font sans :desc "")
    (:char "%" :typeid "%c" :name "corpse" :font sans :desc "")
    (:char "%" :typeid "%sc" :name "sick corpse" :font sans :desc "")
    ))

(defstruct (dungeonfeaturedata (:include basicdata)))

(defconstant +DUNGEONFEATURESDATA+ 
  '((:char ">" :typeid ">" :name "ladder up" :font sans :desc "") 
    (:char "<" :typeid "<" :name "ladder down" :font sans :desc "")
    (:char "_" :typeid "_" :name "altar" :font sans :desc "")
    (:char "{" :typeid "{" :name "fountain" :font sans :desc "")
    (:char "^" :typeid "^" :name "trap" :font sans :desc "")
    (:char "+" :typeid "+" :name "closed door" :font sans :desc "")
    (:char "-" :typeid "-" :name "open door" :font sans :desc "")
    (:char "|" :typeid "|" :name "open door" :font sans :desc "")
    (:char "." :typeid "." :name "floor" :font sans :desc "")
    (:char "#" :typeid "#" :name "wall" :font sans :desc "")
    (:char "\\" :typeid "\\" :name "throne" :font sans :desc "")))

(defstruct leveldata
  name
  w h minw minh maxw maxh
  parents childs
  features
  items
  monsters)

(defconstant +LEVELDATA+
  '((:name "doormat" :w 50 :h 25 :minw 3 :minh 3 :maxw 6 :maxh 6 :parents (end) :childs (1)
     :monsters ((:typeid "rr" :cnt 10 :sickprob 50) ;10xp
		(:typeid "rm" :cnt 5 :sickprob 10) ;10xp
		(:typeid "sp" :cnt 3 :sickprob 10) ;9xp
		(:typeid "k" :cnt 3)	;24xp
		)
     :items ((:typeid "%" :cnt 5 :sickprob 10 :hp 2))
     :features ()
     )
    (:name "antechamber" :w 60 :h 25 :minw 4 :minh 4 :maxw 8 :maxh 8 :parents (0) :childs (2)
     :monsters ((:typeid "sp" :cnt 5 :sickprob 10) ;15xp
		(:typeid "sc" :cnt 10 :sickprob 20) ;20xp
		(:typeid "ss" :cnt 2 :sickprob 100) ;6xp
		(:typeid "w" :cnt 5 :sickprob 5) ;10xp
		(:typeid "k" :cnt 2 :sickprob 0 :name "flunky") ;16xp
		)
     :items ((:typeid "%" :cnt 5 :sickprob 10 :hp 3))     
     :features ()
     )
    (:name "kitchen" :w 70 :h 25 :minw 5 :minh 5 :maxw 10 :maxh 8 :parents (1) :childs (3)
     :monsters ((:typeid "sp" :cnt 5 :sickprob 10) ;15xp
		(:typeid "B" :cnt 5 :sickprob 10) ;20xp
		(:typeid "k" :cnt 5 :sickprob 30) ;40xp
		(:typeid "o" :cnt 2 :sickprob 50 :name "Slushy") ;20xp
		(:typeid "h" :cnt 1 :sickprob 10 :name "Cook") ;12xp
		)
     :items ((:typeid "%" :cnt 5 :sickprob 10 :hp 5))
     :features ()
     )
    (:name "larder" :w 80 :h 25 :minw 6 :minh 6 :maxw 12 :maxh 8 :parents (2) :childs (4)
     :monsters ((:typeid "rr" :cnt 5 :sickprob 50) ;5xp
		(:typeid "w" :cnt 8 :sickprob 5) ;16xp
		(:typeid "k" :cnt 1 :sickprob 30 :name "Captn Koby") ;8xp
		(:typeid "o" :cnt 2 :sickprob 40) ;20xp
		(:typeid "G" :cnt 3 :sickprob 30) ;42xp
		)
     :items ((:typeid "%" :cnt 5 :sickprob 10 :hp 6))
     :features ()
     )
    (:name "toilet" :w 80 :h 25 :minw 6 :minh 6 :maxw 12 :maxh 8 :parents (3)
     :monsters ((:typeid "k" :cnt 10 :sickprob 25) ;80xp
		(:typeid "o" :cnt 5 :sickprob 40) ;50xp
		(:typeid "G" :cnt 2 :sickprob 30) ;28xp
		(:typeid "O" :cnt 1 :sickprob 100 :name "Big @ss Ogre") ;20xp
		(:typeid "@*" :cnt 1 :sickprob 100 :name "Da ENEMY") ;50xp
		(:typeid "&" :cnt 1 :sickprob 100 :name "Da enemy's best friend") ;70xp
		)
     :items ((:typeid "%" :cnt 8 :sickprob 0 :hp 15))
     :features ()
     )
    )
  )

(defstruct object
  name
  typeid
  aktlevel
  x y
  state
  thinkfunc
  turns)

(defstruct (objectwithrole (:include object))
  role roledesc
  hp maxhp
  power maxpower
  str maxstr
  dex maxdex
  con maxcon
  int maxint
  wis maxwis
  cha maxcha 				; charisma
  att 
  def 
  spe
  xp
  xplevel
  )

(defstruct (playerdata (:include basicdata)))

(defconstant +PLAYERDATA+ 
  '(:char "@" :typeid "@" :name "player" :font sans :desc ""))

(defconstant +ROLEPARAMS+ '((:role scamp
			     :roledesc "A scamp's a scamp."
			     :hp 10 :maxhp 10
			     :power 1 :maxpower 1
			     :str 1 :maxstr 1
			     :dex 1 :maxdex 1
			     :con 1 :maxcon 1
			     :int 1 :maxint 1
			     :wis 1 :maxwis 1
			     :cha 1 :maxcha 1)))

(defstruct (lifeform (:include objectwithrole))
  gender
  deity
  armor
  weapons
  tools
  magic
  alignment
  purse
  inventory
  )

(defstruct level
  name
  parents childs
  monsters
  items
  features
  map
  mapmask
  )

(defstruct dungeon
  player
  levels)

(defparameter dkords '((-1 . -1) (0 . -1) (1 . -1)
		       (-1 . 0)  (1 . 0)
		       (-1 . 1)  (0 . 1)  (1 . 1)))

;     22222
;     21112
;     21@12
;     21112
;     22222

(defparameter dkords2 '((-2 . -2) (-1 . -2) (0 . -2) (1 . -2) (2 . -2)
			(-2 . -1) (2 . -1)
			(-2 . 0)  (2 . 0)
			(-2 . 1)  (2 . 1)
			(-2 . 2)  (-1 . 2) (0 . 2) (1 . 2) (2 . 2)))

;-------------------------------------------------------------------------------|
(defconstant +TESTLEVEL+
"                          ###############
##########                #.............#                          ############
#........#              ###.............#                    #######.....)....#
#..>.....################.+.......\".....#                    #.....+..........#
#.)...[..+...............##.%..!....$...#                    #.#####.......$..#
#........###.############ #.............#                    #.#   ############
########## #.#            ############+##                    #.#
           #.#                       #.#                     #.#
     #######.#              ##########.#   ###################+###
     #....##.#              #..........# ###.....................#
     #.{..+..#              #.########## #.+...=..........._.....#
     #....####              #.#          #.#.....................#
     ######                 #.############.#................\\.*..#
                            #..............#............../...<..#
                            ###+############.....................#
                              #.#          #######################
                              #.#
                              #.#
                              #.#
       ##############         #.#
       #.$..........###########.#
       #............+...........#
       #............#############
       #......%.....#
       ##############")