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

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, 下载次数: 1817, 售价: 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

双黄连2_副本2

很强大的样子，虽然没时间试，但还是顶一下！【宠物什么的最Good了】

3106345123

宠物仓库:查看状态or查看技能=报错

tan12345

@a1670770233 @mmy @3106345123 @双黄连2_副本2 @diablo2x @ziemo375 @jccg1000466 @生人勿近 @david_ng223 @mk07080999 @yuanlongyu
之前我自己写的游戏里用了图片做背景，上传这个附件的时候忘记改回来了，导致宠物仓库查看技能、状态页面会报错，现在已经修正，大家可以重新下载（不会重复扣除经验值）。

子弹君

很不错，能做出抓捕宠物的脚本吗？

phpnacl

不錯
增加不少遊戲的樂趣

chd114

系统不错，就是图示把我雷到了···女性进化成男性···

chd114

宠物放到角色那栏不科学的说···要是我弄得五人战斗，每个人都能带一个宠物要怎么破···彩虹岛那种网游的话一个人带三个···

tan12345

chd114 发表于 2014-3-21 14:59
宠物放到角色那栏不科学的说···要是我弄得五人战斗，每个人都能带一个宠物要怎么破···彩虹岛那种网游 ...

1.如果不放到角色那栏，你想放哪里？？也就角色那栏可以设定，其他地方你根本没地方设定。
2.你要5人战斗也不影响啊，但是你说的那种，每人带一个宠物（类似大话西游），这个需要再写脚本才行。
3.我这个系统就可以一个人带3个宠物，当然，前提是只有1个主角，剩下的都是宠物（类似口袋妖怪）。