能否把武器攻击力随机改成装备能力随机

u566 · 发表于 2011-4-16 19:48:14

本帖最后由 u566 于 2011-4-23 21:09 编辑

感觉夏娜大大的武器攻击力随机脚本很好，我想问问能不能把武器攻击力随机改成装备能力随机，品质就是新属性总和减旧属性总和，大于0精良，大于10极品等等。脚本知识有限，试了几次都不成功，求修改，附上脚本

class Game_Party
def gain_weapon(weapon_id, n)
if weapon_id > 0
# 装备栏中卸下的武器、物品栏里卸下的武器、合成的武器不进行随机处理~
if $scene.is_a?(Scene_Equip)or$scene.is_a?(Scene_Item)or$scene.is_a?(Scene_Combine)
@weapons[weapon_id] = [[weapon_number(weapon_id) + n, 0].max, 99].min
else
# 随机浮动范围~
add_atk = rand(50)-25
if add_atk == 0
@weapons[weapon_id] = [[weapon_number(weapon_id) + n, 0].max, 99].min
else
now = 0
# 判断数据库中是否已经有相同属性的武器~
for i in weapon_id...$data_weapons.size
if $data_weapons[i].atk == $data_weapons[weapon_id].atk+add_atk and
($data_weapons[i].name.split('+')[0] == $data_weapons[weapon_id].name or $data_weapons[i].name.split('-')[0] == $data_weapons[weapon_id].name)
now = i
break
end end
if now == 0
# 无相同属性时则重新生成~
new_weapon = $data_weapons[weapon_id].clone
new_weapon.id = $data_weapons.size
if add_atk<0
new_weapon.name = $data_weapons[weapon_id].name+" 破烂"
if add_atk<10
new_weapon.name = $data_weapons[weapon_id].name+" 粗糙"
end
else
if add_atk<10
new_weapon.name = $data_weapons[weapon_id].name+" 精良"
else
new_weapon.name = $data_weapons[weapon_id].name+" 极品"
end
end
new_weapon.atk = $data_weapons[weapon_id].atk+add_atk
$data_weapons.push(new_weapon)
# 职业可装备武器数组更新~
for i in 1...$data_classes.size
if $data_classes[i].weapon_set.include?(weapon_id)
$data_classes[i].weapon_set.push(new_weapon.id)
end
end
# 增加武器~
@weapons[new_weapon.id] = [[weapon_number(new_weapon.id) + n, 0].max, 99].min
else
# 有相同属性则直接增加武器~
@weapons[now] = [[weapon_number(now) + n, 0].max, 99].min
end
end
end
end
end
def lose_weapon(weapon_id, n)
if weapon_id > 0
@weapons[weapon_id] = [[weapon_number(weapon_id) - n, 0].max, 99].min
end
end
end

复制代码

u566 · 发表于 2011-4-17 13:22:57

本帖最后由 u566 于 2011-4-17 13:23 编辑

自顶
超级无敌字数补丁.exe

沙漠点灰 · 发表于 2011-4-17 16:33:23

参考F1的装备属性
武器

atk
攻击力。

pdef
物理防御。

mdef
魔法防御。

str_plus
力量+。

dex_plus
灵巧+。

agi_plus
速度+。

int_plus

防具自己看...
修改的话..把LZ给的脚本"所有" atk 改为上面的任意一个就好了,品质改不改你看Lz你的了，至于防具，
同理，不过要修改 gain_armor和lose_armor了

u566 · 发表于 2011-4-23 19:43:30

快一个星期了，还能自顶么

禾西 · 发表于 2011-4-24 02:29:18

搜索隨機裝備

沙漠点灰 · 发表于 2011-4-24 15:33:13

本帖最后由沙漠点灰于 2011-4-24 15:34 编辑

回复 u566 的帖子

抱歉，忘记这儿了....请测试一下，我没有测试，可能有bug,话说自己学着学习一下脚本，很好学的，我就是慢慢
摸索出来的....脚本如下:

class Game_Party
def gain_weapon(weapon_id, n)
if weapon_id > 0
# 装备栏中卸下的武器、物品栏里卸下的武器、合成的武器不进行随机处理~
if $scene.is_a?(Scene_Equip)or$scene.is_a?(Scene_Item)or$scene.is_a?(Scene_Combine)
@weapons[weapon_id] = [[weapon_number(weapon_id) + n, 0].max, 99].min
else
# 累计6次随机数随机浮动范围~
add_rand = (0..6).inject([]){|a,i|a<<rand(50)-25}
# 生成对应属性,属性英语单词是什么...? "xxxx"代替!
add_xxxx = ["pdef", "mdef", "str_plus", "dex_plus", "agi_plus", "int_plus"]
# 6次随机数有属性一致几率很小,直接生成
new_weapon = $data_weapons[weapon_id].clone
new_weapon.id = $data_weapons.size
# 迭代,增加属性
6.times{|i|eval("new_weapon.#{add_xxxx[i]} += #{add_rand[i]}")}
# 生成名称
case add_rand.inject{|a,b|a+b}
when -25*6...-10*6
new_weapon.name += " 破烂"
when -10*6...0
new_weapon.name += " 粗糙"
when 1...10*6
new_weapon.name += " 精良"
when 10*6...25*6
new_weapon.name += " 极品"
end
# 数据库生成数据
$data_weapons << new_weapon
@weapons[new_weapon.id] = [[weapon_number(new_weapon.id) + n, 0].max, 99].min
end
end
end
def lose_weapon(weapon_id, n)
if weapon_id > 0
@weapons[weapon_id] = [[weapon_number(weapon_id) - n, 0].max, 99].min
end
end
end

复制代码

u566 · 发表于 2011-4-24 16:23:52

BUG多多的说...
首先是没有任何效果，把脚本里的weapon改为armor，把name改为quality，有效果了
但是....角色不能装备，就是只在物品栏显示，不在装备栏显示
并且我想实现的效果是有的属性（比如衣服有物理防御和魔法防御）才波动，没有的属性不波动
并且属性不为负值，附图

还有修改过的脚本

class Game_Party
def gain_armor(armor_id, n)
if armor_id > 0
# 装备栏中卸下的武器、物品栏里卸下的武器、合成的武器不进行随机处理~
if $scene.is_a?(Scene_Equip)or$scene.is_a?(Scene_Item)or$scene.is_a?(Scene_Combine)
@armors[armor_id] = [[armor_number(armor_id) + n, 0].max, 99].min
else
# 累计6次随机数随机浮动范围~
add_rand = (0..6).inject([]){|a,i|a<<rand(50)-25}
# 生成对应属性,属性英语单词是什么...? "xxxx"代替!
add_xxxx = ["pdef", "mdef", "str_plus", "dex_plus", "agi_plus", "int_plus"]
# 6次随机数有属性一致几率很小,直接生成
new_armor = $data_armors[armor_id].clone
new_armor.id = $data_armors.size
# 迭代,增加属性
6.times{|i|eval("new_armor.#{add_xxxx[i]} += #{add_rand[i]}")}
# 生成名称
case add_rand.inject{|a,b|a+b}
when -25*6...-10*6
new_armor.quality = " 破烂"
when -10*6...0
new_armor.quality = " 粗糙"
when 1...10*6
new_armor.quality = " 精良"
when 10*6...25*6
new_armor.quality = " 极品"
end
# 数据库生成数据
$data_armors << new_armor
@armors[new_armor.id] = [[armor_number(new_armor.id) + n, 0].max, 99].min
end
end
end
def lose_armor(armor_id, n)
if armor_id > 0
@armors[armor_id] = [[armor_number(armor_id) - n, 0].max, 99].min
end
end
end

复制代码

沙漠点灰 · 发表于 2011-4-24 16:31:27

本帖最后由沙漠点灰于 2011-4-25 17:29 编辑

回复 u566 的帖子

已修改:

class Game_Party
def gain_armor(armor_id, n)
if armor_id > 0
# 装备栏中卸下的武器、物品栏里卸下的武器、合成的武器不进行随机处理~
if $scene.is_a?(Scene_Equip)or$scene.is_a?(Scene_Item)or$scene.is_a?(Scene_Combine)
@armors[armor_id] = [[armor_number(armor_id) + n, 0].max, 99].min
else
# 累计6次随机数随机浮动范围~
add_rand = (0...6).inject([]){|a,i|a<<rand(50)-25}
# 生成对应属性,属性英语单词是什么...? "xxxx"代替!
add_xxxx = ["pdef", "mdef", "str_plus", "dex_plus", "agi_plus", "int_plus"]
# 6次随机数有属性一致几率很小,直接生成
new_armor = $data_armors[armor_id].clone
new_armor.id = $data_armors.size
# 迭代,增加属性
6.times{|i|eval("new_armor.#{add_xxxx[i]} += #{add_rand[i]} if new_armor.#{add_xxxx[i]} > 0")}
# 生成名称
for i in 0...add_rand.size
add_rand[i] = 0 unless eval("new_armor.#{add_xxxx[i]} > 0")
end
case add_rand.inject(0){|a,b|a+b}
when -25*6...-10*6
new_armor.quality = " 破烂"
when -10*6...0
new_armor.quality = " 粗糙"
when 1...10*6
new_armor.quality = " 精良"
when 10*6...25*6
new_armor.quality = " 极品"
end
# 数据库生成数据
$data_armors << new_armor
($data_classes.size-1).times{|i|$data_classes[i+1].armor_set.push(new_armor.id) unless $data_classes[i+1].armor_set.include?(new_armor)}
@armors[new_armor.id] = [[armor_number(new_armor.id) + n, 0].max, 99].min
end
end
end
def lose_armor(armor_id, n)
if armor_id > 0
@armors[armor_id] = [[armor_number(armor_id) - n, 0].max, 99].min
end
end
end

复制代码

ps. 问题真的好多...我今天肯定会出问题

u566 · 发表于 2011-4-24 16:39:37

本帖最后由 u566 于 2011-4-24 16:54 编辑

回复沙漠点灰的帖子

附工程

脚本整合.rar (703.92 KB, 下载次数: 70)

u566 · 发表于 2011-4-24 17:19:51

回复沙漠点灰的帖子

品质的判定有问题，如图，初始设定为35，魔力49品质竟然是粗糙，多次测试的确有问题

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

[已经解决] 能否把武器攻击力随机改成装备能力随机

点评

点评

点评

点评

点评

点评

点评

点评

贵宾