三职业技能书页升级Npc脚本

用于战神引擎三职业技能升级Npc脚本，脚本可以把玩家的技能等级升级到4级，如果安装脚本升级不生效，记得配合盘古上的设置，盘古上面有使用文字说明，遵照操作。

三职业技能书页升级Npc脚本

部分脚本

program mir2;
procedure _exit;
begin
    This_NPC.CloseDialog(This_Player);
end;
procedure domain;
begin
    This_NPC.NpcDialog(This_Player,
    +'<3级技能强化到4级/fcolor=151>'
    +'|<主号技能强化需要388书页/fcolor=151>'
    +'|<注意:(部分技能升级需要盘古插件)/fcolor=249>'
    +'|{cmd}<四级剑术/@sj>^<四级刺杀/@sc>' 
    +'|{cmd}<四级半月/@sb>^<四级烈火/@slh>'
     +'|{cmd}<四级雷电/@sld>^<四级魔法盾/@smf>' 
    +'|{cmd}<四级灭天火/@sth>^<四级火雨/@shy>' 
    +'|{cmd}<四级施毒/@ssd>^<四级火符/@sjhf>^<四级噬血/@ssxs>' 
  //  +'|<英雄强化/@ying>'
    );
end;
procedure _ssxs;
begin
    This_NPC.NpcDialog(This_Player,
    +'提升四级噬血需要噬血术达到3级和388书页，确定提升？'
    +'|{cmd}<确定提升/@ssxs1>^<返回/@main>' 
    );
end;
procedure _ssxs1;
begin
    if (This_Player.CheckSkill(48) = 3) and (This_Player.GetBagItemCount('书页') >=388) then
    begin
        This_Player.Take('书页',388);
        This_Player.ChgSkillLv('噬血术',4,0);        
        ServerSay('玩家'+ This_Player.Name + '在四级技能处提升了四级噬血',1); 
    end else  This_NPC.NpcDialog(This_Player,'技能等级不足或者书页不足，无法提升');  
end;
procedure _sjhf;
begin
    This_NPC.NpcDialog(This_Player,
    +'提升四级火符需要灵魂火符达到3级和388书页，确定提升？'
    +'|{cmd}<确定提升/@sjhf1>^<返回/@main>' 
    );
end;
procedure _sjhf1;
begin
    if (This_Player.CheckSkill(13) = 3) and (This_Player.GetBagItemCount('书页') >=388) then
    begin
        This_Player.Take('书页',388);
        This_Player.ChgSkillLv('灵魂火符',4,0);        
        ServerSay('玩家'+ This_Player.Name + '在四级技能处提升了四级火符',1); 
    end else  This_NPC.NpcDialog(This_Player,'技能等级不足或者书页不足，无法提升');  
end;
procedure _ssd;
begin
    This_NPC.NpcDialog(This_Player,
    +'提升四级施毒需要施毒术达到3级和388书页，确定提升？'
    +'|{cmd}<确定提升/@ssd1>^<返回/@main>' 
    );
end;
procedure _ssd1;
begin
    if (This_Player.CheckSkill(6) = 3) and (This_Player.GetBagItemCount('书页') >=388) then
    begin
        This_Player.Take('书页',388);
        This_Player.ChgSkillLv('施毒术',4,0);        
        ServerSay('玩家'+ This_Player.Name + '在四级技能处提升了四级施毒术',1); 
    end else  This_NPC.NpcDialog(This_Player,'技能等级不足或者书页不足，无法提升');  
end;

分享到：

赞(0)