Fixed and implemented new pause menu and Trainer Card scripts

Data/Scripts/016c_UI_old/001_UI_old_PauseMenu.rb

@@ -0,0 +1,130 @@
+=begin
+#===============================================================================
+#
+#===============================================================================
+class PokemonPauseMenu_Scene
+  def pbStartScene
+    @viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
+    @viewport.z = 99999
+    @sprites = {}
+    @sprites["cmdwindow"] = Window_CommandPokemon.new([])
+    @sprites["cmdwindow"].visible = false
+    @sprites["cmdwindow"].viewport = @viewport
+    @sprites["infowindow"] = Window_UnformattedTextPokemon.newWithSize("", 0, 0, 32, 32, @viewport)
+    @sprites["infowindow"].visible = false
+    @sprites["helpwindow"] = Window_UnformattedTextPokemon.newWithSize("", 0, 0, 32, 32, @viewport)
+    @sprites["helpwindow"].visible = false
+    @infostate = false
+    @helpstate = false
+    pbSEPlay("GUI menu open")
+  end
+
+  def pbShowInfo(text)
+    @sprites["infowindow"].resizeToFit(text, Graphics.height)
+    @sprites["infowindow"].text    = text
+    @sprites["infowindow"].visible = true
+    @infostate = true
+  end
+
+  def pbShowHelp(text)
+    @sprites["helpwindow"].resizeToFit(text, Graphics.height)
+    @sprites["helpwindow"].text    = text
+    @sprites["helpwindow"].visible = true
+    pbBottomLeft(@sprites["helpwindow"])
+    @helpstate = true
+  end
+
+  def pbShowMenu
+    @sprites["cmdwindow"].visible = true
+    @sprites["infowindow"].visible = @infostate
+    @sprites["helpwindow"].visible = @helpstate
+  end
+
+  def pbHideMenu
+    @sprites["cmdwindow"].visible = false
+    @sprites["infowindow"].visible = false
+    @sprites["helpwindow"].visible = false
+  end
+
+  def pbShowCommands(commands)
+    ret = -1
+    cmdwindow = @sprites["cmdwindow"]
+    cmdwindow.commands = commands
+    cmdwindow.index    = $game_temp.menu_last_choice
+    cmdwindow.resizeToFit(commands)
+    cmdwindow.x        = Graphics.width - cmdwindow.width
+    cmdwindow.y        = 0
+    cmdwindow.visible  = true
+    loop do
+      cmdwindow.update
+      Graphics.update
+      Input.update
+      pbUpdateSceneMap
+      if Input.trigger?(Input::BACK) || Input.trigger?(Input::ACTION)
+        ret = -1
+        break
+      elsif Input.trigger?(Input::USE)
+        ret = cmdwindow.index
+        $game_temp.menu_last_choice = ret
+        break
+      end
+    end
+    return ret
+  end
+
+  def pbEndScene
+    pbDisposeSpriteHash(@sprites)
+    @viewport.dispose
+  end
+
+  def pbRefresh; end
+end
+
+#===============================================================================
+#
+#===============================================================================
+class PokemonPauseMenu
+  def initialize(scene)
+    @scene = scene
+  end
+
+  def pbShowMenu
+    @scene.pbRefresh
+    @scene.pbShowMenu
+  end
+
+  def pbShowInfo; end
+
+  def pbStartPokemonMenu
+    if !$player
+      if $DEBUG
+        pbMessage(_INTL("The player trainer was not defined, so the pause menu can't be displayed."))
+        pbMessage(_INTL("Please see the documentation to learn how to set up the trainer player."))
+      end
+      return
+    end
+    @scene.pbStartScene
+    # Show extra info window if relevant
+    pbShowInfo
+    # Get all commands
+    command_list = []
+    commands = []
+    MenuHandlers.each_available(:pause_menu) do |option, hash, name|
+      command_list.push(name)
+      commands.push(hash)
+    end
+    # Main loop
+    end_scene = false
+    loop do
+      choice = @scene.pbShowCommands(command_list)
+      if choice < 0
+        pbPlayCloseMenuSE
+        end_scene = true
+        break
+      end
+      break if commands[choice]["effect"].call(@scene)
+    end
+    @scene.pbEndScene if end_scene
+  end
+end
+=end