如何将XP的脚本移植到VX... - Project1

#------------------------------------------------------------
# 脚本来自www.66rpg.com，作者柳柳，转载和使用请保留此信息
#------------------------------------------------------------
class Game_Actor < Game_Battler
C3_W_SKILL = []
C3_A1_SKILL = []
C3_A2_SKILL = []
C3_A3_SKILL = []
C3_A4_SKILL = []
C3_W_SKILL.push [1,0,"剑_"] #武器编号，武器附带技能编号，战斗图前缀
C3_W_SKILL.push [2,7,"剑_"]
C3_W_SKILL.push [3,7,"剑_"]
C3_W_SKILL.push [3,8,"剑_"]
C3_W_SKILL.push [3,9,"剑_"]
C3_W_SKILL.push [6,14,"枪_"]
C3_W_SKILL.push [7,15,"枪_"]
C3_W_SKILL.push [5,0,"枪_"]
C3_W_SKILL.push [9,0,"斧头_"]
C3_W_SKILL.push [10,0,"大剑_"]
#战斗图前缀后面会自动跟上角色的数据库编号。
#比如你使用上面的设定，你的1、2、3、4号角色可以用1号武器(铜剑)
#则你的battlers/下面应改有"剑_1.png"，"剑_2.png"，"剑_3.png"，"剑_4.png"
#一个武器可以重复设置多种技能，防具也是。
C3_A1_SKILL.push [1,15] #盾编号，附带技能编号
C3_A2_SKILL.push [6,15] #头盔编号，附带技能编号
C3_A3_SKILL.push [14,15] #甲编号，附带技能编号
C3_A4_SKILL.push [25,15] #装饰品编号，附带技能编号
#--------------------------------------------------------------------------
# ● 变更装备
# equip_type : 装备类型
# id : 武器 or 防具 ID (0 为解除装备)
#--------------------------------------------------------------------------
def equip(equip_type, id)
case equip_type
when 0 # 武器
if id == 0 or $game_party.weapon_number(id) > 0
old_weapon_id = @weapon_id
weapon_i = 0
for weapon_i in C3_W_SKILL
if weapon_i[0] == old_weapon_id
if weapon_i[1] != 0
forget_skill(weapon_i[1])
end
end
end
for weapon_i in C3_W_SKILL
if weapon_i[0] == id
if weapon_i[1] != 0
learn_skill(weapon_i[1])
end
if weapon_i[2] != ""
@battler_name = weapon_i[2]+@actor_id.to_s
else
@battler_name = $data_actors[@actor_id].battler_name
end
end
end
$game_party.gain_weapon(@weapon_id, 1)
@weapon_id = id
$game_party.lose_weapon(id, 1)
end
when 1 # 盾
if id == 0 or $game_party.armor_number(id) > 0
old_am_id = @armor1_id
am_i = 0
for am_i in C3_A1_SKILL
if am_i[0] == old_am_id
if am_i[1] != 0
forget_skill(am_i[1])
end
end
end
for am_i in C3_A1_SKILL
if am_i[0] == id
if am_i[1] != 0
learn_skill(am_i[1])
end
end
end
update_auto_state($data_armors[@armor1_id], $data_armors[id])
$game_party.gain_armor(@armor1_id, 1)
@armor1_id = id
$game_party.lose_armor(id, 1)
end
when 2 # 头
if id == 0 or $game_party.armor_number(id) > 0
old_am_id = @armor2_id
am_i = 0
for am_i in C3_A2_SKILL
if am_i[0] == old_am_id
if am_i[1] != 0
forget_skill(am_i[1])
end
end
end
for am_i in C3_A2_SKILL
if am_i[0] == id
if am_i[1] != 0
learn_skill(am_i[1])
end
end
end
update_auto_state($data_armors[@armor2_id], $data_armors[id])
$game_party.gain_armor(@armor2_id, 1)
@armor2_id = id
$game_party.lose_armor(id, 1)
end
when 3 # 身体
if id == 0 or $game_party.armor_number(id) > 0
old_am_id = @armor3_id
am_i = 0
for am_i in C3_A3_SKILL
if am_i[0] == old_am_id
if am_i[1] != 0
forget_skill(am_i[1])
end
end
end
for am_i in C3_A3_SKILL
if am_i[0] == id
if am_i[1] != 0
learn_skill(am_i[1])
end
end
end
update_auto_state($data_armors[@armor3_id], $data_armors[id])
$game_party.gain_armor(@armor3_id, 1)
@armor3_id = id
$game_party.lose_armor(id, 1)
end
when 4 # 装饰品
if id == 0 or $game_party.armor_number(id) > 0
old_am_id = @armor4_id
am_i = 0
for am_i in C3_A4_SKILL
if am_i[0] == old_am_id
if am_i[1] != 0
forget_skill(am_i[1])
end
end
end
for am_i in C3_A4_SKILL
if am_i[0] == id
if am_i[1] != 0
learn_skill(am_i[1])
end
end
end
update_auto_state($data_armors[@armor4_id], $data_armors[id])
$game_party.gain_armor(@armor4_id, 1)
@armor4_id = id
$game_party.lose_armor(id, 1)
end
end
end
end
#------------------------------------------------------------
# 脚本来自www.66rpg.com，作者柳柳，转载和使用请保留此信息
#------------------------------------------------------------

复制代码