等级突破Npc脚本(战神引擎直接用材料升级)

用于战神引擎的手游等级突破脚本，功能主要是玩家在游戏里面已经无法通过任何方式提升等级了，那么可以借助等级突破NPC来实现等级，你们在使用的时候，记得注意2个地方，第一：版本里面已经有了限制最高等级，要高于脚本里面的的突破等级，否则突破后会还原，第二就是突破的材料，你们记得把脚本里面修改成对应的。

部分脚本

program Mir2;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _99;
if This_Player.GetBagItemCount('130级极限令') >= 1 then
begin
This_Player.Take('130级极限令' , 1);
This_Player.ScriptRequestSubYBNum(50000); 
This_Player.SetV(25,5,1);
This_NPC.NpcDialog(This_Player,
        '突破成功，等级上限变更为130！！！');
end else
This_Npc.NpcDialog(This_Player,
'你没有130级极限令！。');
end else
This_Npc.NpcDialog(This_Player,
'你的等级不足');
end;
procedure _2;
begin
if This_Player.Level >= 130 then
begin
if This_Player.GetV(25,5) = 1 then
begin
if This_Player.YBNum >= 100000 then
begin
if This_Player.GetBagItemCount('135级极限令') >= 1 then
        '突破成功，等级上限变更为135！！！');
end else
This_Npc.NpcDialog(This_Player,
'你没有135级极限令！。');
end else
This_Npc.NpcDialog(This_Player,
'你的元宝不足100000！。');
end else
This_Npc.NpcDialog(This_Player,
procedure _tpyq;
begin
This_Npc.NpcDialog( This_Player,
    +'|<突破125级需要：等级125级，5万元宝以及130级极限令。/c=150>\'
    +'|<突破130级需要：等级130级，10万元宝以及135级极限令。/c=151>\'
    );
end;
procedure _hecheng;
begin
This_Npc.NpcDialog( This_Player,
 +'|<温馨提示：所有极限令都可以直接爆出！/c=150>\'
  +'|<130级极限令/c=100>  <合成/@hecheng1>|<需要:(130极限碎片*20+【3万元宝】)/c=135>\' 
 + '|<135级极限令/c=100>  <合成/@hecheng2>|<需要:(135极限碎片*40+【6万元宝】)/c=135>\' 
    );
end;
procedure _hecheng1; 
begin
if  This_Player.FreeBagNum >= 1 then
begin
This_Player.ScriptRequestSubYBNum(30000); 
This_Player.Take('130极限碎片' , 20);
This_Player.Give('130级极限令' , 1);  //给与物品
This_Player.PlayerDialog(
              '合成成功！！\'); 
ServerSay('玩家<' + This_Player.Name + '>合成了【130级极限令】，大家恭喜他 ！ ', 5);
end else
begin
This_Npc.NpcDialog(This_Player,
'包裹不足1个空格！！  ');
end ;
end else
begin
This_Npc.NpcDialog(This_Player,
'130极限碎片*20不足！！！  ');
end ;
end ;
procedure _hecheng2; 
begin
if This_Player.GetBagItemCount('135极限碎片')   >= 40 then    //检测物品
This_Player.Take('135极限碎片' , 40);
This_Player.Give('135级极限令' , 1);  //给与物品
This_Player.PlayerDialog(
              '合成成功！！\'); 
ServerSay('玩家<' + This_Player.Name + '>合成了【135级极限令】，大家恭喜他 ！ ', 5);
end else
begin
This_Npc.NpcDialog(This_Player,
'包裹不足1个空格！！  ');
end ;
end else
begin
This_Npc.NpcDialog(This_Player,
'元宝不足！！！  ');
end ;
end else
begin
This_Npc.NpcDialog(This_Player,
'135极限碎片*40不足！！！  ');
end ;
end ;
function dengjixz(Zlv : integer) : integer;
end;
begin
if This_Player.GetV(25,5) < 1 then
begin
       This_Npc.NpcDialog( This_Player,
    +'欢迎来到【<夜雨傳奇/fcolor=243>】 <等级突破/fcolor=250>\'	
   +'|<─────────────────────>\' 
   +'|<突破要求><【等级125另外需要突破令】/fcolor=241>\'
   +'|<当前等级限制><【125】/fcolor=240>\'
      +'|<─────────────────────>\' 
   +'|<突破令合成/@hecheng>  <查看突破要求/@tpyq>  \'
  +'|{cmd}<突破125级限制-最高等级限制到达130级/@1>\'
  +'|{cmd}<突破130级限制-最高等级限制到达135级/@2>\'
    );
	end else
	begin
	       This_Npc.NpcDialog( This_Player,
    +'欢迎来到【<夜雨傳奇/fcolor=243>】 <等级突破/fcolor=250>\'	
   +'|<─────────────────────>\' 
   +'|<突破要求><【等级125另外需要突破令】/fcolor=241>\'
  +'|<突破令合成/@hecheng>  <查看突破要求/@tpyq>  \'
   +'|<当前等级限制><【' + inttostr(dengjixz(This_Player.GetV(25,5))) + '】/fcolor=240>\'
  +'|{cmd}<突破125级限制-最高等级限制到达130级/@1>\'
  +'|{cmd}<突破130级限制-最高等级限制到达135级/@2>\'
    );
	end;
end.

分享到：

赞(0)