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

用战神引擎技能兑换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