messages.lisp

(defvar *welcome-msg*
"-------------------------------------------------------------------------

Hello and welcome to (tic tac toe)! its like tic-tac-toe, except it is... no actually it's exactly like tic-tac-toe.
But it's written in common lisp. Its a programming language. never mind.
To begin, please enter the first player name and the second player name!")

(defvar *how-to-play-msg* 
"Above this message is your game board.
Each player in his turn can put his mark on a square in the board by typing the number that corresponds to the square.
First player's mark is X.
Second player's mark is 0.
The first one to have three marks in a cloumn, row, or diagonal wins!")

(defvar *board-ascii* "╔══════╤═════╤══════╗
║   ~a  │  ~a  │  ~a   ║
╟──────┼─────┼──────╢
║   ~a  │  ~a  │  ~a   ║
╟──────┼─────┼──────╢
║   ~a  │  ~a  │  ~a   ║
╚══════╧═════╧══════╝")

(defun welcome-msg ()
  (format t "~a~%~%" *welcome-msg* ))

(defun x-mark ()
  (format nil "~c[96mX~c[0m" #\ESC #\ESC))

(defun o-mark ()
  (format nil "~c[92mO~c[0m" #\ESC #\ESC))
 
(defun how-to-play-msg (board)
  (format t "~%~%Alright ~a and ~a, here is how you play!~%~%" (get-player-v 1 player-name) (get-player-v 2 player-name))
  (render-board board)
  (format t "~%~%~a~%~%" *how-to-play-msg* ))

(defun are-u-ready-prompt ()
  (y-or-n-p "Are you ready?~%")) 

(defun play-again-prompt ()
  (y-or-n-p "~%Play another game?~%")) 

(defun set-players-prompt ()
  (set-player-v 1 player-name (prompt-read "Please enter player 1 name"))
  (set-player-v 2 player-name (prompt-read "Please enter player 2 name")))

(defun square-taken-msg (square-n) 
(format t "~%Sorry, square ~A is already taken.
Please use an availabe square.~%" square-n))

(defun invalid-move-msg (square-n) 
(format t "~%Sorry, move ~A is not possible.
Are you sure it is one of the available numbers?~%" square-n))

(defun not-a-number-msg ()
  (format t "~%That does not look like a number to me.
I have a feeling you are trying to test me... 
~c[31mYOU SHALL NOT PASS!~c[0m~%" #\ESC #\ESC)) 

(defun  tie-msg ()
(format t "~%~A~%" "Well well well....
It seems we have a tie! 
Thank you for playing "))

(defun win-msg (game-winner)
(format t "~%Congrats player ~A, you won!!!....
as a prize here is a link to a nice book http://www.gigamonkeys.com/book/ 
Thank you for playing!" game-winner))

(defun game-done-msg (game-done)
  (cond ((zerop game-done) (tie-msg))
        ((win-msg game-done))))

(defun close-game-msg ()
  (format t "ok, bye...."))