# HG changeset patch # User Robert McIntyre # Date 1335437116 18000 # Node ID 58fe9c35d7c91e45c94be0913fb6b44284ea35ed # Parent e682c9ed30569122edb86d51a231913f76fa00fb discovered meanig of first 8 bytes of music. diff -r e682c9ed3056 -r 58fe9c35d7c9 clojure/com/aurellem/exp/music.clj --- a/clojure/com/aurellem/exp/music.clj Thu Apr 26 05:05:16 2012 -0500 +++ b/clojure/com/aurellem/exp/music.clj Thu Apr 26 05:45:16 2012 -0500 @@ -96,20 +96,41 @@ (def fight-gym-leader-song-simp - [234 0 0 255 0 0 92 43 94 112 95 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 0 0 0 0 0 0 0 0 234 234 234 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 - 0 192 192 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 7 0 0 0 0 0 0 33 17 17 0 0 0 - 0 0 68 82 0 0 0 0 0 0 89 90 57 0 0 0 0 0 8 8 0 0 0 0 0 0 0 0 0 0 0 0 + [ + + (Integer/parseInt "00000001" 2) ;; channel-on/off + ;; are active + + 0 ;; no-effect + + ;; channel 0 + 0 ;; note-counter low + 92 ;; note-counter high + + ;; channel 1 + 43 ;; note-counter low + 94 ;; note-counter high + + ;; channel 2 + 112 ;; note-counter low + 95 ;; note-counter high + + + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 234 234 234 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 192 192 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 4 4 1 1 1 1 1 1 1 1 1 1 1 1 1 12 12 12 1 1 1 1 1 192 192 192 0 88 152 0 0 7 5 4 0 4 4 - 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 0 0 - 0 0 0 0 0 0 0 0 0 0 0]) + 3 0 179 195 32 0 180 196 32 0 3 0 0 104 1 0 65 176 0 8 8 224 255 + + ]) (defn change-music ([#^SaveState state start length song] - (set-memory-range state (+ 0xC001 start) + (set-memory-range state (+ 0xC004 start) (take length (drop start song)))) ([start length song] (continue! (change-music (read-state "rlm-viridian-forest")