狂暴之力自定义Npc脚本和对话框素材

用于战神引擎登陆器插件的狂暴之力自定义Npc脚本和素材，普通版的狂暴之力脚本之前就更新了，今天帮主把自定义的分享出来，你们要使用演示视频一样的效果，客户端必须要安装了或者裤衩其中一个登陆器插件才行，默认原版的不支持。

狂暴之力自定义Npc脚本和对话框素材

部分脚本

{$I fh.pas}
{$I gaojishuxing.pas}
procedure _Exit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end; 
procedure doMain; 
begin
	This_NPC.NpcDialog(This_Player, 
'Bg:xk:0|'+
'Exit:duihuakuang:4:4:700:75|'+
'1:Text:420:70:30:狂暴之力@215|'+
'1:Spr:xk:1:10:430:450:0.1:0.8|'+
'1:Text:430:450:36:杀【'+inttostr(this_player.GetV(111,12))+'】@249|'+
'1:Text:420:120:24:十步杀一人.千里不留行@215|'+
'1:Text:420:150:24:【神力属性】爆率+50%.爆击+5%！@251|'+
'1:Text:420:180:24:【神力属性】人物爆率+20%.人物防爆+20%！@251|'+
'1:Text:420:210:24:【神力属性】一键回收元宝+50%！@251|'+
'1:Text:420:210:24:【击杀玩家】击杀开启狂暴之力的玩家可获得2灵符奖励@249|'+
'1:Text:180:300:24:【学习费用】5灵符@215|'+
'1:Text:185:330:24:【神力时间】无限制@251|'+
'1:Text:198:360:24:【属性消失】被杀消失@253|'+
'1:Btn:duihuakuang:41:680:450:@fhup|'+
'1:Text:680:450:18:狂暴晋级@254|'+
'1:Btn:duihuakuang:41:160:450:@ONBuff~1|'+
'1:Text:160:450:18:开启狂暴@254|'+
'1:Btn:duihuakuang:41:420:550:@NewA|'+
'1:Text:420:550:18:领取奖励@254|'+
	'|{cmd} </@ONBuff~1> </@NewA> </@fhup> </@qip> </@liup> </@wup> </@sip> </@sanp> </@erp> </@yip> </@wanf> </@maxp> </@hecheng> </@chakan> '
	);	
end;
procedure _fhup;
begin
	This_NPC.NpcDialog(This_Player, 
'Bg:xk:0|'+
'Exit:duihuakuang:4:4:700:75|'+
'1:Text:420:70:30:狂暴之力@215|'+
'1:Spr:xk:1:10:430:450:0.1:0.8|'+
'1:Text:430:450:36:杀【'+inttostr(this_player.GetV(111,12))+'】@249|'+
'1:Text:420:120:20:【狂暴之王】累计击杀50名狂暴玩家，奖励永久攻击20点,死亡不掉@215|'+
'1:Text:420:150:20:【狂暴之尊】累计击杀100名狂暴玩家,奖励永久攻击50点,死亡不掉@251|'+
'1:Text:420:180:20:【狂暴之神】累计击杀200名狂暴玩家,奖励永久攻击100点,死亡不掉@251|'+
'1:Text:420:210:24:【击杀玩家】击杀开启狂暴之力的玩家可获得2灵符奖励@249|'+
'1:Text:420:240:24:【注】称号获得过后可随意切换,加成属性按当前佩戴称号计算。@249|'+
'1:Btn:duihuakuang:41:680:450:@kbzz|'+
'1:Text:680:450:16:晋升狂暴之尊@254|'+
'1:Btn:duihuakuang:41:160:450:@kbzw|'+
'1:Text:160:450:16:晋升狂暴之王@254|'+
'1:Btn:duihuakuang:41:420:550:@kbzs|'+
'1:Text:420:550:18:晋升狂暴之神@254|'+
	'|{cmd} </@kbzw> </@kbzz> </@kbzs> </@qip> </@liup> </@wup> </@sip> </@sanp> </@erp> </@yip> </@wanf> </@maxp> </@hecheng> </@chakan> '
	);	
end;
procedure _kbzw;
begin
if this_player.GetV(111,10) >= 50  then
begin
if this_player.GetV(111,12) >= 50  then
	begin
	  This_player.SetV(42,9,20);
	  This_player.SetV(111,13,1);
	  This_player.SetV(69,1,21);
      This_Npc.NpcDialog(This_Player,
   '成功领取狂暴之王称号，永久攻击+20！'
   );
    end else
     This_Npc.NpcDialog(This_Player,
   '击杀狂暴玩家数未达到。'
   ); 
    end else
     This_Npc.NpcDialog(This_Player,
   '请先开启狂暴状态。'
   ); 
TZJH_NPC;
givefenghao;
end;
procedure _kbzz;
begin
if this_player.GetV(111,10) >= 50  then
begin
if this_player.GetV(111,12) >= 100  then
	begin
	  This_player.SetV(42,9,50);
	  This_player.SetV(111,13,2);
	  This_player.SetV(69,1,22);
      This_Npc.NpcDialog(This_Player,
   '成功领取狂暴之尊称号，永久攻击+50！'
   );
    end else
     This_Npc.NpcDialog(This_Player,
   '击杀狂暴玩家数未达到。'
   );
    end else
     This_Npc.NpcDialog(This_Player,
   '请先开启狂暴状态。'
   );    
TZJH_NPC;
givefenghao;
end;
procedure _kbzs;
begin
if this_player.GetV(111,10) >= 50  then
begin
if this_player.GetV(111,12) >= 200  then
	begin
	  This_player.SetV(42,9,100);
	  This_player.SetV(111,13,3);
	  This_player.SetV(69,1,23);
      This_Npc.NpcDialog(This_Player,
   '成功领取狂暴之神称号，永久攻击+100！'
   );
    end else
     This_Npc.NpcDialog(This_Player,
   '击杀狂暴玩家数未达到。'
   );
    end else
     This_Npc.NpcDialog(This_Player,
   '请先开启狂暴状态。'
   );    
TZJH_NPC;
givefenghao;
end;

分享到：

赞(1)