【原创】宠物系统（含无限宠物、仓库、进阶、图鉴）

tan12345

大家好，我是66RPG的tan12345，最近在写一个宠物类型的游戏（好吧，脚本是完成了，也会用图片做背景了，还会弄成动态图片了，可是没有剧情没有剧本，我果然只会写脚本……），发现关于宠物的脚本我只看到了菜鸟飞啊飞的宠物无限生成和宠物仓库：
http://rpg.blue/thread-331630-1-1.html
http://rpg.blue/thread-332492-1-1.html
可是这两货我都不会用（我承认我智商低），于是，本着别人能写我也能写的原则，有了以下产物：
宠物系统与设定
宠物无限生成
宠物进阶
宠物图鉴
宠物仓库（发布在另外一个帖子里,现在合在一起发布）
声明：以上脚本都是我自己写的，是我现在写的游戏中的一部分脚本，所以除非有BUG，
否则我不会做出功能上的修改或改进，大家如果需要改进功能，可以自己动手修改。
有不明白的地方可以问我。
以下是贴图：
无限宠物：



宠物进阶：

宠物仓库：

宠物图鉴：

代码与范例：
发布到66RPG的宠物系统.zip (2.26 MB, 下载次数: 1805, 售价: 10 星屑)

2014-5-17 21:14 上传

点击文件名下载附件
售价: 10 星屑  [记录]

----------------------------------------------
因为问的人太多，特意放上宠物蛋脚本……（为嘛不是抓宠？因为作者懒，宠物蛋脚本写起来就那么几行，抓宠脚本写起来太费心，大家将就吧……）

RUBY 代码复制

#设计目的：减少宠物蛋所用公共事件数量。
#使用方法：
#         定义1个变量记录所用物品的id，根据所用物品的id来判定是哪个宠物蛋。
#         在宠物蛋物品里，设定一个公共事件，事件内容为：
#         $game_party.tan_add_actor($game_variables[Tan_pet_set::Tan_pet_egg_var],true)
#         换句话说，宠物蛋入队的宠物，一定是模板生成的副本。
#注意:    本脚本需要结合宠物系统以及无限生成一起使用。
 
module Tan_pet_set
 
  Tan_pet_egg = {
  #物品ID=>[角色ID]
    1=>2,#使用1号物品，2号角色入队，注意，这里是角色ID，不是宠物ID
    2=>3,#使用2号物品，3号角色入队
    3=>4
  }
 
  Tan_pet_egg_var = 2#使用2号变量来记录取得的值
 
  def self.tan_get_egg_actorid(eggid)
    Tan_pet_egg[eggid].to_i
  end
end
 
class Game_Battler < Game_BattlerBase
  #--------------------------------------------------------------------------
  # ● 应用技能／物品的效果
  #--------------------------------------------------------------------------
  alias tan_pet_item_apply item_apply
  def item_apply(user, item)
    tan_pet_item_apply(user, item)
    $game_variables[Tan_pet_set::Tan_pet_egg_var] = Tan_pet_set.tan_get_egg_actorid(item.id) if item.is_a?(RPG::Item)
  end
end

#设计目的：减少宠物蛋所用公共事件数量。


#使用方法：


#         定义1个变量记录所用物品的id，根据所用物品的id来判定是哪个宠物蛋。


#         在宠物蛋物品里，设定一个公共事件，事件内容为：


#         $game_party.tan_add_actor($game_variables[Tan_pet_set::Tan_pet_egg_var],true)


#         换句话说，宠物蛋入队的宠物，一定是模板生成的副本。


#注意:    本脚本需要结合宠物系统以及无限生成一起使用。


 


module Tan_pet_set


 


  Tan_pet_egg = {


  #物品ID=>[角色ID]


    1=>2,#使用1号物品，2号角色入队，注意，这里是角色ID，不是宠物ID


    2=>3,#使用2号物品，3号角色入队


    3=>4


  }


 


  Tan_pet_egg_var = 2#使用2号变量来记录取得的值


 


  def self.tan_get_egg_actorid(eggid)


    Tan_pet_egg[eggid].to_i


  end


end


 


class Game_Battler < Game_BattlerBase


  #--------------------------------------------------------------------------


  # ● 应用技能／物品的效果


  #--------------------------------------------------------------------------


  alias tan_pet_item_apply item_apply


  def item_apply(user, item)


    tan_pet_item_apply(user, item)


    $game_variables[Tan_pet_set::Tan_pet_egg_var] = Tan_pet_set.tan_get_egg_actorid(item.id) if item.is_a?(RPG::Item)


  end


end

jienluck

很好很强大

2774638128

{:4_110:}{:4_110:}

冠蓝爆破

难受太难受了太难受了

332603

不错呀，增加了不少游戏性

erqiii

很强大的样子

huhuhu333111aaa

很好用..........

qianqian6582

收下我的膝盖

1465223563

大佬，有详细的教学吗？萌新不太会用啊

xiaokai6231

感觉还不错，新手木有经验