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

用于战神引擎版本的狂暴之力Npc脚本和自定义对话框素材，自定义NPC素材和狂暴之力的素材帮主都已经提取出来了，要支持这2个素材必须要使用了2.0/3.0登录器插件，当然裤衩也是支持的，默认的战神客户端不支持，脚本牵扯到了另外2份文件，需要自己单独添加，版本来自纵横火龙。不会的记得备份以后在添加试试，脚本方便帮主不是很精通。

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

部分脚本

{$I fh.pas}
{$I gaojishuxing.pas}
procedure _Exit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end; 
procedure doMain; 
begin 
  if This_Player.GetV(5,1) = -1 then 
begin 
 This_Player.SetV(5,1,0);
 end;
  if This_Player.GetV(5,2) = -1 then 
begin 
 This_Player.SetV(5,2,0);
 end;
This_Npc.NpcDialog(This_Player,
'Bg:kuangbao:0|'+
'Exit:kuangbao:7:7:490:55|'+	
'1:Spr:kuangbao:1:6:250:230:0.08:0.8|'+
'1:Text:250:110:20:狂暴被人击杀消失，杀狂暴可直接获得10000元宝@250|'+
'1:Text:90:316:14:2万元宝@249|'+	
'1:Text:90:335:14:被人击杀狂暴消失@250|'+
'1:Text:415:316:14:暴击+5%@249|'+	
'1:Text:415:335:14:爆率防爆属性+6%@250|'+	
'1:Btn:kuangbao:8:250:330:@ONBuff~1:20:160|'+
'1:Text:250:363:16:友情提示：狂暴属性配合高级装备效果更佳@244|'+
'|{cmd}</@ONBuff~1>'	
);
end;
procedure _ONBuff(gotostr:string);
var num: Integer;
begin		
	if This_Player.GetV(111,10) > 0 then
	begin
    This_Player.PlayerNotice('你已有狂暴之力，无需重复开启！',2);	
	end else
	if strtoint(gotostr) = 1 then
    begin
      if This_Player.YBNum >= 20000 then  	
		 begin
			This_Player.ScriptRequestSubYBNum(20000);  							
			This_Player.SetV(111,10,50);
			This_Player.AddPlayerAbil(46,5,65530);
			This_Player.SetV(1,2,6);
			This_Player.SetV(1,3,6);
			This_Player.SetV(69,1,20);
			givefenghao;
			ServerSay('狂暴系统：玩家【' + This_Player.Name + '】开启了狂暴之力.生人请勿靠近！',2); 	
		    end else
			This_Player.PlayerDialog('你元宝不足，开启狂暴需要20000元宝');
	end;	
end;
begin
 if This_Player.GetV(111,10) = -1 then This_Player.SetV(111,10,0);
 if This_Player.GetV(111,11) = -1 then This_Player.SetV(111,11,0); //新出生玩家变量是-1，这边给他归0，不然他杀了一个人以后，变量还是0
	doMain;
end.

分享到：

赞(1)