Changes between Version 41 and Version 42 of Clojure Client Tutorial

Timestamp:

Aug 8, 2011 12:19:48 PM (13 years ago)

Author:

kedwar10

Comment:

--

Clojure Client Tutorial

@@ -335 +335 @@
  "player" ((768.875366 90.065201 0.0) (32.0 -90.0 0.0))}
 nil
-
-}}}
-
-
-
-
- 
+}}}
+
+The process of converting a sequence into doubles is so common that it has been included in the client as "seq->doubles".
+
+{{{
+client.core=> (defn scan-area2 [quagent radius]
+                (send-and-get quagent :radar :now [radius] 
+                              {} 
+                              (fn [prev [_ item-type & pos]]
+                                (merge-with concat 
+                                            prev
+                                            {item-type (list (seq->doubles pos))}))))
+#'client.core/scan-area
+client.core=> (scan-area :Bob 8000)
+{"quagent_item_gold" ([375.085327 56.309933 1.374918] ... (output truncated)
+client.core=> (pp)
+{"quagent_item_gold"
+ ([375.085327 56.309933 1.374918]
+  [1019.278626 42.455196 0.505915]
+  [905.141357 8.130102 0.569713]),
+ "quagent_item_treasure"
+ ([572.16864 20.462269 0.901278] [697.711304 63.434952 0.739097]),
+ "info_player_deathmatch"
+ ([32.000244 -90.0 0.223811] [0.125 0.0 90.0]),
+ "player" ([768.875366 90.065201 0.0] [32.0 -90.0 0.0])}
+nil
+}}}
+
+You can now use the predefined "move" command to make the quagent walk to an item.
+
+{{{
+client.core=> (apply (partial move :Bob) (take 2 (second (get (scan-area2 :Bob 8000) "quagent_item_gold")))) 
+[]
+}}}
 
 ----