diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-02 06:30:11 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-02 06:30:11 -0500 |
| commit | fbe9750ed78f9c331c083b9825f0e82213f7b5be (patch) | |
| tree | fd77c2071d340ac64e6c055ba31b5f763179e2f4 /examples/06-sprite.lisp | |
| parent | 5495e46fcd79009389f12163df3f13b7efa11950 (diff) | |
[add] wheelwork-exampes.asd system def
Diffstat (limited to 'examples/06-sprite.lisp')
| -rw-r--r-- | examples/06-sprite.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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) |