mirror of
https://github.com/richardharrington/robotwar.git
synced 2024-05-28 23:41:31 +00:00
43 lines
1.9 KiB
Clojure
43 lines
1.9 KiB
Clojure
(ns robotwar.world
|
|
(:use [clojure.string :only [join]]
|
|
[robotwar.constants]
|
|
[clojure.pprint :as pprint])
|
|
(:require [clj-time.core :as time]
|
|
[clj-time.periodic :as periodic]
|
|
[robotwar.robot :as robot]
|
|
[robotwar.shell :as shell]))
|
|
|
|
(defn init-world
|
|
"initialize all the variables for a robot world."
|
|
[programs]
|
|
; TODO: have :shells and :next-shell-id be top-level fields,
|
|
; and dispense with :shell-map. Need to changes stuff throughout
|
|
; the project; search for shells and shell-map in clj and js.
|
|
{:shells {:next-id 0
|
|
:shell-map {}}
|
|
:robots (vec (map-indexed (fn [idx program]
|
|
(robot/init-robot
|
|
idx
|
|
program
|
|
{:pos-x (rand ROBOT-RANGE-X)
|
|
:pos-y (rand ROBOT-RANGE-Y)
|
|
:aim 0.0
|
|
:damage 100.0}))
|
|
programs))})
|
|
|
|
(defn tick-combined-world
|
|
[starting-world]
|
|
(let [{shells :shells :as ticked-robots-world} (reduce (fn [{robots :robots :as world} robot-idx]
|
|
(robot/tick-robot (robots robot-idx) world))
|
|
starting-world
|
|
(range (count (:robots starting-world))))
|
|
ticked-shells (map shell/tick-shell (:shell-map shells))
|
|
live-shells (remove :exploded ticked-shells)
|
|
exploded-shells (filter :exploded ticked-shells)]
|
|
; TODO: make this a real let-binding, that determines
|
|
; which robots were damaged.
|
|
(let [damaged-world ticked-robots-world]
|
|
(assoc-in damaged-world [:shells :shell-map] live-shells))))
|
|
|
|
(def build-combined-worlds (partial iterate tick-combined-world))
|