Mercurial > vba-clojure
view clojure/com/aurellem/exp/music.clj @ 440:292ece432ac4
investigating the game's music.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 26 Apr 2012 04:35:49 -0500 (2012-04-26) |
parents | |
children | e682c9ed3056 |
line wrap: on
line source
1 (ns com.aurellem.exp.music2 "scratchpad namespace"3 (:use (com.aurellem.gb gb-driver util constants4 assembly saves5 items pokemon status types6 characters species moves7 pokedex money rival-name8 text-speed badges9 pokemon-presets10 ))12 (:import java.io.File)13 (:import [com.aurellem.gb.gb_driver SaveState]))18 (defn analyze-music []19 (clojure.pprint/pprint20 (map (fn [[addr nums]]21 [(hex addr) nums])22 (apply harmonic-compare23 (map read-state24 ["song-1" "no-song-1"25 "song-2" "no-song-2"26 "song-3" "no-song-3"27 "song-4"])))))28 ;; there are only two addresses that alternate between only29 ;; two unique values:31 0xC0DE ;; lol code :)32 0xC0DF34 ;; perhaps they are the address of the current playing sound?36 ;; after watching them for a while in different environments,37 ;; I can tell that they're definately music related, but they38 ;; _don't_ seem to be the address to the current track.39 ;; they generally change whenever a substantually different40 ;; sequence is played. maybe they control some high level41 ;; setting in the synthesizer? They are only affected by the42 ;; background music and not by pokemon cries, etc.44 0xC001 ;; seems to change along with the music, but is much45 ;; more stable than 0xC0DE and 0xC0DF. It _is_46 ;; affected by sound effects. When a sound effect happens,47 ;; is sometimes does not return to its previous value when the sound48 ;; effect is done.50 0xC000 ;; does not seem to be affected by music52 ;; maybe 0xC001 - something is loaded with the actual sounds?55 ;; replacing just the first 0xFF bytes starting at 0xC001 with those56 ;; found in celadon changes the music to celadon city.58 ;; this can't be the actual music because it doesn't have enough59 ;; information.61 ;; let's try to narrow down the bytes from the first 0xFF of celadon62 ;; starting at 0xC00164 (def celadon-song65 [202 0 0 255 0 178 117 40 118 158 118 0 0 0 0 0 0 0 0 0 0 0 0 0 0 066 0 0 0 0 0 0 0 0 0 0 0 202 202 202 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 067 0 0 0 0 128 128 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 068 0 0 0 0 0 0 0 0 0 0 0 0 115 88 32 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 069 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 070 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 5 5 5 1 1 1 1 171 1 1 1 1 1 1 1 1 12 12 12 1 1 1 1 1 128 128 128 0 0 0 0 0 5 4 4 0 4 372 4 0 178 194 32 0 180 196 32 0 3 0 0 144 1 0 66 31 0 2 2 32 48 0 0 073 0 0 0 0 0 0 0 0 0 0])75 (defn change-music-to-celadon76 ([#^SaveState state start length]78 (set-memory-range state (+ 0xC001 start)79 (take length (drop start celadon-song))))80 ([start length]81 (continue! (change-music-to-celadon (read-state "rlm-viridian-forest-battle")82 start length))))86 ;;0 0x90) blend between both, with end theme as well88 ;; 0x05 0xEA is the limit to completely change song to celadon from89 ;; viridian forest91 ;; 0x05 0xEA is also sufficient to change music to celadon from92 ;; a battle in viridian forest