Add working example based on cl-charms-paint

This includes some basic lisp code to start the game in dev or regular
mode as well. Dev mode not currently working do to possibly some issue
with sly/slynk.

src/internal.lisp

@@ -1,5 +1,5 @@
 ;;;; internal.lisp
-;;;; Copyright (C) 2015 Lily Carpenter
+;;;; Copyright (C) 2016 Lily Carpenter
 
 ;;;; This program is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU Affero General Public License as published by
@@ -17,11 +17,54 @@
 
 (in-package #:forever-game-roguelike-internal)
 
-(defun start ())
+(defstruct game-state
+  (cursor-x 0 :type fixnum)
+  (cursor-y 0 :type fixnum)
+  (quit? nil :type boolean))
 
-(defun start-dev ()
+(defun player-up (state)
+  (decf (game-state-cursor-y state)))
+
+(defun player-down (state)
+  (incf (game-state-cursor-y state)))
+
+(defun player-left (state)
+  (decf (game-state-cursor-x state)))
+
+(defun player-right (state)
+  (incf (game-state-cursor-x state)))
+
+(defun quit-game (state)
+  (setf (game-state-quit? state) t))
+
+(defun handle-input (char state)
+  (case char
+    ((nil) nil)
+    ((#\w) (player-up    state))
+    ((#\s) (player-down  state))
+    ((#\a) (player-left  state))
+    ((#\d) (player-right state))
+    ((#\q #\Q) (quit-game state))))
+
+(defun start (&optional (state (make-game-state)))
+  (with-curses ()
+    (disable-echoing)
+    (enable-raw-input :interpret-control-characters t)
+    (enable-non-blocking-mode *standard-window*)
+    (loop named game-loop
+          for char := (get-char *standard-window* :ignore-error t) do
+            (refresh-window *standard-window*)
+            (handle-input char state)
+            (multiple-value-bind (width height) (window-dimensions *standard-window*)
+              (setf (game-state-cursor-x state) (mod (game-state-cursor-x state) width))
+              (setf (game-state-cursor-y state) (mod (game-state-cursor-y state) height)))
+            (move-cursor *standard-window* (game-state-cursor-x state) (game-state-cursor-y state))
+          until (game-state-quit? state))))
+
+(defun start-dev (state)
   (ql:quickload :slynk)
   (uiop:symbol-call :slynk
                     :create-server
                     :port 6666
-                    :dont-close t))
+                    :dont-close t)
+  (start state))

src/package.lisp

@@ -7,7 +7,7 @@
 
 (defpackage #:forever-game-roguelike-internal
   (:use #:cl
-        #:cl-charms
+        #:charms
         #:alexandria
         #:split-sequence
         #:forever-game-roguelike))

start-dev.lisp

@@ -0,0 +1,3 @@
+(ql:quickload :forever-game-roguelike)
+(defvar *game-state* (forever-game-roguelike:make-game-state))
+(forever-game-roguelike:start-dev *game-state*)

start-game.lisp

@@ -0,0 +1,2 @@
+(ql:quickload :forever-game-roguelike)
+(forever-game-roguelike:start)