战神引擎-NPC升级五级技能代码
战神引擎学习五级技能脚本代码,多少级可以自己改，需要配合我之前发的技能恢复NPC代码.懂得都懂 不多讲了 链接在下面！
关联文章 战神引擎-恢复五级技能NPC代码
program Mir2; var zhanshijj,fashijj,daoshijj:integer; quanxian:String; procedure _doexit; begin This_Npc.CloseDialog(This_Player); end; procedure _exit; begin This_Npc.CloseDialog(This_Player); end; function getexpNum(Zlv : integer) : integer; //等级 begin case Zlv of 0 : result := 5; 1 : result := 10; 2 : result := 20; 3 : result := 30; 4 : result := 30; 5 : result := 35; 6 : result := 40; 7 : result := 45; 8 : result := 48; 9 : result := 50;
end; end; function getYBNum(Zlv : integer) : integer; //元宝 begin case Zlv of 0 : result := 5000; 1 : result := 10000; 2 : result := 20000; 3 : result := 30000; 4 : result := 40000; 5 : result := 50000; 6 : result := 60000; 7 : result := 70000; 8 : result := 80000; 9 : result := 90000; end; end; function getSYNum(Zlv : integer) : integer; //需要书页 begin case Zlv of 0 : result := 388; 1 : result := 488; 2 : result := 588; 3 : result := 688; 4 : result := 788; 5 : result := 888; 6 : result := 988; 7 : result := 1088; 8 : result := 1188; 9 : result := 1288; end; end; function getSTNum(Zlv : integer) : integer; //需要神石 begin case Zlv of 0 : result := 1; 1 : result := 2; 2 : result := 3; 3 : result := 6; 4 : result := 15; 5 : result := 20; 6 : result := 35; 7 : result := 40; 8 : result := 56; 9 : result := 60; end; end; function getJNDJNum(Zlv : integer) : integer; //技能等级 begin case Zlv of 1 : result := 1; 2 : result := 2; 3 : result := 3; 4 : result := 4; 5 : result := 5; 6 : result := 6; 7 : result := 7; 8 : result := 8; 9 : result := 9;
end; end; function getZSJNname(ZBid : integer) : string; begin case ZBid of 1 : result := '基本剑术'; 2 : result := '攻杀剑术'; 3 : result := '刺杀剑术'; 4 : result := '半月弯刀'; 5 : result := '野蛮冲撞'; 6 : result := '烈火剑法'; 7 : result := '逐日剑法'; end; end; function getFSJNname(ZBid : integer) : string; begin case ZBid of 1 : result := '雷电术'; 2 : result := '火墙'; 3 : result := '魔法盾'; 4 : result := '地狱雷光'; 5 : result := '冰咆哮'; 6 : result := '灭天火'; 7 : result := '流星火雨'; end; end; function getDSJNname(ZBid : integer) : string; begin case ZBid of 1 : result := '灵魂火符'; 2 : result := '施毒术'; 3 : result := '群体治愈术'; 4 : result := '召唤神兽'; 5 : result := '气功波'; 6 : result := '无极真气'; 7 : result := '噬血术'; end; end; procedure zhanshi; var jnxx1,jnxx2,jnxx3,jnxx4,jnxx5,jnxx6,jnxx7:integer; begin if This_Player.GetSkillLevelExt('基本剑术',false) > 0 then begin jnxx1 := This_Player.GetSkillLevelExt('基本剑术',false); This_Player.SetV(183,10,jnxx1);//-------------------------- end else jnxx1 := 0;
if This_Player.GetSkillLevelExt('攻杀剑术',false) > 0 then begin jnxx2 := This_Player.GetSkillLevelExt('攻杀剑术',false); This_Player.SetV(183,11,jnxx2);//-------------------------- end else jnxx2 := 0;
if This_Player.GetSkillLevelExt('刺杀剑术',false) > 0 then begin jnxx3 := This_Player.GetSkillLevelExt('刺杀剑术',false); This_Player.SetV(183,12,jnxx3);//--------------------------------------- end else jnxx3 := 0; if This_Player.GetSkillLevelExt('半月弯刀',false) > 0 then begin jnxx4 := This_Player.GetSkillLevelExt('半月弯刀',false); This_Player.SetV(183,13,jnxx4);//-------------------------- end else jnxx4 := 0; if This_Player.GetSkillLevelExt('野蛮冲撞',false) > 0 then begin jnxx5 := This_Player.GetSkillLevelExt('野蛮冲撞',false); This_Player.SetV(183,14,jnxx5);//-------------------------- end else jnxx5 := 0; if This_Player.GetSkillLevelExt('烈火剑法',false) > 0 then begin jnxx6 := This_Player.GetSkillLevelExt('烈火剑法',false); This_Player.SetV(183,15,jnxx6);//----------------------------------- end else jnxx6 := 0; if This_Player.GetSkillLevelExt('逐日剑法',false) > 0 then begin jnxx7 := This_Player.GetSkillLevelExt('逐日剑法',false); This_Player.SetV(183,16,jnxx7);//------------------------------------- end else jnxx7 := 0;
if This_Player.GMLevel >= 1 then begin quanxian := '<GM后台/@GM>'; end else quanxian := '<关闭此页/@exit>';
This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化战士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<强化基本剑术/@zsjn~1> ^<强化攻杀剑术/@zsjn~2>\' +'|<状态:/fcolor=146> <'+inttostr(jnxx1)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxx2)+'/fcolor=250> <级/fcolor=146>\' +'|<强化刺杀剑术/@zsjn~3> ^<强化半月弯刀/@zsjn~4>\' +'|<状态:/fcolor=146> <'+inttostr(jnxx3)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxx4)+'/fcolor=250> <级/fcolor=146>\' +'|<强化野蛮冲撞/@zsjn~5> ^<强化烈火剑法/@zsjn~6>\' +'|<状态:/fcolor=146> <'+inttostr(jnxx5)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxx6)+'/fcolor=250> <级/fcolor=146>\' +'|<强化逐日剑法/@zsjn~7> ^\' +'|<状态:/fcolor=146> <'+inttostr(jnxx7)+'/fcolor=250> <级/fcolor=146> ^<最高可强化至'+inttostr(GetG(191,1))+'重>\' +'|<─────────────────────>\' +'|{cmd}'+quanxian+' ^<英雄技能/@yingxiong>\' ); end; procedure _zsjn(jnid:Integer); var jndj:integer; begin jndj := This_Player.GetSkillLevelExt(getZSJNname(jnid),false); zhanshijj := jnid; if jndj < 0 then begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化战士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：> '+getZSJNname(jnid)+' \' +'|<当前等级：> <未修练/fcolor=254> \' +'|<─────────────────────>\' +'|<需要元宝：> '+inttostr(getYBNum(0))+' \' +'|<需要书页：> '+inttostr(getSYNum(0))+' \' //+'|<需要神石：> '+inttostr(getSTNum(0))+' \' +'|<需要等级：> '+inttostr(getEXPNum(0))+' \' +'|<─────────────────────>\' +'|<修练'+getZSJNname(jnid)+'/@zskaishi> ^<返回上页/@main>|\' ); end else begin if jndj >= GetG(191,1) then begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化战士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：/fcolor=146> <'+getZSJNname(jnid)+'/fcolor=250> \' +'|<当前等级：/fcolor=146> <'+inttostr(jndj)+'/fcolor=250> |\' +'|<当前技能已经大圆满，威力巨大，无法提升！/fcolor=250> |\' +'|<─────────────────────>\' +'|<返回上页/@main> ^<返回上页/@main>|\' ); end else begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化战士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：/fcolor=146> '+getZSJNname(jnid)+' \' +'|<当前等级：/fcolor=146> <'+inttostr(jndj)+'/fcolor=250> \' +'|<─────────────────────>\' +'|<下级等级：/fcolor=242> <'+inttostr(getJNDJNum(jndj+1))+'/fcolor=161> \' +'|<需要元宝：/fcolor=242> <'+inttostr(getYBNum(jndj+1))+'/fcolor=161> \' +'|<需要书页：/fcolor=242> <'+inttostr(getSYNum(jndj+1))+'/fcolor=161> \' //+'|<需要神石：/fcolor=242> <'+inttostr(getSTNum(jndj+1))+'/fcolor=161> \' +'|<需要等级：/fcolor=242> <'+inttostr(getexpNum(jndj+1))+'/fcolor=161> \' +'|<─────────────────────>\' +'|<提升'+getZSJNname(jnid)+'/@zskaishi> ^<返回上页/@main>|\' ); end; end; end; procedure _zskaishi; var jndj,jjgll,qbj1:integer; begin jjgll := zhanshijj; jndj := This_Player.GetSkillLevelExt(getZSJNname(jjgll),false); qbj1 := jndj+1; if This_Player.YBNum >= getYBNum(qbj1) then begin if This_Player.GetBagItemCount('书页') >= getSYNum(qbj1) then begin //if This_Player.GetBagItemCount('技能神石') >= getSTNum(qbj1) then //begin if This_Player.Level >= getexpNum(qbj1) then begin if This_Player.GetSkillLevelExt(getZSJNname(jjgll),false) < 0 then begin This_Player.Take('书页',getSYNum(qbj1)); //This_Player.Take('技能神石',getSTNum(qbj1)); This_Player.ScriptRequestSubYBNum(getYBNum(qbj1)); This_Player.LearnMagic(getZSJNname(jjgll)); This_Player.SetV(183,1,jjgll); ServerSay('恭喜玩家:[' + This_Player.Name + ']修练['+getZSJNname(jjgll)+']成功,威力大增！',3); zhanshi; end else begin This_Player.Take('书页',getSYNum(qbj1)); //This_Player.Take('技能神石',getSTNum(qbj1)); This_Player.ScriptRequestSubYBNum(getYBNum(qbj1)); This_Player.UpgradeSkillByScript(getZSJNname(jjgll),False); This_Player.SetV(183,1,jjgll); ServerSay('恭喜玩家:[' + This_Player.Name + ']将['+getZSJNname(jjgll)+']提升1级,威力巨增！',3); zhanshi; end; end else begin This_Player.PlayerNotice('提升失败:你的等级未达到'+inttostr(getEXPNum(qbj1))+'级！',2); end; //end else //begin //This_Player.PlayerNotice('提升失败:你的技能神石不足'+inttostr(getSTNum(qbj1))+'个！',2); //end; end else begin This_Player.PlayerNotice('提升失败:你的书页不足'+inttostr(getSYNum(qbj1))+'张！',2); end; end else begin This_Player.PlayerNotice('提升失败:你的元宝不足'+inttostr(getYBNum(qbj1))+'颗！',2); end; end; procedure fashi; var jnxxx1,jnxxx2,jnxxx3,jnxxx4,jnxxx5,jnxxx6,jnxxx7:integer; begin if This_Player.GetSkillLevelExt('雷电术',false) > 0 then begin jnxxx1 := This_Player.GetSkillLevelExt('雷电术',false); This_Player.SetV(183,10,jnxxx1);//-------------------------- end else jnxxx1 := 0;
if This_Player.GetSkillLevelExt('火墙',false) > 0 then begin jnxxx2 := This_Player.GetSkillLevelExt('火墙',false); This_Player.SetV(183,11,jnxxx2);//-------------------------- end else jnxxx2 := 0;
if This_Player.GetSkillLevelExt('魔法盾',false) > 0 then begin jnxxx3 := This_Player.GetSkillLevelExt('魔法盾',false); This_Player.SetV(183,12,jnxxx3);//-------------------------- end else jnxxx3 := 0; if This_Player.GetSkillLevelExt('地狱雷光',false) > 0 then begin jnxxx4 := This_Player.GetSkillLevelExt('地狱雷光',false); This_Player.SetV(183,13,jnxxx4);//-------------------------- end else jnxxx4 := 0; if This_Player.GetSkillLevelExt('冰咆哮',false) > 0 then begin jnxxx5 := This_Player.GetSkillLevelExt('冰咆哮',false); This_Player.SetV(183,14,jnxxx5);//-------------------------- end else jnxxx5 := 0; if This_Player.GetSkillLevelExt('灭天火',false) > 0 then begin jnxxx6 := This_Player.GetSkillLevelExt('灭天火',false); This_Player.SetV(183,15,jnxxx6);//-------------------------- end else jnxxx6 := 0; if This_Player.GetSkillLevelExt('流星火雨',false) > 0 then begin jnxxx7 := This_Player.GetSkillLevelExt('流星火雨',false); This_Player.SetV(183,16,jnxxx7);//-------------------------- end else jnxxx7 := 0; if This_Player.GMLevel >= 1 then begin quanxian := '<GM后台/@GM>'; end else quanxian := '<关闭此页/@exit>';
This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化法师技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<强化雷电术/@fajn~1> ^<强化火墙/@fajn~2> \' +'|<状态:/fcolor=146> <'+inttostr(jnxxx1)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxxx2)+'/fcolor=250> <级/fcolor=146>\' +'|<强化魔法盾/@fajn~3> ^<强化地狱雷光/@fajn~4> \' +'|<状态:/fcolor=146> <'+inttostr(jnxxx3)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxxx4)+'/fcolor=250> <级/fcolor=146>\' +'|<强化冰咆哮/@fajn~5> ^<强化灭天火/@fajn~6>\' +'|<状态:/fcolor=146> <'+inttostr(jnxxx5)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxxx6)+'/fcolor=250> <级/fcolor=146>\' +'|<强化流星火雨/@fajn~7> ^' +'|<状态:/fcolor=146> <'+inttostr(jnxxx7)+'/fcolor=250> <级/fcolor=146> ^<最高可强化至'+inttostr(GetG(191,1))+'重>\' +'|<─────────────────────>\' +'|{cmd}'+quanxian+' ^<英雄技能/@yingxiong>\' ); end; procedure _fajn(jnid:Integer); var jndj:integer; begin jndj := This_Player.GetSkillLevelExt(getfsjnname(jnid),false); fashijj := jnid; if jndj < 0 then begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化法师技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：> '+getfsjnname(jnid)+' \' +'|<当前等级：> <未修练/fcolor=254> \' +'|<─────────────────────>\' +'|<需要元宝：> '+inttostr(getYBNum(0))+' \' +'|<需要书页：> '+inttostr(getSYNum(0))+' \' //+'|<需要神石：> '+inttostr(getSTNum(0))+' \' +'|<需要等级：> '+inttostr(getEXPNum(0))+' \' +'|<─────────────────────>\' +'|<修练'+getfsjnname(jnid)+'/@fskaishi> ^<返回上页/@main>|\' ); end else begin if jndj >= GetG(191,1) then begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化法师技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：/fcolor=146> <'+getfsjnname(jnid)+'/fcolor=250> \' +'|<当前等级：/fcolor=146> <'+inttostr(jndj)+'/fcolor=250> |\' +'|<当前技能已经大圆满，威力巨大，无法提升！/fcolor=250> |\' +'|<─────────────────────>\' +'|<返回上页/@main> ^<返回上页/@main>|\' ); end else begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化法师技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：/fcolor=146> '+getfsjnname(jnid)+' \' +'|<当前等级：/fcolor=146> <'+inttostr(jndj)+'/fcolor=250> \' +'|<─────────────────────>\' +'|<下级等级：/fcolor=242> <'+inttostr(getJNDJNum(jndj+1))+'/fcolor=161> \' +'|<需要元宝：/fcolor=242> <'+inttostr(getYBNum(jndj+1))+'/fcolor=161> \' +'|<需要书页：/fcolor=242> <'+inttostr(getSYNum(jndj+1))+'/fcolor=161> \' //+'|<需要神石：/fcolor=242> <'+inttostr(getSTNum(jndj+1))+'/fcolor=161> \' +'|<需要等级：/fcolor=242> <'+inttostr(getexpNum(jndj+1))+'/fcolor=161> \' +'|<─────────────────────>\' +'|<提升'+getfsjnname(jnid)+'/@fskaishi> ^<返回上页/@main>|\' ); end; end; end; procedure _fskaishi; var jndj,jjgll,qbj1:integer; begin jjgll := fashijj; jndj := This_Player.GetSkillLevelExt(getfsjnname(jjgll),false); qbj1 := jndj+1; if This_Player.YBNum >= getYBNum(qbj1) then begin if This_Player.GetBagItemCount('书页') >= getSYNum(qbj1) then begin //if This_Player.GetBagItemCount('技能神石') >= getSTNum(qbj1) then //begin if This_Player.Level >= getexpNum(qbj1) then begin if This_Player.GetSkillLevelExt(getfsjnname(jjgll),false) < 0 then begin This_Player.Take('书页',getSYNum(qbj1)); //This_Player.Take('技能神石',getSTNum(qbj1)); This_Player.ScriptRequestSubYBNum(getYBNum(qbj1)); This_Player.LearnMagic(getfsjnname(jjgll)); This_Player.SetV(183,1,jjgll); ServerSay('恭喜玩家:[' + This_Player.Name + ']修练['+getfsjnname(jjgll)+']成功,威力大增！',3); fashi; end else begin This_Player.Take('书页',getSYNum(qbj1)); //This_Player.Take('技能神石',getSTNum(qbj1)); This_Player.ScriptRequestSubYBNum(getYBNum(qbj1)); This_Player.UpgradeSkillByScript(getfsjnname(jjgll),False); This_Player.SetV(183,1,jjgll); ServerSay('恭喜玩家:[' + This_Player.Name + ']将['+getfsjnname(jjgll)+']提升1级,威力巨增！',3); fashi; end; end else begin This_Player.PlayerNotice('提升失败:你的等级未达到'+inttostr(getEXPNum(qbj1))+'级！',2); end; //end else //begin //This_Player.PlayerNotice('提升失败:你的技能神石不足'+inttostr(getSTNum(qbj1))+'个！',2); //end; end else begin This_Player.PlayerNotice('提升失败:你的书页不足'+inttostr(getSYNum(qbj1))+'张！',2); end; end else begin This_Player.PlayerNotice('提升失败:你的元宝不足'+inttostr(getYBNum(qbj1))+'颗！',2); end; end; procedure daoshi; var jnxxxx1,jnxxxx2,jnxxxx3,jnxxxx4,jnxxxx5,jnxxxx6,jnxxxx7:integer; begin if This_Player.GetSkillLevelExt('灵魂火符',false) > 0 then begin jnxxxx1 := This_Player.GetSkillLevelExt('灵魂火符',false); This_Player.SetV(183,10,jnxxxx1);//-------------------------- end else jnxxxx1 := 0;
if This_Player.GetSkillLevelExt('施毒术',false) > 0 then begin jnxxxx2 := This_Player.GetSkillLevelExt('施毒术',false); This_Player.SetV(183,11,jnxxxx2);//-------------------------- end else jnxxxx2 := 0;
if This_Player.GetSkillLevelExt('群体治愈术',false) > 0 then begin jnxxxx3 := This_Player.GetSkillLevelExt('群体治愈术',false); This_Player.SetV(183,12,jnxxxx3);//-------------------------- end else jnxxxx3 := 0; if This_Player.GetSkillLevelExt('召唤神兽',false) > 0 then begin jnxxxx4 := This_Player.GetSkillLevelExt('召唤神兽',false); This_Player.SetV(183,13,jnxxxx4);//-------------------------- end else jnxxxx4 := 0; if This_Player.GetSkillLevelExt('气功波',false) > 0 then begin jnxxxx5 := This_Player.GetSkillLevelExt('气功波',false); This_Player.SetV(183,14,jnxxxx5);//-------------------------- end else jnxxxx5 := 0; if This_Player.GetSkillLevelExt('无极真气',false) > 0 then begin jnxxxx6 := This_Player.GetSkillLevelExt('无极真气',false); This_Player.SetV(183,15,jnxxxx6);//-------------------------- end else jnxxxx6 := 0; if This_Player.GetSkillLevelExt('噬血术',false) > 0 then begin jnxxxx7 := This_Player.GetSkillLevelExt('噬血术',false); This_Player.SetV(183,16,jnxxxx7);//-------------------------- end else jnxxxx7 := 0; if This_Player.GMLevel >= 1 then begin quanxian := '<GM后台/@GM>'; end else quanxian := '<关闭此页/@exit>';
This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化道士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<强化施毒术/@dsjn~2> ^<强化灵魂火符/@dsjn~1>\' +'|<状态:/fcolor=146> <'+inttostr(jnxxxx2)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxxxx1)+'/fcolor=250> <级/fcolor=146>\' +'|<强化群疗术/@dsjn~3> ^<强化召唤神兽/@dsjn~4>\' +'|<状态:/fcolor=146> <'+inttostr(jnxxxx3)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxxxx4)+'/fcolor=250> <级/fcolor=146>\' +'|<强化气功波/@dsjn~5> ^<强化无极真气/@dsjn~6> \' +'|<状态:/fcolor=146> <'+inttostr(jnxxxx5)+'/fcolor=250> <级/fcolor=146> ^<状态:/fcolor=146> <'+inttostr(jnxxxx6)+'/fcolor=250> <级/fcolor=146>\' +'|<强化噬血术/@dsjn~7> ^' +'|<状态:/fcolor=146> <'+inttostr(jnxxxx7)+'/fcolor=250> <级/fcolor=146> ^<最高可强化至'+inttostr(GetG(191,1))+'重>\' +'|<─────────────────────>\' +'|{cmd}'+quanxian+' ^<英雄技能/@yingxiong>\' ); end; procedure _dsjn(jnid:Integer); var jndj:integer; begin jndj := This_Player.GetSkillLevelExt(getdsjnname(jnid),false); daoshijj := jnid; if jndj < 0 then begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化道士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：> '+getdsjnname(jnid)+' \' +'|<当前等级：> <未修练/fcolor=254> \' +'|<─────────────────────>\' +'|<需要元宝：> '+inttostr(getYBNum(0))+' \' +'|<需要书页：> '+inttostr(getSYNum(0))+' \' //+'|<需要神石：> '+inttostr(getSTNum(0))+' \' +'|<需要等级：> '+inttostr(getEXPNum(0))+' \' +'|<─────────────────────>\' +'|<修练'+getdsjnname(jnid)+'/@dskaishi> ^<返回上页/@main>|\' ); end else begin if jndj >= GetG(191,1) then begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化道士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：/fcolor=146> <'+getdsjnname(jnid)+'/fcolor=250> \' +'|<当前等级：/fcolor=146> <'+inttostr(jndj)+'/fcolor=250> |\' +'|<当前技能已经大圆满，威力巨大，无法提升！/fcolor=250> |\' +'|<─────────────────────>\' +'|<返回上页/@main> ^<返回上页/@main>|\' ); end else begin This_Npc.NpcDialog(This_Player, '<★★★★★/fcolor=250><【><强化道士技能/fcolor=254><】><★★★★★/fcolor=250>\' +'|<─────────────────────>\' +'|<当前技能：/fcolor=146> '+getdsjnname(jnid)+' \' +'|<当前等级：/fcolor=146> <'+inttostr(jndj)+'/fcolor=250> \' +'|<─────────────────────>\' +'|<下级等级：/fcolor=242> <'+inttostr(getJNDJNum(jndj+1))+'/fcolor=161> \' +'|<需要元宝：/fcolor=242> <'+inttostr(getYBNum(jndj+1))+'/fcolor=161> \' +'|<需要书页：/fcolor=242> <'+inttostr(getSYNum(jndj+1))+'/fcolor=161> \' //+'|<需要神石：/fcolor=242> <'+inttostr(getSTNum(jndj+1))+'/fcolor=161> \' +'|<需要等级：/fcolor=242> <'+inttostr(getexpNum(jndj+1))+'/fcolor=161> \' +'|<─────────────────────>\' +'|<提升'+getdsjnname(jnid)+'/@dskaishi> ^<返回上页/@main>|\' ); end; end; end; procedure _dskaishi; var jndj,jjgll,qbj1:integer; begin jjgll := daoshijj; jndj := This_Player.GetSkillLevelExt(getdsjnname(jjgll),false); qbj1 := jndj+1; if This_Player.YBNum >= getYBNum(qbj1) then begin if This_Player.GetBagItemCount('书页') >= getSYNum(qbj1) then begin //if This_Player.GetBagItemCount('技能神石') >= getSTNum(qbj1) then //begin if This_Player.Level >= getexpNum(qbj1) then begin if This_Player.GetSkillLevelExt(getdsjnname(jjgll),false) < 0 then begin This_Player.Take('书页',getSYNum(qbj1)); //This_Player.Take('技能神石',getSTNum(qbj1)); This_Player.ScriptRequestSubYBNum(getYBNum(qbj1)); This_Player.LearnMagic(getdsjnname(jjgll)); This_Player.SetV(183,1,jjgll); ServerSay('恭喜玩家:[' + This_Player.Name + ']修练['+getdsjnname(jjgll)+']成功,威力大增！',3); daoshi; end else begin This_Player.Take('书页',getSYNum(qbj1)); //This_Player.Take('技能神石',getSTNum(qbj1)); This_Player.ScriptRequestSubYBNum(getYBNum(qbj1)); This_Player.UpgradeSkillByScript(getdsjnname(jjgll),False); This_Player.SetV(183,1,jjgll); ServerSay('恭喜玩家:[' + This_Player.Name + ']将['+getdsjnname(jjgll)+']提升1级,威力巨增！',3); daoshi; end; end else begin This_Player.PlayerNotice('提升失败:你的等级未达到'+inttostr(getEXPNum(qbj1))+'级！',2); end; //end else //begin //This_Player.PlayerNotice('提升失败:你的技能神石不足'+inttostr(getSTNum(qbj1))+'个！',2); //end; end else begin This_Player.PlayerNotice('提升失败:你的书页不足'+inttostr(getSYNum(qbj1))+'张！',2); end; end else begin This_Player.PlayerNotice('提升失败:你的元宝不足'+inttostr(getYBNum(qbj1))+'颗！',2); end; end; procedure _GM; begin This_Npc.NpcDialog(This_Player, +'<技能大师GM后台/fcolor=242><当前日期：>\'+ MirDateTimeToStr('yyyy-MM-dd' , GetNow) +'|<────────────────────>\' +'|可调整全服 <强化技能最高等级/fcolor=254> |\' +'|当前最高等级：<'+inttostr(GetG(191,1))+'/fcolor=250>|\' +'|<最高四级/@tzdj~4> ^<最高五级/@tzdj~5> ^<最高六级/@tzdj~6>|\' +'|<最高七级/@tzdj~7> ^<最高八级/@tzdj~8> ^<最高九级/@tzdj~9>|\' +'<────────────────────>\' +'|{cmd}<返回首页/@main>^<关闭此页/@exit>\' ); end; procedure _tzdj(dengji:Integer); begin SetG(191,1,dengji); This_Player.PlayerNotice('调整成功：强化技能最高等级'+inttostr(dengji)+'级！',0);// end; procedure _yingxiong; begin //脚本入口 点击NPC 脚本从这里开始运行。 放在脚本最底部 if This_Player.HeroLevel >= 0 then begin This_Npc.NpcDialog(This_Player, '|前些日子，从西方来的游商说起，在大漠中有僧侣发现一处藏宝洞穴。其中存有许多先朝典籍散页，文字奇古，\' +'|人世间事，多半不如人意，想来便是如此吧。\' +'|拥有一定数量的<书页/c=red>需先将自身技能提升至<3重/c=red> \' +'|然后技能强化<只能提升至5重/c=red>，不然后果自负\' +'|<合击技能强化一次3888书页,10万元宝,只能四级,/c=red>切勿选错技能\ \' +'|\ \' +'|{cmd}<英雄战士/@Zsyx> ^ <英雄法师/@Fsyx> ^ <英雄道士/@Dsyx> \' +'|\ \' +'|{cmd}<破魂斩/@heji1> ^ <劈星斩/@heji2> ^ <雷霆一击/@heji3> \' +'|{cmd}<噬魂沼泽/@heji4> ^ <火龙气焰/@heji5> ^ <末日审判/@heji6> \'); end else begin This_Npc.NpcDialog(This_Player, '你必须召唤出你的英雄才能领取！'); end; end; procedure _heji1; var symun :Integer; sName :string; begin symun := 3888; sName := '破魂斩'; if (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.YBNum >= 100000) and (This_Player.CheckHeroSkill(50) > -1) and (This_Player.CheckHeroSkill(50) < 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(100000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '已达到<四级/c=red>！'); end; procedure _heji2; var symun :Integer; sName :string; begin symun := 3888; sName := '劈星斩'; if (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.YBNum >= 100000) and (This_Player.CheckHeroSkill(51) > -1) and (This_Player.CheckHeroSkill(51) < 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(100000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '已达到<四级/c=red>！'); end; procedure _heji3; var symun :Integer; sName :string; begin symun := 3888; sName := '雷霆一击'; if (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.YBNum >= 100000) and (This_Player.CheckHeroSkill(52) > -1) and (This_Player.CheckHeroSkill(52) < 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(100000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '已达到<四级/c=red>！'); end; procedure _heji4; var symun :Integer; sName :string; begin symun := 3888; sName := '噬魂沼泽'; if (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.YBNum >= 100000) and (This_Player.CheckHeroSkill(53) > -1) and (This_Player.CheckHeroSkill(53) < 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(100000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '已达到<四级/c=red>！'); end; procedure _heji5; var symun :Integer; sName :string; begin symun := 3888; sName := '火龙气焰'; if (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.YBNum >= 100000) and (This_Player.CheckHeroSkill(55) > -1) and (This_Player.CheckHeroSkill(55) < 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(100000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '已达到<四级/c=red>！'); end; procedure _heji6; var symun :Integer; sName :string; begin symun := 3888; sName := '末日审判'; if (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.YBNum >= 100000) and (This_Player.CheckHeroSkill(54) > -1) and (This_Player.CheckHeroSkill(54) < 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(100000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '已达到<四级/c=red>！'); end; procedure _Zsyx; begin This_Npc.NpcDialog(This_Player, '|强化<战士英雄/c=red>技能：<确认好您当前等级,依次升级,书页数量为每次费用./fcolor=251>\ \'+ '|需要元宝:<技能1-5级分别对应10000 20000 30000 40000 50000 元宝/c=red>|\'+ '|<白日门剑术> <1级/@jianshu1> <2级/@jianshu2> <3级/@jianshu3> <4级/@jianshu4> <5级/@jianshu5> <书页*588张/fcolor=250>\'+ '|<白日门刺杀> <1级/@cisha1> <2级/@cisha2> <3级/@cisha3> <4级/@cisha4> <5级/@cisha5> <书页*588张/fcolor=250>\'+ '|<白日门半月> <1级/@banyue1> <2级/@banyue2> <3级/@banyue3> <4级/@banyue4> <5级/@banyue5> <书页*588张/fcolor=250>\'+ '|<白日门烈火> <1级/@liehuo1> <2级/@liehuo2> <3级/@liehuo3> <4级/@liehuo4> <5级/@liehuo5> <书页*888张/fcolor=250>\'+ '|<白日门逐日> <1级/@zhuri1> <2级/@zhuri2> <3级/@zhuri3> <4级/@zhuri4> <5级/@zhuri5> <书页*1288张/fcolor=250>\'+ '|<白日门开天> <1级/@kaitian1> <2级/@kaitian2> <3级/@kaitian3> <4级/@kaitian4> <5级/@kaitian5> <书页*1888张/fcolor=250>\'+ '|{cmd}<关闭/@exit>\'); end; procedure _jianshu1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门剑术'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (3) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _jianshu2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门剑术'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (3) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _jianshu3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门剑术'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (3) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _jianshu4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门剑术'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (3) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _jianshu5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门剑术'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (3) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _cisha1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门刺杀'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (12) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _cisha2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门刺杀'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (12) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _cisha3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门刺杀'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (12) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _cisha4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门刺杀'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (12) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _cisha5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门刺杀'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (12) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _banyue1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门半月'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (25) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _banyue2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门半月'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (25) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _banyue3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门半月'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (25) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _banyue4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门半月'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (25) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _banyue5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门半月'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (25) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _liehuo1; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门烈火'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (26) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _liehuo2; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门烈火'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (26) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _liehuo3; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门烈火'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (26) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _liehuo4; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门烈火'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (26) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _liehuo5; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门烈火'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (26) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _zhuri1; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门逐日'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (58) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _zhuri2; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门逐日'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (58) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _zhuri3; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门逐日'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (58) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _zhuri4; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门逐日'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (58) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _zhuri5; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门逐日'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (58) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _kaitian1; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门开天斩'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (34) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _kaitian2; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门开天斩'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (34) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _kaitian3; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门开天斩'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (34) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _kaitian4; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门开天斩'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (34) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _kaitian5; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门开天斩'; if (This_Player.HeroJob = 0) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (34) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _Fsyx; begin This_Npc.NpcDialog(This_Player, '|强化<法师英雄/c=red>技能：<确认好您当前等级,依次升级,书页数量为每次费用./fcolor=251>\ \'+ '|需要元宝:<技能1-5级分别对应10000 20000 30000 40000 50000 元宝/c=red>|\'+ '|<白日门雷电> <1级/@leidian1> <2级/@leidian2> <3级/@leidian3> <4级/@leidian4> <5级/@leidian5> <书页*588张/fcolor=250>\'+ '|<白日门法盾> <1级/@dun1> <2级/@dun2> <3级/@dun3> <4级/@dun4> <5级/@dun5> <书页*588张/fcolor=250>\'+ '|<白日门火墙> <1级/@huoqiang1> <2级/@huoqiang2> <3级/@huoqiang3> <4级/@huoqiang4> <5级/@huoqiang5> <书页*588张/fcolor=250>\'+ '|<白日门灭天> <1级/@mietian1> <2级/@mietian2> <3级/@mietian3> <4级/@mietian4> <5级/@mietian5> <书页*888张/fcolor=250>\'+ '|<白日门火雨> <1级/@huoyu1> <2级/@huoyu2> <3级/@huoyu3> <4级/@huoyu4> <5级/@huoyu5> <书页*1288张/fcolor=250>\'+ '|<白日门分身> <1级/@fenshen1> <2级/@fenshen2> <3级/@fenshen3> <4级/@fenshen4> <5级/@fenshen5> <书页*1888张/fcolor=250>\'+ '|{cmd}<关闭/@exit>\'); end; procedure _leidian1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门雷电术'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (11) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _leidian2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门雷电术'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (11) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _leidian3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门雷电术'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (11) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _leidian4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门雷电术'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (11) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _leidian5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门雷电术'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (11) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _dun1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门魔法盾'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (31) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _dun2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门魔法盾'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (31) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _dun3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门魔法盾'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (31) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _dun4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门魔法盾'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (31) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _dun5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门魔法盾'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (31) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _huoqiang1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火墙'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (22) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _huoqiang2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火墙'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (22) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _huoqiang3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火墙'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (22) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _huoqiang4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火墙'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (22) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _huoqiang5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火墙'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (22) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _mietian1; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门灭天火'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (35) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _mietian2; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门灭天火'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (35) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _mietian3; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门灭天火'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (35) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _mietian4; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门灭天火'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (35) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _mietian5; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门灭天火'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (35) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _huoyu1; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门火雨'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (59) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _huoyu2; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门火雨'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (59) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _huoyu3; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门火雨'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (59) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _huoyu4; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门火雨'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (59) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _huoyu5; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门火雨'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (59) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _fenshen1; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门分身'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (42) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _fenshen2; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门分身'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (42) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _fenshen3; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门分身'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (42) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _fenshen4; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门分身'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (42) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _fenshen5; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门分身'; if (This_Player.HeroJob = 1) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (42) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _Dsyx; begin This_Npc.NpcDialog(This_Player, '|强化<道士英雄/c=red>技能：<确认好您当前等级,依次升级,书页数量为每次费用./fcolor=251>\ \'+ '|需要元宝:<技能1-5级分别对应10000 20000 30000 40000 50000 元宝/c=red>|\'+ '|<白日门施毒> <1级/@shidu1> <2级/@shidu2> <3级/@shidu3> <4级/@shidu4> <5级/@shidu5> <书页*588张/fcolor=250>\'+ '|<白日门火符> <1级/@huofu1> <2级/@huofu2> <3级/@huofu3> <4级/@huofu4> <5级/@huofu5> <书页*588张/fcolor=250>\'+ '|<白日门群疗> <1级/@qunliao1> <2级/@qunliao2> <3级/@qunliao3> <4级/@qunliao4> <5级/@qunliao5> <书页*588张/fcolor=250>\'+ '|<白日门真气> <1级/@zhenqi1> <2级/@zhenqi2> <3级/@zhenqi3> <4级/@zhenqi4> <5级/@zhenqi5> <书页*888张/fcolor=250>\'+ '|<白日门噬血> <1级/@shixue1> <2级/@shixue2> <3级/@shixue3> <4级/@shixue4> <5级/@shixue5> <书页*1288张/fcolor=250>\'+ '|<白日门月灵> <1级/@yueling1> <2级/@yueling2> <3级/@yueling3> <4级/@yueling4> <5级/@yueling5> <书页*1888张/fcolor=250>\'+ '|{cmd}<关闭/@exit>\'); end; procedure _shidu1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门施毒术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (6) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _shidu2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门施毒术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (6) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _shidu3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门施毒术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (6) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _shidu4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门施毒术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (6) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _shidu5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门施毒术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (6) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,10,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _huofu1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火符'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (13) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _huofu2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火符'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (13) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _huofu3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火符'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (13) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _huofu4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火符'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (13) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _huofu5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门火符'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (13) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,11,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _qunliao1; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门群疗'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (29) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _qunliao2; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门群疗'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (29) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _qunliao3; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门群疗'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (29) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _qunliao4; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门群疗'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (29) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _qunliao5; var symun , yxjnx1:Integer; sName :string; begin symun := 588; sName := '白日门群疗'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (29) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,12,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _zhenqi1; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门真气'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (36) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _zhenqi2; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门真气'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (36) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _zhenqi3; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门真气'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (36) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _zhenqi4; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门真气'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (36) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _zhenqi5; var symun , yxjnx1:Integer; sName :string; begin symun := 888; sName := '白日门真气'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (36) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,13,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _shixue1; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门噬血术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (48) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _shixue2; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门噬血术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (48) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _shixue3; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门噬血术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (48) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _shixue4; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门噬血术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (48) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _shixue5; var symun , yxjnx1:Integer; sName :string; begin symun := 1288; sName := '白日门噬血术'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (48) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,14,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure _yueling1; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门月灵'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (41) = 0) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(10000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,1);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<0级/c=red>！'); end; procedure _yueling2; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门月灵'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 20000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (41) = 1) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(20000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,2);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<1级/c=red>！'); end; procedure _yueling3; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门月灵'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 30000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (41) = 2) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(30000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,3);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<2级/c=red>！'); end; procedure _yueling4; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门月灵'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 40000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (41) = 3) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(40000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,4);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<3级/c=red>！'); end; procedure _yueling5; var symun , yxjnx1:Integer; sName :string; begin symun := 1888; sName := '白日门月灵'; if (This_Player.HeroJob = 2) and (This_Player.YBNum >= 50000) and (This_Player.GetBagItemCount('书页') >= symun) and (This_Player.CheckHeroSkill (41) = 4) then begin This_Player.Take('书页', symun); This_Player.ScriptRequestSubYBNum(50000); // This_Player.AddHeroSkillExp(sname, 2000000); // This_Player.UpgradeHeroSkillLv(sname); This_Player.UpgradeHeroSkilllv(sname); This_Player.SetV(184,15,5);//-------------------------- This_NPC.NpcNotice('恭喜【'+ This_Player.Name+'】将英雄'+sName+'提升一级！'); end else This_NPC.NpcDialog(This_Player, '<提升失败：'+sname+'/c=red>\ \|确认是否学习了本技能<并检查元宝/c=red>\ \|对不起，提升该技能需要<书页'+IntToStr(symun)+'张/c=red>！\ \|或你的' +sname+ '不是<4级/c=red>！'); end; procedure domain; begin case This_Player.Job of
0 : begin zhanshi; end; 1 : begin fashi; end; 2 : begin daoshi; end; end; end;
begin if GetG(191,1) < 0 then SetG(191,1,9); domain; end. |
最好有下载打包好的TXT文件~