Project1

标题: 多个背包函数脚本 [打印本页]

---

作者: 512195574    时间: 2013-6-8 13:19
标题: 多个背包函数脚本


啊，第一次做脚本，不知道有人发过类似的东西了没有……

下面进入正题：

因为这只是个函数脚本，没有窗口化什么的，如果要做成菜单界面的多背包的话就只是基础了……（还得大改估计）。
这个脚本的功能主要解决游戏中的角色场景切换、而物品常在问题（如OZ中由PET切换到snow，或者梦境中，前者或平时的道具还能使用的情况）
使用之后就可以用这个脚本保存以前有的物品了，换新人物时物品清零，而原主角加入后再将物品得到

条用方法：注释中有了，我在这复制一下= =
事件中执行脚本调用，或者脚本中也是同样的方法


  get_allthing(c,j,d)

取得物品的数据
  c:数参，取得物品ID上限，如果全部取得的话取数据库里的最大值就好了
j：数参，背包名称，因为是第一次所以只做了三个，适用范围1~3
  d:布尔参，true/false，是否清空，true时可以在取得物品数据的同时清空取得的物品



  give_allthing(c,j)

给予玩家背包物品
  c:数参，给予物品ID上限，如果全部给予的话取数据库里的最大值就好了
j：数参，取得j号背包中的东西，同上只做了三个，适用范围1~3


拓展用法：
一窝堆仓库：每次东西过多时取得物品并清除，调用仓库的时候一起拿走……

冲突：
数据类的脚本，因为从没改过、引用任何定义，所以冲突的概率不大。不过遇到类似随机装备这种对低层数据修改的就不大好说了……

修改版在三楼，加了点不算太实用的功能……如果只是做到介绍中的效果的话，这个版本就已经足够了



下面是脚本

1. 
   
2. =begin
   
3. ===============================================================================
   
4.   多个背包函数脚本……（请原谅我的语文水平）
   
5.   作者：512195574
   
6.   调用方法：
   
7.   get_allthing(c,j,d)
   
8.   give_allthing(c,j)
   
9.   c:数参，取得物品上限，如果全部取得的话取数据库里的最大值就好了
   
10.   j：数参，背包名称，因为是第一版所以只做了三个，适用范围1~3
    
11.   d:布尔参，是否清空，true时可以在取得物品数据的同时清空取得的物品
    
12. ===============================================================================
    
13. =end
    
14. def get_allthing(c,j,d)
    
15.   if j == 1
    
16.     @itempack1 = []
    
17.     @weaponpack1 = []
    
18.     @armorpack1 = []
    
19.     for i in 0..c
    
20.       @itempack1[i]=$game_party.item_number(i)
    
21.       @weaponpack1[i]=$game_party.weapon_number(i)
    
22.       @armorpack1[i]=$game_party.armor_number(i)
    
23.     end
    
24.   end
    
25.   if j == 2
    
26.     @itempack2 = []
    
27.     @weaponpack2 = []
    
28.     @armorpack2 = []
    
29.     for i in 1..c
    
30.       @itempack2[i]=$game_party.item_number(i)
    
31.       @weaponpack2[i]=$game_party.weapon_number(i)
    
32.       @armorpack2[i]=$game_party.armor_number(i)
    
33.     end
    
34.   end
    
35.   if j == 3
    
36.     @itempack3 = []
    
37.     @weaponpack3 = []
    
38.     @armorpack3 = []
    
39.     for i in 0..c
    
40.       @itempack3[i]=$game_party.item_number(i)
    
41.       @weaponpack3[i]=$game_party.weapon_number(i)
    
42.       @armorpack3[i]=$game_party.armor_number(i)
    
43.     end
    
44.   end
    
45.   if d == true
    
46.     for i in 0..c
    
47.       $game_party.gain_item(i,-99)
    
48.       $game_party.gain_weapon(i,-99)
    
49.       $game_party.gain_armor(i,-99)
    
50.     end
    
51.   end
    
52. end
    
53. 
    
54. def give_allthing(c,j)
    
55.   if j == 1
    
56.     for i in 0..c
    
57.       $game_party.gain_item(i,@itempack1[i])
    
58.       $game_party.gain_weapon(i,@weaponpack1[i])
    
59.       $game_party.gain_armor(i,@armorpack1[i])
    
60.     end
    
61.   end
    
62.   if j == 2
    
63.     for i in 0..c
    
64.       $game_party.gain_item(i,itempack2[i])
    
65.       $game_party.gain_weapon(i,weaponpack2[i])
    
66.       $game_party.gain_armor(i,armorpack2[i])
    
67.     end
    
68.   end
    
69.   if j == 3
    
70.     for i in 0..c
    
71.       $game_party.gain_item(i,itempack3[i])
    
72.       $game_party.gain_weapon(i,weaponpack3[i])
    
73.       $game_party.gain_armor(i,armorpack3[i])
    
74.     end
    
75.   end
    
76. end

复制代码

---

作者: 存档不能    时间: 2013-6-8 15:12
不知道这个脚本是否适用于物品上限不同的情况？

---

作者: 512195574    时间: 2013-6-8 15:37

存档不能 发表于 2013-6-8 15:12
不知道这个脚本是否适用于物品上限不同的情况？

这样就应该可以了，其实还可以加入参数确定下限，这样可以只记录或者得到一部分的物品……不管那样参数就要有8个了，还不如分成三条指令= =

1. =begin
   
2. ===============================================================================
   
3.   多个背包函数脚本……v1.01（请原谅我的语文水平）
   
4.   作者：512195574
   
5.   调用方法：
   
6. @shanxian = n(n表示物品数量的上限)
   
7.   get_allthing(c1,c2,c3,j,d)
   
8.   give_allthing(c1,c2,c3,j)
   
9.   c:数参，取得物品ID的上限，如果全部取得的话取数据库里的最大值就好了(1,2,3分别代表物品、武器、防具的上限)
   
10.   j：数参，背包名称，因为是第一版所以只做了三个，适用范围1~3
    
11.   d:布尔参，true/false，是否清空，true时可以在取得物品数据的同时清空取得的物品
    
12. ===============================================================================
    
13. =end
    
14. def get_allthing(c1,c2,c3,j,d)
    
15.   if j == 1
    
16.     @itempack1 = []
    
17.     @weaponpack1 = []
    
18.     @armorpack1 = []
    
19.     for i in 0..c1
    
20.       @itempack1[i]=$game_party.item_number(i)
    
21.       @weaponpack1[i]=$game_party.weapon_number(i)
    
22.       @armorpack1[i]=$game_party.armor_number(i)
    
23.     end
    
24.   end
    
25.   if j == 2
    
26.     itempack2 = []
    
27.     weaponpack2 = []
    
28.     armorpack2 = []
    
29.     for i in 1..c2
    
30.       itempack2[i]=$game_party.item_number(i)
    
31.       weaponpack2[i]=$game_party.weapon_number(i)
    
32.       armorpack2[i]=$game_party.armor_number(i)
    
33.     end
    
34.   end
    
35.   if j == 3
    
36.     itempack3 = []
    
37.     weaponpack3 = []
    
38.     armorpack3 = []
    
39.     for i in 0..c3
    
40.       itempack3[i]=$game_party.item_number(i)
    
41.       weaponpack3[i]=$game_party.weapon_number(i)
    
42.       armorpack3[i]=$game_party.armor_number(i)
    
43.     end
    
44.   end
    
45.   if d == true
    
46.     for i in 0..c1
    
47.       $game_party.gain_item(i,-@shanxian)
    
48.       $game_party.gain_weapon(i,-@shanxian)
    
49.       $game_party.gain_armor(i,-@shanxian)
    
50.     end
    
51.     for i in 0..c2
    
52.       $game_party.gain_weapon(i,-@shanxian)
    
53.     end
    
54.     for i in 0..c3
    
55.       $game_party.gain_armor(i,-@shanxian)
    
56.     end
    
57.   end
    
58. end
    
59. 
    
60. def give_allthing(c1,c2,c3,j)
    
61.   if j == 1
    
62.     for i in 0..c1
    
63.         if @itempack1[i] + $game_party.item_number(i) >= @shanxian
    
64.           $game_party.gain_item(i,@shanxian-$game_party.item_number(i))
    
65.         else
    
66.           $game_party.gain_item(i,@itempack1[i])
    
67.         end
    
68.         if @weaponpack1[i] + $game_party.weapon_number(i) >= @shanxian
    
69.           $game_party.gain_weapon(i,@shanxian-$game_party.weapon_number(i))
    
70.         else
    
71.           $game_party.gain_weapon(i,@weaponpack1[i])
    
72.         end
    
73.         if @armorpack1[i] + $game_party.armor_number(i) >= @shanxian
    
74.           $game_party.gain_armor(i,@shanxian-$game_party.armor_number(i))
    
75.         else
    
76.           $game_party.gain_armor(i,@armorpack1[i])  
    
77.         end
    
78.     end
    
79.   end
    
80.   if j == 2
    
81.     for i in 0..c2
    
82.         if @itempack2[i] + $game_party.item_number(i) >= @shanxian
    
83.           $game_party.gain_item(i,@shanxian-$game_party.item_number(i))
    
84.         else
    
85.           $game_party.gain_item(i,@itempack2[i])
    
86.         end
    
87.         if @weaponpack2[i] + $game_party.weapon_number(i) >= @shanxian
    
88.           $game_party.gain_weapon(i,@shanxian-$game_party.weapon_number(i))
    
89.         else
    
90.           $game_party.gain_weapon(i,@weaponpack2[i])
    
91.         end
    
92.         if @armorpack2[i] + $game_party.armor_number(i) >= @shanxian
    
93.           $game_party.gain_armor(i,@shanxian-$game_party.armor_number(i))
    
94.         else
    
95.           $game_party.gain_armor(i,@armorpack2[i])  
    
96.         end
    
97.     end
    
98.   end
    
99.   if j == 3
    
100.     for i in 0..c3
     
101.         if @itempack3[i] + $game_party.item_number(i) >= @shanxian
     
102.           $game_party.gain_item(i,@shanxian-$game_party.item_number(i))
     
103.         else
     
104.           $game_party.gain_item(i,@itempack3[i])
     
105.         end
     
106.         if @weaponpack3[i] + $game_party.weapon_number(i) >= @shanxian
     
107.           $game_party.gain_weapon(i,@shanxian-$game_party.weapon_number(i))
     
108.         else
     
109.           $game_party.gain_weapon(i,@weaponpack3[i])
     
110.         end
     
111.         if @armorpack3[i] + $game_party.armor_number(i) >= @shanxian
     
112.           $game_party.gain_armor(i,@shanxian-$game_party.armor_number(i))
     
113.         else
     
114.           $game_party.gain_armor(i,@armorpack3[i])  
     
115.         end
     
116.     end
     
117.   end
     
118. end

复制代码

---

作者: 存档不能    时间: 2013-6-8 16:36
我就说随口一问楼主就搞出来了，真是太认真了……
不过我还想问一下，这个上限应该不是指实际记录的物品数量，而是指物品的最大容量吧？
也就是说我记录99个红药入背包，即使红药实际上有100个，背包中的数据也最多只到99个，这样吗？

---

作者: 512195574    时间: 2013-6-8 16:53

存档不能 发表于 2013-6-8 16:36
我就说随口一问楼主就搞出来了，真是太认真了……
不过我还想问一下，这个上限应该不是指实际记录 ...

原来是指这个意思，解释可能说的不清楚……参数c指的是数据库的物品ID上限……也就是说如果数据库里有200件东西，那么C选200就好了，选150的话，后50个物品就不会读取了……（用数参而不是定义中的参数直接读取最大值的原因，是因为这样可以防止与其他脚本冲突）
而物品数量是全读取的，100红药不知道用的什么脚本得到的（上限不是99吗……），不知道使用后是不是还能给予100个物品。
这个脚本主要就是游戏换主角时物品清空，再到主角来时物品加入用。实行仓库式多背包还得大改……那样不如用R站上现存的仓库脚本了。

至于物品数量上限……也有办法，脚本输入
@shanxian = 50
就行了
表示物品上限为50，也就是说如果这个数值确定50的话，就算有70个物品，读取之后，返回也最多50个……这样就适用于那些将物品上限调整了的脚本了

---

作者: 存档不能    时间: 2013-6-8 18:21
原来如此，这样就清楚了，不过我觉得楼主还是改一下解释吧，不然物品上限一般人不会往物品id上想的

---

作者: chd114    时间: 2013-6-9 09:39
感觉楼主的说明有些废话···这脚本其实就是那个p神做的RMVX的多背包脚本的RMXP版本吧？

---

作者: chd114    时间: 2013-6-9 09:48

1. get_allthing(15,1,false)

复制代码

楼主为什么我这样运行了脚本会出错···

---

作者: 512195574    时间: 2013-6-9 10:36

chd114 发表于 2013-6-9 09:39
感觉楼主的说明有些废话···这脚本其实就是那个p神做的RMVX的多背包脚本的RMXP版本吧？ ...

不知道啊……没用过RMVX，只是因为做的游戏需要切换主角，但是物品不能跟着携带，所以就想到了这个脚本（我是按照C语言的思路编的，肯定没他那个好，而且没有窗口化，与其叫多背包不如叫做主角从监狱中醒来系统= =）

我这测试的很正常……还有第二版的需要5个参数，如果第一版这样还出错就不知道为什么了= =
我记得你的那个游戏底层数据好像修改的很大……

---

作者: chd114    时间: 2013-6-9 11:45

512195574 发表于 2013-6-9 10:36
不知道啊……没用过RMVX，只是因为做的游戏需要切换主角，但是物品不能跟着携带，所以就想到了这个脚本（ ...

你把范例发出来我下来看看怎么用的好了···

---

作者: 512195574    时间: 2013-6-9 14:53

chd114 发表于 2013-6-9 11:45
你把范例发出来我下来看看怎么用的好了···

测试正常……
Project8.rar (188.06 KB, 下载次数: 21)

2013-6-9 14:51 上传

点击文件名下载附件

---

作者: chd114    时间: 2013-6-9 15:31
我知道问题出在哪里了···http://pan.baidu.com/share/link? ... 6&uk=3003758822和这个的物品重量系统不兼容

---

作者: domodomodomo    时间: 2014-1-4 17:23


get_allthing(15,2,false)会粗错
不对啊，是不是什么地方写错了

---

作者: 512195574    时间: 2014-1-18 20:55

domodomodomo 发表于 2014-1-4 17:23
get_allthing(15,2,false)会粗错
不对啊，是不是什么地方写错了

才半年RM就忘得差不多了，很不理解当时怎么会这么弄……已修改

1. 
   
2. =begin
   
3. ===============================================================================
   
4.   多个背包函数脚本……（请原谅我的语文水平）
   
5.   作者：512195574
   
6.   调用方法：
   
7.   get_allthing(c,j,d)
   
8.   give_allthing(c,j)
   
9.   c:数参，取得物品上限，如果全部取得的话取数据库里的最大值就好了
   
10.   j：数参，背包名称，因为是第一版所以只做了三个，适用范围1~3
    
11.   d:布尔参，true/false，是否清空，true时可以在取得物品数据的同时清空取得的物品
    
12. ===============================================================================
    
13. =end
    
14. def get_allthing(c,j,d)
    
15.   if j == 1
    
16.     @itempack1 = []
    
17.     @weaponpack1 = []
    
18.     @armorpack1 = []
    
19.     for i in 0..c
    
20.       @itempack1[i]=$game_party.item_number(i)
    
21.       @weaponpack1[i]=$game_party.weapon_number(i)
    
22.       @armorpack1[i]=$game_party.armor_number(i)
    
23.     end
    
24.   end
    
25.   if j == 2
    
26.     @itempack2 = []
    
27.     @weaponpack2 = []
    
28.     @armorpack2 = []
    
29.     for i in 0..c
    
30.       @itempack2[i]=$game_party.item_number(i)
    
31.       @weaponpack2[i]=$game_party.weapon_number(i)
    
32.       @armorpack2[i]=$game_party.armor_number(i)
    
33.     end
    
34.   end
    
35.   if j == 3
    
36.     @itempack3 = []
    
37.     @weaponpack3 = []
    
38.     @armorpack3 = []
    
39.     for i in 0..c
    
40.       @itempack3[i]=$game_party.item_number(i)
    
41.       @weaponpack3[i]=$game_party.weapon_number(i)
    
42.       @armorpack3[i]=$game_party.armor_number(i)
    
43.     end
    
44.   end
    
45.   if d == true
    
46.     for i in 0..c
    
47.       $game_party.gain_item(i,-99)
    
48.       $game_party.gain_weapon(i,-99)
    
49.       $game_party.gain_armor(i,-99)
    
50.     end
    
51.   end
    
52. end
    
53. 
    
54. def give_allthing(c,j)
    
55.   if j == 1
    
56.     for i in 0..c
    
57.       $game_party.gain_item(i,@itempack1[i])
    
58.       $game_party.gain_weapon(i,@weaponpack1[i])
    
59.       $game_party.gain_armor(i,@armorpack1[i])
    
60.     end
    
61.   end
    
62.   if j == 2
    
63.     for i in 0..c
    
64.       $game_party.gain_item(i,@itempack2[i])
    
65.       $game_party.gain_weapon(i,@weaponpack2[i])
    
66.       $game_party.gain_armor(i,@armorpack2[i])
    
67.     end
    
68.   end
    
69.   if j == 3
    
70.     for i in 0..c
    
71.       $game_party.gain_item(i,@itempack3[i])
    
72.       $game_party.gain_weapon(i,@weaponpack3[i])
    
73.       $game_party.gain_armor(i,@armorpack3[i])
    
74.     end
    
75.   end
    
76. end

复制代码

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1