[XP Script] F12 Pause with image script

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

# ** Pausing with F12

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

# Zeriab

# Version 1.1

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

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

# * Version History :

#

#   Version 1.0 -------------------------------------------------- (2009-05-22)

#   - First release

#

#   Version 1.1 -------------------------------------------------- (2009-05-25)

#   - The pause image now appears immediately when F12 is pressed.

#   - Transitions are cut short rather than restarted when F12 is pressed.

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

# * 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 F12 prevention 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.

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



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

# ** Reset class (because it won't be defined until F12 is pressed otherwise)

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

class Reset < Exception

  

end

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

# ** Module Graphics

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

module Graphics

  class << self

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

    # * Aliases Graphics.update and Graphics.transition

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

    unless self.method_defined?(:zeriab_f12_pause_update)

      alias_method(:zeriab_f12_pause_update, :update)

      alias_method(:zeriab_f12_pause_transition, :transition)

    end

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

    # Change the update method so F12 toggles pause

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

    def update(*args)

      # Try to update normally

      begin

        zeriab_f12_pause_update(*args)

        return

      rescue Reset

        # Do nothing

      end

      # F12 has been pressed

      done = false

      # 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

      # Keep trying to do the update

      while !done

        begin

          zeriab_f12_pause_update(*args)

          done = true

        rescue Reset

          # Do Nothing

        end

      end

      # F12 has been released, update until it is pressed again

      while done

        begin

          zeriab_f12_pause_update(*args)

        rescue Reset

          done = false

        end

      end

      # F12 has been pressed, keep trying to update

      while !done

        begin

          zeriab_f12_pause_update(*args)

          done = true

        rescue Reset

          # Do nothing

        end

      end

      # F12 has been released, dispose pause image

      @sprite.dispose

      # Set proper frame count

      Graphics.frame_count = frame_count

    end

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

    # Changes the transition so it is cut short if F12 is pressed

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

    def transition(*args)

      done = false

      # Keep trying to do the transition

      while !done

        begin

          zeriab_f12_pause_transition(*args)

          done = true

        rescue Reset

          # Set transition length to 0 frames.

          args[0] = 0

        end

      end

    end

  end

end