# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332618154 18000
# Node ID fe26776e1a58416cb658add0de83032b9951aad5
# Parent  30f4fc9b1747a1d4361ceec3c9234817e72593b5
working on map memory, modified view-memory to output hex and decimal as well as binary

diff -r 30f4fc9b1747 -r fe26776e1a58 clojure/com/aurellem/exp/cartography
--- a/clojure/com/aurellem/exp/cartography	Sat Mar 24 13:22:52 2012 -0500
+++ b/clojure/com/aurellem/exp/cartography	Sat Mar 24 14:42:34 2012 -0500
@@ -515,7 +515,7 @@
 D364                   
 D365                   
 D366                   
-D367                   Transit Flag (fly, dig, teleport, etc.)
+D367                   
 D368                   
 D369                   
 D36A                   
diff -r 30f4fc9b1747 -r fe26776e1a58 clojure/com/aurellem/gb/transit.clj
--- a/clojure/com/aurellem/gb/transit.clj	Sat Mar 24 13:22:52 2012 -0500
+++ b/clojure/com/aurellem/gb/transit.clj	Sat Mar 24 14:42:34 2012 -0500
@@ -8,7 +8,7 @@
 
 0xD367 = 00000110 ;; inside-building
 
-0xD367 = 00001001 ;; wilderness
+0xD367 = 00001001 ;; wilderness outside Celadon
 
 0xD367 = 00010010 ;; inside cave
 
@@ -18,3 +18,35 @@
 
 0xD367 = 00110110 ;; fishing peer waters edge
 
+0xD367 = 00110110 ;; in battle at fishing peer
+
+0xD367 = 00010010 ;; at Cerulean
+
+;; setting it to zero does not affect teleport
+;; setting it to 0xFF does not affect teleport
+;; conclusion -- 0xD367 is position related but does not control
+;; transit moves/items
+
+
+;; try the same with 0xD366
+
+0xD366 = 00000000 ;; at Cerulean
+0xD366 = 00010001 ;; in Rock Tunnel
+0xD366 = 00001111 ;; in poke tower floor 1
+0xD366 = 00000110 ;; in poke center
+
+;; 0xFF disables fly, dig, teleport, rope
+;; 0x00 enables fly, teleport, disables dig, rope
+
+;; in cereluan
+;; set to 00000100 disables doors, ledges, fly, teleport
+;; set to 00000010 disables doors, ledges, fly, teleport
+
+;; in poke-center
+;; set to 00000010 disables fly, teleport, dig, rope
+;; set to 00000100 disables fly, teleport, dig, rope
+;; set to 00000000 enables fly, teleport
+;; set to 00010001 changes colormap to brown,
+;;                 enables rope, dig
+;;                 disables fly, teleport 
+
diff -r 30f4fc9b1747 -r fe26776e1a58 clojure/com/aurellem/gb/util.clj
--- a/clojure/com/aurellem/gb/util.clj	Sat Mar 24 13:22:52 2012 -0500
+++ b/clojure/com/aurellem/gb/util.clj	Sat Mar 24 14:42:34 2012 -0500
@@ -36,8 +36,9 @@
 
 (defn view-memory
   ([^SaveState state mem]
-     (println (format "mem 0x%04X = %s" mem
-                      (binary-str (aget (memory state) mem))))
+     (let [val (aget (memory state) mem)]
+       (println (format "0x%04X = %s 0x%02X %d" mem
+                        (binary-str val) val val)))
      state)
   ([mem]
      (view-memory @current-state mem)))