用于战神引擎礼包领取Npc脚本，相比之前更新的礼包脚本，这个脚本采用变量记录，不需要单独调用oen文件夹里面的txt文本，脚本是明文版的，可以任意修改里面领取的奖品和领取码，脚本最大的特色就是带了自动喊话功能。

部分脚本

program Mir2;
{$I TaoZhuang.pas}
var
shuru : string;
procedure xianshi; 
var Num_dl : integer;
str1 :string;
begin
This_DB.ExecuteQuery('SELECT agentid FROM mir3.user_index WHERE '+//判断
	'ChrName= "'+This_Player.Name+'";');
Num_dl := StrToIntDef(This_DB.PsFieldByName('agentid'),0);
str1 := '|<礼包码：789/FCOLOR=250>'
if Num_dl <> 753 then begin
str1 := '|<本服QQ：1078080188/FCOLOR=250>|<QQ1078080188/FCOLOR=251>'
end;
  This_Npc.NpcDialog(This_Player,
    '欢迎来到这里,有一份超级大礼请笑纳!'
   +'|< 加群领取礼包码!/FCOLOR=58>'+str1
   +'|<礼包码：789/FCOLOR=250>'
   +'|<测试期间新人送一张500充值卡，土城（游戏兑换）自己兑换/FCOLOR=250>'
   +'|{cmd}<领奖礼物/@Libaoma>\'
   );
 //  end else
 //  begin
 //  This_Npc.NpcDialog(This_Player,
 //   '功能暂未开放。'
 //);  
 //  end;
end;
procedure Execute;
var
BookCanyon_div,BookCanyon_mod,tempNow , tempTime :integer;
pigRdm ,pigX , pigY,i :integer;
pigStr : string;
begin
   //战争地图
   tempNow := GetDateNum(GetNow) * 10000 +(GetHour * 100) + (GetMin);
   tempTime := tempNow mod 10000;
if GetG(36,40) <> tempNow then begin