diff options
author | Thomas Letan <contact@thomasletan.fr> | 2018-07-04 17:11:26 +0200 |
---|---|---|
committer | Thomas Letan <contact@thomasletan.fr> | 2018-07-04 17:11:26 +0200 |
commit | 85025d40926888aabc627d2129d24ec8aa8d8205 (patch) | |
tree | 0a457c1065a6890dcdb8b45f821873cd82588610 | |
parent | feature: Use an environment variable to locate resources (diff) |
feature: Continue to move when entering inside a map
-rw-r--r-- | lykanc/client.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lykanc/client.lisp b/lykanc/client.lisp index 9563ae2..f11a892 100644 --- a/lykanc/client.lisp +++ b/lykanc/client.lisp @@ -63,7 +63,13 @@ puppet :with-key key)) (when (string= (main-puppet app) key) - (setf (map-ready? app) t))) + (setf (map-ready? app) t) + (let ((current-dir (current-direction-angle (keyboard app)))) + (when current-dir ; the user wants to go somewhere + (wsd:send-text (socket app) + (command-set-direction current-dir)) + (wsd:send-text (socket app) + "MOVE"))))) (defmethod puppet-starts-moving ((app client) key) (starts-moving (get-puppet app key))) |