notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Change order of conditionals

Browse Source
This commit is contained in:
oakes
2014-05-25 21:32:32 -04:00
parent d70f9df22d
commit 47749d6a9d
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
TUTORIAL.md
View File

@@ -93,10 +93,10 @@ Let's write a conditional statement that prints out which arrow key you pressed.
:on-key-down
(fn [screen entities]
(cond
(= (:key screen) (key-code :dpad-down))
(println "down")
(= (:key screen) (key-code :dpad-up))
(println "up")
(= (:key screen) (key-code :dpad-down))
(println "down")
(= (:key screen) (key-code :dpad-right))
(println "right")
(= (:key screen) (key-code :dpad-left))
@@ -118,13 +118,13 @@ In this case, the screen map will contain an `:input-x` and `:input-y` for the p
(fn [screen entities]
(let [pos (input->screen screen (:input-x screen) (:input-y screen))]
(cond
(> (:y pos) (* (game :height) (/ 2 3)))
(> (:y pos) (* (height screen) (/ 2 3)))
(println "up")
(< (:y pos) (/ (game :height) 3))
(< (:y pos) (/ (height screen) 3))
(println "down")
(> (:x pos) (* (game :width) (/ 2 3)))
(> (:x pos) (* (width screen) (/ 2 3)))
(println "right")
(< (:x pos) (/ (game :width) 3))
(< (:x pos) (/ (width screen) 3))
(println "left"))))
```
@@ -151,10 +151,10 @@ Now we can update our `:on-key-down` and `:on-touch-down` functions to move the
:on-key-down
(fn [screen entities]
(cond
(= (:key screen) (key-code :dpad-down))
(move (first entities) :down)
(= (:key screen) (key-code :dpad-up))
(move (first entities) :up)
(= (:key screen) (key-code :dpad-down))
(move (first entities) :down)
(= (:key screen) (key-code :dpad-right))
(move (first entities) :right)
(= (:key screen) (key-code :dpad-left))
@@ -164,13 +164,13 @@ Now we can update our `:on-key-down` and `:on-touch-down` functions to move the
(fn [screen entities]
(let [pos (input->screen screen (:input-x screen) (:input-y screen))]
(cond
(> (:y pos) (* (game :height) (/ 2 3)))
(> (:y pos) (* (height screen) (/ 2 3)))
(move (first entities) :up)
(< (:y pos) (/ (game :height) 3))
(< (:y pos) (/ (height screen) 3))
(move (first entities) :down)
(> (:x pos) (* (game :width) (/ 2 3)))
(> (:x pos) (* (width screen) (/ 2 3)))
(move (first entities) :right)
(< (:x pos) (/ (game :width) 3))
(< (:x pos) (/ (width screen) 3))
(move (first entities) :left))))
```