¡Bienvenido a Universo Maker!
¿Es esta la primera vez que visitas el foro? Si es así te recomendamos que te registres para tener completo acceso a todas las áreas y secciones del foro, así también podrás participar activamente en la comunidad. Si ya tienes una cuenta, conectate cuanto antes.
Iniciar Sesión Registrarme

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo Mensaje [Página 1 de 1.]

#1 [XP] Keys & Hotkeys el Mar Ago 07, 2012 1:53 am

Razor

avatar
Créditos: Aleworks, Sasuke_Uchiha
Versión: 1.0
Descripción: Este script te presenta un panel de rápido acceso para objetos u otras cosas por medio de teclas. Además el modulo de aleworks sirve para utilizar todas las teclas en el RPG Maker.


Características



  • Fácil uso
  • Muestra un HUD con las hotkeys actuales
  • Configurable desde el modulo del script



Imágenes



Spoiler:




Instrucciones



  • Coloque el script arriba de Main y configure las opciones pertinentes en el modulo del script.
  • El script de Aleworks tiene que ir encima del de las hotkeys.
  • El script esta en portugués pero traduje lo esencial [configuraciones en el modulo]
  • La imagen del HUD es indispensable, va en la carpeta pictures de tu proyecto


Script



Aleworks Input Module
Código:

=begin -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
                          Aleworks Input Module(AIM)                           
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 Created by Aleworks
 Version: 1.21
 Last Update: 29/01/2007 (dd/mm/yyyy)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
                          *** Introduction ***
 This script simulates the RGSS module "Input". It is not the original module,
 but it has all the original module functions and some new.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
                          *** Version History ***
-- Version 1.00 --
 * Input.reiterate?(num)
  Return true if the key 'num', has been triggered again in maximum
  20 frames(default) after the last trigger of the key.
 * Input.activated?(num)
  This command, checks if the key 'num' is on. Returns true if the key is on.
  (If num is 1 the key will be CAPS LOCK, if is 2 NUM LOCK, and if is
  3 SCROLL LOCK)
 * Input.press_all
  Return all the keys pressed.
 * Input.trigger_all
  Return all the keys triggered.
 * Input.repeat_all
  Return all the keys repeated.
 * Input.reiterate_all
  Return all the keys reiterated.
 * New Keys
  LOWER_LEFT,LOWER_RIGHT,UPPER_LEFT and UPPER_RIGHT
-- Version 1.10 --
 * Input.event(num)
  Creates a keyboard event. In other words, you can press keys with this command
 * Input.free_key(num)
  Frees a key, it will be not actived for a frame.
 * Input.free_all_keys
  Frees all keys.
-- Version 1.11 --
 * Changed the variables: @repeat_time, @reiterate_time, @reiterate and
  @update_keys to global variables for easy editing.
-- Version 1.12 --
 * Compability with the event commands: Asing Key and Condition Branch
-- Version 1.20 --
 * Little lag reduction
 * Input.release?(num)
  Returns true if the key num has been released.
 * Input.release_all
  Returns the keys that has been released.
-- Version 1.21 --
 * Major bug fixed, when using arrays in Input.press?, Input.trigger?,
  Input.reiterate? and Input.release?
 * Removed $update_keys and $reiterate
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
                            *** How to use ***
 * For some commands (trigger?,repeat? and reiterate?) you need to update this
 module with "Input.update".
 * If you need to use keys that are from the keyboard or from the mouse, use the
 Keys module.
  -- Example --
    Input.press?(Keys::CTRL)
  It will return true if the key CONTROL is pressed.
  -- Example --
    Input.press?(17)
  It will return true if the key CONTROL is pressed. The Keys::CTRL is equal to
  the number "17", so you can use the two forms.(See Keys module for all the
  list)

  You can see all the keys available in the Keys module.
  Remember that if you want to use keys from the keyboard or mouse you need to
  put the number of the keys in the @update_keys variable.
 * You can use Arrays in the commands.
  -- Example --
    Input.press?([Input::A, Input::B])
  It'll return true if buttons A or/and B is/are pressed.
  -- Example 2 --
    Input.press?([Keys::A, Keys::B, Keys::C])
  It'll return true if the letters A or/and B or/and C is/are pressed.
  -- Example 3 --
    Input.trigger?([[Keys::SHIFT, Keys::ESCAPE]])
  It'll return true if the keys SHIFT and ESCAPE are being pressed.
  -- Example 4 --
    Input.trigger?([[Keys::SHIFT, Keys::ESCAPE], [Keys::ALT, Keys::F1]])
  It'll return true if the keys SHIFT and ESCAPE or the keys ALT an F1 are
  being pressed.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
=end

#===============================================================================
# ** Registry                                                                 
#-------------------------------------------------------------------------------
# This class reads the windows registry.                                       
#===============================================================================

module Win32
  class Registry
    module Constants
      HKEY_CLASSES_ROOT = 0x80000000
      HKEY_CURRENT_USER = 0x80000001
      HKEY_LOCAL_MACHINE = 0x80000002
      HKEY_USERS = 0x80000003
      HKEY_PERFORMANCE_DATA = 0x80000004
      HKEY_PERFORMANCE_TEXT = 0x80000050
      HKEY_PERFORMANCE_NLSTEXT = 0x80000060
      HKEY_CURRENT_CONFIG = 0x80000005
      HKEY_DYN_DATA = 0x80000006
      REG_NONE = 0
      REG_SZ = 1
      REG_EXPAND_SZ = 2
      REG_BINARY = 3
      REG_DWORD = 4
      REG_DWORD_LITTLE_ENDIAN = 4
      REG_DWORD_BIG_ENDIAN = 5
      REG_LINK = 6
      REG_MULTI_SZ = 7
      REG_RESOURCE_LIST = 8
      REG_FULL_RESOURCE_DESCRIPTOR = 9
      REG_RESOURCE_REQUIREMENTS_LIST = 10
      REG_QWORD = 11
      REG_QWORD_LITTLE_ENDIAN = 11
      STANDARD_RIGHTS_READ = 0x00020000
      STANDARD_RIGHTS_WRITE = 0x00020000
      KEY_QUERY_VALUE = 0x0001
      KEY_SET_VALUE = 0x0002
      KEY_CREATE_SUB_KEY = 0x0004
      KEY_ENUMERATE_SUB_KEYS = 0x0008
      KEY_NOTIFY = 0x0010
      KEY_CREATE_LINK = 0x0020
      KEY_READ = STANDARD_RIGHTS_READ |
        KEY_QUERY_VALUE | KEY_ENUMERATE_SUB_KEYS | KEY_NOTIFY
      KEY_WRITE = STANDARD_RIGHTS_WRITE |
        KEY_SET_VALUE | KEY_CREATE_SUB_KEY
      KEY_EXECUTE = KEY_READ
      KEY_ALL_ACCESS = KEY_READ | KEY_WRITE | KEY_CREATE_LINK
      REG_OPTION_RESERVED = 0x0000
      REG_OPTION_NON_VOLATILE = 0x0000
      REG_OPTION_VOLATILE = 0x0001
      REG_OPTION_CREATE_LINK = 0x0002
      REG_OPTION_BACKUP_RESTORE = 0x0004
      REG_OPTION_OPEN_LINK = 0x0008
      REG_LEGAL_OPTION = REG_OPTION_RESERVED |
        REG_OPTION_NON_VOLATILE | REG_OPTION_CREATE_LINK |
        REG_OPTION_BACKUP_RESTORE | REG_OPTION_OPEN_LINK
      REG_CREATED_NEW_KEY = 1
      REG_OPENED_EXISTING_KEY = 2
      REG_WHOLE_HIVE_VOLATILE = 0x0001
      REG_REFRESH_HIVE = 0x0002
      REG_NO_LAZY_FLUSH = 0x0004
      REG_FORCE_RESTORE = 0x0008
      MAX_KEY_LENGTH = 514
      MAX_VALUE_LENGTH = 32768
    end
    include Constants
    include Enumerable
    class Error < ::StandardError
      FormatMessageA=Win32API.new('kernel32.dll','FormatMessageA','LPLLPLP','L')
      def initialize(code)
        @code = code
        msg = "\0" * 1024
        len = FormatMessageA.call(0x1200, 0, code, 0, msg, 1024, 0)
        super msg[0, len].tr("\r", '').chomp
      end
      attr_reader :code
    end
    class PredefinedKey < Registry
      def initialize(hkey, keyname)
        @hkey = hkey
        @parent = nil
        @keyname = keyname
        @disposition = REG_OPENED_EXISTING_KEY
      end
      def close
        raise Error.new(5)
      end
      def class
        Registry
      end
      Constants.constants.grep(/^HKEY_/) do |c|
        Registry.const_set c, new(Constants.const_get(c), c)
      end
    end
    module API
      [
        %w/RegOpenKeyExA    LPLLP        L/,
        %w/RegCreateKeyExA  LPLLLLPPP    L/,
        %w/RegEnumValueA    LLPPPPPP    L/,
        %w/RegEnumKeyExA    LLPPLLLP    L/,
        %w/RegQueryValueExA LPLPPP      L/,
        %w/RegSetValueExA  LPLLPL      L/,
        %w/RegFlushKey      L            L/,
        %w/RegCloseKey      L            L/,
        %w/RegQueryInfoKey  LPPPPPPPPPPP L/,
      ].each do |fn|
        const_set fn[0].intern, Win32API.new('advapi32.dll', *fn)
      end
      module_function
      def check(result)
        raise Error, result, caller(2) if result != 0
      end
      def packdw(dw)
        [dw].pack('V')
      end
      def unpackdw(dw)
        dw += [0].pack('V')
        dw.unpack('V')[0]
      end
      def packqw(qw)
        [ qw & 0xFFFFFFFF, qw >> 32 ].pack('VV')
      end
      def unpackqw(qw)
        qw = qw.unpack('VV')
        (qw[1] << 32) | qw[0]
      end
      def OpenKey(hkey, name, opt, desired)
        result = packdw(0)
        check RegOpenKeyExA.call(hkey, name, opt, desired, result)
        unpackdw(result)
      end
      def CreateKey(hkey, name, opt, desired)
        result = packdw(0)
        disp = packdw(0)
        check RegCreateKeyExA.call(hkey, name, 0, 0, opt, desired,
                                  0, result, disp)
        [ unpackdw(result), unpackdw(disp) ]
      end
      def EnumValue(hkey, index)
        name = ' ' * Constants::MAX_KEY_LENGTH
        size = packdw(Constants::MAX_KEY_LENGTH)
        check RegEnumValueA.call(hkey, index, name, size, 0, 0, 0, 0)
        name[0, unpackdw(size)]
      end
      def EnumKey(hkey, index)
        name = ' ' * Constants::MAX_KEY_LENGTH
        size = packdw(Constants::MAX_KEY_LENGTH)
        wtime = ' ' * 8
        check RegEnumKeyExA.call(hkey, index, name, size, 0, 0, 0, wtime)
        [ name[0, unpackdw(size)], unpackqw(wtime) ]
      end
      def QueryValue(hkey, name)
        type = packdw(0)
        size = packdw(0)
        check RegQueryValueExA.call(hkey, name, 0, type, 0, size)
        data = ' ' * unpackdw(size)
        check RegQueryValueExA.call(hkey, name, 0, type, data, size)
        [ unpackdw(type), data[0, unpackdw(size)] ]
      end
      def SetValue(hkey, name, type, data, size)
        check RegSetValueExA.call(hkey, name, 0, type, data, size)
      end
      def FlushKey(hkey)
        check RegFlushKey.call(hkey)
      end
      def CloseKey(hkey)
        check RegCloseKey.call(hkey)
      end
      def QueryInfoKey(hkey)
        subkeys = packdw(0)
        maxsubkeylen = packdw(0)
        values = packdw(0)
        maxvaluenamelen = packdw(0)
        maxvaluelen = packdw(0)
        secdescs = packdw(0)
        wtime = ' ' * 8
        check RegQueryInfoKey.call(hkey, 0, 0, 0, subkeys, maxsubkeylen, 0,
          values, maxvaluenamelen, maxvaluelen, secdescs, wtime)
        [ unpackdw(subkeys), unpackdw(maxsubkeylen), unpackdw(values),
          unpackdw(maxvaluenamelen), unpackdw(maxvaluelen),
          unpackdw(secdescs), unpackqw(wtime) ]
      end
    end
    def self.expand_environ(str)
      str.gsub(/%([^%]+)%/) { ENV[$1] || $& }
    end
    @@type2name = { }
    %w[
      REG_NONE REG_SZ REG_EXPAND_SZ REG_BINARY REG_DWORD
      REG_DWORD_BIG_ENDIAN REG_LINK REG_MULTI_SZ
      REG_RESOURCE_LIST REG_FULL_RESOURCE_DESCRIPTOR
      REG_RESOURCE_REQUIREMENTS_LIST REG_QWORD
    ].each do |type|
      @@type2name[Constants.const_get(type)] = type
    end
    def self.type2name(type)
      @@type2name[type] || type.to_s
    end
    def self.wtime2time(wtime)
      Time.at((wtime - 116444736000000000) / 10000000)
    end
    def self.time2wtime(time)
      time.to_i * 10000000 + 116444736000000000
    end
    private_class_method :new
    def self.open(hkey, subkey, desired = KEY_READ, opt = REG_OPTION_RESERVED)
      subkey = subkey.chomp('\\')
      newkey = API.OpenKey(hkey.hkey, subkey, opt, desired)
      obj = new(newkey, hkey, subkey, REG_OPENED_EXISTING_KEY)
      if block_given?
        begin
          yield obj
        ensure
          obj.close
        end
      else
        obj
      end
    end
    def self.create(hkey, subkey, desired = KEY_ALL_ACCESS, opt = 0x0000)
      newkey, disp = API.CreateKey(hkey.hkey, subkey, opt, desired)
      obj = new(newkey, hkey, subkey, disp)
      if block_given?
        begin
          yield obj
        ensure
          obj.close
        end
      else
        obj
      end
    end
    @@final = proc { |hkey| proc { API.CloseKey(hkey[0]) if hkey[0] } }
    def initialize(hkey, parent, keyname, disposition)
      @hkey = hkey
      @parent = parent
      @keyname = keyname
      @disposition = disposition
      @hkeyfinal = [ hkey ]
      ObjectSpace.define_finalizer self, @@final.call(@hkeyfinal)
    end
    attr_reader :hkey, :parent, :keyname, :disposition
    def created?
      @disposition == REG_CREATED_NEW_KEY
    end
    def open?
      !@hkey.nil?
    end
    def name
      parent = self
      name = @keyname
      while parent = parent.parent
        name = parent.keyname + '\\' + name
      end
      name
    end
    def inspect
      "\#<Win32::Registry key=#{name.inspect}>"
    end
    def _dump(depth)
      raise TypeError, "can't dump Win32::Registry"
    end
    def open(subkey, desired = KEY_READ, opt = REG_OPTION_RESERVED, &blk)
      self.class.open(self, subkey, desired, opt, &blk)
    end
    def create(subkey, desired = KEY_ALL_ACCESS, opt = REG_OPTION_RESERVED, &blk)
      self.class.create(self, subkey, desired, opt, &blk)
    end
    def close
      API.CloseKey(@hkey)
      @hkey = @parent = @keyname = nil
      @hkeyfinal[0] = nil
    end
    def each_value
      index = 0
      while true
        begin
          subkey = API.EnumValue(@hkey, index)
        rescue Error
          break
        end
        begin
          type, data = read(subkey)
        rescue Error
          next
        end
        yield subkey, type, data
        index += 1
      end
      index
    end
    alias each each_value
    def each_key
      index = 0
      while true
        begin
          subkey, wtime = API.EnumKey(@hkey, index)
        rescue Error
          break
        end
        yield subkey, wtime
        index += 1
      end
      index
    end
    def keys
      keys_ary = []
      each_key { |key,| keys_ary << key }
      keys_ary
    end
    def read(name, *rtype)
      type, data = API.QueryValue(@hkey, name)
      unless rtype.empty? or rtype.include?(type)
        string = "Type mismatch (expect #{rtype.inspect} but #{type} present)"
        raise TypeError, string
      end
      case type
      when REG_SZ, REG_EXPAND_SZ
        [ type, data.chop ]
      when REG_MULTI_SZ
        [ type, data.split(/\0/) ]
      when REG_BINARY
        [ type, data ]
      when REG_DWORD
        [ type, API.unpackdw(data) ]
      when REG_DWORD_BIG_ENDIAN
        [ type, data.unpack('N')[0] ]
      when REG_QWORD
        [ type, API.unpackqw(data) ]
      else
        raise TypeError, "Type #{type} is not supported."
      end
    end
    def [](name, *rtype)
      type, data = read(name, *rtype)
      case type
      when REG_SZ, REG_DWORD, REG_QWORD, REG_MULTI_SZ
        data
      when REG_EXPAND_SZ
        Registry.expand_environ(data)
      else
        raise TypeError, "Type #{type} is not supported."
      end
    end
    def read_s(name)
      read(name, REG_SZ)[1]
    end
    def read_s_expand(name)
      type, data = read(name, REG_SZ, REG_EXPAND_SZ)
      if type == REG_EXPAND_SZ
        Registry.expand_environ(data)
      else
        data
      end
    end
    def read_i(name)
      read(name, REG_DWORD, REG_DWORD_BIG_ENDIAN, REG_QWORD)[1]
    end
    def read_bin(name)
      read(name, REG_BINARY)[1]
    end
    def write(name, type, data)
      case type
      when REG_SZ, REG_EXPAND_SZ
        data = data.to_s + "\0"
      when REG_MULTI_SZ
        data = data.to_a.join("\0") + "\0\0"
      when REG_BINARY
        data = data.to_s
      when REG_DWORD
        data = API.packdw(data.to_i)
      when REG_DWORD_BIG_ENDIAN
        data = [data.to_i].pack('N')
      when REG_QWORD
        data = API.packqw(data.to_i)
      else
        raise TypeError, "Unsupported type #{type}"
      end
      API.SetValue(@hkey, name, type, data, data.length)
    end
    def []=(name, rtype, value = nil)
      if value
        write name, rtype, value
      else
        case value = rtype
        when Integer
          write name, REG_DWORD, value
        when String
          write name, REG_SZ, value
        when Array
          write name, REG_MULTI_SZ, value
        else
          raise TypeError, "Unexpected type #{value.class}"
        end
      end
      value
    end
    def write_s(name, value)
      write name, REG_SZ, value.to_s
    end
    def write_i(name, value)
      write name, REG_DWORD, value.to_i
    end
    def write_bin(name, value)
      write name, REG_BINARY, value.to_s
    end
    def flush
      API.FlushKey @hkey
    end
    def info
      API.QueryInfoKey(@hkey)
    end
    %w[
      num_keys max_key_length
      num_values max_value_name_length max_value_length
      descriptor_length wtime
    ].each_with_index do |s, i|
      eval <<-__END__
        def #{s}
          info[#{i}]
        end
      __END__
    end
  end
end
module Input
  Mouse_Left = 1
  Mouse_Right = 2
  Mouse_Middle = 4
  Back= 8
  Tab = 9
  Enter = 13
  Shift = 16
  Ctrl = 17
  Alt = 18
  Esc = 27
  Space = 32
  Numberkeys = {}
  Numberkeys[0] = 48    # => 0
  Numberkeys[1] = 49    # => 1
  Numberkeys[2] = 50    # => 2
  Numberkeys[3] = 51    # => 3
  Numberkeys[4] = 52    # => 4
  Numberkeys[5] = 53    # => 5
  Numberkeys[6] = 54    # => 6
  Numberkeys[7] = 55    # => 7
  Numberkeys[8] = 56    # => 8
  Numberkeys[9] = 57    # => 9
  Numberpad = {}
  Numberpad[0] = 45
  Numberpad[1] = 35
  Numberpad[2] = 40
  Numberpad[3] = 34
  Numberpad[4] = 37
  Numberpad[5] = 12
  Numberpad[6] = 39
  Numberpad[7] = 36
  Numberpad[8] = 38
  Numberpad[9] = 33
  Letters = {}
  Letters["A"] = 65
  Letters["B"] = 66
  Letters["C"] = 67
  Letters["D"] = 68
  Letters["E"] = 69
  Letters["F"] = 70
  Letters["G"] = 71
  Letters["H"] = 72
  Letters["I"] = 73
  Letters["J"] = 74
  Letters["K"] = 75
  Letters["L"] = 76
  Letters["M"] = 77
  Letters["N"] = 78
  Letters["O"] = 79
  Letters["P"] = 80
  Letters["Q"] = 81
  Letters["R"] = 82
  Letters["S"] = 83
  Letters["T"] = 84
  Letters["U"] = 85
  Letters["V"] = 86
  Letters["W"] = 87
  Letters["X"] = 88
  Letters["Y"] = 89
  Letters["Z"] = 90
  Fkeys = {}
  Fkeys[1] = 112
  Fkeys[2] = 113
  Fkeys[3] = 114
  Fkeys[4] = 115
  Fkeys[5] = 116
  Fkeys[6] = 117
  Fkeys[7] = 118
  Fkeys[8] = 119
  Fkeys[9] = 120
  Fkeys[10] = 121
  Fkeys[11] = 122
  Fkeys[12] = 123
  Collon = 186    # => \ |
  Equal = 187    # => = +
  Comma = 188    # => , <
  Underscore = 189  # => - _
  Dot = 190      # => . >
  Backslash = 191  # => / ?
  Lb = 219
  Rb = 221
  Quote = 222    # => '"
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Editable options **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  $repeat_time = 7 # Frames for repeat in Input.repeat? (30 frames = 1s aprox.)
  $reiterate_time = 20 # Frames for reiterate in Input.reiterate?
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Win32API class creation **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  GetKeyState = Win32API.new('user32', 'GetKeyState', 'i', 'i')
  GetAsyncKeyState = Win32API.new('user32', 'GetAsyncKeyState', 'i', 'i')
  Keybd_event = Win32API.new('user32', 'keybd_event', %w(l l l l), '')
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Internal variables definition **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  @trigger, @trigger2, @repeat, @repeat2 = [], [], [], []
  @repeat3, @reiterate, @reiterate2, @reiterate3 = [], [], [], []
  @release, @release2 = [], []
  for i in 0..255
    @trigger.push(false)
    @trigger2.push(false)
    @repeat.push(false)
    @repeat2.push(0)
    @reiterate.push(false)
    @reiterate2.push(0)
    @reiterate3.push(GetKeyState.call(i) & 0x01)
    @release.push(false)
    @release2.push(false)
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** convert_keys (internal definition) **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  # It reads the windows registry and returns the corresponding keys to the
  # F1 keys menu.
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  module_function
  def convert_keys(num)
    Win32::Registry::HKEY_CURRENT_USER.open('Software\Enterbrain\RGSS') do |reg|
      value = reg.read('ButtonAssign', 3)[1].scan(/./)
      value[0, 10] = nil
      value.compact!
      key = []
      key2 = []
      for i in 0..14
        value[i] = 11 if value[i] == "\v"
        value[i] = 12 if value[i] == "\f"
        value[i] = 13 if value[i] == "\r"
        value[i] = 14 if value[i] == "\16"
        value[i] = 15 if value[i] == "\17"
        value[i] = 16 if value[i] == "\20"
        value[i] = 17 if value[i] == "\21"
        value[i] = 18 if value[i] == "\22"
        key.push(i) if num == value[i]
      end
      for i in key
        key2.push(32) if i == 0
        key2.push(13) if i == 1
        key2.push(27) if i == 2
        key2.push(96) if i == 3
        key2.push(16) if i == 4
        key2.push(90) if i == 5
        key2.push(88) if i == 6
        key2.push(67) if i == 7
        key2.push(86) if i == 8
        key2.push(66) if i == 9
        key2.push(65) if i == 10
        key2.push(83) if i == 11
        key2.push(68) if i == 12
        key2.push(81) if i == 13
        key2.push(87) if i == 14
      end
      return key2
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Keys variables definition **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  LOWER_LEFT = 97
  LOWER_RIGHT = 99
  UPPER_LEFT = 103
  UPPER_RIGHT = 105
  DOWN = [98, 40]
  LEFT = [100, 37]
  RIGHT = [102, 39]
  UP = [104, 38]
  A = convert_keys(11)
  B = convert_keys(12)
  C = convert_keys(13)
  X = convert_keys(14)
  Y = convert_keys(15)
  Z = convert_keys(16)
  L = convert_keys(17)
  R = convert_keys(18)
  SHIFT = 16
  CTRL = 17
  ALT = 18
  F5 = 116
  F6 = 117
  F7 = 118
  F8 = 119
  F9 = 120
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Update **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.update
    for i in 0..255
      @repeat2[i] -=1 if @repeat2[i] > 0
      if !GetAsyncKeyState.call(i).between?(0, 1)
        if @trigger2[i]
          @trigger[i] = false
        else
          @trigger[i] = true
          @trigger2[i] = true
        end
        if @repeat2[i] <= 0
          @repeat[i] = true
          @repeat2[i] = $repeat_time
        else
          @repeat[i] = false
        end
        @release2[i] = true
      else
        @trigger[i] = false
        @trigger2[i] = false
        @repeat[i] = false
        if @release2[i]
          @release[i] = true
        else
          @release[i] = false
        end
        @release2[i] = false
      end
      @reiterate2[i] -= 1 if @reiterate2[i] > 0
      @reiterate[i] = false if @reiterate2[i] == 0
      if GetKeyState.call(i) & 0x01 == 1 and @reiterate3[i] == 0
        @reiterate[i] = true
        @reiterate2[i] = $reiterate_time
        @reiterate3[i] = 1
      elsif GetKeyState.call(i) & 0x01 == 0 and @reiterate3[i] == 1
        @reiterate[i] = true
        @reiterate2[i] = $reiterate_time
        @reiterate3[i] = 0
      end
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** press? **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.press?(num)
    if num.is_a?(Array)
      for i in 0...num.size
        if num[i].is_a?(Array)
          returntrue = true
          for e in 0...num[i].size
            if num[i][e].is_a?(Array)
              returntrue2 = false
              for o in 0...num[i][e].size
                if !GetAsyncKeyState.call(num[i][e][o]).between?(0, 1)
                  returntrue2 = true
                end
              end
              returntrue = false if !returntrue2
            elsif GetAsyncKeyState.call(num[i][e]).between?(0, 1)
              returntrue = false
            end
          end
          return true if returntrue
        else
          return true if !GetAsyncKeyState.call(num[i]).between?(0, 1)
        end
      end
      return false
    else
      return !GetAsyncKeyState.call(num).between?(0, 1)
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Press all **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.press_all
    pressed = []
    for i in 0..255
      pressed.push(i) if Input.press?(i)
    end
    return pressed
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Trigger **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.trigger?(num)
    if num.is_a?(Array)
      for i in 0...num.size
        if num[i].is_a?(Array)
          returntrue = true
          for e in 0...num[i].size
            if num[i][e].is_a?(Array)
              returntrue2 = false
              for o in 0...num[i][e].size
                if @trigger[num[i][e][o]]
                  returntrue2 = true
                end
              end
              returntrue = false if !returntrue2
            elsif @trigger[num[i][e]]
              returntrue = false
            end
          end
          return true if returntrue
        else
          return true if @trigger[num[i]]
        end
      end
      return false
    else
      return @trigger[num]
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Trigger all **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.trigger_all
    triggered = []
    for i in 0..255
      triggered.push(i) if @trigger[i]
    end
    return triggered
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Repeat **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.repeat?(num)
    if num.is_a?(Array)
      for i in 0...num.size
        if num[i].is_a?(Array)
          returntrue = true
          for e in 0...num[i].size
            if num[i][e].is_a?(Array)
              returntrue2 = false
              for o in 0...num[i][e].size
                if @repeat[num[i][e][o]]
                  returntrue2 = true
                end
              end
              returntrue = false if !returntrue2
            elsif @repeat[num[i][e]]
              returntrue = false
            end
          end
          return true if returntrue
        else
          return true if @repeat[num[i]]
        end
      end
      return false
    else
      return @repeat[num]
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Repeat all **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.repeat_all
    repeated = []
    for i in 0..255
      repeated.push(i) if @repeat[i]
    end
    return repeated
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Reiterate **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.reiterate?(num)
    if num.is_a?(Array)
      for i in 0...num.size
        if num[i].is_a?(Array)
          returntrue = true
          for e in 0...num[i].size
            if num[i][e].is_a?(Array)
              returntrue2 = false
              for o in 0...num[i][e].size
                if @reiterate[num[i][e][o]]
                  returntrue2 = true
                end
              end
              returntrue = false if !returntrue2
            elsif @reiterate[num[i][e]]
              returntrue = false
            end
          end
          return true if returntrue
        else
          return true if @reiterate[num[i]]
        end
      end
      return false
    else
      return @reiterate[num]
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Reiterate all **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.reiterate_all
    reiterated = []
    for i in 0..255
      reiterated.push(i) if @reiterate[i]
    end
    return reiterated
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Release **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.release?(num)
    if num.is_a?(Array)
      for i in 0...num.size
        if num[i].is_a?(Array)
          returntrue = true
          for e in 0...num[i].size
            if num[i][e].is_a?(Array)
              returntrue2 = false
              for o in 0...num[i][e].size
                if @release[num[i][e][o]]
                  returntrue2 = true
                end
              end
              returntrue = false if !returntrue2
            elsif @release[num[i][e]]
              returntrue = false
            end
          end
          return true if returntrue
        else
          return true if @release[num[i]]
        end
      end
      return false
    else
      return @release[num]
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Release All **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.release_all
    release = []
    for i in 0..255
      release.push(i) if @release[i]
    end
    return release
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** 4 Directions **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.dir4
    return 2 if Input.press?(Input::DOWN)
    return 4 if Input.press?(Input::LEFT)
    return 6 if Input.press?(Input::RIGHT)
    return 8 if Input.press?(Input::UP)
    return 0
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** 8 Directions **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.dir8
    return 1 if Input.press?([[Input::DOWN, Input::LEFT]])
    return 3 if Input.press?([[Input::DOWN, Input::RIGHT]])
    return 7 if Input.press?([[Input::UP, Input::LEFT]])
    return 9 if Input.press?([[Input::UP, Input::RIGHT]])
    return 1 if Input.press?(Input::LOWER_LEFT)
    return 3 if Input.press?(Input::LOWER_RIGHT)
    return 7 if Input.press?(Input::UPPER_LEFT)
    return 9 if Input.press?(Input::UPPER_RIGHT)
    return 2 if Input.press?(Input::DOWN)
    return 4 if Input.press?(Input::LEFT)
    return 6 if Input.press?(Input::RIGHT)
    return 8 if Input.press?(Input::UP)
    return 0
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Activated **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.activated?(num)
    return GetKeyState.call(20) & 0x01 == 1 if num == 1 or num == 20
    return GetKeyState.call(144) & 0x01 == 1 if num == 2 or num == 144
    return GetKeyState.call(145) & 0x01 == 1 if num == 3 or num == 145
    return nil
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Key event **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.event(num)
    if num.is_a?(Array)
      for i in num
        Keybd_event.call(i,0,0,0)
      end
      for i in num
        Keybd_event.call(i,0,2,0)
      end
    else
      Keybd_event.call(num,0,0,0)
      Keybd_event.call(num,0,2,0)
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Free key **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.free_key(num)
    if num.is_a?(Array)
      for i in num
        Keybd_event.call(i,0,2,0)
      end
    else
      Keybd_event.call(num,0,2,0)
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  #  ** Free all keys **
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def Input.free_all_keys
    for i in 0..255
      Keybd_event.call(i,0,2,0)
    end
  end
end

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#  *** Interpreter ***
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
class Interpreter
  def input_button
    n = 0
    n = 1 if Input.trigger?(Input::LOWER_LEFT)
    n = 3 if Input.trigger?(Input::LOWER_RIGHT)
    n = 7 if Input.trigger?(Input::UPPER_LEFT)
    n = 9 if Input.trigger?(Input::UPPER_RIGHT)
    n = 2 if Input.trigger?(Input::DOWN)
    n = 4 if Input.trigger?(Input::LEFT)
    n = 6 if Input.trigger?(Input::RIGHT)
    n = 8 if Input.trigger?(Input::UP)
    n = 11 if Input.trigger?(Input::A)
    n = 12 if Input.trigger?(Input::B)
    n = 13 if Input.trigger?(Input::C)
    n = 14 if Input.trigger?(Input::X)
    n = 15 if Input.trigger?(Input::Y)
    n = 16 if Input.trigger?(Input::Z)
    n = 17 if Input.trigger?(Input::L)
    n = 18 if Input.trigger?(Input::R)
    if n > 0
      $game_variables[@button_input_variable_id] = n
      $game_map.need_refresh = true
      @button_input_variable_id = 0
    end
  end
  #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  def command_111
    result = false
    case @parameters[0]
    when 0
      result = ($game_switches[@parameters[1]] == (@parameters[2] == 0))
    when 1
      value1 = $game_variables[@parameters[1]]
      if @parameters[2] == 0
        value2 = @parameters[3]
      else
        value2 = $game_variables[@parameters[3]]
      end
      case @parameters[4]
      when 0
        result = (value1 == value2)
      when 1
        result = (value1 >= value2)
      when 2
        result = (value1 <= value2)
      when 3
        result = (value1 > value2)
      when 4
        result = (value1 < value2)
      when 5
        result = (value1 != value2)
      end
    when 2
      if @event_id > 0
        key = [$game_map.map_id, @event_id, @parameters[1]]
        if @parameters[2] == 0
          result = ($game_self_switches[key] == true)
        else
          result = ($game_self_switches[key] != true)
        end
      end
    when 3
      if $game_system.timer_working
        sec = $game_system.timer / Graphics.frame_rate
        if @parameters[2] == 0
          result = (sec >= @parameters[1])
        else
          result = (sec <= @parameters[1])
        end
      end
    when 4
      actor = $game_actors[@parameters[1]]
      if actor != nil
        case @parameters[2]
        when 0
          result = ($game_party.actors.include?(actor))
        when 1
          result = (actor.name == @parameters[3])
        when 2
          result = (actor.skill_learn?(@parameters[3]))
        when 3
          result = (actor.weapon_id == @parameters[3])
        when 4
          result = (actor.armor1_id == @parameters[3] or
                    actor.armor2_id == @parameters[3] or
                    actor.armor3_id == @parameters[3] or
                    actor.armor4_id == @parameters[3])
        when 5
          result = (actor.state?(@parameters[3]))
        end
      end
    when 5
      enemy = $game_troop.enemies[@parameters[1]]
      if enemy != nil
        case @parameters[2]
        when 0
          result = (enemy.exist?)
        when 1
          result = (enemy.state?(@parameters[3]))
        end
      end
    when 6
      character = get_character(@parameters[1])
      if character != nil
        result = (character.direction == @parameters[2])
      end
    when 7
      if @parameters[2] == 0
        result = ($game_party.gold >= @parameters[1])
      else
        result = ($game_party.gold <= @parameters[1])
      end
    when 8
      result = ($game_party.item_number(@parameters[1]) > 0)
    when 9
      result = ($game_party.weapon_number(@parameters[1]) > 0)
    when 10
      result = ($game_party.armor_number(@parameters[1]) > 0)
    when 11
      n = Input::DOWN if @parameters[1] == 2
      n = Input::LEFT if @parameters[1] == 4
      n = Input::RIGHT if @parameters[1] == 6
      n = Input::UP if @parameters[1] == 8
      n = Input::A if @parameters[1] == 11
      n = Input::B if @parameters[1] == 12
      n = Input::C if @parameters[1] == 13
      n = Input::X if @parameters[1] == 14
      n = Input::Y if @parameters[1] == 15
      n = Input::Z if @parameters[1] == 16
      n = Input::L if @parameters[1] == 17
      n = Input::R if @parameters[1] == 18
      result = (Input.press?(n))
    when 12
      result = eval(@parameters[1])
    end
    @branch[@list[@index].indent] = result
    if @branch[@list[@index].indent] == true
      @branch.delete(@list[@index].indent)
      return true
    end
    return command_skip
  end
end
=begin -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
                        Aleworks Keys Module
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 Created by Aleworks
 Version: 1.00.USA
 Last Update: 12/12/2006 (dd/mm/yyyy)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 * This module has all the keys of the USA keyboard.
 * The USA keyboard is like this:

 ----------------------------------------------------------------------------
 - ESC  F1 F2 F3 F4  F5 F6 F7 F8  F9 F10 F11 F12 SNP  SCRL PAUSE          -
 -                                                                          -
 - ` 1  2  3  4  5  6  7  8  9  0  -  = BACKSPACE INS  HOME PGUP  N / * -  -
 - TAB Q  W  E  R  T  Y  U  I  O  P  [  ]  EN-TER DEL  END  PGDW  7 8 9 +  -
 - CAPS A  S  D  F  G  H  J  K  L  ;  '  E-N-T-ER                4 5 6 +  -
 - SHIFT Z  X  C  V  B  N  M  ,  .  /  S-H-IFT  \      UP        1 2 3 EN  -
 - CTRL WIN ALT S-P-A-C-E-B-A-R ALT WIN APPS CTRL LEFT DOWN RIGHT 0-- . TER -
 ----------------------------------------------------------------------------

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
                            *** Functions ***
 * Keys.name?(num)
  Return a string with the name of the key "num".
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
=end

module Keys
#-----------------------------------------------------------------------------
  MOUSE_PRIMARY  = 1    # Mouse primary button (Normaly the left button)
  MOUSE_SECONDARY = 2    # Mouse secondary button (Normaly the right button)
  MOUSE_MIDDLE    = 4    # Mouse middle button
  MOUSE_4TH      = 5    # Mouse fourth button
  MOUSE_5TH      = 6    # Mouse fifth button
#-----------------------------------------------------------------------------
  BACKSPACE      = 8    # BACKSPACE key
  TAB            = 9    # TAB key
  RETURN          = 13  # ENTER key
  SHIFT          = 16  # SHIFT key
  CTLR            = 17  # CTLR key
  ALT            = 18  # ALT key
  CAPS_LOCK      = 20  # CAPS LOCK key
  ESCAPE          = 27  # ESC key
  SPACE          = 32  # SPACEBAR
  PGUP            = 33  # PAGE UP key
  PGDN            = 34  # PAGE DOWN key
  ENDS            = 35  # END key
  HOME            = 36  # HOME key
  LEFT            = 37  # LEFT ARROW key
  UP              = 38  # UP ARROW key
  RIGHT          = 39  # RIGHT ARROW key
  DOWN            = 40  # DOWN ARROW key
  SNAPSHOT        = 44  # PRINT SCREEN key
  INSERT          = 45  # INS key
  DELETE          = 46  # DEL key
#-----------------------------------------------------------------------------
  N0              = 48  # 0 key
  N1              = 49  # 1 key
  N2              = 50  # 2 key
  N3              = 51  # 3 key
  N4              = 52  # 4 key
  N5              = 53  # 5 key
  N6              = 54  # 6 key
  N7              = 55  # 7 key
  N8              = 56  # 8 key
  N9              = 57  # 9 key
#-----------------------------------------------------------------------------
  A              = 65  # A key
  B              = 66  # B key
  C              = 67  # C key
  D              = 68  # D key
  E              = 69  # E key
  F              = 70  # F key
  G              = 71  # G key
  H              = 72  # H key
  I              = 73  # I key
  J              = 74  # J key
  K              = 75  # K key
  L              = 76  # L key
  M              = 77  # M key
  N              = 78  # N key
  O              = 79  # O key
  P              = 80  # P key
  Q              = 81  # Q key
  R              = 82  # R key
  S              = 83  # S key
  T              = 84  # T key
  U              = 85  # U key
  V              = 86  # V key
  W              = 87  # W key
  X              = 88  # X key
  Y              = 89  # Y key
  Z              = 90  # Z key
#-----------------------------------------------------------------------------
  LWIN            = 91  # Left Windows key (Microsoft Natural keyboard)
  RWIN            = 92  # Right Windows key (Natural keyboard)
  APPS            = 93  # Applications key (Natural keyboard)
#-----------------------------------------------------------------------------
  NUMPAD0        = 96  # Numeric keypad 0 key
  NUMPAD1        = 97  # Numeric keypad 1 key
  NUMPAD2        = 98  # Numeric keypad 2 key
  NUMPAD3        = 99  # Numeric keypad 3 key
  NUMPAD4        = 100  # Numeric keypad 4 key
  NUMPAD5        = 101  # Numeric keypad 5 key
  NUMPAD6        = 102  # Numeric keypad 6 key
  NUMPAD7        = 103  # Numeric keypad 7 key
  NUMPAD8        = 104  # Numeric keypad 8 key
  NUMPAD9        = 105  # Numeric keypad 9 key
  MULTIPLY        = 106  # Multiply key (*)
  ADD            = 107  # Add key (+)
  SUBTRACT        = 109  # Subtract key (-)
  DECIMAL        = 110  # . (Decimal from PAD)
  DIVIDE          = 111  # Divide key (/)
#-----------------------------------------------------------------------------
  F1              = 112  # F1 key
  F2              = 113  # F2 key
  F3              = 114  # F3 key
  F4              = 115  # F4 key
  F5              = 116  # F5 key
  F6              = 117  # F6 key
  F7              = 118  # F7 key
  F8              = 119  # F8 key
  F9              = 120  # F9 key
  F10            = 121  # F10 key
  F11            = 122  # F11 key
  F12            = 123  # F12 key
#-----------------------------------------------------------------------------
  NUM_LOCK        = 144  # NUM LOCK key
  SCROLL_LOCK    = 145  # SCROLL LOCK key
  LEFT_SHIFT      = 160  # Left SHIFT key
  RIGHT_SHIFT    = 161  # Right SHIFT key
  LEFT_CONTROL    = 162  # Left CONTROL key
  RIGHT_CONTROL  = 163  # Right CONTROL key
  LEFT_ALT        = 164  # Left ALT key
  RIGHT_ALT      = 165  # Right ALT key
#-----------------------------------------------------------------------------
  COLLON          = 186  # ; :
  EQUAL          = 187  # = +
  COMMA          = 188  # , <
  UNDERSCORE      = 189  # - _
  DOT            = 190  # . >
  BACKSLASH      = 191  # / ?
  KEY192          = 192  # ` ~  I dont know the name of this key
  LB              = 219  # [ {
  BACKSLASH2      = 220  # \ |
  RB              = 221  # ] }
  QUOTE          = 222  # ' "
#-----------------------------------------------------------------------------
  def Keys.name?(num)
    return "MOUSE PRIMARY" if num==1
    return "MOUSE SECONDARY" if num==2
    return "MOUSE MIDDLE" if num==4
    return "MOUSE 4TH" if num==5
    return "MOUSE 5TH" if num==6
    return "BACKSPACE" if num==8
    return "TAB" if num==9
    return "RETURN" if num==13
    return "SHIFT" if num==16
    return "CTLR" if num==17
    return "ALT" if num==18
    return "CAPS LOCK" if num==20
    return "ESCAPE" if num==27
    return "SPACE" if num==32
    return "PGUP" if num==33
    return "PGDN" if num==34
    return "END" if num==35
    return "HOME" if num==36
    return "LEFT" if num==37
    return "UP" if num==38
    return "RIGHT" if num==39
    return "DOWN" if num==40
    return "SNAPSHOT" if num==44
    return "INSERT" if num==45
    return "DELETE" if num==46
    return "0" if num==48
    return "1" if num==49
    return "2" if num==50
    return "3" if num==51
    return "4" if num==52
    return "5" if num==53
    return "6" if num==54
    return "7" if num==55
    return "8" if num==56
    return "9" if num==57
    return "A" if num==65
    return "B" if num==66
    return "C" if num==67
    return "D" if num==68
    return "E" if num==69
    return "F" if num==70
    return "G" if num==71
    return "H" if num==72
    return "I" if num==73
    return "J" if num==74
    return "K" if num==75
    return "L" if num==76
    return "M" if num==77
    return "N" if num==78
    return "O" if num==79
    return "P" if num==80
    return "Q" if num==81
    return "R" if num==82
    return "S" if num==83
    return "T" if num==84
    return "U" if num==85
    return "V" if num==86
    return "W" if num==87
    return "X" if num==88
    return "Y" if num==89
    return "Z" if num==90
    return "LWIN" if num==91
    return "RWIN" if num==92
    return "APPS" if num==93
    return "0" if num==96
    return "1" if num==97
    return "2" if num==98
    return "3" if num==99
    return "4" if num==100
    return "5" if num==101
    return "6" if num==102
    return "7" if num==103
    return "8" if num==104
    return "9" if num==105
    return "*" if num==106
    return "+" if num==107
    return "-" if num==109
    return "." if num==110
    return "/" if num==111
    return "F1" if num==112
    return "F2" if num==113
    return "F3" if num==114
    return "F4" if num==115
    return "F5" if num==116
    return "F6" if num==117
    return "F7" if num==118
    return "F8" if num==119
    return "F9" if num==120
    return "F10" if num==121
    return "F11" if num==122
    return "F12" if num==123
    return "NUM LOCK" if num==144
    return "SCROLL LOCK" if num==145
    return "LEFT SHIFT" if num==160
    return "RIGHT SHIFT" if num==161
    return "LEFT CTRL" if num==162
    return "RIGHT CTRL" if num==163
    return "LEFT ALT" if num==164
    return "RIGHT ALT" if num==165
    return ";" if num==186
    return "=" if num==187
    return "," if num==188
    return "_" if num==189
    return "." if num==190
    return "/" if num==191
    return "`" if num==192
    return "[" if num==219
    return " \\ " if num==220
    return "]" if num==221
    return "'" if num==222
    return "??? - " + "#{num}"
  end
end
Hotkeys Script
Código:

#===============================================================================
#                      HOTKEYS
#                      Sasuke Uchiha 09/07/2011
#===============================================================================
module Hotkeys_config
  #=============================================================================
  #=============================================================================
  #Teclas de las Hotkeys:
  Teclas = [Keys::N1, Keys::N2, Keys::N3,
  Keys::N4, Keys::N5, Keys::N6, Keys::N7] 
  #=============================================================================
  #=============================================================================
  #Posición de las imágenes [x,y]:
  Imagens = [[16,10],[44,10],[72,10],
  [100,10],[129,10],[156,10],[184,10]]
  #=============================================================================
  #=============================================================================
  #Nombre de la HUD:
  Imagem = "Hotkeys"
  #=============================================================================
  #=============================================================================
  #Sonido de selección:
  Som_s = "Audio/SE/032-Switch01"
  #=============================================================================
  #=============================================================================
end
#===============================================================================
#===============================================================================
class Game_Actor
  attr_accessor :weapon_id
  attr_accessor :armor1_id
  attr_accessor :armor2_id
  attr_accessor :armor3_id
  attr_accessor :armor4_id
end
class Game_System
  alias s_initialize initialize
  attr_accessor (:h_keys, :h_tipo)
  def initialize
    s_initialize
    @h_keys = []
    @h_tipo = []
  end
  def adicionar(slot, item)
    unless item.nil?
      @h_keys[slot] = item
      if item.is_a?(RPG::Item)
        @h_tipo[slot] = 'item'
      elsif item.is_a?(RPG::Weapon)
        @h_tipo[slot] = 'equip_arm'
      elsif item.is_a?(RPG::Armor)
        case item.kind
        when 0
          @h_tipo[slot] = 'equip_shd'
        when 1
          @h_tipo[slot] = 'equip_elm'
        when 2
          @h_tipo[slot] = 'equip_set'
        when 3
          @h_tipo[slot] = 'equip_ace'
        end
      end
    end
  end
end
class Game_Party
  attr_accessor :items
end
class Scene_Item
  alias s_update update
  include Hotkeys_config
  def update
    s_update
    for tecla in 0..(Teclas.size - 1)
      if Input.trigger?(Teclas[tecla]) and !@item_window.item.nil?
        Audio.se_play(Som_s)
        @item = @item_window.item
        $game_system.adicionar(tecla, @item)
      end
    end
  end
end
class Scene_Map
  alias s_main main
  def main
    s_main
    @fundo.dispose
  end
  include Hotkeys_config
  alias s_update update
  def update
    s_update
    if @fundo.nil?
      @icons = []
      @fundo = Sprite.new
      @fundo.bitmap = RPG::Cache.picture("#{Imagem}")
    end
    key_update
    hud_update
  end
  def key_update
    for tecla in 0..Teclas.size - 1
      @us = $game_system.h_keys[tecla]
      if !@us.nil? and $game_system.h_tipo[tecla] == 'item' and $game_party.items[@us.id] <= 0       
        $game_system.h_keys[tecla] = nil
        @icons[tecla].dispose
      end
      if Input.trigger?(Teclas[tecla])
        @usar = $game_system.h_keys[tecla]
        if $game_system.h_tipo[tecla] == 'item'
          if  !@usar.nil?
          if $game_party.items[@usar.id] >= 1
            $game_party.actors[0].item_effect(@usar)
            $game_party.lose_item(@usar.id, 1)
          if !@usar.animation2_id.nil?
            $game_player.animation_id = @usar.animation2_id
          end
        end
        end
        elsif $game_system.h_tipo[tecla] == 'equip_arm'
          $game_party.actors[0].weapon_id = @usar.id
          $game_system.h_keys[tecla] = nil
          @icons[tecla].dispose
        elsif $game_system.h_tipo[tecla] == 'equip_shd'
          $game_party.actors[0].armor1_id = @usar.id
          $game_system.h_keys[tecla] = nil
          @icons[tecla].dispose
        elsif $game_system.h_tipo[tecla] == 'equip_elm'
          $game_party.actors[0].armor2_id = @usar.id
          $game_system.h_keys[tecla] = nil
          @icons[tecla].dispose
        elsif $game_system.h_tipo[tecla] == 'equip_set'
          $game_party.actors[0].armor3_id = @usar.id
          $game_system.h_keys[tecla] = nil
          @icons[tecla].dispose
        elsif $game_system.h_tipo[tecla] == 'equip_ace'
          $game_party.actors[0].armor4_id = @usar.id
          $game_system.h_keys[tecla] = nil
          @icons[tecla].dispose
        end
      end
    end
  end
  def hud_update
    @fundo.update
    for i in 0..Teclas.size-1
      @ic = $game_system.h_keys[i]
      if !@ic.nil?
        @icons[i] = Sprite.new
        @icons[i].bitmap = RPG::Cache.icon(@ic.icon_name) if !@ic.icon_name.nil?
        @icons[i].x = Imagens[i][0]
        @icons[i].y = Imagens[i][1]
      end
    end
  end
end

Un Saludo
Out.-





Todos mis aportes por Mediafire tienen contraseña, esa es: www.universomaker.net
Esto es para evitar plagio, asegúrense de copiar y pegar la contraseña.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.