用于战神引擎的新手礼包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.