【VA】铸剑系统

杂兵天下

使用的随机系统是从http://rpg.blue/thread-224387-1-1.html里拿到的
其实我做此系统本身就是因为看到上面的帖子，想起很久之前看到的柳柳XP版随机铸剑系统做的。
不过柳柳那个系统有很大的错误，用xp的朋友也不要去翻找了，反正有极大的BUG你也用不了。
代码在6楼。
会从三个特性中选一个，七种古剑中选一个。
其他属性均为随机生成。事件脚本createweapon调用。调用后自动获得生成的古剑。

---

更新：

1. $imported = {} if $imported.nil?
   
2. if $imported["RuntimeDB"].nil?
   
3.   $imported["RuntimeDB"] = true
   
4.   module DataManager
   
5.     class <<self
   
6.       alias make_save_contents_runtimedb_zabing make_save_contents
   
7.       alias extract_save_contents_runtimedb_zabing extract_save_contents
   
8.     end
   
9.     def self.make_save_contents
   
10.       contents = make_save_contents_runtimedb_zabing
    
11.       contents[:dataactorszabing] = $data_actors
    
12.       contents[:dataclasseszabing] = $data_classes
    
13.       contents[:dataskillszabing] = $data_skills
    
14.       contents[:dataitemszabing] = $data_items
    
15.       contents[:dataweaponszabing] = $data_weapons
    
16.       contents[:dataarmorszabing] = $data_armors
    
17.       contents[:dataenemieszabing] = $data_enemies
    
18.       contents[:datatroopszabing] = $data_troops
    
19.       contents[:datastateszabing] = $data_states
    
20.       contents[:dataanimationszabing] = $data_animations
    
21.       contents[:datatilesetszabing] = $data_tilesets
    
22.       contents[:datacommoneventszabing] = $data_common_events
    
23.       contents[:datasystemzabing] = $data_system
    
24.       contents[:datamapinfoszabing] = $data_mapinfos
    
25.       contents
    
26.     end
    
27.     def self.extract_save_contents(contents)
    
28.       extract_save_contents_runtimedb_zabing(contents)
    
29.       $data_actors = contents[:dataactorszabing]
    
30.       $data_classes = contents[:dataclasseszabing]
    
31.       $data_skills = contents[:dataskillszabing]
    
32.       $data_items = contents[:dataitemszabing]
    
33.       $data_weapons = contents[:dataweaponszabing]
    
34.       $data_armors = contents[:dataarmorszabing]
    
35.       $data_enemies = contents[:dataenemieszabing]
    
36.       $data_troops = contents[:datatroopszabing]
    
37.       $data_states = contents[:datastateszabing]
    
38.       $data_animations = contents[:dataanimationszabing]
    
39.       $data_tilesets = contents[:datatilesetszabing]
    
40.       $data_common_events = contents[:datacommoneventszabing]
    
41.       $data_system = contents[:datasystemzabing]
    
42.       $data_mapinfos = contents[:datamapinfoszabing]
    
43.     end
    
44.   end
    
45. else
    
46.   msgbox "请不要重复加载脚本。"
    
47. end
    
48. $imported = {} if $imported.nil?
    
49. if $imported["RatiosClov"].nil?
    
50. #--------------------------------------------------------------------------
    
51. # 多项比率选一(Ratios) By.Clov
    
52. # 使用 Ratios.Co({对象=>比率},分比数)
    
53. #--------------------------------------------------------------------------
    
54.   $imported["RatiosClov"] = true  
    
55.   module Ratios
    
56.     def self.Co(data = {}, b = 100)
    
57.       r = rand b;n = data.keys;f = data.values;arr = [];mii = []
    
58.       f.each {|v| if v >= r;arr.push v;else;arr.push nil;end}
    
59.       unless arr.compact.empty?
    
60.         arr.each {|a|
    
61.         if a;mii.push a - rand(a) - r
    
62.         else;mii.push b;end}
    
63.         x = mii.index mii.min
    
64.       else
    
65.         x = f.index f.max
    
66.       end
    
67.       return [n[x],f[x]]
    
68.     end
    
69.   end
    
70. else
    
71.   msgbox "请不要重复加载脚本。"
    
72. end
    
73. class Game_Interpreter
    
74.   def createweapon
    
75.     thishash = {
    
76.     ["龙神","晋库走龙剑，吴室荡燕雏。"]=>100,
    
77.     ["照胆","武丁在位五十九年，以元年岁次午铸一剑，长三
    
78. 尺，铭曰‘照胆’，古文篆书。"]=>500,
    
79.     ["青霜","紫电青霜，王将军之武库。"]=>800,
    
80.     ["龙泉","章帝赐尚书剑，韩棱渊深有谋，故得龙泉剑。"]=>1000,
    
81.     ["磐郢","吴王得越所献宝剑三枚。一曰鱼肠，二曰磐郢，
    
82. 三曰湛泸。"]=>50,
    
83.     ["淳钧","山崩而落洛之水涸，欧治子而淳钧之剑成。"]=>10,
    
84.     ["卧槽","卧槽泥马勒戈壁，兰州芝麻大烧饼。"]=>1000,
    
85. }
    
86. 
    
87.     thathash = {}
    
88.     temp = RPG::BaseItem::Feature.new
    
89.     temp.code = 31
    
90.     temp.data_id = 1
    
91.     temp.value = 0
    
92.     thathash[temp]=100#100几率物理武器专精
    
93.     temp = RPG::BaseItem::Feature.new
    
94.     temp.code = 22
    
95.     temp.data_id = 0
    
96.     temp.value = 0.5
    
97.     thathash[temp]=50#50几率精准专精
    
98.     temp = RPG::BaseItem::Feature.new
    
99.     temp.code = 33
    
100.     temp.data_id = 0
     
101.     temp.value = 500
     
102.     thathash[temp]=25#25几率超速专精
     
103.     c = Ratios.Co(thathash)
     
104.     a = RPG::Weapon.new
     
105.     a.icon_index = 147
     
106.     a.animation_id = 7
     
107.     a.features = [c[0]]
     
108.     a.params = [0,0,0,0,0,0,0,0]
     
109.     a.etype_id = 0
     
110.     a.wtype_id = 1
     
111.     a.params[0] = rand(1000)
     
112.     a.params[1] = rand(50)
     
113.     a.params[2] = rand(150)
     
114.     a.params[3] = rand(100)
     
115.     a.params[4] = rand(100)
     
116.     a.params[5] = rand(100)
     
117.     a.params[6] = rand(100)
     
118.     a.params[7] = rand(100)
     
119.     a.price = 0
     
120.     for i in 0..7
     
121.       case i
     
122.       when 0
     
123.         a.price += a.params[i] * 100
     
124.       when 1
     
125.         a.price += a.params[i] * 2000
     
126.       when 2
     
127.         a.price += a.params[i] * 2000
     
128.       else
     
129.         a.price += a.params[i] * 1000
     
130.       end
     
131.     end
     
132.     a.price = a.price.to_i
     
133.     c = Ratios.Co(thishash)
     
134.     a.name = "价值"+a.price.to_s+"的"+c[0][0]+"剑"
     
135.     if c[0][0]=="卧槽"
     
136.       temp = RPG::BaseItem::Feature.new
     
137.       temp.code = 43
     
138.       temp.data_id = 24
     
139.       temp.value = 0.0
     
140.       a.features.push(temp)
     
141.     end
     
142.     a.description = c[0][1]
     
143.     a.id = $data_weapons.size
     
144.     $data_weapons[$data_weapons.size] = a.clone
     
145.     a=nil
     
146.     $game_party.gain_item($data_weapons[$data_weapons.size-1], 1, false)
     
147.   end
     
148. end

复制代码

这是新版代码。请注意此版中，价格总是50的倍数，并且随着属性而改变。
所有的卧槽剑都会附加一个冥想技能。
运用这样的思路，可以制作此系统：

RUBY 代码复制

class Game_Interpreter
  def makeweapon(a,b,c,d,e,f,g,h,i)
    a = RPG::Weapon.new
    a.icon_index = a
    a.animation_id = b
    a.features = c
    a.params = d
    a.etype_id = e
    a.wtype_id = f
    a.price = g
    a.name = h
    a.description = i
    a.id = $data_weapons.size
    $data_weapons[$data_weapons.size] = a.clone
    a=nil
    $game_party.gain_item($data_weapons[$data_weapons.size-1], 1, false)
  end
  def mergeweapon(a,b)
    if $game_party.has_item?(a)
      if $game_party.has_item?(b)
        $game_party.lose_item(a, 1, false)
        $game_party.lose_item(b, 1, false)
makeweapon(a.icon_index,a.animation_id,b.features,a.params,a.etype_id,a.wtype_id,a.price,a.name+"+"+b.name,a.description)
      end
    end
  end
end

class Game_Interpreter


  def makeweapon(a,b,c,d,e,f,g,h,i)


    a = RPG::Weapon.new


    a.icon_index = a


    a.animation_id = b


    a.features = c


    a.params = d


    a.etype_id = e


    a.wtype_id = f


    a.price = g


    a.name = h


    a.description = i


    a.id = $data_weapons.size


    $data_weapons[$data_weapons.size] = a.clone


    a=nil


    $game_party.gain_item($data_weapons[$data_weapons.size-1], 1, false)


  end


  def mergeweapon(a,b)


    if $game_party.has_item?(a)


      if $game_party.has_item?(b)


        $game_party.lose_item(a, 1, false)


        $game_party.lose_item(b, 1, false)


makeweapon(a.icon_index,a.animation_id,b.features,a.params,a.etype_id,a.wtype_id,a.price,a.name+"+"+b.name,a.description)


      end


    end


  end


end

用mergeweapon($data_weapons[1],$data_weapons[18])这样来融合剑1与剑18。比如说剑1是属性高的龙泉剑，剑2是属性低的卧槽剑，为了得到冥想效果与高属性，可以用mergeweapon来操作。mergeweapon(龙泉的ID，卧槽的ID）。
如果结合Fomar的武器选择窗口脚本，效果更好。

wangzh9173

沙C米 发表于 2015-3-1 00:25
說真的 這各對我們這種新人蔡鳥   完全看不懂怎麼使用    ( 昨天看了一晚  有好幾各腳本  幾乎都是....看了 ...

说出了新手的心声，完全不知道该怎么用

沙C米

說真的 這各對我們這種新人蔡鳥   完全看不懂怎麼使用    ( 昨天看了一晚  有好幾各腳本  幾乎都是....看了標題就感覺 很強大  很實用 的名稱    想進去看看怎麼使用    但卻....把使用方法   說的太高端了....不是新手能懂的範疇...只能輕輕嘆息的  返回上一頁.)

複製腳本  很簡單  貼上去RMVACE 也不難  重點來了....我們新手  不知道如何調用  怎麼把這好用的功能呼叫出來  難倒了一台鐵達尼號上的人了...

雖然大神有說  用事件調用  就好了   但是.....對眾多高手們  可能一看便能一目了然  閉著眼睛都知道怎麼使用這腳本    但....對菜鳥...卻是  鴨子聽雷...有聽沒有懂...

何謂新人 就是對某些人 事 物 都不懂   初來乍到的人  通常我們都稱之為新人或者新手

新手最會的就是  有各參考物件  可以依樣畫葫蘆   來學習自己不會的東西   也能稱之模仿或者拷貝

我知道大神們幫助我們並不是義務    但我相信 你們是最熱心的!!  

希望6R的各位大神們  能夠高抬貴手  可以上各使用方法  或者 範例...給像我這種新手菜鳥  也能來個依樣畫葫蘆  感激不盡...謝謝你們..

oOTESOo

很不错哦，我也想做一个装备道具参数随机生成的游戏，楼主有没有兴趣？加我好友

rpg-sheep

很不错的脚本哈，支持一下大神~
另外有条小建议：如果把铸好的剑作为一种物品储存起来（或是直接在数据库里设置剑的属性）
是不是就避免了重复加载导致的覆盖？

zhaoyusi

谢谢，好东西

漫步烟雨

小白  请教一下，这个系统，添加进去了，但是怎么使用选项把他呼出来？

红白机

我喜欢LZ起的威武剑名，可我是小白啊。求LZ弄个范例，让我知道具体的操作啊。拜谢！！！

玄机子

感觉挺棒的，做个可以下载的范例吧。

杂兵天下

1. $imported = {} if $imported.nil?
   
2. if $imported["RuntimeDB"].nil?
   
3.   $imported["RuntimeDB"] = true
   
4.   module DataManager
   
5.     class <<self
   
6.       alias make_save_contents_runtimedb_zabing make_save_contents
   
7.       alias extract_save_contents_runtimedb_zabing extract_save_contents
   
8.     end
   
9.     def self.make_save_contents
   
10.       contents = make_save_contents_runtimedb_zabing
    
11.       contents[:dataactorszabing] = $data_actors
    
12.       contents[:dataclasseszabing] = $data_classes
    
13.       contents[:dataskillszabing] = $data_skills
    
14.       contents[:dataitemszabing] = $data_items
    
15.       contents[:dataweaponszabing] = $data_weapons
    
16.       contents[:dataarmorszabing] = $data_armors
    
17.       contents[:dataenemieszabing] = $data_enemies
    
18.       contents[:datatroopszabing] = $data_troops
    
19.       contents[:datastateszabing] = $data_states
    
20.       contents[:dataanimationszabing] = $data_animations
    
21.       contents[:datatilesetszabing] = $data_tilesets
    
22.       contents[:datacommoneventszabing] = $data_common_events
    
23.       contents[:datasystemzabing] = $data_system
    
24.       contents[:datamapinfoszabing] = $data_mapinfos
    
25.       contents
    
26.     end
    
27.     def self.extract_save_contents(contents)
    
28.       extract_save_contents_runtimedb_zabing(contents)
    
29.       $data_actors = contents[:dataactorszabing]
    
30.       $data_classes = contents[:dataclasseszabing]
    
31.       $data_skills = contents[:dataskillszabing]
    
32.       $data_items = contents[:dataitemszabing]
    
33.       $data_weapons = contents[:dataweaponszabing]
    
34.       $data_armors = contents[:dataarmorszabing]
    
35.       $data_enemies = contents[:dataenemieszabing]
    
36.       $data_troops = contents[:datatroopszabing]
    
37.       $data_states = contents[:datastateszabing]
    
38.       $data_animations = contents[:dataanimationszabing]
    
39.       $data_tilesets = contents[:datatilesetszabing]
    
40.       $data_common_events = contents[:datacommoneventszabing]
    
41.       $data_system = contents[:datasystemzabing]
    
42.       $data_mapinfos = contents[:datamapinfoszabing]
    
43.     end
    
44.   end
    
45. else
    
46.   msgbox "请不要重复加载脚本。"
    
47. end
    
48. $imported = {} if $imported.nil?
    
49. if $imported["RatiosClov"].nil?
    
50. #--------------------------------------------------------------------------
    
51. # 多项比率选一(Ratios) By.Clov
    
52. # 使用 Ratios.Co({对象=>比率},分比数)
    
53. #--------------------------------------------------------------------------
    
54.   $imported["RatiosClov"] = true  
    
55.   module Ratios
    
56.     def self.Co(data = {}, b = 100)
    
57.       r = rand b;n = data.keys;f = data.values;arr = [];mii = []
    
58.       f.each {|v| if v >= r;arr.push v;else;arr.push nil;end}
    
59.       unless arr.compact.empty?
    
60.         arr.each {|a|
    
61.         if a;mii.push a - rand(a) - r
    
62.         else;mii.push b;end}
    
63.         x = mii.index mii.min
    
64.       else
    
65.         x = f.index f.max
    
66.       end
    
67.       return [n[x],f[x]]
    
68.     end
    
69.   end
    
70. else
    
71.   msgbox "请不要重复加载脚本。"
    
72. end
    
73. class Game_Interpreter
    
74.   def createweapon
    
75.     thishash = {
    
76.     ["龙神","晋库走龙剑，吴室荡燕雏。"]=>100,
    
77.     ["照胆","武丁在位五十九年，以元年岁次午铸一剑，长三
    
78. 尺，铭曰‘照胆’，古文篆书。"]=>500,
    
79.     ["青霜","紫电青霜，王将军之武库。"]=>800,
    
80.     ["龙泉","章帝赐尚书剑，韩棱渊深有谋，故得龙泉剑。"]=>1000,
    
81.     ["磐郢","吴王得越所献宝剑三枚。一曰鱼肠，二曰磐郢，
    
82. 三曰湛泸。"]=>50,
    
83.     ["淳钧","山崩而落洛之水涸，欧治子而淳钧之剑成。"]=>10,
    
84.     ["卧槽","卧槽泥马勒戈壁，兰州芝麻大烧饼。"]=>1000,
    
85. }
    
86. 
    
87.     thathash = {}
    
88.     temp = RPG::BaseItem::Feature.new
    
89.     temp.code = 31
    
90.     temp.data_id = 1
    
91.     temp.value = 0
    
92.     thathash[temp]=100#100几率物理武器专精
    
93.     temp = RPG::BaseItem::Feature.new
    
94.     temp.code = 22
    
95.     temp.data_id = 0
    
96.     temp.value = 0.5
    
97.     thathash[temp]=50#50几率精准专精
    
98.     temp = RPG::BaseItem::Feature.new
    
99.     temp.code = 33
    
100.     temp.data_id = 0
     
101.     temp.value = 500
     
102.     thathash[temp]=25#25几率超速专精
     
103.     c = Ratios.Co(thathash)
     
104.     a = RPG::Weapon.new
     
105.     a.icon_index = 147
     
106.     a.animation_id = 7
     
107.     a.features = [c[0]]
     
108.     a.params = [0,0,0,0,0,0,0,0]
     
109.     a.etype_id = 0
     
110.     a.wtype_id = 1
     
111.     a.params[0] = rand(1000)
     
112.     a.params[1] = rand(50)
     
113.     a.params[2] = rand(150)
     
114.     a.params[3] = rand(100)
     
115.     a.params[4] = rand(100)
     
116.     a.params[5] = rand(100)
     
117.     a.params[6] = rand(100)
     
118.     a.params[7] = rand(100)
     
119.     a.price = 0
     
120.     for i in 0..7
     
121.       case i
     
122.       when 0
     
123.         a.price += a.params[i] * 100
     
124.       when 1
     
125.         a.price += a.params[i] * 2000
     
126.       when 2
     
127.         a.price += a.params[i] * 2000
     
128.       else
     
129.         a.price += a.params[i] * 1000
     
130.       end
     
131.     end
     
132.     a.price = a.price.to_i
     
133.     c = Ratios.Co(thishash)
     
134.     a.name = "价值"+a.price.to_s+"的"+c[0][0]+"剑"
     
135.     if c[0][0]=="卧槽"
     
136.       temp = RPG::BaseItem::Feature.new
     
137.       temp.code = 43
     
138.       temp.data_id = 24
     
139.       temp.value = 0.0
     
140.       a.features.push(temp)
     
141.     end
     
142.     a.description = c[0][1]
     
143.     a.id = $data_weapons.size
     
144.     $data_weapons[$data_weapons.size] = a.clone
     
145.     a=nil
     
146.     $game_party.gain_item($data_weapons[$data_weapons.size-1], 1, false)
     
147.   end
     
148. end

复制代码

这是新版代码。请注意此版中，价格总是50的倍数，并且随着属性而改变。
所有的卧槽剑都会附加一个冥想技能。
运用这样的思路，可以制作此系统：

RUBY 代码复制

class Game_Interpreter
  def makeweapon(a,b,c,d,e,f,g,h,i)
    a = RPG::Weapon.new
    a.icon_index = a
    a.animation_id = b
    a.features = c
    a.params = d
    a.etype_id = e
    a.wtype_id = f
    a.price = g
    a.name = h
    a.description = i
    a.id = $data_weapons.size
    $data_weapons[$data_weapons.size] = a.clone
    a=nil
    $game_party.gain_item($data_weapons[$data_weapons.size-1], 1, false)
  end
  def mergeweapon(a,b)
    if $game_party.has_item?(a)
      if $game_party.has_item?(b)
        $game_party.lose_item(a, 1, false)
        $game_party.lose_item(b, 1, false)
makeweapon(a.icon_index,a.animation_id,b.features,a.params,a.etype_id,a.wtype_id,a.price,a.name+"+"+b.name,a.description)
      end
    end
  end
end

class Game_Interpreter


  def makeweapon(a,b,c,d,e,f,g,h,i)


    a = RPG::Weapon.new


    a.icon_index = a


    a.animation_id = b


    a.features = c


    a.params = d


    a.etype_id = e


    a.wtype_id = f


    a.price = g


    a.name = h


    a.description = i


    a.id = $data_weapons.size


    $data_weapons[$data_weapons.size] = a.clone


    a=nil


    $game_party.gain_item($data_weapons[$data_weapons.size-1], 1, false)


  end


  def mergeweapon(a,b)


    if $game_party.has_item?(a)


      if $game_party.has_item?(b)


        $game_party.lose_item(a, 1, false)


        $game_party.lose_item(b, 1, false)


makeweapon(a.icon_index,a.animation_id,b.features,a.params,a.etype_id,a.wtype_id,a.price,a.name+"+"+b.name,a.description)


      end


    end


  end


end

用mergeweapon($data_weapons[1],$data_weapons[18])这样来融合剑1与剑18。比如说剑1是属性高的龙泉剑，剑2是属性低的卧槽剑，为了得到冥想效果与高属性，可以用mergeweapon来操作。mergeweapon(龙泉的ID，卧槽的ID）。
如果结合Fomar的武器选择窗口脚本，效果更好。