请问怎样实现用物品学习技能？

cqr19950307

就是使用特定物品可以让指定角色学习特定的技能，并且可以通过角色的职业来判断选中的角色是否能用物品学习该技能。

烁灵

曾经给背背前辈写的简易技能书- -b

1. #--------------------------------------------------
   
2. # 简洁版技能书
   
3. #           -BY 烁灵
   
4. # 用法为：
   
5. # 在 数据库->物品 中如下设置技能书：无任何能力提升及数值恢复，仅
   
6. # 在 备注栏中写上如下信息
   
7. 
   
8. # 技能书:1,2,3:9
   
9. 
   
10. # 不要留空格，符号为半角字符
    
11. # 9为要学的技能编号，
    
12. # 1,2,3为能够习得的角色【职业】编号
    
13. # 上述写法效果即为 若目标为1,2,3号职业，即使其学会9号技能
    
14. # 可以多次重复，如
    
15. 
    
16. # 技能书:1,3:9
    
17. # 技能书:2,4:10
    
18. 
    
19. # 即可分情况学会技能
    
20. # 职业可以多个，但不要写太多使此语句长度超过一行
    
21. #---------------------------------------------------
    
22. module SL_Skill_Book
    
23.   SKILLITEMSTR = "技能书"
    
24.   SKILLLEARNASK = "确定让%s学会 %s？"
    
25.   SKILLLEARN = "%s学会了技能 %s！"
    
26.   SKILLLEARNED = "%s已经学会了%s！"
    
27.   SKILLCANNOTLEARN = "%s无法学习%s！"
    
28. end
    
29. class Game_Battler  
    
30.   alias sl_item_effective? item_effective?
    
31.   def item_effective?(user, item)
    
32.     $alflag = 0
    
33.     item.note.each_line{|line|
    
34.     $alflag = 0
    
35.       nt = line.split(/:/)      
    
36.       corr_target = []
    
37.       if(nt[0]==SL_Skill_Book::SKILLITEMSTR) #判定为技能书
    
38.         $alflag = 1
    
39.         i = nt[1].split(/,/)
    
40.         for j in 0...i.size
    
41.           corr_target.push(i[j].to_i)
    
42.         end
    
43.         i.clear        
    
44.         if corr_target.include?(user.class_id) #学习此行中的技能
    
45.           if not user.skill_learn?($data_skills[nt[2].to_i]) #没学过
    
46.             ttwin = Window_Base.new((544 - 324)/2,(414 - 64)/2 - 72,324,64)
    
47.             text = sprintf(SL_Skill_Book::SKILLLEARNASK, user.name, $data_skills[nt[2].to_i].name)
    
48.             ttwin.contents.draw_text(0, 0, 324, 32,text)
    
49. 
    
50.             cmdwin = Window_Command.new(128,["确认","取消"])
    
51.             cmdwin.x = (544 - cmdwin.width)/2
    
52.             cmdwin.y = (416 - cmdwin.height)/2
    
53.             cmdwin.active = true
    
54.             while true
    
55.               cmdwin.update
    
56.               Graphics.update
    
57.               Input.update              
    
58.               break if Input.repeat?(Input::C)
    
59.             end  
    
60.             if cmdwin.index == 0
    
61.               user.learn_skill(nt[2].to_i)  #学习              
    
62.               cmdwin.dispose         
    
63.               ttwin.dispose
    
64.               twin = Window_Base.new((544 - 324)/2,(414 - 64)/2,324,64)
    
65.               text = sprintf(SL_Skill_Book::SKILLLEARN, user.name, $data_skills[nt[2].to_i].name)
    
66.               twin.contents.draw_text(0, 0, 324, 32,text)
    
67.               Graphics.wait(60)
    
68.               twin.dispose   
    
69.               return true
    
70.             else              
    
71.               $alflag = 0   
    
72.               cmdwin.dispose              
    
73.               ttwin.dispose
    
74.               break
    
75.             end                          
    
76.             cmdwin.dispose
    
77.           else
    
78.             $alflag = 2
    
79.             tewin = Window_Base.new((544 - 256)/2,(414 - 64)/2,256,64)
    
80.             text = sprintf(SL_Skill_Book::SKILLLEARNED, user.name, $data_skills[nt[2].to_i].name)
    
81.             tewin.contents.draw_text(0, 0, 256, 32,text)
    
82.             Graphics.wait(60)
    
83.             tewin.dispose
    
84.             break
    
85.           end  
    
86.         end           
    
87.       end
    
88.     }      
    
89.     if $alflag == 1
    
90.       tewin2 = Window_Base.new((544 - 256)/2,(414 - 64)/2,256,64)
    
91.       text = sprintf(SL_Skill_Book::SKILLCANNOTLEARN, user.name, "这个技能")
    
92.       tewin2.contents.draw_text(0, 0, 256, 32,text)
    
93.       Graphics.wait(60)
    
94.       tewin2.dispose
    
95.     end   
    
96.     sl_item_effective?(user, item)
    
97.   end
    
98. end
    

复制代码

无责任饭粒。。。
简洁技能书系统【VX】.rar (247.96 KB, 下载次数: 239)

2011-5-8 19:41 上传

点击文件名下载附件

terry_zhp

物品调用公共事件，在公共事件内用条件分歧判断是否可以学习技能

爱丽丝·玛格特罗依德

http://rpg.blue/forum.php?mod=vi ... p;page=7#pid1588386

我只是来推销的~~~

w8603294

公共事件条件分歧

sq333333

这个脚本很使用:victory: 谢谢幽灵大大

cqr19950307

谢谢，收了。

云破月

弱弱的问一句：是XP还是VX~~范例是VX的

低调·、

如果、中途可以加入几十个角色、和换掉几十个角色、这样好像不行、条件分支又太麻烦。