九级技能强化/技能升级Npc脚本(可升Lv9带后台)

用于战神引擎的技能强化、技能升级脚本，脚本带了GM后台设置，可以设置技能等级，从4-9都可以，要使用GM后台设置技能等级之前，必须要先升级为超级GM才行，否则不会显示gm后台这四个字。脚本经过帮主亲自测试，可以升级到九级，但是不是真的有效果还是只是显示效果，这个需要消耗大量的时间去测试。你们自己来。脚本应该需要配合盘古插件，具体的看脚本里面的写法。

部分脚本

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);
   end else 
   jnxxx1 := 0;
   
if This_Player.GetSkillLevelExt('火墙',false) > 0 then
   begin
   jnxxx2 := This_Player.GetSkillLevelExt('火墙',false);
  end else
  jnxxx2 := 0;
  
if This_Player.GetSkillLevelExt('魔法盾',false) > 0 then
   begin
   jnxxx3 := This_Player.GetSkillLevelExt('魔法盾',false);
  end else
  jnxxx3 := 0;
if This_Player.GetSkillLevelExt('地狱雷光',false) > 0 then
   begin
   jnxxx4 := This_Player.GetSkillLevelExt('地狱雷光',false);
  end else
  jnxxx4 := 0;
if This_Player.GetSkillLevelExt('冰咆哮',false) > 0 then
   begin
   jnxxx5 := This_Player.GetSkillLevelExt('冰咆哮',false);
  end else
  jnxxx5 := 0;
if This_Player.GetSkillLevelExt('灭天火',false) > 0 then
   begin
   jnxxx6 := This_Player.GetSkillLevelExt('灭天火',false);
  end else
  jnxxx6 := 0;
if This_Player.GetSkillLevelExt('流星火雨',false) > 0 then
   begin
   jnxxx7 := This_Player.GetSkillLevelExt('流星火雨',false);
  end else
  jnxxx7 := 0;  
if This_Player.GMLevel >= 5 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+'      ^<关闭此页/@exit>\' 	);	
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;

分享到：

赞(0)