#===============================================================================
#---------------------=• Basic Attack Common Event •=---------------------------
#---------------------------=• by: DrDhoom •=-----------------------------------
# Version: 1.0 (For Default Battle System)
# Date Published: 19 - 05 - 2011
# RPGMakerID Community
#-------------------------------------------------------------------------------
# Introduction:
# Execute commont event when using basic attack
#-------------------------------------------------------------------------------
# How to use:
#  - Insert this script above Main
#===============================================================================
]module Dhoom
  module CEW
    COMMON_WEAPON = [] #<--- Don't Delete this line
    #COMMON_WEAPON[Weapon ID] = Common Event ID
    COMMON_WEAPON[1] = 4
    COMMON_WEAPON[2] = 1
    COMMON_WEAPON[3] = 2
 
    ENEMY = []
    #ENEMY[enemy id] = common event id
    ENEMY[1] = 1
 
    #ENE_ACTIVE = [enemy id]
    ENE_ACTIVE = [1]
 
    #ACTIVE = [weapon id]
    ACTIVE = [1,2]
  end
end

class Game_Enemy
  def enemy?
    return true
  end
end

class Game_Actor
  def enemy?
    return false
  end
end

class Scene_Battle
  alias dhoom_basic_action make_basic_action_result
  def make_basic_action_result
    dhoom_basic_action
    if @active_battler.current_action.basic == 0
      if Dhoom::CEW::COMMON_WEAPON[@active_battler.weapon_id] != nil
        if Dhoom::CEW::ACTIVE.include?(@active_battler.weapon_id)
          common_event = $data_common_events[Dhoom::CEW::COMMON_WEAPON[@active_battler.weapon_id]]
          $game_system.battle_interpreter.setup(common_event.list, 0)
        else
          @common_event_id = Dhoom::CEW::COMMON_WEAPON[@active_battler.weapon_id]
        end
      elsif @active_battler.enemy? and Dhoom::CEW::ENEMY[@active_battler.id] != nil
        if Dhoom::CEW::ENE_ACTIVE.include?(@active_battler.id)
          common_event = $data_common_events[Dhoom::CEW::ENEMY[@active_battler.id]]
          $game_system.battle_interpreter.setup(common_event.list, 0)
        else
          @common_event_id = Dhoom::CEW::ENEMY[@active_battler.id]
        end
      end
    end
  end
end

#===============================================================================
#---------------------=• Basic Attack Common Event •=---------------------------
#---------------------------=• by: DrDhoom •=-----------------------------------
# Version: 1.0 (For Atoa CBS)
# Date Published: 19 - 05 - 2011
# RPGMakerID Community
#-------------------------------------------------------------------------------
# Introduction:
# Execute commont event when using basic attack
#-------------------------------------------------------------------------------
# How to use:
#  - Insert this script above Main
#===============================================================================
module Dhoom
  module CEW
    COMMON_WEAPON = [] #<--- Don't Delete this line
    #COMMON_WEAPON[Weapon ID] = Common Event ID
    COMMON_WEAPON[1] = 4
    COMMON_WEAPON[2] = 1
    COMMON_WEAPON[3] = 2
 
    ENEMY = []
    #ENEMY[enemy id] = common event id
    ENEMY[1] = 1
 
    #ENE_ACTIVE = [enemy id]
    ENE_ACTIVE = [1]
 
    #ACTIVE = [weapon id]
    ACTIVE = [1,2]
  end
end

class Game_Enemy
  def enemy?
    return true
  end
end

class Game_Actor
  def enemy?
    return false
  end
end

class Scene_Battle
  alias dhoom_basic_action make_basic_action_result
  def make_basic_action_result(battler)
    dhoom_basic_action(battler)
    if battler.current_action.basic == 0
      if Dhoom::CEW::COMMON_WEAPON[battler.weapon_id] != nil
        if Dhoom::CEW::ACTIVE.include?(battler.weapon_id)
          common_event = $data_common_events[Dhoom::CEW::COMMON_WEAPON[battler.weapon_id]]
          $game_system.battle_interpreter.setup(common_event.list, 0)
        else
          @common_event_id = Dhoom::CEW::COMMON_WEAPON[battler.weapon_id]
        end
      elsif battler.enemy? and Dhoom::CEW::ENEMY[battler.id] != nil
        if Dhoom::CEW::ENE_ACTIVE.include?(battler.id)
          common_event = $data_common_events[Dhoom::CEW::ENEMY[battler.id]]
          $game_system.battle_interpreter.setup(common_event.list, 0)
        else
          @common_event_id = Dhoom::CEW::ENEMY[battler.id]
        end
      end
    end
  end
end

#===============================================================================
#---------------------=•Common Event Before Skill •=---------------------------
#---------------------------=• by: DrDhoom •=-----------------------------------
# Version: 1.0
# Date Published: 18 - 05 - 2011
# RPGMakerID Community
#-------------------------------------------------------------------------------
# Introduction:
# Execute commont event before using skill
#-------------------------------------------------------------------------------
# How to use:
#  - Insert this script above Main
#===============================================================================
module Dhoom
  module CEBA
    COMMON_EVENT = [] #<--- Don't Delete this line
  #COMMON_EVENT[skill id] = common event id
    COMMON_EVENT[1] = 4
  end
end

class Scene_Battle
  alias dhoom_make_skill make_skill_action_result
  def make_skill_action_result
    dhoom_make_skill
    if Dhoom::CEBA::COMMON_EVENT[@skill.id] != nil
      common_event = $data_common_events[Dhoom::CEBA::COMMON_EVENT[@skill.id]]
      $game_system.battle_interpreter.setup(common_event.list, 0)
    end
  end
end

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

#===============================================================================
#---------------------------= Shortcut Scene =----------------------------------
#-----------------------------= by: DrDhoom =-----------------------------------
# Version: 1.1
# Date Published: 27 - 12 - 2011
#-------------------------------------------------------------------------------
# Introduction:
# With this script, you can make a Shortcut for calling scene.
#-------------------------------------------------------------------------------
# How to use:
#  - Insert this script above Main
#-------------------------------------------------------------------------------
#===============================================================================

module Dhoom
  module ShortcutScene
    #Shortcut = [[Button, Scene], [Button, Scene], ...]

    # Button = Input button, look at Game Properties>Keyboard(F1 when playing)
    #          for more keys. The format is "Input::Keys".
    # Scene = Scene class.
    # You can add as many shortcut as you want.
 
    Shortcut = [[Input::R, Scene_Item],[Input::L, Scene_Skill]]
  end
end

class Scene_Map
 
  include Dhoom::ShortcutScene
 
  alias dhoom_map_shortcut_update update
 
  def update
    dhoom_map_shortcut_update
    update_shortcut
  end
 
  def update_shortcut
    return if $game_system.map_interpreter.running?
    for key in Shortcut
      if Input.trigger?(key[0])
        $game_player.straighten
        $scene = key[1].new
        return
      end
    end
  end
end

#===============================================================================
#---------------------=•Common Event Before Skill •=---------------------------
#---------------------------=• by: DrDhoom •=-----------------------------------
# Version: 1.0 (Atoa BS)
# Date Published: 18 - 05 - 2011
# RPGMakerID Community
#-------------------------------------------------------------------------------
# Introduction:
# Execute commont event before using skill
#-------------------------------------------------------------------------------
# How to use:
#  - Insert this script above Main
#===============================================================================
module Dhoom
  module CEBA
    COMMON_SEVENT = [] #<--- Don't Delete this line
  #COMMON_SEVENT[skill id] = common event id
    COMMON_SEVENT[1] = 4
   
    COMMON_IEVENT = [] #<--- Don't Delete this line
  #COMMON_IEVENT[item id] = common event id
    COMMON_IEVENT[1] = 4
  end
end

class Scene_Battle
  alias dhoom_make_skill make_skill_action_result
  def make_skill_action_result(battler)
    dhoom_make_skill(battler)
    if Dhoom::CEBA::COMMON_SEVENT[battler.current_skill.id] != nil
      common_event = $data_common_events[Dhoom::CEBA::COMMON_SEVENT[battler.current_skill.id]]
      $game_system.battle_interpreter.setup(common_event.list, 0)
    end
  end
 
  alias dhoom_make_item make_item_action_result
  def make_item_action_result(battler)
    dhoom_make_item(battler)
    if Dhoom::CEBA::COMMON_IEVENT[battler.current_item.id] != nil
      common_event = $data_common_events[Dhoom::CEBA::COMMON_IEVENT[battler.current_item.id]]
      $game_system.battle_interpreter.setup(common_event.list, 0)
    end
  end
end

#===============================================================================
#--------------------------=• Shop Variable •=----------------------------------
#---------------------------=• by: DrDhoom •=-----------------------------------
# Version: 1.0
# Date Published: 28 - 05 - 2011
# RPGMakerID Community
#-------------------------------------------------------------------------------
# Introduction:
# Make Shop Screen that using variables, not gold.
#-------------------------------------------------------------------------------
# How to use:
#  - Insert this script above Main 
#===============================================================================
module DHOOM
  module SPVR
   
    ITEMS = [] #<--- Don't delete this line
    #ITEMS[item id] = Variable price
    ITEMS[1] = 200
    ITEMS[2] = 10
   
    WEAPONS = [] #<--- Don't delete this line
    #WEAPONS[weapon id] = Variable price
    WEAPONS[1] = 10
   
    ARMORS = [] #<--- Don't delete this line
    #ARMORS[armor id] = Variable price
    ARMORS[1] = 10
   
    SHOP_CONTENTS = [] #<--- Don't delete this line
    #SHOP_CONTENTS[Shop id] = [[item type, item id]]
    #Item type, 1 => Item, 2 => Weapon, 3 => Armor
    SHOP_CONTENTS[1] = [[1,1],[2,1],[3,1]]
   
    #---HOW TO CALL VARIABLE SHOP SCREEN---
    #To call Variable Shop Screen, put script in event command:
   
    # $scene = Scene_Shop_Var.new(type, shop content id, variable id)

    # Type, 1 => Only Buy, 2 => Only Sell, 3 => Buy and Sell
    # Shop content id => the ID of SHOP_CONTENTS[] above
    # Variable Id = Variable id you want to replace Gold for Shop
   
  end
end

module RPG
  class Item
    include DHOOM::SPVR
    def create_shop_var_cache
      if ITEMS[@id] != nil
        @var_price = ITEMS[@id]
      end
    end
   
    def var_price
      if @var_price.nil?
        create_shop_var_cache
      end
      return @var_price
    end
  end
 
  class Weapon
    include DHOOM::SPVR
    def create_shop_var_cache
      if WEAPONS[@id] != nil
        @var_price = WEAPONS[@id]
      end
    end
   
    def var_price
      if @var_price.nil?
        create_shop_var_cache
      end
      return @var_price
    end
  end
 
  class Armor
    include DHOOM::SPVR
    def create_shop_var_cache
      if ARMORS[@id] != nil
        @var_price = ARMORS[@id]
      end
    end
   
    def var_price
      if @var_price.nil?
        create_shop_var_cache
      end
      return @var_price
    end
  end
end

class Window_ShopBuy_Var < Window_Selectable
  include DHOOM::SPVR
  def initialize(cont, var)
    super(0, 128, 368, 352)
    @cont = SHOP_CONTENTS[cont].clone
    @var = var
    refresh
    self.index = 0
  end
  def item
    return @data[self.index]
  end
  def refresh
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
    @data = []
    max = @cont.size - 1
    for i in 0..max
      case @cont[i-1][0]
      when 1
        item = $data_items[@cont[i-1][1]]
      when 2
        item = $data_weapons[@cont[i-1][1]]
      when 3
        item = $data_armors[@cont[i-1][1]]
      end
      if item != nil
        @data.push(item)
      end
    end
    @item_max = @data.size
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 32)
      for i in 0...@item_max
        draw_item(i)
      end
    end
  end
  def draw_item(index)
    item = @data[index]
    # Get items in possession
    case item
    when RPG::Item
      number = $game_party.item_number(item.id)
    when RPG::Weapon
      number = $game_party.weapon_number(item.id)
    when RPG::Armor
      number = $game_party.armor_number(item.id)
    end
    if item.var_price <= $game_variables[@var] and number < 99
      self.contents.font.color = normal_color
    else
      self.contents.font.color = disabled_color
    end
    x = 4
    y = index * 32
    rect = Rect.new(x, y, self.width - 32, 32)
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    bitmap = RPG::Cache.icon(item.icon_name)
    opacity = self.contents.font.color == normal_color ? 255 : 128
    self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24), opacity)
    self.contents.draw_text(x + 28, y, 212, 32, item.name, 0)
    self.contents.draw_text(x + 240, y, 88, 32, item.var_price.to_s, 2)
  end
  def update_help
    @help_window.set_text(self.item == nil ? "" : self.item.description)
  end
end

class Window_GoldVar < Window_Base
  def initialize(var)
    super(0, 0, 160, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    @var = var
    refresh
  end
  def refresh
    self.contents.clear
    if $data_system.variables[@var] == nil
      $data_system.variables[@var] = ""
    end
    cx = contents.text_size($data_system.variables[@var]).width
    self.contents.font.color = normal_color
    self.contents.draw_text(4, 0, 120-cx-2, 32, $game_variables[@var].to_s, 2)
    self.contents.font.color = system_color
    self.contents.draw_text(124-cx, 0, cx, 32, $data_system.variables[@var], 2)
  end
end

class Window_ShopCommandVar < Window_Selectable
  def initialize(type)
    super(0, 64, 480, 64)
    @type = type
    self.contents = Bitmap.new(width - 32, height - 32)   
    @column_max = 3
    case @type
    when 1
      @item_max = 2
      @commands = ["Buy", "Exit"]
    when 2
      @item_max = 2
      @commands = ["Sell", "Exit"]
    when 3
      @item_max = 3
      @commands = ["Buy", "Sell", "Exit"]
    end
    refresh
    self.index = 0
  end
  def refresh
    self.contents.clear
    for i in 0...@item_max
      draw_item(i)
    end
  end
  def draw_item(index)
    x = 4 + index * 160
    self.contents.draw_text(x, 0, 128, 32, @commands[index])
  end
end


class Scene_Shop_Var
  include DHOOM::SPVR
  def initialize(type, content, var)
    @type = type
    @var = var
    @content = content
  end
 
  def main
    @help_window = Window_Help.new
    @command_window = Window_ShopCommandVar.new(@type)
    @gold_window = Window_GoldVar.new(@var)
    @gold_window.x = 480
    @gold_window.y = 64
    @dummy_window = Window_Base.new(0, 128, 640, 352)
    if @type == 1 or @type == 3
      @buy_window = Window_ShopBuy_Var.new(@content, @var)
      @buy_window.active = false
      @buy_window.visible = false
      @buy_window.help_window = @help_window
    end
    if @type == 2 or @type == 3
      @sell_window = Window_ShopSell.new
      @sell_window.active = false
      @sell_window.visible = false
      @sell_window.help_window = @help_window
    end
    @number_window = Window_ShopNumber.new
    @number_window.active = false
    @number_window.visible = false
    @status_window = Window_ShopStatus.new
    @status_window.visible = false
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @help_window.dispose
    @command_window.dispose
    @gold_window.dispose
    @dummy_window.dispose
    if @type == 1 or @type == 3
      @buy_window.dispose
    end
    if @type == 2 or @type == 3
      @sell_window.dispose
    end
    @number_window.dispose
    @status_window.dispose
  end
  def update
    @help_window.update
    @command_window.update
    @gold_window.update
    @dummy_window.update
    if @type == 1 or @type == 3
      @buy_window.update
    end
    if @type == 2 or @type == 3
      @sell_window.update
    end
    @number_window.update
    @status_window.update
    if @command_window.active
      update_command
      return
    end
    if @buy_window != nil and @buy_window.active
      update_buy
      return
    end
    if @sell_window != nil and @sell_window.active
      update_sell
      return
    end
    if @number_window.active
      update_number
      return
    end
  end
  def update_command
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Map.new
      return
    end
    if Input.trigger?(Input::C)
      case @command_window.index
      when 0
        if @type == 1 or @type == 3
          $game_system.se_play($data_system.decision_se)
          @command_window.active = false
          @dummy_window.visible = false
          @buy_window.active = true
          @buy_window.visible = true
          @buy_window.refresh
          @status_window.visible = true
        elsif @type == 2
          $game_system.se_play($data_system.decision_se)
          @command_window.active = false
          @dummy_window.visible = false
          @sell_window.active = true
          @sell_window.visible = true
          @sell_window.refresh
        end
      when 1
        if @type == 3
          $game_system.se_play($data_system.decision_se)
          @command_window.active = false
          @dummy_window.visible = false
          @sell_window.active = true
          @sell_window.visible = true
          @sell_window.refresh
        else
          $game_system.se_play($data_system.decision_se)
          $scene = Scene_Map.new
        end
      when 2
        $game_system.se_play($data_system.decision_se)
        $scene = Scene_Map.new
      end
      return
    end
  end
 
  def update_buy
    @status_window.item = @buy_window.item
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @command_window.active = true
      @dummy_window.visible = true
      @buy_window.active = false
      @buy_window.visible = false
      @status_window.visible = false
      @status_window.item = nil
      @help_window.set_text("")
      return
    end
    if Input.trigger?(Input::C)
      @item = @buy_window.item
      if @item == nil or @item.var_price > $game_variables[@var]
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      case @item
      when RPG::Item
        number = $game_party.item_number(@item.id)
      when RPG::Weapon
        number = $game_party.weapon_number(@item.id)
      when RPG::Armor
        number = $game_party.armor_number(@item.id)
      end
      if number == 99
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      $game_system.se_play($data_system.decision_se)
      max = @item.var_price == 0 ? 99 : $game_variables[@var] / @item.var_price
      max = [max, 99 - number].min
      @buy_window.active = false
      @buy_window.visible = false
      @number_window.set(@item, max, @item.var_price)
      @number_window.active = true
      @number_window.visible = true
    end
  end
  def update_sell
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @command_window.active = true
      @dummy_window.visible = true
      @sell_window.active = false
      @sell_window.visible = false
      @status_window.item = nil
      @help_window.set_text("")
      return
    end
    if Input.trigger?(Input::C)
      @item = @sell_window.item
      @status_window.item = @item
      if @item == nil or @item.var_price == 0
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      $game_system.se_play($data_system.decision_se)
      case @item
      when RPG::Item
        number = $game_party.item_number(@item.id)
      when RPG::Weapon
        number = $game_party.weapon_number(@item.id)
      when RPG::Armor
        number = $game_party.armor_number(@item.id)
      end
      max = number
      @sell_window.active = false
      @sell_window.visible = false
      @number_window.set(@item, max, @item.var_price / 2)
      @number_window.active = true
      @number_window.visible = true
      @status_window.visible = true
    end
  end
  def update_number
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @number_window.active = false
      @number_window.visible = false
      case @command_window.index
      when 0
        if @type == 1 or @type == 3
          @buy_window.active = true
          @buy_window.visible = true
        else
          @sell_window.active = true
          @sell_window.visible = true
          @status_window.visible = false
        end
      when 1
        @sell_window.active = true
        @sell_window.visible = true
        @status_window.visible = false
      end
      return
    end
    if Input.trigger?(Input::C)
      $game_system.se_play($data_system.shop_se)
      @number_window.active = false
      @number_window.visible = false
      case @command_window.index
      when 0
        if @type == 1 or @type == 3
          $game_variables[@var] -= (@number_window.number * @item.var_price)
          case @item
          when RPG::Item
            $game_party.gain_item(@item.id, @number_window.number)
          when RPG::Weapon
            $game_party.gain_weapon(@item.id, @number_window.number)
          when RPG::Armor
            $game_party.gain_armor(@item.id, @number_window.number)
          end
          @gold_window.refresh       
          @status_window.refresh       
          @buy_window.refresh
          @buy_window.active = true
          @buy_window.visible = true
        else
          $game_variables[@var] += (@number_window.number * (@item.var_price / 2))
          case @item
          when RPG::Item
            $game_party.lose_item(@item.id, @number_window.number)
          when RPG::Weapon
            $game_party.lose_weapon(@item.id, @number_window.number)
          when RPG::Armor
            $game_party.lose_armor(@item.id, @number_window.number)
          end
          @gold_window.refresh
          @sell_window.refresh
          @status_window.refresh
          @sell_window.active = true
          @sell_window.visible = true
          @status_window.visible = false
        end
      when 1
        $game_variables[@var] += (@number_window.number * (@item.var_price / 2))
        case @item
        when RPG::Item
          $game_party.lose_item(@item.id, @number_window.number)
        when RPG::Weapon
          $game_party.lose_weapon(@item.id, @number_window.number)
        when RPG::Armor
          $game_party.lose_armor(@item.id, @number_window.number)
        end
        @gold_window.refresh
        @sell_window.refresh
        @status_window.refresh
        @sell_window.active = true
        @sell_window.visible = true
        @status_window.visible = false
      end
      return
    end
  end
end

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