战神引擎高级技能合成+书页回收元宝Npc脚本

用于战神引擎的战神引擎高级技能合成NPC脚本，这种NPC脚本网站上也更新了好几个，但是今天这个增加了一个回收书页得元宝的功能，这个对玩家来说，比较方便，因为很多版本都没有书页回收的功能，玩家打到多余的书页，要么丢掉，要么摆摊，今天这个可以直接回收，脚本是明文版的，可以任何修改里面的合成条件和书页回收所得元宝。

部分脚本

procedure _6; 
begin
if (This_Player.YBNum >= 10000) and (This_Player.GetBagItemCount('书页') >= 500) then
begin
This_Player.ScriptRequestSubYBNum(10000);
This_Player.Take('书页' , 500);
This_Player.Give('灭天火' , 1);  //给与物品 
ServerSay('玛法大陆忽然风云色变，玩家★'+ This_Player.Name+'★在盟重成功锻造出了★灭天火★，大家可以前往膜拜！',3);
end else  //检测提示 
begin
This_Npc.NpcDialog(This_Player,
'合成材料不足，需要10000元宝+500书页。 '+ 	  '|{cmd}<【返回】/@main>	<【关闭】/@doexit>\');
end ;
end ;
procedure _5; 
begin
	if (This_Player.GetBagItemCount('书页') >= 1) then
	begin
	This_Player.Take('书页' , 1);
	This_Player.ScriptRequestAddYBNum(5);
	end;
	if (This_Player.GetBagItemCount('书页') >= 1) then
	begin
	This_Player.Take('书页' , 1);
	This_Player.ScriptRequestAddYBNum(5);
	end;
	if (This_Player.GetBagItemCount('书页') >= 1) then
	begin
	This_Player.Take('书页' , 1);
	This_Player.ScriptRequestAddYBNum(5);
	end;
	if (This_Player.GetBagItemCount('书页') >= 1) then
	begin
	This_Player.Take('书页' , 1);
	This_Player.ScriptRequestAddYBNum(5);
	end;
	if (This_Player.GetBagItemCount('书页') >= 1) then
	begin
	This_Player.Take('书页' , 1);
	This_Player.ScriptRequestAddYBNum(5);
	end;	
	if (This_Player.GetBagItemCount('书页') >= 1) then
	begin
	This_Player.Take('书页' , 1);
	This_Player.ScriptRequestAddYBNum(5);
	end;
	if (This_Player.GetBagItemCount('书页') >= 1) then
	begin
	This_Player.Take('书页' , 1);
	This_Player.ScriptRequestAddYBNum(5);
	end;	
end;
begin
    This_Npc.NpcDialog( This_Player,
	'|<════════><昔日传奇/c=243><═══════>|\'+
    '|<【开 天 斩】:/fcolor=red>\< 10000元宝+书页*500/fcolor=250>\'+
    '|<【灭 天 火】:/fcolor=red>\< 10000元宝+书页*500/fcolor=250>\'+	
	'|<【流星火雨】:/fcolor=red>\< 10000元宝+书页*500/fcolor=252>\'+
	'|<【噬 血 术】:/fcolor=red>\< 10000元宝+书页*500/fcolor=253>\'+
	'|<【无极真气】:/fcolor=red>\< 10000元宝+书页*500/fcolor=242>|\'+
	'|<════════><强化技能/@7><═══════>\'+
    '|{cmd}<开 天 斩/@1>  ^<流星火雨/@2>  <灭 天 火/@6>\'+
    '|{cmd}<无极真气/@3>  ^<噬 血 术/@4>'+
    '|{cmd}<多余书页回收，每张5元宝/@5>'	
    );
end.

分享到：

赞(0)