十转自定义Npc脚本(带对话框和称号素材)

用于战神引擎版本的十次转生脚本，已经把转生对应的称号素材还有NPC对话框头一起提取出来了，自定义对话框需要或者裤衩插件来支持，转生脚本牵扯到了2个额外的脚本文件，需要单独提取增加，不能支持覆盖到原先的里面去。
部分脚本

begin 
 if  This_Player.GetV(143,1) = 2 then 
begin
 if (This_Player.GetBagItemCount ('精力神石') >= 8)   and (This_Player.YBnum >= 10000) and (This_Player.Level >= 54) then
begin
        This_Player.Take('精力神石',8);
		This_Player.ScriptRequestSubYBNum(10000);		
		This_Player.SetV(143,1,3);	//设置转生等级
		This_Player.SetV(69,7,33);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+8));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+8));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+8));		//道术
      //  This_Player.SetV(41,8,(This_Player.GetV(41,8)+2));		//暴击	
		This_Player.SetV(144,2,3);	//设置转生等级		  
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了三转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;		
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成2转再来晋升3转！');
  end; 
procedure _4zhuan;
begin 
  if  This_Player.GetV(143,1) = 3 then 
begin
 if (This_Player.GetBagItemCount ('精力神石') >= 10)   and (This_Player.YBnum >= 15000) and (This_Player.Level >= 56) then
   begin
        This_Player.Take('精力神石',10);
		This_Player.ScriptRequestSubYBNum(15000);		
		This_Player.SetV(143,1,4);	//设置转生等级
		This_Player.SetV(69,7,34);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+10));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+10));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+10));		//道术
        This_Player.SetV(41,8,(This_Player.GetV(41,8)+1));		//暴击
		This_Player.SetV(144,2,4);	//设置转生等级			
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了四转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成3转再来晋升4转！');
  end; 
procedure _5zhuan;
begin 
  if  This_Player.GetV(143,1) = 4 then 
begin
 if (This_Player.GetBagItemCount ('精力神石') >= 15)   and (This_Player.YBnum >= 20000) and (This_Player.Level >= 58) then
begin
        This_Player.Take('精力神石',15);
		This_Player.ScriptRequestSubYBNum(20000);
		This_Player.SetV(143,1,5);	//设置转生等级
		This_Player.SetV(69,7,35);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+15));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+15));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+15));		//道术
        This_Player.SetV(41,8,(This_Player.GetV(41,8)+1));		//暴击
		This_Player.SetV(144,2,5);	//设置转生等级			
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了五转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成4转再来晋升5转！');	
  end; 
procedure _6zhuan;
begin 
 if  This_Player.GetV(143,1) = 5 then 
 begin
 if (This_Player.GetBagItemCount ('精力神石') >= 20)   and (This_Player.YBnum >= 30000) and (This_Player.Level >= 60) then
   begin
        This_Player.Take('精力神石',20);
		This_Player.ScriptRequestSubYBNum(30000);
		This_Player.SetV(143,1,6);	//设置转生等级
		This_Player.SetV(69,7,36);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+20));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+20));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+20));		//道术
        This_Player.SetV(41,8,(This_Player.GetV(41,8)+1));		//暴击	
		This_Player.SetV(144,2,6);	//设置转生等级			
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了六转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;		
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成5转再来晋升6转！');
  end;
procedure _7zhuan;
begin 
 if  This_Player.GetV(143,1) = 6 then 
begin
 if (This_Player.GetBagItemCount ('精力神石') >= 25)   and (This_Player.YBnum >= 50000) and (This_Player.Level >= 62) then
   begin
        This_Player.Take('精力神石',25);
		This_Player.ScriptRequestSubYBNum(50000);
		This_Player.SetV(143,1,7);	//设置转生等级
		This_Player.SetV(69,7,37);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+25));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+25));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+25));		//道术
        This_Player.SetV(41,8,(This_Player.GetV(41,8)+2));		//暴击	
		This_Player.SetV(144,2,7);	//设置转生等级			
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了七转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;		
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成6转再来晋升7转！');
  end;
procedure _8zhuan;
 begin 
  if  This_Player.GetV(143,1) = 7 then 
 begin
 if (This_Player.GetBagItemCount ('精力神石') >= 30)   and (This_Player.YBnum >= 70000) and (This_Player.Level >= 64) then
   begin
        This_Player.Take('精力神石',30);
		This_Player.ScriptRequestSubYBNum(70000);
		This_Player.SetV(143,1,8);	//设置转生等级
		This_Player.SetV(69,7,38);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+30));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+30));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+30));		//道术
        This_Player.SetV(41,8,(This_Player.GetV(41,8)+3));		//暴击
		This_Player.SetV(144,2,8);	//设置转生等级			
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了八转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;		
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成7转再来晋升8转！');
  end; 
procedure _9zhuan;
begin 
  if  This_Player.GetV(143,1) = 8 then 
begin
 if (This_Player.GetBagItemCount ('精力神石') >= 40)   and (This_Player.YBnum >= 100000) and (This_Player.Level >= 66) then
   begin
        This_Player.Take('精力神石',40);
		This_Player.ScriptRequestSubYBNum(100000);
		This_Player.SetV(143,1,9);	//设置转生等级
		This_Player.SetV(69,7,39);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+35));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+35));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+35));		//道术
        This_Player.SetV(41,8,(This_Player.GetV(41,8)+5));		//暴击	
		This_Player.SetV(144,2,9);	//设置转生等级			
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了九转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;		
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成8转再来晋升9转！');
  end;  
procedure _10zhuan;
begin 
  if  This_Player.GetV(143,1) <> 10 then 
begin 
  if  This_Player.GetV(143,1) = 9 then 
begin
 if (This_Player.GetBagItemCount ('精力神石') >= 45)   and (This_Player.YBnum >= 150000) and (This_Player.Level >= 68) then
   begin
        This_Player.Take('精力神石',45);
		This_Player.ScriptRequestSubYBNum(150000);
		This_Player.SetV(143,1,10);	//设置转生等级
		This_Player.SetV(69,7,40);  //设置转生封号
		This_Player.SetV(42,5,(This_Player.GetV(42,5)+50));     //攻击
		This_Player.SetV(25,5,(This_Player.GetV(25,5)+50));     //魔法
		This_Player.SetV(27,5,(This_Player.GetV(27,5)+50));		//道术
        This_Player.SetV(41,8,(This_Player.GetV(41,8)+8));		//暴击	
		This_Player.SetV(144,2,10);	//设置转生等级			
        ServerSay('玩家【' + This_Player.Name + '】在土城完成了十转！', 2);				
		TZJH_NPC;
		givefenghao;
		domain;		
    end else
	 This_NPC.InputDialog(This_Player,'                     你材料或等级不足！',1,100); 
    end else
        This_NPC.NpcDialog(This_Player,
		'请完成9转再来晋升10转！');
    end else 
	 This_NPC.InputDialog(This_Player,'               你当前十转，无需转身了！',1,100);	 
  end;  
procedure P100;
begin
end;
begin
	domain;
end.
分享到：
赞(0)