[XP Script] KBankai XP - Printable Version

View the Script
Code:
# * KBankai XP

#   Scripter : Kyonides Arkanthes

#   v0.6.0 - 2022-01-18

# Requires: FixedArray

# This scriptlet allows you to transform your actors aka heroes into

# soul reapers or hollows. After the conversion they will retain their human

# skills and states but not their weapons nor pieces of armor.

# A soul reaper might be unable to transform if he has been afflicted by some

# negative state. On the other hand, a hollow needs to get a specific state if

# he wants to get emotionally unstable enough as to trigger the transformation.

# If the actor's SP reach 0, he will devolve from his shikai or bankai stage.

# * Script Calls * #

# - Open the Reishi Test Menu Scene

# $scene = KBankai::StatusScene.new

# - Get a Party Member - Prerequisite

# actor = $game_party.actors[Index]

# - Increase or Decrease an Actor's Maximum Spirit Level

# actor.spirit_grow!

# actor.spirit_sink!

# - Reset Actor's Reishi Points - use it if you are an evil game developer!

# actor.reset_reishi

# - Toggle Freezing of the Soul Reaper or Hollow Transformation or

#   the Shikai or Bankai Stage

# actor.convert_disabled = true *or* false

# actor.shikai_disabled = true *or* false

# actor.bankai_disabled = true *or* false

# - Is the actor unable to transform due to lack of spiritual power?

# actor.always_human?

# * Aliased Methods * #

# Game_Battler #skill_effect

# Game_Actor #setup #states #state? #skills #skill_can_use? #skill_learn? sp=

# Game_Party #increase_steps

# Game_Player #update

module KBankai

  PROTO_REAPER_IDS = 1..8

  REAPER_IDS       = 9..16

  REAPERS_TOTAL    = REAPER_IDS.to_a.size

  PROTO_HOLLOW_IDS = 17..18

  HOLLOW_IDS       = 19..20

  HOLLOWS_TOTAL    = HOLLOW_IDS.to_a.size

  START_REISHI_PTS = 400

  MIN_REAPER_R_PTS = 200

  MIN_HOLLOW_R_PTS = 100

  CONVERT_SKILL_ID = 81

  SHIKAI_SKILL_ID  = 82

  BANKAI_SKILL_ID  = 83

  DEVOLVE_SKILL_ID = 84

  REAPER_PASS_AID  = 34

  PREVENT_REAPER_STATE_ID = 16 # 0 for no block

  BECOME_HOLLOW_STATE_ID  = 17

  REAPER_UPGRADE_ANIME_ID = 15

  REAPER_DEVOLVE_ANIME_ID = 18

  REAPER_SPIRIT_LVL_MAX   = 3

  HOLLOW_SPIRIT_LVL_MAX   = 4

  REISHI_POINTS_PER_STEP  = 1

  # ActorID => Level, etc.

  # Levels: 0 - human, 1 - reaper or hollow, 2 - shikai, 3 - bankai

  START_SPIRIT_LEVEL_MAX = {

    1 => 1, 2 => 1, 9 => 1, 15 => 2, 17 => 1

  }

  START_SPIRIT_LEVEL_MAX.default = 0

  REISHI_STATUS_HEADING = "Reishi Test"

  SPIRIT_LEVEL     = "Spirit Level"

  REISHI_IS_ENOUGH = "Enough Reishi?"

  HAS_REAPER_PASS  = "Reaper's Pass?"

  ETHEREAL_BEING   = "Ethereal Being?"

  REACHED_SHIKAI   = "Reached Shikai?"

  REACHED_BANKAI   = "Reached Bankai?"

  YES_NO_LABELS    = ["YES", "NO"]

  SOUL_REAPER      = "Soul Reaper"

  JUST_HOLLOW      = "Hollow"

  NO_SPECIAL_POWER = "No Powers"

  extend self

  def is_reaper?(aid) REAPER_IDS.include?(aid) end

  def is_hollow?(aid) HOLLOW_IDS.include?(aid) end

  def wannabe_reaper?(aid) is_reaper?(REAPERS_TOTAL + aid) end

  def wannabe_hollow?(aid) is_hollow?(HOLLOWS_TOTAL + aid) end

end

class Game_Battler

  alias :kyon_bankai_gm_btlr_skill_fx :skill_effect

  def skill_effect(user, skill)

    if user.actor?

      case skill.id

      when KBankai::CONVERT_SKILL_ID

        return become_spirit(skill.sp_cost)

      when KBankai::SHIKAI_SKILL_ID

        return unleash_some_kai(skill.sp_cost)

      when KBankai::BANKAI_SKILL_ID

        return unleash_some_kai(skill.sp_cost)

      when KBankai::DEVOLVE_SKILL_ID

        return devolve_spirit_stage

      end

    end

    kyon_bankai_gm_btlr_skill_fx(user, skill)

  end

  def is_spirit?() is_reaper? or is_hollow? end

  def human_skill?(sid) human_skills.include?(sid) end

  def actor?() @actor_id != nil end

  def enemy?() @enemy_id != nil end

end

class Game_Actor

  alias :kyon_bankai_gm_actor_setup :setup

  alias :kyon_bankai_gm_actor_states :states

  alias :kyon_bankai_gm_actor_skills :skills

  alias :kyon_bankai_gm_actor_skuse? :skill_can_use?

  def setup(actor_id)

    @human_skills = []

    @human_states = []

    kyon_bankai_gm_actor_setup(actor_id)

    @reishi_points = KBankai::START_REISHI_PTS

    @spirit_lvl_max = KBankai::START_SPIRIT_LEVEL_MAX[actor_id]

    if is_reaper? and @spirit_lvl_max > 0

      set_pre_reaper_skills

    elsif is_hollow? and @spirit_lvl_max > 0

      set_pre_hollow_skills

    else

      reset_reishi

      @human_id = @actor_id

    end

  end

  def sp=(n)

    super(n)

    devolve_spirit_stage!

    @sp

  end

  def copy_human_data

    actor = $game_actors[@human_id]

    @human_skills = actor.skills

    @human_states = actor.states

  end

  def set_pre_reaper_skills

    @spirit_lvl = 1

    @human_id = @actor_id - KBankai::REAPERS_TOTAL

    copy_human_data

    @top_spirit_lvl = KBankai::REAPER_SPIRIT_LVL_MAX

  end

  def set_pre_hollow_skills

    @spirit_lvl = 1

    @shikai_disabled = true

    @bankai_disabled = true

    @human_id = @actor_id - KBankai::HOLLOWS_TOTAL

    copy_human_data

    @top_spirit_lvl = KBankai::HOLLOW_SPIRIT_LVL_MAX

  end

  def reset_reishi

    @spirit_lvl = 0

    @reishi_points = 0

  end

  def increase_reishi

    return if @spirit_lvl_max == 0 or Graphics.frame_count % 10 > 0

    @reishi_points += KBankai::REISHI_POINTS_PER_STEP

  end

  def spiritual_class

    if wannabe_reaper? or is_reaper?

      KBankai::SOUL_REAPER

    elsif wannabe_hollow? or is_hollow?

      KBankai::JUST_HOLLOW

    else

      KBankai::NO_SPECIAL_POWER

    end

  end

  def can_convert?

    return false if @convert_disabled or always_human?

    if wannabe_reaper?

      return false if state?(KBankai::PREVENT_REAPER_STATE_ID)

      return false unless has_reaper_pass?

      return KBankai::MIN_REAPER_R_PTS <= @reishi_points

    elsif wannabe_hollow?

      return false unless state?(KBankai::BECOME_HOLLOW_STATE_ID)

      return KBankai::MIN_HOLLOW_R_PTS <= @reishi_points

    end

    false

  end

  def use_reaper_skill?(skill_id)

    case skill_id

    when KBankai::CONVERT_SKILL_ID

      return false unless is_human? and can_convert?

    when KBankai::SHIKAI_SKILL_ID

      return false unless is_reaper? and !@shikai_disabled

      return false if @spirit_lvl_max < 2

    when KBankai::BANKAI_SKILL_ID

      return false unless is_reaper? and !bankai_blocked?

      return false if @spirit_lvl_max < 3

    when KBankai::DEVOLVE_SKILL_ID

      return false if is_human?

    end

    true

  end

  def skill_can_use?(skill_id)

    return false unless use_reaper_skill?(skill_id)

    kyon_bankai_gm_actor_skuse?(skill_id)

  end

  def become_spirit(cost)

    self.sp -= cost

    @reishi_points -= KBankai::MIN_REAPER_R_PTS

    spid = @actor_id

    spid += wannabe_reaper? ? KBankai::REAPERS_TOTAL : KBankai::HOLLOWS_TOTAL

    $game_party.convert_pending = true

    $game_party.replace_actor(self.index, $game_actors[spid]) if is_human?

  end

  def change_reaper_weapon

    weapons = $data_classes[@class_id].weapon_set

    @weapon_id = weapons[@spirit_lvl - 1]

  end

  def unleash_some_kai(cost)

    self.sp -= cost

    @spirit_lvl += 1

    change_reaper_weapon

    @animation_id = KBankai::REAPER_UPGRADE_ANIME_ID

  end

  def devolve_spirit_stage!

    return if @sp > 0 or is_human?

    if @spirit_lvl > 1

      @spirit_lvl = 1

      change_reaper_weapon

    end

    @sp = maxsp

    $game_party.devolve_pending = true

    $game_party.replace_actor(self.index, $game_actors[@human_id])

  end

  def devolve_spirit_stage

    $game_party.devolve_pending = true

    if @spirit_lvl == 1

      $game_party.replace_actor(self.index, $game_actors[@human_id])

      return

    elsif @spirit_lvl > 1

      @spirit_lvl -= 1

      change_reaper_weapon

    end

  end

  def spirit_lvl_max=(n) @spirit_lvl_max = [[0, n].max, @top_spirit_lvl].min end

  def spirit_lvl=(n) @spirit_lvl = [[0, n].max, @spirit_lvl_max].min end

  def states() kyon_bankai_gm_actor_states + @human_states end

  def state?(state_id) (@states + @human_states).include?(state_id) end

  def skills() kyon_bankai_gm_actor_skills + @human_skills end

  def skill_learn?(skill_id) self.skills.include?(skill_id) end

  def is_human?() @spirit_lvl == 0 end

  def ethereal?() @spirit_lvl > 0 end

  def is_reaper?() KBankai.is_reaper?(@actor_id) end

  def is_hollow?() KBankai.is_hollow?(@actor_id) end

  def wannabe_reaper?() KBankai.wannabe_reaper?(@actor_id) end

  def wannabe_hollow?() KBankai.wannabe_hollow?(@actor_id) end

  def has_reaper_pass?() KBankai::REAPER_PASS_AID == @armor4_id end

  def reaper_level?() @spirit_lvl >= 1 end

  def shikai_level?() @spirit_lvl >= 2 end

  def bankai_level?() @spirit_lvl == 3 end

  def shikai_works?() !@shikai_disabled end

  def bankai_works?() !@bankai_disabled end

  def bankai_blocked?() @shikai_disabled or @bankai_disabled end

  def always_human?() @spirit_lvl_max == 0 end

  def spirit_grow!() @spirit_lvl_max += 1 end

  def spirit_sink!() @spirit_lvl_max -= 1 end

  attr_reader :human_skills, :human_id, :spirit_lvl_max, :spirit_lvl

  attr_accessor :convert_disabled, :shikai_disabled, :bankai_disabled

  attr_accessor :reishi_points

end

class Game_Enemy

  def is_reaper?() false end

  def is_hollow?() true end

  def is_human?() false end

  def always_human?() false end

end

class Game_Party

  alias :kyon_bankai_gm_pty_inc_steps :increase_steps

  def increase_reishi

    @actors.each{|actor| actor.increase_reishi }

  end

  def increase_steps

    increase_reishi

    kyon_bankai_gm_pty_inc_steps

  end

  def replace_actor(pos, actor)

    @actors[pos] = actor

    $game_player.refresh

  end

  attr_accessor :convert_pending, :devolve_pending

end

class Game_Player

  alias :kyon_bankai_gm_plr_up :update

  alias :kyon_bankai_gm_plr_ref :refresh

  def update

    kyon_bankai_gm_plr_up

    $game_party.increase_reishi

  end

  def refresh

    kyon_bankai_gm_plr_ref

    if $game_party.convert_pending

      $game_party.convert_pending = nil

      @animation_id = KBankai::REAPER_UPGRADE_ANIME_ID

    elsif $game_party.devolve_pending

      $game_party.devolve_pending = nil

      @animation_id = KBankai::REAPER_DEVOLVE_ANIME_ID

    end

  end

end

module KBankai

class ReishiSpriteset

  def initialize(target)

    @yes, @no = YES_NO_LABELS

    @semi_trans = Color.new(0, 0, 0, 120)

    @hilite = Color.new(220, 160, 40)

    @black = Color.new(0, 0, 0)

    @heading = Sprite.new

    @heading.bitmap = b = Bitmap.new(240, 36)

    @heading.x = 320 - b.width / 2

    @heading.y = 24

    b.fill_rect(b.rect, @semi_trans)

    font = b.font

    font.color = @black

    b.draw_text(1, 1, b.width, b.height, REISHI_STATUS_HEADING, 1)

    font.color = Color.new(255, 255, 255)

    b.draw_text(0, 0, b.width, b.height, REISHI_STATUS_HEADING, 1)

    @box = Sprite.new

    @box.bitmap = bm = Bitmap.new(264, 200)

    @box.x = 320 - bm.width / 2

    @box.y = @heading.y + b.height + 28

    bm.fill_rect(bm.rect, @semi_trans)

    @face = Sprite.new

    @face.x = @box.x - 136

    @face.y = @box.y

    @face.bitmap = Bitmap.new(40, 40)

    @name = Sprite.new

    @name.x = @face.x - 28

    @name.y = @face.y + 108

    @name.bitmap = Bitmap.new(160, 64)

    @labels = Sprite.new

    @labels.bitmap = bit = Bitmap.new(152, 184)

    @labels.x = @box.x + 8

    @labels.y = @box.y + 8

    bw = bit.width

    bit.draw_text(0,   0, bw, 26, SPIRIT_LEVEL)

    bit.draw_text(0,  32, bw, 26, REISHI_IS_ENOUGH)

    bit.draw_text(0,  64, bw, 26, HAS_REAPER_PASS)

    bit.draw_text(0,  96, bw, 26, ETHEREAL_BEING)

    bit.draw_text(0, 128, bw, 26, REACHED_SHIKAI)

    bit.draw_text(0, 160, bw, 26, REACHED_BANKAI)

    @data = Sprite.new

    @data.x = @box.x + bw + 16

    @data.y = @labels.y

    @data.bitmap = Bitmap.new(124, 184)

    self.next_actor = target

    @sprites = [@heading, @box, @face, @name, @labels, @data]

  end

  def ask?(question)

    @actor.send(question) ? @yes : @no

  end

  def next_actor=(target)

    @actor = target

    @face.bitmap.clear

    @face.bitmap = RPG::Cache.face(@actor.character_name).dup

    bit = @name.bitmap

    bit.clear

    bit.fill_rect(bit.rect, @semi_trans)

    bit.draw_text(0, 4, bit.width, 26, @actor.name, 1)

    bit.draw_text(0, 32, bit.width, 26, @actor.spiritual_class, 1)

    bit = @data.bitmap

    bw = bit.width

    bit.clear

    level = @actor.spirit_lvl.to_s

    convert = ask?(:can_convert?)

    has_pass = ask?(:has_reaper_pass?)

    ethereal = ask?(:ethereal?)

    shikai = ask?(:shikai_level?)

    bankai = ask?(:bankai_level?)

    bit.font.bold = true

    bit.font.color = @black

    bit.draw_text(1,   1, bw, 26, level)

    bit.draw_text(1,  33, bw, 26, convert)

    bit.draw_text(1,  65, bw, 26, has_pass)

    bit.draw_text(1,  97, bw, 26, ethereal)

    bit.draw_text(1, 129, bw, 26, shikai)

    bit.draw_text(1, 161, bw, 26, bankai)

    bit.font.color = @hilite

    bit.draw_text(0,   0, bw, 26, level)

    bit.draw_text(0,  32, bw, 26, convert)

    bit.draw_text(0,  64, bw, 26, has_pass)

    bit.draw_text(0,  96, bw, 26, ethereal)

    bit.draw_text(0, 128, bw, 26, shikai)

    bit.draw_text(0, 160, bw, 26, bankai)

  end

  def dispose

    @sprites.each do |sprite|

      sprite.bitmap.dispose

      sprite.dispose

    end

    @sprites.clear

  end

end

class StatusScene

  def main

    @run = true

    @index = 0

    @total = $game_party.actors.size

    @actor = $game_party.actors[0]

    @mapset = Spriteset_Map.new

    @spriteset = ReishiSpriteset.new(@actor)

    Graphics.transition

    while @run

      Graphics.update

      Input.update

      update

    end

    Graphics.freeze

    @spriteset.dispose

    @mapset.dispose

  end

  def update

    if Input.trigger?(Input::B)

      $game_system.se_play($data_system.cancel_se)

      $scene = Scene_Map.new

      @run = nil

    end

    return if @total == 0

    if Input.trigger?(Input::LEFT)

      $game_system.se_play($data_system.cursor_se)

      @index = (@index - 1) % @total

      @actor = $game_party.actors[@index]

      @spriteset.next_actor = @actor

      return

    elsif Input.trigger?(Input::RIGHT)

      $game_system.se_play($data_system.cursor_se)

      @index = (@index + 1) % @total

      @actor = $game_party.actors[@index]

      @spriteset.next_actor = @actor

    end

  end

end

end