用于战神引擎红名狂暴Npc脚本，直接花元宝给别的玩家上红名功能，这个功能比较有意思，只要有元宝，可以给任意玩家上红名功能。脚本是单文件的，明文版，可以任意修改脚本使用元宝的数量。

部分脚本

program mir2; 	// NPC脚本 需以此行开头
const ybNum = 500; //需要元宝
procedure _exit;	// 调用此方法对话框会被关闭
begin
	This_Npc.CloseDialog(This_Player); // 执行此代码对话框会被关闭
end; 
//----------------------------开始写代码---------------------------//
procedure domain;
begin
	This_Npc.NpcDialog(This_Player,
	'<给你要PK的玩家上红名,500元宝1次/fcolor=222>'+	
	'|<自己解除红名,500元宝1次/fcolor=253>'+		
	'|{cmd}<进行诅咒/@inputName> ^<我想想在来/@exit>'+
	'|{cmd}<我来解释诅咒/@decPkpoint>'
	);
end;
procedure _decPkpoint;
begin
	if This_Player.GetV(15,35) > 0 then
	begin
		if This_Player.YBNum >= ybNum then
		begin
		This_Player.SetV(15,35,-1);
		This_Player.ScriptRequestSubYBNum(ybNum);
		This_Player.DecPkpoint(This_Player.MyPKpoint);
		This_Npc.NpcDialog(This_Player,'你的诅咒已被解除~');
		end
		else
		This_Npc.NpcDialog(This_Player,'对不起你没有'+inttostr(ybNum)+'元宝~')
	end
	else
	This_Npc.NpcDialog(This_Player,'你没有被诅咒啊~');
end;