Added more sound effects

Data/Scripts/016_UI/001_Non-interactive UI/005_UI_Trading.rb

@@ -144,6 +144,8 @@ class PokemonTrade_Scene
     picturePoke.moveColor(delay, 5, Color.new(248, 176, 240, 0))
     cry = GameData::Species.cry_filename_from_pokemon(@pokemon2)
     picturePoke.setSE(delay, cry) if cry
+    cry_length = (GameData::Species.cry_length(@pokemon2) * 20).ceil
+    picturePoke.setVisible(delay + cry_length + 4, true)   # Time for the cry to play
     # Play animation
     pbRunPictures(
       [picturePoke, pictureBall],
@@ -179,12 +181,15 @@ class PokemonTrade_Scene
                                @pokemon.name, @pokemon.owner.public_id, @pokemon.owner.name) + "\\wtnp[0]") { pbUpdate }
     pbMessageWaitForInput(@sprites["msgwindow"], 50, true) { pbUpdate }
     pbPlayDecisionSE
+    pbBGMPlay("Evolution")
     pbScene1
     pbMessageDisplay(@sprites["msgwindow"],
                      _INTL("For {1}'s {2},\n{3} sends {4}.", @trader1, speciesname1, @trader2, speciesname2) + "\1") { pbUpdate }
     pbMessageDisplay(@sprites["msgwindow"],
                      _INTL("{1} bids farewell to {2}.", @trader2, speciesname2)) { pbUpdate }
     pbScene2
+    pbBGMStop
+    pbMEPlay("Battle capture success")
     pbMessageDisplay(@sprites["msgwindow"],
                      _ISPRINTF("{1:s}\nID: {2:05d}   OT: {3:s}",
                                @pokemon2.name, @pokemon2.owner.public_id, @pokemon2.owner.name) + "\1") { pbUpdate }

Data/Scripts/016_UI/002_UI_Pokedex_Menu.rb

@@ -74,7 +74,7 @@ class PokemonPokedexMenu_Scene
         break
       elsif Input.trigger?(Input::USE)
         ret = @sprites["commands"].index
-        (ret == @commands.length - 1) ? pbPlayCloseMenuSE : pbPlayDecisionSE
+        (ret == @commands.length - 1) ? pbPlayCloseMenuSE : pbSEPlay("GUI pokedex open")
         break
       end
     end

Data/Scripts/016_UI/003_UI_Pokedex_Main.rb

@@ -1054,7 +1054,7 @@ class PokemonPokedex_Scene
         break
       elsif Input.trigger?(Input::USE)
         if index == -2      # OK
-          pbPlayDecisionSE
+          pbSEPlay("GUI pokedex open")
           ret = selindex
           break
         elsif index == -3   # Cancel
@@ -1177,7 +1177,7 @@ class PokemonPokedex_Scene
         pbPlayCloseMenuSE
         break
       elsif Input.trigger?(Input::USE)
-        pbPlayDecisionSE if index != 9
+        pbSEPlay("GUI pokedex open") if index != 9
         case index
         when 0   # Choose sort order
           newparam = pbDexSearchCommands(0, [params[0]], index)
@@ -1264,21 +1264,20 @@ class PokemonPokedex_Scene
           pbRefresh
         end
         if Input.trigger?(Input::ACTION)
-          pbPlayDecisionSE
+          pbSEPlay("GUI pokedex open")
           @sprites["pokedex"].active = false
           pbDexSearch
           @sprites["pokedex"].active = true
         elsif Input.trigger?(Input::BACK)
+          pbPlayCloseMenuSE
           if @searchResults
-            pbPlayCancelSE
             pbCloseSearch
           else
-            pbPlayCloseMenuSE
             break
           end
         elsif Input.trigger?(Input::USE)
           if $player.seen?(@sprites["pokedex"].species)
-            pbPlayDecisionSE
+            pbSEPlay("GUI pokedex open")
             pbDexEntry(@sprites["pokedex"].index)
           end
         end

Data/Scripts/016_UI/004_UI_Pokedex_Entry.rb

@@ -498,6 +498,7 @@ class PokemonPokedexInfo_Scene
       elsif Input.trigger?(Input::USE)
         case @page
         when 1   # Info
+          pbPlayDecisionSE
           @show_battled_count = !@show_battled_count
           dorefresh = true
         when 2   # Area
@@ -562,12 +563,9 @@ class PokemonPokedexInfo_Scene
       if Input.trigger?(Input::ACTION)
         pbSEStop
         Pokemon.play_cry(@species, @form)
-      elsif Input.trigger?(Input::BACK)
+      elsif Input.trigger?(Input::BACK) || Input.trigger?(Input::USE)
         pbPlayCloseMenuSE
         break
-      elsif Input.trigger?(Input::USE)
-        pbPlayDecisionSE
-        break
       end
     end
   end

Data/Scripts/016_UI/014_UI_Save.rb

@@ -15,8 +15,8 @@ def pbEmergencySave
     end
   end
   if Game.save
-    pbMessage("\\se[]" + _INTL("The game was saved.") + "\\me[GUI save game]\\wtnp[30]")
-    pbMessage("\\se[]" + _INTL("The previous save file has been backed up.") + "\\wtnp[30]")
+    pbMessage("\\se[]" + _INTL("The game was saved.") + "\\me[GUI save game]\\wtnp[20]")
+    pbMessage("\\se[]" + _INTL("The previous save file has been backed up.") + "\\wtnp[20]")
   else
     pbMessage("\\se[]" + _INTL("Save failed.") + "\\wtnp[30]")
   end
@@ -114,7 +114,7 @@ class PokemonSaveScreen
       $game_temp.begun_new_game = false
       pbSEPlay("GUI save choice")
       if Game.save
-        pbMessage("\\se[]" + _INTL("{1} saved the game.", $player.name) + "\\me[GUI save game]\\wtnp[30]")
+        pbMessage("\\se[]" + _INTL("{1} saved the game.", $player.name) + "\\me[GUI save game]\\wtnp[20]")
         ret = true
       else
         pbMessage("\\se[]" + _INTL("Save failed.") + "\\wtnp[30]")

Data/Scripts/016_UI/015_UI_Options.rb

@@ -27,7 +27,7 @@ class PokemonSystem
     @screensize    = (Settings::SCREEN_SCALE * 2).floor - 1   # 0=half size, 1=full size, 2=full-and-a-half size, 3=double size
     @language      = 0     # Language (see also Settings::LANGUAGES in script PokemonSystem)
     @runstyle      = 0     # Default movement speed (0=walk, 1=run)
-    @bgmvolume     = 100   # Volume of background music and ME
+    @bgmvolume     = 80    # Volume of background music and ME
     @sevolume      = 100   # Volume of sound effects
     @textinput     = 0     # Text input mode (0=cursor, 1=keyboard)
   end

Data/Scripts/016_UI/024_UI_MysteryGift.rb

@@ -381,7 +381,7 @@ def pbReceiveMysteryGift(id)
     gift[2].obtain_map = $game_map&.map_id || 0
     was_owned = $player.owned?(gift[2].species)
     if pbAddPokemonSilent(gift[2])
-      pbMessage("\\me[Pkmn get]" + _INTL("{1} received {2}!", $player.name, gift[2].name))
+      pbMessage(_INTL("{1} received {2}!", $player.name, gift[2].name) + "\\me[Pkmn get]\\wtnp[80]")
       $player.mystery_gifts[index] = [id]
       # Show Pokédex entry for new species if it hasn't been owned before
       if Settings::SHOW_NEW_SPECIES_POKEDEX_ENTRY_MORE_OFTEN && !was_owned &&
@@ -403,15 +403,22 @@ def pbReceiveMysteryGift(id)
       $bag.add(item, qty)
       itm = GameData::Item.get(item)
       itemname = (qty > 1) ? itm.portion_name_plural : itm.portion_name
-      if itm.is_machine?   # TM or HM
-        pbMessage("\\me[Item get]" + _INTL("You obtained \\c[1]{1} {2}\\c[0]!", itemname,
-                                           GameData::Move.get(itm.move).name) + "\\wtnp[30]")
+      if item == :DNASPLICERS
+        pbMessage("\\me[Item get]" + _INTL("You obtained \\c[1]{1}\\c[0]!", itemname) + "\\wtnp[40]")
+      elsif itm.is_machine?   # TM or HM
+        if qty > 1
+          pbMessage("\\me[Machine get]" + _INTL("You obtained {1} \\c[1]{2} {3}\\c[0]!",
+                                                qty, itemname, GameData::Move.get(itm.move).name) + "\\wtnp[70]")
+        else
+          pbMessage("\\me[Machine get]" + _INTL("You obtained \\c[1]{1} {2}\\c[0]!", itemname,
+                                                GameData::Move.get(itm.move).name) + "\\wtnp[70]")
+        end
       elsif qty > 1
-        pbMessage("\\me[Item get]" + _INTL("You obtained {1} \\c[1]{2}\\c[0]!", qty, itemname) + "\\wtnp[30]")
+        pbMessage("\\me[Item get]" + _INTL("You obtained {1} \\c[1]{2}\\c[0]!", qty, itemname) + "\\wtnp[40]")
       elsif itemname.starts_with_vowel?
-        pbMessage("\\me[Item get]" + _INTL("You obtained an \\c[1]{1}\\c[0]!", itemname) + "\\wtnp[30]")
+        pbMessage("\\me[Item get]" + _INTL("You obtained an \\c[1]{1}\\c[0]!", itemname) + "\\wtnp[40]")
       else
-        pbMessage("\\me[Item get]" + _INTL("You obtained a \\c[1]{1}\\c[0]!", itemname) + "\\wtnp[30]")
+        pbMessage("\\me[Item get]" + _INTL("You obtained a \\c[1]{1}\\c[0]!", itemname) + "\\wtnp[40]")
       end
       $player.mystery_gifts[index] = [id]
       return true