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

分享到：

赞(0)