[BS] Action Cost Card Turn System v1.4

http://www.media*fire.com/?p8pw7hahu99v4li

http://www.media*fire.com/?6m9rih3tw035cud

class Game_Actor < Game_Battler
  def base_position
    if dummy
      @base_position_x = 999
      @base_position_y = 999
    else
      dummy_position
    end
  end
end

#===============================================================================
# This patch is for making a skill that will not cost turn to execute. Can be
# used for items too. Just put <instant> in the note tag. Put this patch
# anywhere as you please, but it must be below Action Cost Card's main script.
# Better if not much skills are instant...
#===============================================================================
class Game_BattleAction
  attr_accessor :instantly
 
  def clear
    acc_new_clear
   
    @skill_charge = false
    @instantly = false
  end
 
  def make_speed
    @speed = battler.agi
    @speed -= (battler.agi * skill.speed / 100) if skill?
    @speed -= (battler.agi * item.speed / 100) if item?
    @speed *= 3 / 2 if guard?
    @speed = 0 if @basic == 2
    if skill? and skill.instant == true
      @instantly = true
    elsif item? and item.instant == true
      @instantly = true
    end
  end
end

module RPG
  class UsableItem
    attr_accessor :charge_id
    attr_accessor :endurance
    attr_accessor :charge_sequence
    attr_accessor :knock_back
    attr_accessor :time_skills
    attr_accessor :time_period
    attr_accessor :gone_on_ko
    attr_accessor :instant
   
    def scan_note_cost_card
      @charge_id = 0
      @endurance = 100
      @charge_sequence = ""
      @knock_back = 0
      @time_skills = []
      @time_period = 1
      @gone_on_ko = false
      @instant = false
      self.note.split(/[\r\n]+/).each { |line|
      case line
      when /<Charge[ ]*(\d+)[ ]*(\d+)>/i
        @charge_id = $1.to_i
        @endurance = $2.to_i
      when /<Chaanime[ ]*(\w+)>/i
        @charge_sequence = $1.to_s
      when /<KnockBack[ ]*(\d+)>/i
        @knock_back = $1.to_i
      when /<TimeCard[ ]*(\d+)>/i
        @time_skills.push($1.to_i)
      when /<UserKODiscard>/i
        @gone_on_ko = true
      when /<Period[ ]*(\d+)>/i
        @time_period = $1.to_i
      when /<Instant>/i
        @instant = true
      end
      }
    end
   
    def instant
      scan_note_cost_card if @instant == nil
      return @instant
    end
  end
end

class Scene_Battle < Scene_Base
  def update_target_cycle(guard = false)
    @cyc_update = true
    @old_index = @skill_window.index if @skill_window != nil
    @old_index = @item_window.index if @item_window != nil
    instant = false
    if @skill_window != nil
      @active_battler.action.set_skill(@skill_window.skill.id)
      instant = @active_battler.action.skill.instant
    end
    if @item_window != nil
      @active_battler.action.set_item(@item_window.item.id)
      instant = @active_battler.action.item.instant
    end
    @pre_cycle = [] if @pre_cycle == nil
    @pre_cycle = @turn_cycle.dup
    agi = 0
    for k in $game_troop.members + $game_party.members
      agi += k.agi
    end
    if guard == false
      @active_battler.action.make_speed
      @active_battler.turn_count = WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL - (@active_battler.action.speed * WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL / agi)
      @active_battler.turn_count = @active_battler.turn_count.round
      @active_battler.turn_count = @active_battler.turn_count.abs
      @active_battler.turn_count = WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL - 1 if @active_battler.turn_count >= WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL - 1
      @pre_cycle.insert(@active_battler.turn_count, @pre_cycle.shift) if !instant
    else
      @pre_cycle.insert(@active_battler.turn_count, @pre_cycle.shift)
    end
    stun_sort_pre
    @turn_count_window.refresh
  end
 
  def set_active_battler_next_turn
    agi = 0
    for i in $game_troop.members + $game_party.members
      agi += i.agi
    end
    if @active_battler.action.guard? == false
      @active_battler.action.make_speed
      instant = @active_battler.action.instantly
      @active_battler.turn_count = WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL - ((@active_battler.action.speed * WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL) / agi)
      @active_battler.turn_count = @active_battler.turn_count.round
      @active_battler.turn_count = @active_battler.turn_count.abs
      @active_battler.turn_count = WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL - 1 if @active_battler.turn_count >= WLTR::SPECIAL_TURN_SETUP::CARD_TOTAL - 1
      @turn_cycle.insert(@active_battler.turn_count, @turn_cycle.shift) if !instant
    else
      @turn_cycle.insert(@active_battler.turn_count, @turn_cycle.shift)
    end
    stun_sort
  end
end