[XP Script] P's Pause Script v2.0.1 (Updated: July 5th, 2009) [Exclusive]

History
Code:
#==============================================================================

# ** Pause with image

#------------------------------------------------------------------------------

# Zeriab

# Version 1.0

# 2009-05-23 (Year-Month-Day)

#------------------------------------------------------------------------------

# * Description :

#

#   This script changes the functionality of pressing F12 during the game

#   from resetting the game to (un)pausing the game. A picture is displayed 

#   while the game is paused. (Having a picture is optional)

#------------------------------------------------------------------------------

# * License :

#

#   Copyright (C) 2009  Zeriab

#

#   This program is free software: you can redistribute it and/or modify

#   it under the terms of the GNU Lesser Public License as published by

#   the Free Software Foundation, either version 3 of the License, or

#   (at your option) any later version.

#

#   This program is distributed in the hope that it will be useful,

#   but WITHOUT ANY WARRANTY; without even the implied warranty of

#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

#   GNU Lesser Public License for more details.

#

#   For the full license see <http://www.gnu.org/licenses/> 

#   The GNU General Public License: http://www.gnu.org/licenses/gpl.txt

#   The GNU Lesser General Public License: http://www.gnu.org/licenses/lgpl.txt

#------------------------------------------------------------------------------

# * Compatibility :

#

#   Is most likely not compatible with other pause scripts.

#------------------------------------------------------------------------------

# * Instructions :

#

#   Place this script anywhere above main.

#   The image file 'pause' present in Graphics/Pictures is used.

#   Note: No picture is shown if there is no 'pause' in Graphics/Pictures.

#==============================================================================



#=============================================================================

# ** Module Input

#=============================================================================

module Input

  class << self

    PAUSE_BUTTON = F6

    #-------------------------------------------------------------------------

    # * Aliases Graphics.update and Graphics.transition

    #-------------------------------------------------------------------------

    unless self.method_defined?(:zeriab_pause_update)

      alias_method(:zeriab_pause_update, :update)

    end

    def update(*args)

      zeriab_pause_update(*args)

      return unless trigger?(PAUSE_BUTTON)

      # Store frame count

      frame_count = Graphics.frame_count

      # Show pause image

      @sprite = Sprite.new

      @sprite.z = 9999

      begin

        @sprite.bitmap = RPG::Cache.picture('pause')

      rescue

        @sprite.bitmap = Bitmap.new(32,32)

      end

      # Update once so the trigger doesn't count.

      zeriab_pause_update(*args)

      # Update until trigger

      while !trigger?(PAUSE_BUTTON)

        zeriab_pause_update(*args)

        Graphics.update

      end

      # Dispose pause image

      @sprite.dispose

      # Set proper frame count

      Graphics.frame_count = frame_count

    end

  end

end