ホーム
>
RPGツクール
>
テクニック集
>
XP一覧
>
テクニック

装備変更イベント強化

EquipEventReinforce

概要

Summary

200xは、装備を持っていなくても「装備の変更」が可能でした。
しかし、XPの「装備の変更」コマンドでは、装備品を持っていない場合は何も起こりません。
これは、この機能をXPでも再現しようというスクリプトです。

スクリプト

Script

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/　　◆装備変更イベント強化 － KGC_EquipEventReinforce◆
#_/----------------------------------------------------------------------------
#_/　装備変更イベントを使いやすく強化します。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

$imported = {} if $imported == nil
$imported["EquipEventReinforce"] = true

#==============================================================================
# ■ Interpreter (分割定義 6)
#==============================================================================

class Interpreter
  #--------------------------------------------------------------------------
  # ● 装備の変更
  #--------------------------------------------------------------------------
  def command_319
    # アクターを取得
    actor = $game_actors[@parameters[0]]
    # 装備を変更
    if actor != nil
      # 装備の所持数を取得
      case @parameters[1]
      when 0  # 武器
        # 持っていない場合は1個入手
        if $game_party.weapon_number(@parameters[2]) == 0
          $game_party.gain_weapon(@parameters[2], 1)
        end
      else  # 防具
        # 持っていない場合は1個入手
        if $game_party.armor_number(@parameters[2]) == 0
          $game_party.gain_armor(@parameters[2], 1)
        end
      end
      actor.equip(@parameters[1], @parameters[2])
    end
    # 継続
    return true
  end
end

↑目次

使用法

Usage

導入するだけで使用可能です。

↑目次