战神手游三职业技能升级Lv6(六级技能)

用于战神引擎版本的技能升级为6级脚本，脚本支持三职业，升级以后，在人物技能信息栏里面确实会显示Lv6，但是不是有额外的技能攻击加成，这个没有深入测试，估计是有，脚本是从暗黑火龙里面提取的，改版本使用了3.1登陆器插件，之前技能升级的脚本只能升级到四级，就上不去了，这个经过测试可以。但是不是用到了盘古和3.1插件，需要你们自己研究。

部分脚本

program mir2;
{$I common.pas}
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
  function YB_NewComeBag(price, num: Integer):boolean; //YB_NewComeBag为自定义回调函数名称，其余参数为固定格式 ，不可以改变 
begin
   result := true; 
end;  
procedure _18;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 1999 )  and ( This_Player.GetBagItemCount('光芒道戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,2000,1); 
This_Player.Take('书页',10);
This_Player.Take('光芒道戒',1);
This_Player.Give('白日门噬血术', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _17;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 1999 )  and ( This_Player.GetBagItemCount('烈焰魔戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,2000,1); 
This_Player.Take('书页',10);
This_Player.Take('烈焰魔戒',1);
This_Player.Give('白日门火雨', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _15;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 500 )  and ( This_Player.GetBagItemCount('光芒道戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('光芒道戒',1);
This_Player.Give('噬血术', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _14;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 1000 )  and ( This_Player.GetBagItemCount('烈焰魔戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,1000,1); 
This_Player.Take('书页',10);
This_Player.Take('烈焰魔戒',1);
This_Player.Give('流星火雨', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _13;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 499 )  and ( This_Player.GetBagItemCount('雷霆战戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,1000,1); 
This_Player.Take('书页',10);
This_Player.Take('雷霆战戒',1);
This_Player.Give('白日门逐日', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _113;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 1000 )  and ( This_Player.GetBagItemCount('雷霆战戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,1000,1); 
This_Player.Take('书页',10);
This_Player.Take('雷霆战戒',1);
This_Player.Give('逐日剑法', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _1133;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 1000 )  and ( This_Player.GetBagItemCount('雷霆战戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,1000,1); 
This_Player.Take('书页',10);
This_Player.Take('雷霆战戒',1);
This_Player.Give('开天斩', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end;
procedure _10;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 1000 )  and ( This_Player.GetBagItemCount('光芒道戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,1000,1); 
This_Player.Take('书页',10);
This_Player.Take('光芒道戒',1);
This_Player.Give('无极真气', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _7;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 500 )  and ( This_Player.GetBagItemCount('烈焰魔戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('烈焰魔戒',1);
This_Player.Give('灭天火', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _6;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 1000 )  and ( This_Player.GetBagItemCount('雷霆战戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,1000,1); 
This_Player.Take('书页',10);
This_Player.Take('雷霆战戒',1);
This_Player.Give('开天斩', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _5;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 499 )  and ( This_Player.GetBagItemCount('光芒道戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('光芒道戒',1);
This_Player.Give('白日门真气', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _4;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 499 )  and ( This_Player.GetBagItemCount('光芒道戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('光芒道戒',1);
This_Player.Give('白日门月灵', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _3;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 499 )  and ( This_Player.GetBagItemCount('烈焰魔戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('烈焰魔戒',1);
This_Player.Give('分身术', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _2;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 499 )  and ( This_Player.GetBagItemCount('烈焰魔戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('烈焰魔戒',1);
This_Player.Give('白日门灭天火', 1);
  end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _1;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 499 )  and ( This_Player.GetBagItemCount('雷霆战戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('雷霆战戒',1);
This_Player.Give('白日门开天斩', 1);
end else
This_Npc.NpcDialog(This_Player,
     '哎呀，你没有达到条件啊！');
end; 
procedure _yeman;                         
begin
if ( This_Player.GetBagItemCount('书页') >= 10 ) and ( This_Player.YBNum >= 500 )  and ( This_Player.GetBagItemCount('雷霆战戒') >= 1 ) then 
begin
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,500,1); 
This_Player.Take('书页',10);
This_Player.Take('雷霆战戒',1);
This_Player.Give('野蛮冲撞', 1);
end else

分享到：

赞(0)