Music Fixes and other Audio-related QoL things

Fixed music playing errors

[Added Songs]
Mom (as there wasn't any music for when the mom gives you the pokégear)

PVP_Intro (PVP music didn't have an intro before and I also replaced PVP with a better sounding version)

[Added Sounds]
Emote_Exclamation (can be used when using the ! emote for NPCs)

Receive_HM (the game checks if the name of the item that was received contains "HM", if so, this sound is played instead of the regular item receive sound)

P3D/Content/Data/Scripts/newgame/intro.dat

@@ -127,7 +127,7 @@
 @text.show(There are still~many mysteries to solve.*That's why I study~Pokémon every day.)
 @text.show(But let's get~back to you.)
 
-@screen.skinselection(Ethan,Lyra,Hilbert,Hilda,Nate,Rosa)
+@screen.skinselection()
 
 @player.wearskin(<screen.selectedskin>)
 @npc.wearskin(1,<screen.selectedskin>)

P3D/Entites/Enviroment/ItemObject.vb

@@ -140,7 +140,11 @@
     Public Overrides Sub ClickFunction()
         If CanInteractWith Then
             RemoveItem(Me)
-            SoundManager.PlaySound("Receive_Item", True)
+            If Me.Item.Name.Contains("HM") Then
+                SoundManager.PlaySound("Receive_HM", True)
+            Else
+                SoundManager.PlaySound("Receive_Item", True)
+            End If
             Screen.TextBox.TextColor = TextBox.PlayerColor
             Screen.TextBox.Show(Core.Player.Name & " found~" & Me.Item.Name & "!*" & Core.Player.Inventory.GetMessageReceive(Item, 1), {Me})
             Core.Player.Inventory.AddItem(Me.Item.ID, 1)

P3D/Network/Servers/PVPLobbyScreen.vb

@@ -628,7 +628,7 @@
             b.PVPGameJoltID = tempPlayer.GameJoltId
         End If
 
-        Core.SetScreen(New BattleIntroScreen(Core.CurrentScreen, b, t, t.GetIniMusicName(), t.IntroType))
+        Core.SetScreen(New BattleIntroScreen(Core.CurrentScreen, b, t, "PVP_Intro", t.IntroType))
         PlayerStatistics.Track("PVP battles", 1)
     End Sub
 

P3D/World/ActionScript/V2/ScriptCommands/DoMusic.vb

@@ -12,12 +12,6 @@
 
             Select Case command.ToLower()
                 Case "play"
-                    MusicManager.Play(argument, True, 0.0F)
-
-                    If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
-                        Screen.Level.MusicLoop = argument
-                    End If
-                Case "playfade"
                     MusicManager.Play(argument, True)
 
                     If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then