##########################################################################
######
# #
# ~~~~~ Copyright 2009 SojaBird ~~~~~ #
# HUD BluePrint v3.1 #
# #
################################################################################

# To toggle the hud's display, just do a callscript "hud"
# To set the hud's display, just do a callscript "hud(true)" or "hud(false)"

module Hp_Mp_Exp_VarPic_Module; WLH = Window_Base::WLH
################################################################################
# User Customazation
Start_Display = true #true/false
Opacity = 100 #0-255
BG_Display = true #true/false
Hide = true #true/false

Picture_Variable = 1 #Number of the variable to use for the picture
Picture_Name = "" #Name of the picture, in front of the variable value
#Example:
# Picture_Name = "hud"
# Picture_Variable it's value = 1
# Picture that will be shown on the HUD = "hud1"

Actor_ID = 1 #The ID of the actor of wich the value's are displayed

Exp_Name = "Exp" #Name that will be displayed as Exp
################################################################################
# Don't touch below (if ure're not a scripter)
################################################################################
=begin #########################################################################
Some standard value's you might want to use are allready pre-defiend so that you
don't have to write the whole function for your self anymore.
Here follows a list: (just copy+past and fill in the value's to let it work)
* draw_actor_graphic(actor, x, y)
* draw_actor_face(actor, x, y, size = 96)
* draw_actor_name(actor, x, y)
* draw_actor_class(actor, x, y)
* draw_actor_level(actor, x, y)
* draw_actor_state(actor, x, y, width = 96)
* draw_actor_hp(actor, x, y, width = 120)
* draw_actor_mp(actor, x, y, width = 120)
* draw_actor_parameter(actor, x, y, type)
FOR TYPE: 0=atk, 1=def, 2=spi, 3=agi
* draw_item_name(item, x, y, enabled = true)
* draw_currency_value(value, x, y, width)

Custom new standard functions:
* draw_actor_exp(actor, x, y, width = 120)
=end ###########################################################################
################################################################################
def xywh
@x = 0 #Set the x-position
@y = 0 #Set the y-position
@w = 120+32 #Set the width
@h = 3*WLH+32 #Set the height
return[@x, @y, @w, @h]
end; def hud_values #Set the value's that you're using (also used at refresh)
@var = $game_variables[Picture_Variable]
@actor = $game_party.members[Actor_ID]
@hp = @actor.hp
@mp = @actor.mp
@exp = @actor.exp
#Example: @actor = $game_party.members[0]
end; def hud_contents #Set the things you want to draw
draw_variable_picture(@var, 0, 0*WLH)
draw_actor_hp(@actor, 0, 0*WLH)
draw_actor_mp(@actor, 0, 1*WLH)
draw_actor_exp(@actor, 0, 2*WLH)
#Example: draw_actor_hp(@actor, x, y)
end; def hud_refresh?; if #Set wich value's make the HUD to refresh
@var != $game_variables[Picture_Variable] or
@actor != $game_party.members[Actor_ID] or
@hp != @actor.hp or
@mp != @actor.mp or
@exp != @actor.exp
#Example: if @actor != $game_party.members[0]
return true; end
end
end
################################################################################
# Don't touch below
################################################################################

################################################################################
# Call script function
################################################################################
def hud(arg = nil)
$game_system.hud_display = !$game_system.hud_display if arg == nil
$game_system.hud_display = arg if arg != nil
end
################################################################################
#------------------------------------------------------------
# * Hp_Mp_Exp_VarPic: Create Hud window
#------------------------------------------------------------
class Hp_Mp_Exp_VarPic < Window_Base
include Hp_Mp_Exp_VarPic_Module

def initialize
super(xywh[0],xywh[1],xywh[2],xywh[3])
self.visible = $game_system.hud_display
self.opacity = Opacity
self.opacity = 0 if !BG_Display
hide_status if Hide
hud_values
refresh
end

def refresh
contents.clear
hud_values
hud_contents
end

def draw_variable_picture(var, x, y)
@bm = Cache.picture(Picture_Name + var.to_s)
@cw = self.contents.width
@ch = self.contents.height
@rect = Rect.new(@bm.width/2 - @cw/2, @bm.height/2 - @ch/2, @cw, @ch)
self.contents.blt(x, y, @bm, @rect)
end

def hide_status
if Hide
if $game_player.screen_x + 16 > self.x and
$game_player.screen_y + 4 > self.y and
$game_player.screen_x - 16 < self.x + self.width and
$game_player.screen_y - 28 < self.y + self.height
self.opacity = Opacity if BG_Display
self.contents_opacity = Opacity
else
self.opacity = 255 if BG_Display
self.contents_opacity = 255
end
end
end

def update
self.visible = $game_system.hud_display
return if !self.visible
refresh if hud_refresh?
hide_status if Hide
end
end

#------------------------------------------------------------
# * Scene_Map: Attach HUD to map
#------------------------------------------------------------
class Scene_Map < Scene_Base
alias start_hp_mp_exp_varpic start
alias terminate_hp_mp_exp_varpic terminate
alias update_hp_mp_exp_varpic update
def start
start_hp_mp_exp_varpic
@hp_mp_exp_varpic = Hp_Mp_Exp_VarPic.new
end
def terminate
@hp_mp_exp_varpic.dispose
terminate_hp_mp_exp_varpic
end
def update
update_hp_mp_exp_varpic
@hp_mp_exp_varpic.update
end
end

#------------------------------------------------------------
# * Game_System: Check for display
#------------------------------------------------------------
class Game_System
alias hud_initialize initialize
attr_accessor :hud_display
def initialize
hud_initialize
@hud_display = Hp_Mp_Exp_VarPic_Module::Start_Display
end
end

#------------------------------------------------------------
# * Window_Base: Some new standard function
#------------------------------------------------------------
class Window_Base < Window

def draw_actor_exp(actor, x, y, width = 120)
s1 = actor.exp_s
s2 = actor.next_rest_exp_s + s1
if s1.is_a? String or s2.is_a? String
s1 = actor.exp
s2 = actor.exp
end
draw_actor_exp_gauge(actor, x, y, s1, s2, width)
self.contents.font.color = system_color
self.contents.draw_text(x, y, 30, WLH, Hp_Mp_Exp_VarPic_Module::Exp_Name)
self.contents.font.color = normal_color
last_font_size = self.contents.font.size
xr = x + width
if width < 120
self.contents.draw_text(xr - 44, y, 44, WLH, s1, 2)
else
self.contents.draw_text(xr - 99, y, 44, WLH, s1, 2)
self.contents.font.color = normal_color
self.contents.draw_text(xr - 55, y, 11, WLH, "/", 2)
self.contents.draw_text(xr - 44, y, 44, WLH, s2, 2)
end
end

def draw_actor_exp_gauge(actor, x, y, s1, s2, width = 120)
gw = width * s1 / s2
gc1 = text_color(31)
gc2 = text_color(27)
self.contents.fill_rect(x, y + WLH - 8, width, 6, gauge_back_color)
self.contents.gradient_fill_rect(x, y + WLH - 8, gw, 6, gc1, gc2)
end
end

#==============================================================================
# Input Module (Modificated by Vlad)
#==============================================================================

module Input
  
  Mouse_Left = 1
  Mouse_Right = 2
  Mouse_Middle = 4
  
  Back = 8
  Tab = 9
  Enter = 13
  Shift = 16
  Ctrl = 17
  Alt = 18
  CapsLock = 20
  Esc = 27
  Space = 32
  PGUP = 33
  PGDN = 34
  End = 35
  Home = 36
  Left = 37
  Up = 38
  Right = 39
  Down = 40
  PrintScreen = 44
  Insert = 45
  Delete = 46
  
  Numberkeys = {}
  Numberkeys[0] = 48
  Numberkeys[1] = 49
  Numberkeys[2] = 50
  Numberkeys[3] = 51
  Numberkeys[4] = 52
  Numberkeys[5] = 53
  Numberkeys[6] = 54
  Numberkeys[7] = 55
  Numberkeys[8] = 56
  Numberkeys[9] = 57
  
  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
  
  LWin = 91
  RWin = 92
  Apps = 93
  
  Numberpad = {}
  Numberpad[0] = 96
  Numberpad[1] = 97
  Numberpad[2] = 98
  Numberpad[3] = 99
  Numberpad[4] = 100
  Numberpad[5] = 101
  Numberpad[6] = 102
  Numberpad[7] = 103
  Numberpad[8] = 104
  Numberpad[9] = 105
  Multiply = 106
  Add = 107
  Subtract = 109
  Decimal = 110
  Divide = 111
  
  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
  
  NumLock = 144
  ScrollLock = 145
  LShift = 160
  RShift = 161
  LControl = 162
  RControl = 163
  LAlt = 164
  RAlt = 165
  
  Collon = 186
  Equal = 187
  Comma = 188
  Underscore = 189
  Dot = 190
  Backslash = 191
  Uncle = 192
  LB = 219
  Bar = 220
  RB = 221
  Quote = 222
  
  @time = Array.new(256, 0)
  @press = Array.new(256, false)
  @trigger = Array.new(256, false)
  @repeat = Array.new(256, false)
  @release = Array.new(256, false)
  @dirs = [0, 0]
  
  InputInitialize = Win32API.new("Input", 'InputInitialize', 'LLLLLL', '')
  InputUpdate = Win32API.new("Input", 'InputUpdate', '', '')
  
  REG_KVALUES = {0=>32,1=>13,2=>27,3=>96,4=>16,5=>90,6=>88,7=>67,8=>86,9=>66,
                 10=>65,11=>83,12=>68,13=>81,14=>87}
                
  DEFAULT_KEYS = {11=>[16,90],12=>[27,88,96],13=>[13,32],14=>[65],15=>[83],
                  16=>[68],17=>[81],18=>[87]}
  
  def convert_keys(key)
    begin
      keys = []
      rkey = 'HKEY_CURRENT_USER\\Software\\Enterbrain\\RGSS'
      data = Registry.read_entry(rkey, 'ButtonAssign')[10, 25].scan(/./)
      15.times {|i| keys.push(REG_KVALUES[i]) if key == data[i].unpack('C')[0]}
      keys
    rescue
      DEFAULT_KEYS[key] rescue []
    end
  end  
  
  module_function :convert_keys
  
  LEFT = 37
  UP = 38
  RIGHT = 39
  DOWN = 40
  A = convert_keys(11)
  B = [45] + convert_keys(12)
  C = convert_keys(13)
  X = convert_keys(14)
  Y = convert_keys(15)
  Z = convert_keys(16)
  L = [33] + convert_keys(17)
  R = [34] + convert_keys(18)
  SHIFT = 16
  CTRL = 17
  ALT = 18
  F5 = 116
  F6 = 117
  F7 = 118
  F8 = 119
  F9 = 120
  
  InputInitialize.call(@time.object_id, @press.object_id, @trigger.object_id,
  @repeat.object_id,  @release.object_id, @dirs.object_id)
  
  def self.update
    InputUpdate.call
  end
  
  def self.trigger?(id)
    @trigger.indexes(*id.to_a).include?(true)
  end
  
  def self.press?(id)
    @press.indexes(*id.to_a).include?(true)
  end
  
  def self.triggerd?(what)
    if triggered.include?(what)
      return true
    end
  end
  
  def self.triggered
    array = Array.new
    @trigger.each_index {|i| array.push(i) if @trigger[i]}
    array
  end
  
  def self.pressed?(what)
    if pressed.include?(what)
      return true
    end
  end
  
  def self.pressed
    array = Array.new
    @press.each_index {|i| array.push(i) if @press[i]}
    array
  end
  
  def self.repeat?(id)
    @repeat.indexes(*id.to_a).include?(true)
  end
  
  def self.repeated
    array = Array.new
    @repeat.each_index {|i| array.push(i) if @repeat[i]}
    array
  end
  
  def self.release?(id)
    @release.indexes(*id.to_a).include?(true)
  end
  
  def self.released
    array = Array.new
    @release.each_index {|i| array.push(i) if @release[i]}
    array
  end
  
  def self.dir4
    @dirs[0]
  end
  
  def self.dir8
    @dirs[1]
  end

  KEYS_NAMES = {1=>'Mouse Left',2=>'Mouse Right',3=>'Cancel',
  4=>'Mouse Middle',5=>'Mouse 4th',6=>'Mouse 5th',8=>'Backspace',9=>'Tab',
  12=>'Clear',13=>'Enter',16=>'Shift',17=>'Control',18=>'Alt',19=>'Pause',
  20=>'Capitals Lock',21=>'Kana',23=>'Junja',24=>'Final',25=>'Kanji',
  27=>'Escape',28=>'Convert',29=>'Non Convert',30=>'Accept',31=>'Mode Change',
  32=>'Space',33=>'Page Up',34=>'Page Down',35=>'End',36=>'Home',37=>'Left',
  38=>'Up',39=>'Right',40=>'Down',41=>'Select',42=>'Print',43=>'Execute',
  44=>'PrintScreen',45=>'Insert',46=>'Delete',47=>'Help',48=>'0',49=>'1',50=>'2',
  51=>'3',52=>'4',53=>'5',54=>'6',55=>'7',56=>'8',57=>'9',65=>'A',66=>'B',
  67=>'C',68=>'D',69=>'E',70=>'F',71=>'G',72=>'H',73=>'I',74=>'J',75=>'K',
  76=>'L',77=>'M',78=>'N',79=>'O',80=>'P',81=>'Q',82=>'R',83=>'S',84=>'T',
  85=>'U',86=>'V',87=>'W',88=>'X',89=>'Y',90=>'Z',91=>'Left Windows',
  92=>'Right Windows',93=>'Application',95=>'Sleep',96=>'PAD 0',97=>'PAD 1',
  98=>'PAD 2',99=>'PAD 3',100=>'PAD 4',101=>'PAD 5',102=>'PAD 6',103=>'PAD 7',
  104=>'PAD 8',105=>'PAD 9',106=>'*',107=>'+',108=>'Separator',109=>'-',110=>'.',
  111=>'/',112=>'F1',113=>'F2',114=>'F3',115=>'F4',116=>'F5',117=>'F6',118=>'F7',
  119=>'F8',120=>'F9',121=>'F10',122=>'F11',123=>'F12',124=>'F13',125=>'F14',
  126=>'F15',127=>'F16',128=>'F17',129=>'F18',130=>'F19',131=>'F20',132=>'F21',
  133=>'F22',134=>'F23',135=>'F24',144=>'Number Lock',145=>'Scroll Lock',
  146=>'OEM 15',147=>'OEM 16',148=>'OEM 17',149=>'OEM 18',150=>'OEM 19',
  160=>'Left Shift',161=>'Right Shift',162=>' Left Control',163=>'Right Control',
  164=>' Left Alt',165=>'Right Alt',166=>'Browser Back',167=>'Browser Forward',
  168=>'Browser Refresh',169=>'Browser Stop',170=>'Browser Search',
  171=>'Browser Favorites',172=>'Browser Home',173=>'Volume Mute',
  174=>'Volume Down',175=>'Volume Up',176=>'Media Next Track',
  177=>'Media Previous Track',178=>'Media Stop',179=>'Media Play Pause',
  180=>'Launch Mail',181=>'Launch Media Select',182=>'Launch Application',
  183=>'Launch Application',186=>'OEM 1',187=>'OEM 2',188=>'OEM 3',189=>'OEM 4',
  190=>'OEM 5',191=>'OEM 6',192=>'OEM 7',219=>'OEM 8',220=>'OEM 9',221=>'OEM 10',
  222=>'OEM 11',223=>'OEM 13',225=>'OEM 20',226=>'OEM 14',227=>'OEM 21',
  228=>'OEM 22',229=>'Proccess',230=>'OEM 23',232=>'OEM 24',240=>'OEM 25',
  241=>'OEM 26',242=>'OEM 27',243=>'OEM 28',244=>'OEM 29',245=>'OEM 30',
  246=>'ATTN',247=>'CRSEL',248=>'EXSEL',249=>'EREOF',250=>'Play',251=>'Zoom',
  253=>'PA1',254=>'OEM Clear'}
  
  def self.name?(id)
    return (KEYS_NAMES[id].nil? ? '???' : KEYS_NAMES[id])
  end
  
end

#-----------------------------------------------------------------------------
module Registry
  
  module_function
  
  RegCloseKey = Win32API.new('advapi32', 'RegCloseKey', 'L', 'L')
  RegOpenKeyExA = Win32API.new('advapi32', 'RegOpenKeyExA', 'LPLLP', 'L')
  RegQueryValueExA = Win32API.new('advapi32', 'RegQueryValueExA','LPLPPP','L')
  HKEYS = {'HKEY_CLASSES_ROOT' => 0x80000000,'HKEY_CURRENT_USER' =>0x80000001,
  'HKEY_LOCAL_MACHINE' => 0x80000002, 'HKEY_USERS' => 0x80000003,
  'HKEY_CURRENT_CONFIG' => 0x80000005}
  
  def read_entry(key, entry)
    key.sub!(/(.*?)\\/, '')
    if HKEYS[$1] != nil
      hkey = HKEYS[$1]
    else
      return nil
    end
    opened, type, size = [0].pack('V'), [0].pack('V'), [0].pack('V')
    RegOpenKeyExA.call(hkey, key, 0, 131097, opened)
    opened = (opened + [0].pack('V')).unpack('V')[0]
    RegQueryValueExA.call(opened, entry, 0, type, 0, size)
    data = ' ' * (size + [0].pack('V')).unpack('V')[0]
    RegQueryValueExA.call(opened, entry, 0, type, data, size)
    RegCloseKey.call(opened)
    data = data[0, (size + [0].pack('V')).unpack('V')[0]]
    type = (type += [0].pack('V')).unpack('V')[0]
    case type
    when 1
      data.chop
    when 2
      data.chop.gsub(/%([^%]+)%/) { ENV[$1] || $& }
    when 3
      data
    when 4
      (data += [0].pack('V')).unpack('V')[0]
    when 5
      data.unpack('N')[0]
    when 7
      data.split(/\0/)
    when 11
      (data.unpack('VV')[1] << 32) | data[0]
    else
      nil
    end
  end
  
end

#==============================================================================
# Requiem Masterpiece
#==============================================================================
# This module is necessary to activate and enhance compatibility of all Requiem's Scripts
#------------------------------------------------------------------------------
module Requiem_Masterpiece
  
  Version = 1.2
  
  @scripts = {}
  @warnings = {}
  
  Print_Errors = false
  
  def self.register(script, version, date)
    @scripts[script] = [version, date]
  end
  
  def self.enabled?(script, version = nil)
    if version != nil and @scripts.include?(script)
      if @scripts[script][0] >= version
        return true
      elsif @warnings[script].nil? and Print_Errors
        print "'#{script}' is obsolete.\r\nSome functions won't work correctly"
        @warnings[script] = ["is obsolete"]
        self.write_log
      end
    end
    return true if @scripts[script] != nil
    if @scripts[script].nil? and $TEST and @warnings[script].nil? and Print_Errors
      print "Unable to find script '#{script}' or it is placed in wrong place.\r\nSome functions won't work correctly"
      @warnings[script] = ["Unable to find"]
      self.write_log
    end
    return false
  end
  
  def self.show_scripts(alert=true)
    list = "Requiem Scripts [#{@scripts.size}]:\r\n\r\n"
    @scripts.each { |key, value| list += "#{key.gsub("Requiem ", "")}  #{value[0]}  #{value[1]}\r\n" }
    list += "\r\nWarnings:\r\n" if @warnings != {}
    @warnings.each { |key, value| list += "#{key} #{value}\r\n" }
    return print list if alert
    return list
  end
  
  def self.write_log
    file = File.new("Requiem/Requiem_Log-#{Time.now.strftime("%m_%d_%Y")}.log", "w")
    file.write(self.show_scripts(false))
    file.close
  end
  
end

#==============================================================================
# Requiem Extended Movements
#==============================================================================
#------------------------------------------------------------------------------
Requiem_Masterpiece.register("Requiem Extended Movements", 1.2, "04/29/2009")
#------------------------------------------------------------------------------
class Game_Character
  
  attr_accessor :character_name
  attr_accessor :character_index
  attr_accessor :move_type
  attr_accessor :move_route
  attr_accessor :direction_fix
  attr_accessor :walk_anime
  attr_accessor :step_anime
  attr_accessor :through
  attr_accessor :pattern
  attr_accessor :direction
  attr_accessor :bush_depth
  attr_accessor :blend_type
  attr_accessor :opacity
  attr_accessor :move_speed
  attr_accessor :priority_type
  
  def in_range?(parent, target, range)
    x = (parent.x - target.x) * (parent.x - target.x)
    y = (parent.y - target.y) * (parent.y - target.y)
    r = x + y
    return true if r <= (range * range)
    return false
  end
  
  def in_direction?(parent, target)
    return true if parent.direction == 2 and target.y >= parent.y and target.x == parent.x
    return true if parent.direction == 4 and target.x <= parent.x and target.y == parent.y
    return true if parent.direction == 6 and target.x >= parent.x and target.y == parent.y
    return true if parent.direction == 8 and target.y <= parent.y and target.x == parent.x
    return false
  end
  
  def in_front?(parent, target)
    return true if parent.direction == 2 and parent.x == target.x and (parent.y+1) == target.y
    return true if parent.direction == 4 and (parent.x-1) == target.x and parent.y == target.y
    return true if parent.direction == 6 and (parent.x+1) == target.x and parent.y == target.y
    return true if parent.direction == 8 and parent.x == target.x and (parent.y-1) == target.y
    return true if parent.x == target.x and parent.y == target.y
    return false
  end
  
  def in_behind?(parent, target)
    return true if target.direction == 2 and parent.x == target.x and parent.y < target.y
    return true if target.direction == 4 and parent.x > target.x and parent.y == target.y
    return true if target.direction == 6 and parent.x < target.x and parent.y == target.y
    return true if target.direction == 8 and parent.x == target.x and parent.y > target.y
    return false
  end
  
  def in_beside?(parent, target)
    return true if target.direction == 2 and parent.direction == 4 and target.x == (parent.x-1) and target.y == parent.y
    return true if target.direction == 2 and parent.direction == 6 and target.x == (parent.x+1) and target.y == parent.y
    return true if target.direction == 4 and parent.direction == 2 and target.x == parent.x and target.y == (parent.y+1)
    return true if target.direction == 4 and parent.direction == 8 and target.x == parent.x and target.y == (parent.y-1)
    return true if target.direction == 6 and parent.direction == 2 and target.x == parent.x and target.y == (parent.y+1)
    return true if target.direction == 6 and parent.direction == 8 and target.x == parent.x and target.y == (parent.y-1)
    return true if target.direction == 8 and parent.direction == 4 and target.x == (parent.x-1) and target.y == parent.y
    return true if target.direction == 8 and parent.direction == 6 and target.x == (parent.x+1) and target.y == parent.y
    return false
  end
  
  def face_to_face?(parent, target)
    return true if parent.direction == 2 and target.direction == 8
    return true if parent.direction == 4 and target.direction == 6
    return true if parent.direction == 6 and target.direction == 4
    return true if parent.direction == 8 and target.direction == 2
    return false
  end
  
  def is_passable?(object, dir)
    x = dir == 4 ? -1 : dir == 6 ? 1 : 0
    y = dir == 2 ? 1 : dir == 8 ? -1 : 0
    return false if !$game_map.passable?(object.x+x, object.y+y)
    return true
  end
  
  def events_xy(object, dir)
    x = dir == 4 ? -1 : dir == 6 ? 1 : 0
    y = dir == 2 ? 1 : dir == 8 ? -1 : 0
    for i in $game_map.events.values
      return true if i.x == object.x+x and i.y == object.y+y and !i.through
    end
    return false
  end
  
  def move_toward(target)
    sx = distance_x_from(target)
    sy = distance_y_from(target)
    if sx != 0 or sy != 0
      if sx.abs > sy.abs
        sx > 0 ? move_left : move_right
        if @move_failed and sy != 0
          sy > 0 ? move_up : move_down
        end
      else
        sy > 0 ? move_up : move_down
        if @move_failed and sx != 0
          sx > 0 ? move_left : move_right
        end
      end
    end
  end
  
  def move_type_toward(target)
    case rand(6)
      when 0..3; move_toward(target)
      when 4;     move_random
      when 5;     move_forward
    end
  end
  
  def turn_toward(target)
    sx = distance_x_from(target)
    sy = distance_y_from(target)
    if sx.abs > sy.abs
      sx > 0 ? turn_left : turn_right
    elsif sx.abs < sy.abs
      sy > 0 ? turn_up : turn_down
    end
  end
  
  def follow(x, y)
    sx = distance_x(x)
    sy = distance_y(y)
    if sx != 0 or sy != 0
      if sx.abs > sy.abs
        sx > 0 ? move_left : move_right
        if @move_failed and sy != 0
          sy > 0 ? move_up : move_down
        end
      else
        sy > 0 ? move_up : move_down
        if @move_failed and sx != 0
          sx > 0 ? move_left : move_right
        end
      end
    end
  end
  
  def look_at(x, y)
    sx = distance_x(x)
    sy = distance_y(y)
    if sx.abs > sy.abs
      sx > 0 ? turn_left : turn_right
    elsif sx.abs < sy.abs
      sy > 0 ? turn_up : turn_down
    end
  end
  
  def distance_x_from(target)
    sx = @x - target.x
    if $game_map.loop_horizontal?
      if sx.abs > $game_map.width / 2
        sx -= $game_map.width
      end
    end
    return sx
  end
  
  def distance_y_from(target)
    sy = @y - target.y
    if $game_map.loop_vertical?
      if sy.abs > $game_map.height / 2
        sy -= $game_map.height
      end
    end
    return sy
  end
  
  def distance_x(x)
    sx = @x - x
    if $game_map.loop_horizontal?
      if sx.abs > $game_map.width / 2
        sx -= $game_map.width
      end
    end
    return sx
  end
  
  def distance_y(y)
    sy = @y - y
    if $game_map.loop_vertical?
      if sy.abs > $game_map.height / 2
        sy -= $game_map.height
      end
    end
    return sy
  end
  
end

#------------------------------------------------------------------------------
class Game_Event < Game_Character
  
  attr_reader :id
  
  def check_value(comment)
    return 0 if @list.nil? or @list.size <= 0
    for item in @list
      if item.code == 108 or item.code == 408
        if item.parameters[0] =~ /#{comment}[ ]?(\d+)?/
          return $1.to_i
        end
      end
    end
    return 0
  end
  
  def check_command(comment)
    return nil if @list.nil? or @list.size <= 0
    for item in @list
      next unless item.code == 108 or item.code == 408
      if item.parameters[0] =~ /#{comment} (.*)/
        return $1.to_s
      end
    end
    return nil
  end
  
  def check_comment(comment)
    return false if @list.nil? or @list.size <= 0
    for item in @list
      if item.code == 108 or item.code == 408
        if item.parameters[0].include?(comment)
          return true
        end
      end
    end
    return false
  end
  
end

#------------------------------------------------------------------------------
class Game_Interpreter
  
  attr_reader :original_event_id
  
end