用于战神引擎的玩家领取礼包Npc脚本，教程使用的是自定义对话框，帮主把脚本文件、素材文件、礼包储存文件都提取出来了，你们添加的时候，记得把素材放到对应的路径，就可以了，礼包码是储存在txt文件里面，可以自由生成修改。

部分脚本

procedure _ling8; 
begin    
        This_NPC.InputDialog(This_Player,'请输入公测码',0,203) ;
end;
procedure p203;
var
shuru : string;
begin
    shuru := This_Npc.InputStr;
	if This_NPC.ChkStrInFile('\libao\libaoma.txt',shuru)=true then
	begin	      
	if This_Player.Level >= 60 then  //and ( This_Player.FreeBagNum >= 3 )
	begin
	if This_Player.GetV(700,1) < 1 then
    begin
        This_Player.MyShengwan := This_Player.MyShengwan + 2000;
        This_Player.SetV(700,1,1);		
		ServerSayPlus('★★★恭喜 『 ' + This_Player.Name + ' 』   获得新人礼包！★★★');	
		end else
		begin
		This_Player.PlayerNotice('您已经领取过礼包！',2);
		end;
		end else
		begin
		This_Player.PlayerNotice('等级不足60级。',2);
		end;
	end else
	begin
	   This_NPC.NpcDialog(This_Player,'礼包码输入错误！\\');
    end;
  end;
begin
domain;	
end.