Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-07-04 06:29:29 +00:00
Code Issues Projects Releases Wiki Activity

fixed bug in robot.clj, all previous tests now working

Browse Source
This commit is contained in:
Richard Harrington 2013-08-06 19:21:35 -04:00
parent f1b94518f7
commit b43eb26b37
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/robotwar/robot.clj
View File

@ -150,10 +150,10 @@
(if (>= (:damage robot) 100)
world
(let [new-world (brain/step-brain robot world)
new-robot (get-in world [new-world :robots robot-idx])
desired-v-x (do (pprint new-robot) (brain/read-register
new-robot (get-in new-world [:robots robot-idx])
desired-v-x (brain/read-register
(get-in new-robot [:registers "SPEEDX"])
new-world))
new-world)
desired-v-y (brain/read-register
(get-in new-robot [:registers "SPEEDY"])
new-world)
@ -164,8 +164,8 @@
(assoc-in
new-world
[:robots robot-idx]
(into robot {:pos-x pos-x
:pos-y pos-y
:v-x v-x
:v-y v-y})))))
(into new-robot {:pos-x pos-x
:pos-y pos-y
:v-x v-x
:v-y v-y})))))