【悬赏】找人写个装备武器改变职业的脚本

v2sam

悬赏价格可以商量，具体是：

无装备时职业为“无业” ； 装备剑类时职业为“战士”  以此类推。 判断条件可以为武器属性 或者备注。

ClaudeBell

1. 
   
2. #-------------------------------------------------------
   
3. # 2010-6-19
   
4. # 说明
   
5. # $g_weapon_class 中存放 武器与职业 的对应关系
   
6. # 第一个数是职业id，另一个是武器id
   
7. # 例： 1号武器对应1号职业，2号武器对应3号职业
   
8. # $g_weapon_class = {1=>1, 2=>2}
   
9. # 注意：每个武器只能对应一种职业，即不能出现 1=>1, 2=>1 的情况
   
10. # 若 $g_bForgetSkills = true 则换武器后遗忘原有技能，为false则不会
    
11. # 若 $g_bLearnSkills = true 则换武器后学习有技能，为false则不会
    
12. 
    
13. #-------------------------------------------------------
    
14. # 定义哈希表,用以存储与武器对应的职业编号
    
15. $g_weapon_class = {1=>1}
    
16. 
    
17. # 定义无职业的id号
    
18. $noClass = 9
    
19. 
    
20. # 定义布尔变量,用以判断是否遗忘原有职业技能
    
21. $g_bForgetSkills = true
    
22. $g_bLearnSkills = true
    
23. 
    
24. #--------------------------------------------------------
    
25. 
    
26. # 重定义装备数据显示界面(未实现)
    
27. 
    
28. # 重定义装备道具部分
    
29. class Game_Actor < Game_Battler
    
30.   def change_equip(equip_type, item, test = false)
    
31.     last_item = equips[equip_type]
    
32.     unless test
    
33.       return if $game_party.item_number(item) == 0 if item != nil
    
34.       $game_party.gain_item(last_item, 1)
    
35.       $game_party.lose_item(item, 1)
    
36.     end
    
37.     item_id = item == nil ? 0 : item.id
    
38.     case equip_type
    
39.     when 0  # 武器
    
40.       @weapon_id = item_id
    
41.       unless two_hands_legal?             # 非双手装备的场合，自动卸下装备
    
42.         change_equip(1, nil, test)
    
43.       end
    
44.       
    
45.       # 遗忘原职业技能
    
46.       if $g_bForgetSkills
    
47.         for i in self.class.learnings
    
48.           forget_skill(i.skill_id) if i.level <= @level
    
49.         end
    
50.       end
    
51.       
    
52.       # 变更职业
    
53.       @newClassID = $g_weapon_class.index(item_id)
    
54.       if @newClassID == nil
    
55.         @class_id = $noClass
    
56.       else
    
57.         @class_id = @newClassID
    
58.       end
    
59.       
    
60.       # 习得新职业技能
    
61.       if $g_bLearnSkills
    
62.         for i in self.class.learnings
    
63.           learn_skill(i.skill_id) if i.level <= @level
    
64.         end
    
65.       end
    
66. 
    
67.     when 1  # 盾
    
68.       @armor1_id = item_id
    
69.       unless two_hands_legal?             # 非双手装备的场合，自动卸下装备
    
70.         change_equip(0, nil, test)
    
71.       end
    
72.     when 2  # 头部防具
    
73.       @armor2_id = item_id
    
74.     when 3  # 身体防具
    
75.       @armor3_id = item_id
    
76.     when 4  # 装饰品
    
77.       @armor4_id = item_id
    
78.     end
    
79.   end
    
80. end
    

复制代码

写了一个比较简单的...{:nm_3:}

v2sam

这个……怎么结贴？

darkdrium

回复 v2sam 的帖子
bug2解决办法：game_actor页630行
for i in 0..4     # 除去不可用的装备
改成for i in 1..4
bug原因：这个方法和我写的语句里的class_id=方法互相调用，陷入死循环
第一个bug……为什么要通过脚本解决？直接设置主角初始职业和武器职业匹配不就好了么

   

v2sam

嗯……这个BUG还有许多……

BUG1：如果角色默认装备了一个武器，该武器指定的职业无用。

BUG2：如果角色把所有武器卸下（或指向一个空白），就会出错。

darkdrium

回复 v2sam 的帖子
Project1.rar (246.64 KB, 下载次数: 26)

2010-6-19 12:08 上传

点击文件名下载附件

直接给你我昨天的测试用范例

脚本添加了两页，读取备注和武器附带技能，武器附带技能里我添加了那几行

游戏中那个npc会给一根棍棒，棍棒我设置了职业是牧师

v2sam

回复 darkdrium 的帖子

依然没有效果= =|||   可不可以给个完整的看看
   

darkdrium

回复 v2sam 的帖子
摊手，我测试了下，用沉影大大的读取备注脚本和武器改变技能脚本，加上我那5句就可以了
我用棒槌备注class=3，职业变成牧师


   

wsffx13

其实得说清职业影响
是一换装备，就改变职业后，技能，能力都完全改变呢，还是改变职业后，升级时能学相应的技能，和相对应的能力提升。
从你前面描述的看，貌似第一种。

那就重定义下人物职业的属性吧，另外武器附加职业id和技能。这里也可以取消武器附加技能，而在换物器时附加个技能变化操作，忘记所有技能，学会对应职业等级的所有技能。