用于战神引擎的自定义元宝领取Npc脚本，脚本上面可以显示元宝比例、今日充值、累计充值、领取元宝等功能，这个自定义NPC素材放了3个文件夹，你们在添加的时候，不要直接覆盖，需要单独通过脚本里面给出的素材文件，单独提取对应的素材文件才行。

部分脚本

program Mir2;
var
sum:Integer;
sum1:Integer;
sum2:Integer;
sum3:Integer;
sum4:Integer;
sum6:Integer;
sum7:Integer;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;

Procedure _GetYB;
var
d2,d3 : integer;
s1 , td : double;
begin
s1 := GetNow;
d2 := This_Player.GetS(23,1);
td := ConvertDBToDateTime(d2);
d3 := minusDataTime(s1,td);
if (d3 >= 300) or (This_Player.GetS(23,2) < 3) then
begin
This_Player.QueryAwardCode(This_Player.Name);
This_Npc.CloseDialog(This_Player);

end else
This_Npc.NpcDialog(This_Player,
'你操作太快，连续领取3次没有成功，将锁定5分钟！请' + inttostr(300 - d3) + '秒后再次尝试！'
);
end;

Procedure _YB;
var
num: integer;
begin
num := This_Player.GetS(23,2);
This_Npc.NpcDialog(This_Player,
'当前充值' + inttostr(num) + '元宝！'
);
end;

//前坐标数值越大往右
//后坐标数值越小往上

procedure domain;
var mei ,  czs , d2 , today: integer;
begin
today := GetDateNum(GetNow);
if This_Player.GetV(99,98) <> today then
begin
This_Player.SetV(99,98,today);
This_Player.SetV(99,99,0);
d2 := This_Player.GetS(23,1);
mei := This_Player.getV(99,99);
czs := This_Player.getV(88,88);
end else
d2 := This_Player.GetS(23,1);
mei := This_Player.getV(99,99);
czs := This_Player.getV(88,88);
This_Npc.NpcDialog(This_Player,