From fbe9750ed78f9c331c083b9825f0e82213f7b5be Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 2 Jul 2022 06:30:11 -0500 Subject: [add] wheelwork-exampes.asd system def --- examples/06-sprite.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'examples/06-sprite.lisp') diff --git a/examples/06-sprite.lisp b/examples/06-sprite.lisp index 91910f4..8b6380a 100644 --- a/examples/06-sprite.lisp +++ b/examples/06-sprite.lisp @@ -18,7 +18,7 @@ (unless (ww::runningp (ww::current-frameset sprite)) (setf (ww::runningp (ww::current-frameset sprite)) t))) -(define-symbol-macro +walking-speed+ 1) +(define-symbol-macro +walking-speed+ 10) (ww::defhandler move-by-face (ww::on-perframe (sprite) @@ -93,6 +93,7 @@ :right right) :frameset-key :front))) + (setf (ww::runningp (ww::current-frameset dude)) nil) (ww::add-handler dude #'move-by-face ) (ww::add-handler dude #'move-dude) (ww::add-handler dude #'stand) -- cgit v1.2.3