William Scripts

## First script  "variable level[55]" uses variable 55 as max level.
class RPG::Actor < RPG::BaseItem
  def level_var
    make_level_vars unless @level_variable
    return @level_variable
  end

  def make_level_vars
    @level_variable = 0
    note.split(/[\n\r]+/).each do |line|
      case line
      when /variable level\[\d+\]/i
        @level_variable = $1.to_i
      end
    end
  end
end

class Game_Actor < Game_Battler
  def max_level
    if actor.level_var > 0
      $game_variables[actor.level_var]
    else
      actor.max_level
    end
  end
end


## Sector script  "item actor[55]" uses actor 55 in the party.
class RPG::EquipItem < RPG::BaseItem
  def item_actor
    make_actor_items unless @item_actor
    return @item_actor
  end

  def make_actor_items
    @item_actor = 0
    note.split(/[\n\r]+/).each do |line|
      case line
      when /item actor\[(\d+)\]/i
        @item_actor = $1.to_i
      end
    end
  end
end

class Game_Party < Game_Unit
  alias old_battle_members_method battle_members
  def battle_members
    group = []
    actor = $game_actors[1]  ## Change the number on this line
    for equip in actor.equips
      group.push($game_actors[equip.item_actor]) if equip && equip.item_actor > 0
    end
    return group.empty? ? group : old_battle_members_method
  end
end