自用的召唤兽系统 2013-03-23更新设定召唤兽数量上限

wangxinly · 发表于 2013-3-18 15:57:23

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由 wangxinly 于 2013-3-23 23:03 编辑

自己编写的一个召唤兽系统，可以在战斗时召唤出敌人来帮我方战斗。可以自己设定是否有回合数限制和是否挡住敌人的攻击

因为是新手，摸索着编写的，依然很多问题
比如召唤兽的辅助技能是给我方角色加，而我方角色是给自己加，所以召唤兽不能补血、辅助、复活等
另外敌人的全体攻击会被召唤兽全部挡住，而不会伤害到我方角色

使用这个召唤兽系统，要设定一个技能，技能使用效果里设置出发公共事件，公共事件里执行脚本$game_sunmmon.add(summon_id,liveturn=9999)
summon_id是数据库里的敌人的编号，liveturn是存在的回合，不填就默认9999

这个召唤兽系统要修改BattleManager

RUBY 代码复制

#修改---------------------------------------------------------------------------
  #召唤兽产生行动
  def self.input_start
    if @phase != :input
      @phase = :input
      $game_party.make_actions
      $game_troop.make_actions
      #修改
      $game_sunmmon.make_actions
      #修改结束
      clear_actor
    end
    return !@surprise && $game_party.inputable?
  end
  #召唤兽参与回合行动
  def self.make_action_orders
    @action_battlers = []
    @action_battlers += $game_party.members unless @surprise
    @action_battlers += $game_troop.members unless @preemptive
    @action_battlers.each {|battler| battler.make_speed }
    @action_battlers.sort! {|a,b| b.speed - a.speed }
    #修改
    @action_battlers += $game_sunmmon.alive_members
    #修改结束
  end

#修改---------------------------------------------------------------------------


  #召唤兽产生行动


  def self.input_start


    if @phase != :input


      @phase = :input


      $game_party.make_actions


      $game_troop.make_actions


      #修改


      $game_sunmmon.make_actions


      #修改结束


      clear_actor


    end


    return !@surprise && $game_party.inputable?


  end


  #召唤兽参与回合行动


  def self.make_action_orders


    @action_battlers = []


    @action_battlers += $game_party.members unless @surprise


    @action_battlers += $game_troop.members unless @preemptive


    @action_battlers.each {|battler| battler.make_speed }


    @action_battlers.sort! {|a,b| b.speed - a.speed }


    #修改


    @action_battlers += $game_sunmmon.alive_members


    #修改结束


  end

，可以对比着修改，或者直接在最后一个end前加入

这些在MAIN前新开一页复制进去就好

RUBY 代码复制

#需要修改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

#需要修改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

zwkforeverno2 · 发表于 2014-9-6 19:11:01

要是能和Sideview整合起来就好了！

tomy30f · 发表于 2014-8-5 20:23:45

83 def item
84 $game_sunmmon.members
這二句有什魔用?因為我用的時候佢出錯了...

神梦无痕 · 发表于 2014-5-30 17:59:44

提示: 作者被禁止或删除内容自动屏蔽

神梦无痕 · 发表于 2014-5-23 17:33:46

提示: 作者被禁止或删除内容自动屏蔽

1090210658 · 发表于 2014-3-13 21:22:38

楼主召唤兽的脚本“Game_Interpreter”第1141行发生NameError。undefined local variable or method summon_id' for #<Game_Interpreter:0×2d17是咋回事？

LLL1113 · 发表于 2014-3-9 23:21:43

请问有没有完整版的工程文件，我是新手....脚本好多我不知道要放哪个位置

坚持才好 · 发表于 2013-12-10 12:47:10

关注下~~~

隐翼枫 · 发表于 2013-11-30 17:06:38

大大，请问有办法在召唤兽名字旁边显示头像吗？

l601651213 · 发表于 2013-10-16 21:41:01

大大有没有可以在EAS战斗系统上用的召唤兽系统

arnie510 · 发表于 2013-9-15 19:08:44

623279257 发表于 2013-9-15 12:20
没看明白，是增加那红色的代码还是怎么样？

是的！{:2_275:}

帐号		自动登录	找回密码
密码			注册会员

[RMVA发布] 自用的召唤兽系统 2013-03-23更新设定召唤兽数量上限

加入我们，或者，欢迎回来。

评分