风影包年2022年6月3日

战神引擎技能兑换Npc脚本(书页+元宝+装备)

用战神引擎技能兑换Npc脚本,兑换技能书籍需要玩家提供书页、元宝、装备,脚本是明文版的,可以任意修改里面的兑换书籍的物品和数量,脚本是单文件的,添加起来也是非常的简单。帮主有对应的教程。图片[1]-战神引擎技能兑换Npc脚本(书页+元宝+装备)-小狐狸资源网-图片[2]-战神引擎技能兑换Npc脚本(书页+元宝+装备)-小狐狸资源网-部分脚本

  • procedure _Taoist_up(Tao : string);
    begin
        temp := This_Player.GetV(26,11);
        case strtoint(Tao) of
             1:
             begin
                 if (This_Player.GetBagItemCount('书页') >= 200) and (This_Player.GetSkillLevelExt('施毒术',false) = 3) and (This_Player.YBNum >= 2000) then
                 begin
    			 	 This_Player.ScriptRequestSubYBNum(2000);
                     This_Player.Take('书页',200);
                     This_Player.ChgSkillLv('施毒术',4,0);
                     This_Player.PlayerNotice('升级成功,施毒术提升为4级',2); 
                     ServerSay('少侠【'+ This_Player.Name +'】历经千辛万苦终于将施毒术提升为4级,实力大涨一波',5); 
                     _skill_up;
                 end else This_Player.PlayerNotice('抱歉,书页或元宝不足或技能等级不是3级,不给予升级',0);
             end;
             2:
             begin
                 if (This_Player.GetBagItemCount('书页') >= 300) and (This_Player.GetSkillLevelExt('灵符火符',false) = 3) and (This_Player.YBNum >= 3000) then
                 begin
    			 	 This_Player.ScriptRequestSubYBNum(3000);
                     This_Player.Take('书页',300);
                     This_Player.ChgSkillLv('灵符火符',4,0);
                     This_Player.PlayerNotice('升级成功,灵符火符提升为4级',2); 
                     ServerSay('少侠【'+ This_Player.Name +'】历经千辛万苦终于将灵符火符提升为4级,实力大涨一波',5); 
                     _skill_up;
                 end else This_Player.PlayerNotice('抱歉,书页或元宝不足或技能等级不是3级,不给予升级',0);
             end;
             3:
             begin
                 if (This_Player.GetBagItemCount('书页') >= 500) and (This_Player.GetSkillLevelExt('召唤神兽',false) = 3) and (This_Player.YBNum >= 5000) then
                 begin
    			 	 This_Player.ScriptRequestSubYBNum(5000);
                     This_Player.Take('书页',500);
                     This_Player.ChgSkillLv('召唤神兽',4,0);
                     This_Player.PlayerNotice('升级成功,召唤神兽提升为4级',2); 
                     ServerSay('少侠【'+ This_Player.Name +'】历经千辛万苦终于将召唤神兽提升为4级,实力大涨一波',5); 
                     _skill_up;
                 end else This_Player.PlayerNotice('抱歉,书页或元宝不足或技能等级不是3级,不给予升级',0);
             end;
             4:
             begin
                 if (This_Player.GetBagItemCount('书页') >= 500) and (This_Player.GetSkillLevelExt('无极真气',false) = 3) and (This_Player.YBNum >= 10000) then
                 begin
    			 	 This_Player.ScriptRequestSubYBNum(10000);
                     This_Player.Take('书页',500);
                     This_Player.ChgSkillLv('无极真气',4,0);
                     This_Player.PlayerNotice('升级成功,无极真气提升为4级',2); 
                     ServerSay('少侠【'+ This_Player.Name +'】历经千辛万苦终于将无极真气提升为4级,实力大涨一波',5); 
                     _skill_up;
                 end else This_Player.PlayerNotice('抱歉,书页或元宝不足或技能等级不是3级,不给予升级',0);
             end;
             5:
             begin
                 if (This_Player.GetBagItemCount('书页') >= 1000) and (This_Player.GetSkillLevelExt('噬血术',false) = 3) and (This_Player.YBNum >= 20000) then
                 begin
    			 	 This_Player.ScriptRequestSubYBNum(20000);
                     This_Player.Take('书页',1000);
                     This_Player.ChgSkillLv('噬血术',4,0);
                     This_Player.PlayerNotice('升级成功,噬血术提升为4级',2); 
                     ServerSay('少侠【'+ This_Player.Name +'】历经千辛万苦终于将噬血术提升为4级,实力大涨一波',5); 
                     _skill_up;
                 end else This_Player.PlayerNotice('抱歉,书页或元宝不足或技能等级不是3级,不给予升级',0);
             end;
        end; 
    end;
    begin
        if This_Player.GetV(26,11) < 0 then This_Player.SetV(26,11,0);
        domain;
    end.

     

------本页内容已结束,喜欢请分享------

感谢您的来访,本站QQ交流群:970786861

战神引擎技能兑换Npc脚本(书页+元宝+装备)-小狐狸资源网-
战神引擎技能兑换Npc脚本(书页+元宝+装备)
此内容为付费资源,请付费后查看
积分0.99
限时特惠
积分19.9
立即购买
您当前未登录!建议登陆后购买,可保存购买订单
付费资源
© 版权声明
THE END
喜欢就支持一下吧
点赞9 分享
相关推荐
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片