Chaos Project

#==============================================================================
# +++ MOG - Menu Cursor (V1.9) +++
#==============================================================================
# By Moghunter 
# https://atelierrgss.wordpress.com/
#==============================================================================
# Adiciona um cursor animado nos menus de comandos.
#==============================================================================
# Será necessário ter a imagem
#
# Menu_Cursor.png
#
# gravado na pasta GRAPHICS/SYSTEM/
#==============================================================================
# Ativando a animação do cursor
#
# Basta criar uma imagem que tenha a largura com no minimo o dobro de altura da
# imagem do cursor.
#
# EX
# largura 32 pixel (width) altura 32 pixel = 1 frames de animação.(Sem animação)
# largura 64 pixel (width) altura 32 pixel = 2 frames de animação.
# largura 128 pixel (width) altura 32 pixel = 4 frames de animação.
# largura 256 pixel (width) altura 32 pixel = 8 frames de animação
# Etc...
#
# NOTA
# Não há limite para quantidade de frames de animação, se não quiser a animação
# basta criar uma imagem com a altura proporcional a largura da imagem.
#
#==============================================================================

#==============================================================================
# Histórico
#==============================================================================
# v1.9 - Melhoria na compatibilidade de scripts.
#==============================================================================

$imported = {} if $imported.nil?
$imported[:mog_menu_cursor] = true

module MOG_MENU_CURSOR
  #Ativar animação do cursor se movimentando para os lados.
  SIDE_ANIMATION = true
  #Definição da posição do cursor. (Ajustes na posição)
  CURSOR_POSITION = [0,0]
  #Definição da velocidade da animação de frames.
  CURSOR_ANIMATION_SPEED = 6
end

#==============================================================================
# ■ Game_System
#==============================================================================
class Game_System
  
  attr_accessor :menu_cursor_name
  
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------      
  alias mog_menu_cursor_initialize initialize
  def initialize
      mog_menu_cursor_initialize
      @menu_cursor_name = "Menu_Cursor"
  end  
  
end  

#==============================================================================
# ■ Game_Temp
#==============================================================================
class Game_Temp
  
  attr_accessor :menu_cursor    
  attr_accessor :battle_end
  
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------      
  alias mog_cursor_sprite_initialize initialize
  def initialize
      mog_cursor_sprite_initialize
      @menu_cursor = [false,0,0,0] ; @battle_end = false
  end  
  
end  

#==============================================================================
# ■ Game Interpreter
#==============================================================================
class Game_Interpreter
  
  #--------------------------------------------------------------------------
  # ● Cursor Name
  #--------------------------------------------------------------------------    
  def cursor_name(file_name = "")
      $game_system.menu_cursor_name = file_name.to_s
  end
  
end

#==============================================================================
# ■ Sprite Cursor
#==============================================================================
class Sprite_Cursor < Sprite
  
  include MOG_MENU_CURSOR
  
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------    
  def initialize(viewport = nil , x , y)
      super(viewport)
      @cursor_image = Cache.system($game_system.menu_cursor_name.to_s)
      @frame_max = (@cursor_image.width / @cursor_image.height) rescue 1
      @frame_range = @frame_max > 0 ? (@cursor_image.width  / @frame_max) : 1
      @frame = 0 ; @ca_speed = CURSOR_ANIMATION_SPEED
      self.bitmap = Bitmap.new(@frame_range,@frame_range)
      self.z = 10000 ; self.opacity = 0 ; @cw = self.bitmap.width / 2
      @c_p = [-@cw + CURSOR_POSITION[0],CURSOR_POSITION[1]]
      @mx = [0,0,0] ; refresh_animation(true) ; update_move
  end
  
  #--------------------------------------------------------------------------
  # ● Dispose
  #--------------------------------------------------------------------------    
  def dispose
      self.bitmap.dispose ; self.bitmap = nil ; @cursor_image.dispose
      super
  end  
  
  #--------------------------------------------------------------------------
  # ● Update
  #--------------------------------------------------------------------------  
  def update    
      if cursor_visible? 
         self.visible = true ; update_move ; refresh_animation(false)
      else   
         self.visible = false
      end  
  end

  #--------------------------------------------------------------------------
  # ● Force Cursor
  #--------------------------------------------------------------------------  
  def force_visible(value)
      self.visible = value
  end
  
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------      
  def refresh_animation(start = false)
      @ca_speed += 1
      return if @frame_max == 1 and !start
      return if @ca_speed < CURSOR_ANIMATION_SPEED
      @ca_speed = 0 ; self.bitmap.clear
      scr_rect = Rect.new(@frame_range * @frame,0,@frame_range,@frame_range)
      self.bitmap.blt(0,0,@cursor_image, scr_rect) 
      @frame += 1 ; @frame = 0 if @frame >= @frame_max
  end  
    
  #--------------------------------------------------------------------------
  # ● Cursor Visible?
  #--------------------------------------------------------------------------    
  def cursor_visible?
      px = $game_temp.menu_cursor[2] ; py = $game_temp.menu_cursor[3]
      return false if $game_temp.menu_cursor[1] == 0
      return false if px < 0 or py < 0 or (px == 0 and py == 0)
      return true
  end  
  
  #--------------------------------------------------------------------------
  # ● Update Move
  #--------------------------------------------------------------------------    
  def update_move
      self.opacity += 25
      @new_pos = [$game_temp.menu_cursor[2],$game_temp.menu_cursor[3]]
      execute_animation_s
      execute_move(0,self.x, @new_pos[0] + @mx[1] + @c_p[0])
      execute_move(1,self.y, @new_pos[1] + @c_p[1])
  end  
  
  #--------------------------------------------------------------------------
  # ● Execute Animation S
  #--------------------------------------------------------------------------      
  def execute_animation_s
      return if !SIDE_ANIMATION
      @mx[2] += 1
      return if @mx[2] < 4
      @mx[2] = 0 ; @mx[0] += 1
      case @mx[0]
         when 1..7;  @mx[1] += 1            
         when 8..14; @mx[1] -= 1
         else ; @mx[0] = 0 ; @mx[1] = 0
      end
  end
  
  #--------------------------------------------------------------------------
  # ● Execute Move
  #--------------------------------------------------------------------------      
  def execute_move(type,cp,np)
      sp = 5 + ((cp - np).abs / 5)
      if cp > np ;    cp -= sp ; cp = np if cp < np
      elsif cp < np ; cp += sp ; cp = np if cp > np
      end     
      self.x = cp if type == 0 ; self.y = cp if type == 1
  end  
  
end

#==============================================================================
# ■ CURSOR_MENU SPRITE
#==============================================================================
module CURSOR_MENU_SPRITE

  #--------------------------------------------------------------------------
  # ● Cursor Sprite Enable
  #--------------------------------------------------------------------------      
  def cursor_sprite_enable
      return if self.index == nil rescue return
      create_cursor_sprite ; update_cursor_sprite ; update_cursor_position
  end
    
  #--------------------------------------------------------------------------
  # ● Create Cursor Sprite
  #--------------------------------------------------------------------------    
  def create_cursor_sprite
      return if @cursor != nil or $game_temp.menu_cursor[0]
      $game_temp.menu_cursor[0] = true ; reset_cursor_position
      @cursor = Sprite_Cursor.new(nil,x,y)
      @cursor_name = $game_system.menu_cursor_name      
  end    
  
  #--------------------------------------------------------------------------
  # ● Dispose Cursor Sprite
  #--------------------------------------------------------------------------      
  def dispose_cursor_sprite
      return if @cursor == nil
      $game_temp.menu_cursor[0] = false
      reset_cursor_position ; @cursor.dispose ; @cursor = nil
  end  

  #--------------------------------------------------------------------------
  # ● Reset Cursor Position
  #--------------------------------------------------------------------------        
  def reset_cursor_position
      $game_temp.menu_cursor[1] = 0
      $game_temp.menu_cursor[2] = -32 ; $game_temp.menu_cursor[3] = -32
  end  
  
  #--------------------------------------------------------------------------
  # ● Update Cursor
  #--------------------------------------------------------------------------          
  def update_cursor_sprite
      return if @cursor == nil
      if $game_temp.battle_end ; @cursor.visible = false ; return ; end
      $game_temp.menu_cursor[1] -= 1 if $game_temp.menu_cursor[1] > 0
      @cursor.update
      refresh_cursor_sprite if @cursor_name != $game_system.menu_cursor_name
  end
  
  #--------------------------------------------------------------------------
  # ● Refresh Cursor Sprite
  #--------------------------------------------------------------------------            
  def refresh_cursor_sprite
      @cursor_name = $game_system.menu_cursor_name 
      dispose_cursor_sprite ; create_cursor_sprite
  end  
  
  #--------------------------------------------------------------------------
  # ● Update Cursor Position
  #--------------------------------------------------------------------------          
  def update_cursor_position
      return if !can_update_cursor_position?
      x_v = [0,0]
      if SceneManager.scene_is?(Scene_Battle)
      x_v = [-self.viewport.ox, self.viewport.rect.y] if self.viewport != nil
      end      
      x_e = (self.cursor_rect.x + self.x) - self.ox
      $game_temp.menu_cursor[1] = 2 ; $game_temp.menu_cursor[2] = x_e + x_v[0]
      y_e = (self.cursor_rect.y + self.y + self.cursor_rect.height / 2) - self.oy
      $game_temp.menu_cursor[3] = y_e + x_v[1]      
   end
   
  #--------------------------------------------------------------------------
  # ● Can Update Cursor
  #--------------------------------------------------------------------------            
   def can_update_cursor_position?
       return false if !self.active     
       return false if self.index < 0 
       return false if !self.visible
       return true
   end  

  #--------------------------------------------------------------------------
  # ● Force Cursor Visible
  #--------------------------------------------------------------------------              
  def force_cursor_visible_real(value)
      return if @cursor == nil   
      @cursor.visible = value      
  end     

  #--------------------------------------------------------------------------
  # ● Force Update Cursor Position
  #--------------------------------------------------------------------------              
  def force_update_cursor_position_real
      return if @cursor == nil 
      update_cursor_position
  end
  
end

#===============================================================================
# ■ Scene_Battle
#===============================================================================
class Scene_Battle < Scene_Base
  
 if $imported["YEA-CommandEquip"]
 #--------------------------------------------------------------------------
 # ● Command Equip
 #--------------------------------------------------------------------------   
  alias mog_yf_mcursor_command_equip command_equip
  def command_equip
      $game_temp.menu_cursor[1] = 0
      force_cursor_visible(false)
      mog_yf_mcursor_command_equip
  end  
  end  

end

#==============================================================================
# ■ Window Base
#==============================================================================
class Window_Base < Window
  include CURSOR_MENU_SPRITE
  
  #--------------------------------------------------------------------------
  # ● Dispose
  #--------------------------------------------------------------------------              
  alias mog_menu_cursor_base_dispose dispose
  def dispose
      mog_menu_cursor_base_dispose
      dispose_cursor_sprite 
  end  

  #--------------------------------------------------------------------------
  # ● Update
  #--------------------------------------------------------------------------              
  alias mog_cursor_update update
  def update
      mog_cursor_update
      cursor_sprite_enable
  end    
  
  #--------------------------------------------------------------------------
  # ● Force Cursor Visible
  #--------------------------------------------------------------------------              
  def force_cursor_visible(value)
      force_cursor_visible_real(value)
      update
  end  
  
  #--------------------------------------------------------------------------
  # ● Force Update Cursor Position
  #--------------------------------------------------------------------------              
  def force_update_cursor_position
      force_update_cursor_position_real
      update
  end
  
end

#===============================================================================
# ■ Scene_Base
#===============================================================================
class Scene_Base
  
 #--------------------------------------------------------------------------
 # ● Force Cursro Visible
 #--------------------------------------------------------------------------   
 def force_cursor_visible(value)
     instance_variables.each do |varname|
     ivar = instance_variable_get(varname)
     ivar.force_cursor_visible(value) if ivar.is_a?(Window)
     end
 end
  
 #--------------------------------------------------------------------------
 # ● Force Update Cursor
 #--------------------------------------------------------------------------   
  def force_update_cursor
      instance_variables.each do |varname|
      ivar = instance_variable_get(varname)
      ivar.force_update_cursor_position if ivar.is_a?(Window)
      end      
  end
end