DSI Status Menu v1.01

#==============================================================================
# DSI Status Menu v1.01
# -- Last Updated: 2017.07.23
# -- Author: dsiver144
# -- Level: Easy
# -- Requires: n/a
#==============================================================================
$imported = {} if $imported.nil?
$imported["DSI-NewStatusMenu"] = true
#==============================================================================
# + Updates
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# 2017.07.23 - Finish first version.
#            - Fix not compatible with old save files.
#==============================================================================
# + Instructions
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# To install this script, open up your script editor and copy/paste this script
# to an open slot below Materials but above Main. Remember to save.
# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# Script call: SceneManager.call(Scene_NewStatusMenu) -> Open Status menu
# + change_ass_image(filename)
# + change_pussy_image(filename)
# + change_breasts_image(filename)
# + change_mouth_image(filename)
# -> Use them to change image in squares to another one.
#==============================================================================
module DSIVER144
  module STATUS_MENU

    Graphic_Path = "Graphics/Status Menu"

    Main_status_var_id = 1

    P_status_var_id = 20
    P_Status_Images = {}
    P_Status_Images[1] = "Status_P1"
    P_Status_Images[2] = "Status_P2"

    Breasts_var_id  = 61
    Oral_var_id     = 62
    Vaginal_var_id  = 63
    Anal_var_id     = 64

    Squares_Images = {}
    Squares_Images["Breasts"] = "Tits"
    Squares_Images["Mouth"] = "Mouth"
    Squares_Images["Ass"] = "Ass"
    Squares_Images["Pussy"] = "Pussy"

    Spearm_Status = {}  # Don't touch this line please

    Spearm_Status["Sperm ABS"]    = [121,"Status_S_Abs"] # [Switch ID, Pic Name]
    Spearm_Status["Sperm Chest"]  = [122,"Status_S_Chest"]
    Spearm_Status["Sperm Face"]   = [123,"Status_S_Face"]
    Spearm_Status["Sperm Legs"]   = [124,"Status_S_Legs"]
    Spearm_Status["Sperm Lips"]   = [125,"Status_S_Lips"]
    Spearm_Status["Sperm Mouth"]  = [126,"Status_S_Mouth"]
    Spearm_Status["Sperm Nose"]   = [127,"Status_S_Nose"]
    Spearm_Status["Sperm Pussy"]  = [128,"Status_S_Pussy"]

    Status_Images = {} # Don't touch this line please

    Status_Images[100] = "Status_100"
    Status_Images[80] = "Status_80"
    Status_Images[60] = "Status_60"
    Status_Images[40] = "Status_40"
    Status_Images[20] = "Status_20"
  end # STATUS_MENU

end # DSIVER144

class Game_Interpreter
  #----------------------------------------------------------------------------
  # * new method: change_breasts_image
  #----------------------------------------------------------------------------
  def change_breasts_image(filename)
    $game_system.ht_square_images["Breasts"] = filename
  end
  #----------------------------------------------------------------------------
  # * new method: change_breasts_image
  #----------------------------------------------------------------------------
  def change_mouth_image(filename)
    $game_system.ht_square_images["Mouth"] = filename
  end
  #----------------------------------------------------------------------------
  # * new method: change_breasts_image
  #----------------------------------------------------------------------------
  def change_ass_image(filename)
    $game_system.ht_square_images["Ass"] = filename
  end
  #----------------------------------------------------------------------------
  # * new method: change_breasts_image
  #----------------------------------------------------------------------------
  def change_pussy_image(filename)
    $game_system.ht_square_images["Pussy"] = filename
  end
end # Game_Interpreter

class Game_System
  include DSIVER144::STATUS_MENU
  attr_accessor :ht_square_images
  alias_method(:dsi_ht_square_images_init, :initialize)
  def initialize
    init_square_images
    dsi_ht_square_images_init
  end
  #----------------------------------------------------------------------------
  # * new method: init_square_images
  #----------------------------------------------------------------------------
  def init_square_images
    @ht_square_images = {}
    Squares_Images.each_pair do |key,filename|
      @ht_square_images[key] = filename
    end
  end
end # Game_System

class Scene_NewStatusMenu < Scene_Base
  include DSIVER144::STATUS_MENU
  #----------------------------------------------------------------------------
  # * new method: start
  #----------------------------------------------------------------------------
  def start
    super
    create_sprites
  end
  #----------------------------------------------------------------------------
  # * new method: create_sprites
  #----------------------------------------------------------------------------
  def create_sprites
    @sprites = {}
    @sprites[:bg] = Sprite.new
    @sprites[:bg].bitmap = Cache.status("Menu_BG")
    @sprites[:bg].z = 0
    @sprites[:main] = Sprite.new
    case $game_variables[Main_status_var_id]
      when 0..20
        @sprites[:main].bitmap = Cache.status(Status_Images[20])
      when 21..40
        @sprites[:main].bitmap = Cache.status(Status_Images[40])
      when 41..60
        @sprites[:main].bitmap = Cache.status(Status_Images[60])
      when 61..80
        @sprites[:main].bitmap = Cache.status(Status_Images[80])
      when 81..100
        @sprites[:main].bitmap = Cache.status(Status_Images[100])
    end
    @sprites[:main].z = 5
    @sprites[:p_status] = Sprite.new
    @sprites[:p_status].z = 6
    case $game_variables[P_status_var_id]
      when 1
        @sprites[:p_status].bitmap = Cache.status(P_Status_Images[1])
      when 2
        @sprites[:p_status].bitmap = Cache.status(P_Status_Images[2])
      end
    if $game_system.ht_square_images
      $game_system.ht_square_images.each_pair do |key,filename|
        @sprites[key.to_sym] = Sprite.new
        @sprites[key.to_sym].z = 6
        @sprites[key.to_sym].bitmap = Cache.status(filename)
      end
    else
      $game_system.init_square_images
      $game_system.ht_square_images.each_pair do |key,filename|
        @sprites[key.to_sym] = Sprite.new
        @sprites[key.to_sym].z = 6
        @sprites[key.to_sym].bitmap = Cache.status(filename)
      end
    end
    @sprites[:outline] = Sprite.new
    @sprites[:outline].bitmap = Cache.status("Squares_Outline")
    @sprites[:outline].z = 7
    @sprites[:square_var] = Sprite.new
    @sprites[:square_var].bitmap = Bitmap.new(Graphics.width,Graphics.height)
    @sprites[:square_var].bitmap.font.name = ['Franklin Gothic Heavy']
    @sprites[:square_var].z = 8
    coors = [[175,78,Breasts_var_id],[520,10,Oral_var_id],[175,330,Vaginal_var_id],[522,250,Anal_var_id]]
    coors.each do |pos|
      value = $game_variables[pos[2]]
      @sprites[:square_var].bitmap.draw_text(pos[0],pos[1],200,24,value)
    end
    Spearm_Status.each_pair do |key,status|
      if $game_switches[status[0]]
        @sprites[key.to_sym] = Sprite.new
        @sprites[key.to_sym].bitmap = Cache.status(status[1])
        @sprites[key.to_sym].z = 7
      end
    end
  end
  #----------------------------------------------------------------------------
  # * new method: update
  #----------------------------------------------------------------------------
  def update
    super
    if Input.trigger?(:B)
      return_scene
    end
  end
  #----------------------------------------------------------------------------
  # * new method: terminate
  #----------------------------------------------------------------------------
  def terminate
    super
    @sprites.values.each do |sprite|
      sprite.bitmap.dispose if sprite.bitmap
      sprite.dispose
    end
  end
end # Scene_NewStatusMenu

module Cache
  #--------------------------------------------------------------------------
  # * Get Status Graphic
  #--------------------------------------------------------------------------
  def self.status(filename)
    load_bitmap(DSIVER144::STATUS_MENU::Graphic_Path+"/",filename)
  end
end # Cache

class Scene_Menu
  #----------------------------------------------------------------------------
  # * new method: command_status
  #----------------------------------------------------------------------------
  def command_status
    SceneManager.call(Scene_NewStatusMenu)
  end
end # Scene_Menu