自用的召唤兽系统 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

arnie510 · 发表于 2013-3-20 03:23:01

本帖最后由 arnie510 于 2013-3-20 04:36 编辑

感谢大大！这非常实用喔！！真棒！！ {:2_275:}

问一下大大如果我想将召幻兽显示的位置改在右上方,并往下递增请问该怎么做?? 如下图
还有此脚本有"限制召换数量"这个功能吗?

jrgerm · 发表于 2013-3-20 20:38:03

话说，按照大大方法做出来的召唤兽似乎不能攻击，也不能行动啊，是不是要设定什么才行？

arnie510 · 发表于 2013-3-21 14:32:01

jrgerm 发表于 2013-3-20 20:38
话说，按照大大方法做出来的召唤兽似乎不能攻击，也不能行动啊，是不是要设定什么才行？ ...

要修改BattleManager腳本的兩個地方,召喚獸就會動了！

#修改BattleManager---------------------------------------------------------------------------
   #召唤兽产生行动
   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

wangxinly · 发表于 2013-3-21 22:30:50

arnie510 发表于 2013-3-20 03:23
感谢大大！这非常实用喔！！真棒！！

问一下大大如果我想将召幻兽显示的位置改在右上方,并往 ...

可以在之前的代码页下边再开一页，放入

RUBY 代码复制

#右上角，顺次往下
class Scene_Battle
  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
 
end

#右上角，顺次往下


class Scene_Battle


  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


 


end

或者直接修改对应的这个refresh_sunmmon_windows
只改了一句

q854240045 · 发表于 2013-3-22 19:50:27

请问怎样设置才能使召唤兽不超过两个？

arnie510 · 发表于 2013-3-23 01:26:18

wangxinly 发表于 2013-3-21 22:30
可以在之前的代码页下边再开一页，放入
#右上角，顺次往下
class Scene_Battle

非常感謝你！！ {:2_280:}

wangxinly · 发表于 2013-3-23 22:57:46

q854240045 发表于 2013-3-22 19:50
请问怎样设置才能使召唤兽不超过两个？

在下边新开一页放入或者自己修改对应的

RUBY 代码复制

class Game_Summoned
  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(2)
  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_Summoned


  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(2)


  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

wyws1983 · 发表于 2013-4-21 23:46:34

脚本“Game_Interpreter"第1411行发生ArgumentError.wrong number of arguments(0 for 1)
这是什么意思呢

wangxinly · 发表于 2013-4-23 12:39:42

wyws1983 发表于 2013-4-21 23:46
脚本“Game_Interpreter"第1411行发生ArgumentError.wrong number of arguments(0 for 1)
这是什么意思呢 ...

这表示你在事件里用的脚本没有参数，而它需要1个参数

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

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

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

评分

点评