Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-05-28 23:41:31 +00:00
Code Issues Projects Releases Wiki Activity

added tick-shell function

Browse Source
This commit is contained in:
Richard Harrington 2013-08-21 20:27:48 -04:00
parent 17f913820a
commit 12e80d2379
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/robotwar/shell.clj
View File

@ -12,5 +12,21 @@
:v-x (* unit-x SHELL-SPEED)
:v-y (* unit-y SHELL-SPEED)
:dest-x (* unit-x distance)
:dest-y (* unit-y distance)}))
:dest-y (* unit-y distance)
:exploded false}))
(defn tick-shell
[{:keys [pos-x pos-y v-x v-y dest-x dest-y exploded] :as shell}]
(if exploded
nil
(let [delta-x (* v-x *GAME-SECONDS-PER-TICK*)
delta-y (* v-y *GAME-SECONDS-PER-TICK*)
remaining-x (- dest-x pos-x)
remaining-y (- dest-y pos-y)]
; only need to check one dimension
(if (< (Math/abs remaining-x) (Math/abs delta-x))
(merge shell {:pos-x dest-x
:pos-y dest-y
:exploded true})
(merge shell {:pos-x (+ pos-x delta-x)
:pox-y (+ pos-y delta-y)})))))