6 files changed, 19 insertions, 1 deletions
diff --git a/res/maps/hallucination_beach.tmx b/res/maps/hallucination_beach.tmx
index c6fd1cb..ce6c830 100644
--- a/res/maps/hallucination_beach.tmx
+++ b/res/maps/hallucination_beach.tmx

@@ -1,5 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <map version="1.4" tiledversion="1.4.3" orientation="orthogonal" renderorder="right-down" width="48" height="32" tilewidth="16" tileheight="16" infinite="0" nextlayerid="2" nextobjectid="1">
+ <properties>
+  <property name="music" value="red_green_yellow_yellow"/>
+ </properties>
 <tileset firstgid="1" source="hallucination.tsx"/>
 <layer id="1" name="Lower" width="48" height="32">
  <data encoding="csv">
diff --git a/res/maps/hallucination_cliff.tmx b/res/maps/hallucination_cliff.tmx
index e6bd65e..8159d54 100644
--- a/res/maps/hallucination_cliff.tmx
+++ b/res/maps/hallucination_cliff.tmx

@@ -1,5 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <map version="1.4" tiledversion="1.4.3" orientation="orthogonal" renderorder="right-down" width="48" height="48" tilewidth="16" tileheight="16" infinite="0" nextlayerid="3" nextobjectid="5">
+ <properties>
+  <property name="music" value="red_green_yellow_yellow"/>
+ </properties>
 <tileset firstgid="1" source="hallucination.tsx"/>
 <layer id="2" name="Background" width="48" height="48">
  <data encoding="csv">
diff --git a/res/maps/hallucination_hot_spring.tmx b/res/maps/hallucination_hot_spring.tmx
index 2bb840d..b019681 100644
--- a/res/maps/hallucination_hot_spring.tmx
+++ b/res/maps/hallucination_hot_spring.tmx

@@ -1,5 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <map version="1.4" tiledversion="1.4.3" orientation="orthogonal" renderorder="right-down" width="32" height="16" tilewidth="16" tileheight="16" infinite="0" nextlayerid="3" nextobjectid="5">
+ <properties>
+  <property name="music" value="red_green_yellow_yellow"/>
+ </properties>
 <tileset firstgid="1" source="hallucination.tsx"/>
 <layer id="2" name="Lower" width="32" height="16">
  <data encoding="csv">
diff --git a/res/maps/hallucination_interior.tmx b/res/maps/hallucination_interior.tmx
index e792133..ee7a5cd 100644
--- a/res/maps/hallucination_interior.tmx
+++ b/res/maps/hallucination_interior.tmx

@@ -1,5 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <map version="1.4" tiledversion="1.4.3" orientation="orthogonal" renderorder="right-down" width="64" height="64" tilewidth="16" tileheight="16" infinite="0" nextlayerid="2" nextobjectid="3">
+ <properties>
+  <property name="music" value="red_green_yellow_yellow"/>
+ </properties>
 <tileset firstgid="1" source="hallucination.tsx"/>
 <layer id="1" name="Lower" width="64" height="64">
  <data encoding="csv">
diff --git a/res/music/red_green_yellow_yellow.wav b/res/music/red_green_yellow_yellow.wav
new file mode 100644
index 0000000..e1cd6dd
--- /dev/null
+++ b/res/music/red_green_yellow_yellow.wav

Binary files differ
diff --git a/res/scripts/common.lua b/res/scripts/common.lua
index 2a51419..a5e7873 100644
--- a/res/scripts/common.lua
+++ b/res/scripts/common.lua

@@ -260,7 +260,13 @@ function ChangeMap(map, warp, options)
    FadeToBlack(150)
  end
  loadMap(map)
-  character():transplantParty(playerId, getWarpPoint(warp), direction)
+  character():transplantParty(playerId, getMap():getWarpPoint(warp), direction)
+  if (mixer():isPlayingMusic() and not getMap():hasMusic()) then
+    mixer():fadeoutMusic(150)
+  elseif (getMap():hasMusic() and (not mixer():isPlayingMusic() or not mixer():getPlayingTrack() == getMap():getMusic())) then
+    mixer():playMusic(getMap():getMusic(), 150)
+  end
  coroutine.yield()
  if (options & ChangeMapOptions.DO_NOT_FADE == 0) then