战神引擎全区发邮件Npc脚本(发送物品给玩家)

用于战神引擎的全区发邮NPC脚本，脚本我烈阳做的，单文件，直接添加到NPC上就可以使用，只有GM权限才能进入后台设置发送的物品名称、数量等，普通玩家只能领取，非常的适合给玩家发放福利等。

部分脚本

program Mir2;
var MailTitl,MailCont,CreateTime:String;
MailType,MonyCount,MonyType,InpNum:integer;
ItemInfo:Array[1..6] of string;
InfoNums:Array[1..6] of integer;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure P100;
begin
end;
procedure _Fsmail;
var ite:integer;
begin
     if MailTitl = '' then MailTitl:='点击输入';
	 if MailCont = '' then MailCont:='点击输入';
	 MailType:=1;
	 if MonyCount = -1 then MonyCount:=0;
	 if MonyType = -1 then MonyType:=0;
	 if CreateTime = '' then CreateTime:='是';
	 for ite:=1 to 6 do
	 begin
	 if ItemInfo[ite] = '' then ItemInfo[ite]:='点击输入';
	 end;
	 for ite:=1 to 6 do
	 begin
	 if InfoNums[ite] = -1 then InfoNums[ite]:=0;
	 end;
     This_Npc.NpcDialog(This_Player,
	 '<邮件标题：/fcolor=168><'+MailTitl+'/@mail~7>|'+
	 '<邮件内容：/fcolor=168><'+MailCont+'/@mail~8>|'+
	 '<附加货币：/fcolor=7>货币[<'+inttostr(MonyType)+'/@MType>]            数量[<'+inttostr(MonyCount)+'/@mail~9>]|'+
	 '<时间显示：/fcolor=7>                 [<'+CreateTime+'/@CgTime>]|'+
	 '<一号物品：/fcolor=22><'+ItemInfo[1]+'/@mail~1>^   数量[<'+inttostr(InfoNums[1])+'/@mail~11>]|'+
	 '<二号物品：/fcolor=22><'+ItemInfo[2]+'/@mail~2>^   数量[<'+inttostr(InfoNums[2])+'/@mail~12>]|'+
	 '<三号物品：/fcolor=22><'+ItemInfo[3]+'/@mail~3>^   数量[<'+inttostr(InfoNums[3])+'/@mail~13>]|'+
	 '<四号物品：/fcolor=22><'+ItemInfo[4]+'/@mail~4>^   数量[<'+inttostr(InfoNums[4])+'/@mail~14>]|'+
	 '<五号物品：/fcolor=22><'+ItemInfo[5]+'/@mail~5>^   数量[<'+inttostr(InfoNums[5])+'/@mail~15>]|'+
	 '<五号物品：/fcolor=22><'+ItemInfo[6]+'/@mail~6>^   数量[<'+inttostr(InfoNums[6])+'/@mail~16>]|'+
	 '<━━━━━━━━━━━━━━━━━━━━/fcolor=248>|'+
	 '附加货币<0/fcolor=251>为金币,<1/fcolor=250>为元宝|'+
	 '<━━━━━━━━━━━━━━━━━━━━/fcolor=248>|'+
	 '{cmd}<点击发送/@StarMail><清空内容/@ClearMail><返回主页/@main>');
end;
procedure _ClearMail;
var ite:integer;
begin
     MailTitl:='';
	 MailCont:='';
	 MonyCount:=-1;
	 MonyType:=-1;
	 CreateTime:='';
	 for ite:=1 to 6 do
	 begin
	 ItemInfo[ite]:='';
	 end;
	 for ite:=1 to 6 do
	 begin
	 InfoNums[ite]:=-1;
	 end;
	 _Fsmail;
end;
procedure _mail(mstr:string);

分享到：

赞(0)