战神引擎增加倍攻+暴击+爆率Npc脚本

用于战神引擎的增加倍攻+暴击+爆率Npc脚本，脚本牵扯了2份文件，是否要对应盘古上面对应的功能，需要自己核查，适合熟悉脚本的GM去添加使用。

战神引擎增加倍攻+暴击+爆率Npc脚本

部分脚本

program mir2;
var beigong , baoji ,baolv : integer;
{$I commonAbil.pas}
{$I MSG.pas}
procedure _exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _doexit;
begin
  This_Npc.CloseDialog(This_Player);
end;
function dengji(ZBid : integer) : string;
begin
    case ZBid of
0 : result := '';
1 : result := '护身戒指.Lv1';			
2 : result := '护身戒指.Lv2';
3 : result := '护身戒指.Lv3';
4 : result := '护身戒指.Lv4';
5 : result := '护身戒指.Max';
end;
end;
function yb(ZBid : integer) : string;
begin
    case ZBid of
1 : result := '500000';			
2 : result := '1000000';
3 : result := '0';
4 : result := '0';
5 : result := '0';
end;
end;
function jgs(ZBid : integer) : string;
begin
    case ZBid of
1 : result := '0';			
2 : result := '0';
3 : result := '1000';
4 : result := '3000';
5 : result := '5000';
end;
end;
procedure domain;
begin
	if  This_Player.GetV(54,1) >= 10 then begin  
    This_NPC.NpcDialog(This_Player,
	  '|< 焚天传奇 良心无坑 持续更新 长久稳定/fcolor=180>\'	
	 +'|<━━━━━━━━━━━━━━━━━━━━━━/fcolor=248>\'
	 +'|<10W元宝一次可随机增加各种状态,前期发展必备过了这个村可就没这个店啦！/fcolor=222>\'    
     +'|<增加倍功0.01-0.20倍/fcolor=249>^^<搞一搞倍攻/@beigong1>\' 
	 +'|<当前增加倍攻:/fcolor=243><0.'+inttostr(This_Player.GetV(54,1))+'/fcolor=243>\' 
	 +'|<增加爆击1%-20%/fcolor=249>^^<搞一搞爆击/@baoji1>\' 
	 +'|<当前增加爆击:/fcolor=243><'+inttostr(This_Player.GetV(54,2))+'%/fcolor=243>\' 
	 +'|<增加爆率5%-100%/fcolor=249>^^<搞一搞爆率/@baolv1>\' 
	 +'|<当前增加爆率:/fcolor=243><'+inttostr(This_Player.GetV(54,3)*5)+'%/fcolor=243>\'  
	 +'|<每天上午6点骰王争霸属性重置/fcolor=249>\'	 
	 +'|<三项均为最高则可激活永久属性/fcolor=248><激活永久属性/@yongjiu>\'		
	); 
	end else This_NPC.NpcDialog(This_Player,
	  '|< 焚天传奇 良心无坑 持续更新 长久稳定/fcolor=180>\'	
	 +'|<━━━━━━━━━━━━━━━━━━━━━━/fcolor=248>\'
	 +'|<10W元宝一次可随机增加各种状态,前期发展必备过了这个村可就没这个店啦！/fcolor=222>\'    
     +'|<增加倍功0.01-0.20倍/fcolor=249>^^<搞一搞倍攻/@beigong1>\' 
	 +'|<当前增加倍攻:/fcolor=243><0.0'+inttostr(This_Player.GetV(54,1))+'/fcolor=243>\' 
	 +'|<增加爆击1%-20%/fcolor=249>^^<搞一搞爆击/@baoji1>\' 
	 +'|<当前增加爆击:/fcolor=243><'+inttostr(This_Player.GetV(54,2))+'%/fcolor=243>\' 
	 +'|<增加爆率5%-100%/fcolor=249>^^<搞一搞爆率/@baolv1>\' 
	 +'|<当前增加爆率:/fcolor=243><'+inttostr(This_Player.GetV(54,3)*5)+'%/fcolor=243>\'  
	 +'|<每天上午6点骰王争霸属性重置/fcolor=249>\'	 
	 +'|<三项均为最高则可激活永久属性/fcolor=248><激活永久属性/@yongjiu>\'		
	); 
end;
procedure _yongjiu;
begin

分享到：

赞(3)