用于战神引擎的新手礼包npc脚本,脚本是明文版的,gm可以根据自己的要求,任意修改礼包里面的礼品内容,还有领取码,脚本文件是单文件版本,使用起来也是非常的方便,直接把文件放到脚本文件夹,然后把NPC信息添加到NPC脚本文件即可。文件有一份用来储存礼包领取码的文件,放在D:\Mud2.0\Mir200\Envir下面。

部分脚本
program mir2;
procedure _youjian;
begin
This_NPC.InputDialog(This_Player,'请输入推广密钥',0,123) ;
end;
procedure p123;
begin
if This_NPC.InputOK then
begin
if This_Npc.ChkStrInFile('推广码1.txt', This_NPC.InputStr) = true then //检测文档是否有该推广码
This_NPC.NpcDialog(This_Player,'推广码错误,或已使用!' +'{cmd}<返回/@main>') ;
end;
end;
procedure jxyb1;
begin
if This_Npc.ChkStrInFile('推广人员1.txt', This_Player.Name) = False then //检测该玩家名字是否在此文本 False=否
begin
if This_Player.FreeBagNum >= 5 then //检测该玩家背包是否有3个及以上空格
begin
if This_Npc.ChkStrInFile('推广码1.txt', This_NPC.InputStr) = true then //防刷,再次检测文档是否有该推广码 true=是
begin
This_Player.GiveBindItem('小通灵珠',1);
This_Player.GiveBindItem('一介封魔卷',1);
This_Player.PlayerNotice('[声望]:增加100点,当前声望:['+inttostr(This_Player.MyShengwan)+']点!',2);
ServerSay('恭喜玩家<' + This_Player.Name + '>获得了群推广大礼包,请继续努力哦!', 1);
This_NPC.NpcDialog(This_Player,
'恭喜:你获得推广礼包!' );
end else
This_NPC.NpcDialog(This_Player,'推广码有误,请重新输入。');
end else
This_NPC.NpcDialog(This_Player,'背包请留出5个空格');
end else
This_NPC.NpcDialog(This_Player,'你已经领取过一次奖励了!无法领取');
end;
//================================================================无限领取说明
{
// 以上内容为玩家只能领取一次奖励 如果要无限领取奖励只需要添加 4 个 // 即可,位置如下
if This_Npc.ChkStrInFile('5元推广人员.txt', This_Player.Name) = False then //检测该玩家名字是否在此文本 False=否
begin
end else
This_NPC.NpcDialog(This_Player,'你已经领取过一次奖励了!无法领取');
找到对应的地方直接最前面添加 // 即可,如果再不会 建议你找块豆腐,干啥你应该清楚
}
//================================================================无限领取说明
begin
This_Npc.NpcDialog(This_Player,
'|<> <◇/fcolor=70><品/fcolor=69><牌/fcolor=68><好/fcolor=67><服/fcolor=131><◇/fcolor=94><通/fcolor=149><灵/fcolor=149><传/fcolor=149><奇/fcolor=149><◇/fcolor=94><独/fcolor=131><家/fcolor=67><手/fcolor=68><游/fcolor=69><◇/fcolor=70>|\'
+'|<【关注奖励】>:<一介封魔卷 * 1/fcolor=254>|\'
+'<【关注有礼】>: 不定期公众哈留言抽奖|\'
+'<【领取密码】>: <输入:666666/fcolor=243>|\'
+'<【更多福利】>: 请联系客服咨询|\'
+'|{cmd}<领取奖励/@youjian> ^<关闭此页/@exit> |\ \'
);
end.








