多个背包函数脚本

512195574 · 发表于 2013-6-8 13:19:42

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

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由 512195574 于 2014-4-6 22:05 编辑

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

下面进入正题：

因为这只是个函数脚本，没有窗口化什么的，如果要做成菜单界面的多背包的话就只是基础了……（还得大改估计）。
这个脚本的功能主要解决游戏中的角色场景切换、而物品常在问题（如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

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

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

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

下面是脚本

=begin
===============================================================================
多个背包函数脚本……（请原谅我的语文水平）
作者：512195574
调用方法：
get_allthing(c,j,d)
give_allthing(c,j)
c:数参，取得物品上限，如果全部取得的话取数据库里的最大值就好了
j：数参，背包名称，因为是第一版所以只做了三个，适用范围1~3
d:布尔参，是否清空，true时可以在取得物品数据的同时清空取得的物品
===============================================================================
=end
def get_allthing(c,j,d)
if j == 1
@itempack1 = []
@weaponpack1 = []
@armorpack1 = []
for i in 0..c
@itempack1[i]=$game_party.item_number(i)
@weaponpack1[i]=$game_party.weapon_number(i)
@armorpack1[i]=$game_party.armor_number(i)
end
end
if j == 2
@itempack2 = []
@weaponpack2 = []
@armorpack2 = []
for i in 1..c
@itempack2[i]=$game_party.item_number(i)
@weaponpack2[i]=$game_party.weapon_number(i)
@armorpack2[i]=$game_party.armor_number(i)
end
end
if j == 3
@itempack3 = []
@weaponpack3 = []
@armorpack3 = []
for i in 0..c
@itempack3[i]=$game_party.item_number(i)
@weaponpack3[i]=$game_party.weapon_number(i)
@armorpack3[i]=$game_party.armor_number(i)
end
end
if d == true
for i in 0..c
$game_party.gain_item(i,-99)
$game_party.gain_weapon(i,-99)
$game_party.gain_armor(i,-99)
end
end
end
def give_allthing(c,j)
if j == 1
for i in 0..c
$game_party.gain_item(i,@itempack1[i])
$game_party.gain_weapon(i,@weaponpack1[i])
$game_party.gain_armor(i,@armorpack1[i])
end
end
if j == 2
for i in 0..c
$game_party.gain_item(i,itempack2[i])
$game_party.gain_weapon(i,weaponpack2[i])
$game_party.gain_armor(i,armorpack2[i])
end
end
if j == 3
for i in 0..c
$game_party.gain_item(i,itempack3[i])
$game_party.gain_weapon(i,weaponpack3[i])
$game_party.gain_armor(i,armorpack3[i])
end
end
end

复制代码

存档不能 · 发表于 2013-6-8 15:12:06

不知道这个脚本是否适用于物品上限不同的情况？

512195574 · 发表于 2013-6-8 15:37:51

本帖最后由 512195574 于 2013-6-9 14:51 编辑

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

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

=begin
===============================================================================
多个背包函数脚本……v1.01（请原谅我的语文水平）
作者：512195574
调用方法：
@shanxian = n(n表示物品数量的上限)
get_allthing(c1,c2,c3,j,d)
give_allthing(c1,c2,c3,j)
c:数参，取得物品ID的上限，如果全部取得的话取数据库里的最大值就好了(1,2,3分别代表物品、武器、防具的上限)
j：数参，背包名称，因为是第一版所以只做了三个，适用范围1~3
d:布尔参，true/false，是否清空，true时可以在取得物品数据的同时清空取得的物品
===============================================================================
=end
def get_allthing(c1,c2,c3,j,d)
if j == 1
@itempack1 = []
@weaponpack1 = []
@armorpack1 = []
for i in 0..c1
@itempack1[i]=$game_party.item_number(i)
@weaponpack1[i]=$game_party.weapon_number(i)
@armorpack1[i]=$game_party.armor_number(i)
end
end
if j == 2
itempack2 = []
weaponpack2 = []
armorpack2 = []
for i in 1..c2
itempack2[i]=$game_party.item_number(i)
weaponpack2[i]=$game_party.weapon_number(i)
armorpack2[i]=$game_party.armor_number(i)
end
end
if j == 3
itempack3 = []
weaponpack3 = []
armorpack3 = []
for i in 0..c3
itempack3[i]=$game_party.item_number(i)
weaponpack3[i]=$game_party.weapon_number(i)
armorpack3[i]=$game_party.armor_number(i)
end
end
if d == true
for i in 0..c1
$game_party.gain_item(i,-@shanxian)
$game_party.gain_weapon(i,-@shanxian)
$game_party.gain_armor(i,-@shanxian)
end
for i in 0..c2
$game_party.gain_weapon(i,-@shanxian)
end
for i in 0..c3
$game_party.gain_armor(i,-@shanxian)
end
end
end
def give_allthing(c1,c2,c3,j)
if j == 1
for i in 0..c1
if @itempack1[i] + $game_party.item_number(i) >= @shanxian
$game_party.gain_item(i,@shanxian-$game_party.item_number(i))
else
$game_party.gain_item(i,@itempack1[i])
end
if @weaponpack1[i] + $game_party.weapon_number(i) >= @shanxian
$game_party.gain_weapon(i,@shanxian-$game_party.weapon_number(i))
else
$game_party.gain_weapon(i,@weaponpack1[i])
end
if @armorpack1[i] + $game_party.armor_number(i) >= @shanxian
$game_party.gain_armor(i,@shanxian-$game_party.armor_number(i))
else
$game_party.gain_armor(i,@armorpack1[i])
end
end
end
if j == 2
for i in 0..c2
if @itempack2[i] + $game_party.item_number(i) >= @shanxian
$game_party.gain_item(i,@shanxian-$game_party.item_number(i))
else
$game_party.gain_item(i,@itempack2[i])
end
if @weaponpack2[i] + $game_party.weapon_number(i) >= @shanxian
$game_party.gain_weapon(i,@shanxian-$game_party.weapon_number(i))
else
$game_party.gain_weapon(i,@weaponpack2[i])
end
if @armorpack2[i] + $game_party.armor_number(i) >= @shanxian
$game_party.gain_armor(i,@shanxian-$game_party.armor_number(i))
else
$game_party.gain_armor(i,@armorpack2[i])
end
end
end
if j == 3
for i in 0..c3
if @itempack3[i] + $game_party.item_number(i) >= @shanxian
$game_party.gain_item(i,@shanxian-$game_party.item_number(i))
else
$game_party.gain_item(i,@itempack3[i])
end
if @weaponpack3[i] + $game_party.weapon_number(i) >= @shanxian
$game_party.gain_weapon(i,@shanxian-$game_party.weapon_number(i))
else
$game_party.gain_weapon(i,@weaponpack3[i])
end
if @armorpack3[i] + $game_party.armor_number(i) >= @shanxian
$game_party.gain_armor(i,@shanxian-$game_party.armor_number(i))
else
$game_party.gain_armor(i,@armorpack3[i])
end
end
end
end

复制代码

存档不能 · 发表于 2013-6-8 16:36:33

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

512195574 · 发表于 2013-6-8 16:53:48

本帖最后由 512195574 于 2013-6-8 17:09 编辑

存档不能发表于 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:33

原来如此，这样就清楚了，不过我觉得楼主还是改一下解释吧，不然物品上限一般人不会往物品id上想的

chd114 · 发表于 2013-6-9 09:39:58

感觉楼主的说明有些废话···这脚本其实就是那个p神做的RMVX的多背包脚本的RMXP版本吧？

chd114 · 发表于 2013-6-9 09:48:15

get_allthing(15,1,false)

复制代码

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

512195574 · 发表于 2013-6-9 10:36:52

本帖最后由 512195574 于 2013-6-9 10:40 编辑

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

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

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

chd114 · 发表于 2013-6-9 11:45:41

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

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

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

[原创发布] 多个背包函数脚本

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

评分

点评

点评

开拓者