#需要修改BattleManager
#战斗时才能使用的召唤兽系统，可以帮助战斗，不包括召唤兽，我方角色全灭即算战斗失败
#
#
#
#使用这个召唤兽系统，要设定一个技能，技能使用效果里设置出发公共事件
#公共事件里执行脚本$game_sunmmon.add(summon_id,liveturn=9999)
#summon_id是数据库里的敌人的编号，liveturn是存在的回合，不填就默认9999
#例如$game_sunmmon.add(30) 既是召唤第30个敌人"魔神"来帮忙战斗9999回合
#例如$game_sunmmon.add(29,3) 是召唤第29个敌人"魔王"来战斗3回合
#
#
#module是开关控制true和false
#召唤兽是否挡住敌人的全部攻击，true时所有攻击都由召唤兽来承受，包括全体伤害
#回合限制是召唤兽行动几回合后消失，不包括召唤出来的那个回合
#显示有边框的窗口，或者一个淡淡的底色
#前缀名和后缀名是区分怪物和召唤兽名字用的
#2013-03-23新增召唤兽最大数量限制和保留的方式
module SUMMON
#召唤兽控制开关
EnableAttack = true #召唤兽是否挡住敌人的攻击
EnableTrun = true #召唤兽是否有存在回合限制
EnableBack = true #召唤兽窗口显示边框或者底色
ItemWidthMin = 24*3 #召唤兽窗口的最小文字宽度
ItemWidthMax = 24*9 #召唤兽窗口的最大文字宽度
FirstName = "召唤兽" #召唤兽的前缀名
BackName = "的幻影" #召唤兽的后缀名
MaxSummon = 2 #最大的召唤兽数量
NewSummon = true #保留最新的召唤兽还是最老的，TRUE是保留最新
end
class Scene_Battle
alias start_sunmmon start
def start #战斗开始，创建召唤兽队伍的类的实例
$game_sunmmon=Game_Summoned.new #创建召唤兽队伍的类的实例
start_sunmmon
end
alias turn_end_sunmmon turn_end
def turn_end #回合结束
turn_end_sunmmon
$game_sunmmon.turnend #召唤兽存在回合-1
refresh_sunmmon_windows
end
def create_sunmmon_windows #创建召唤兽窗口
@sunmmon_window = Window_Summon.new(0,0)
refresh_sunmmon_windows
end
def refresh_sunmmon_windows #刷新召唤兽窗口
@sunmmon_window.show
@sunmmon_window.hide if @sunmmon_window.item_max==0
@sunmmon_window.width=@sunmmon_window.window_width
@sunmmon_window.height=@sunmmon_window.window_height
#@sunmmon_window.x=Graphics.width - @sunmmon_window.width
@sunmmon_window.y=Graphics.height - @sunmmon_window.height - @party_command_window.height
@sunmmon_window.refresh
end
alias create_all_windows_sunmmon create_all_windows
def create_all_windows
create_all_windows_sunmmon
create_sunmmon_windows
end
def refresh_status
@status_window.refresh
refresh_sunmmon_windows
end
end
#召唤兽的状态显示窗口
class Window_Summon < Window_Base
def initialize(x, y)
super(x, y, window_width, window_height)
self.opacity = 0 if SUMMON::EnableBack
refresh
end
def window_width
[[SUMMON::ItemWidthMin,item_width].max,SUMMON::ItemWidthMax].min+24+standard_padding * 2
end
def window_height
fitting_height(item_max)
end
def contents_height
window_height - standard_padding * 2
end
def item
$game_sunmmon.members
end
def item_max
item.size
end
def item_width
max=1
item.each {|item| max=item.name.size if item.name.size>max }
return max*24
end
def draw_sunmmon
item_max.times {|i| draw_item(i) }
end
def draw_item(index)
rect = Rect.new
rect.width = contents_width
rect.height = line_height
rect.x = 0
rect.y = (item_max-index-1) * line_height
contents.fill_rect(rect,Color.new(0, 0, 0, 64)) if SUMMON::EnableBack
#显示召唤兽血条
draw_new_hpgauge(rect.x,rect.y+12,rect.width,item[index].hp_rate)
#显示回合数
draw_text(rect.x,rect.y,24+2,rect.height,item[index].liveturn-1 ) if SUMMON::EnableTrun&&item[index].liveturn<101
#显示召唤兽名字
draw_text(rect.x+24-2,rect.y,rect.width-24+2,rect.height,item[index].name)
end
def draw_new_hpgauge(x,y,width, rate,gaugeheight=6)
contents.fill_rect(x, y+6, width, gaugeheight, gauge_back_color)
fill_w = (width * rate).to_i
contents.gradient_fill_rect(x+width/2,y+6,fill_w-width/2,gaugeheight,text_color(17),text_color(3)) if fill_w>width/2
contents.gradient_fill_rect(x,y+6,width/2,gaugeheight,text_color(18),text_color(17)) if fill_w>width/2
contents.gradient_fill_rect(x,y+6,fill_w,gaugeheight,text_color(18),text_color(17)) if fill_w<=width/2
end
def refresh
contents.clear
create_contents
draw_sunmmon
end
end
#实例 $game_sunmmon = Game_Summoned.new
#召唤兽队伍的类
class Game_Summoned < Game_Unit
def initialize
super
members
@index=0
end
def members
@summon=[] unless @summon
@summon
end
def alive_members
members.select {|member| member.alive? }
end
def add(summon_id,liveturn=9999) #增加召唤兽
summon = Game_Summon.new(@index,summon_id)
summon.liveturn=liveturn+1
@summon.push(summon)
@index+=1
summonlimit
end
def turnend #召唤兽回合处理
members.each do |summon|
summon.turnend
end
@summon.delete_if{|summon| summon.liveturn<=0} #清除不存在的召唤兽
summonlimit
end
def summonlimit
summonmax(SUMMON::MaxSummon,SUMMON::NewSummon)
end
def summonmax(num,new=true)
if @summon.size>num
if new
(1..(@summon.size-num)).each{|i|@summon.shift}
else
(1..(@summon.size-num)).each{|i|@summon.pop}
end
end
end
end
#召唤兽的类
class Game_Summon < Game_Enemy
attr_accessor :liveturn #存在的回合数
def friends_unit #对自己的角色辅助
$game_party
end
def opponents_unit #对敌人攻击
$game_troop
end
def name #名字前增加“召唤兽”
SUMMON::FirstName + @original_name + SUMMON::BackName
end
def turnend ##召唤兽是否有存在回合限制
@liveturn=[@liveturn-1,0].max if SUMMON::EnableTrun
end
end
class Game_Enemy
def opponents_unit #召唤兽存在时是否先攻击召唤兽
if SUMMON::EnableAttack&&$game_sunmmon.alive_members!=[]
$game_sunmmon
else
$game_party
end
end
end
