可以在游戏里设置一个NPC，加群获取兑换码，增加人气~

该脚本默认验证码为：666888

脚本如下：

program mir2; 

{$I fh.pas}




procedure _exit;

begin

This_Npc.CloseDialog(This_Player);

end; 




procedure DoMain;

var x,y:integer;

begin

x:= random(100);

y:= random(100);

This_Player.SetV(66,66,666888);

This_Npc.NpcDialog(This_Player,

'|             <2/fcolor=254> <0/fcolor=251> <2/fcolor=180> <1/fcolor=42> <独/fcolor=254> <家/fcolor=250> <传/fcolor=70> <奇/fcolor=244> <版/fcolor=249> <本/fcolor=253>|\'+

   '|           <人送我外号> <：/fcolor=254>  <老板/fcolor=250>\'+

   '|           <看在你叫我老板的份上，送你一个兑换码> <：/fcolor=254>  <666888/fcolor=244>|\'+

   '|    <可以兑换我私藏带宝物：/fcolor=150><赠送的东西,赠送的东西,赠送的东西，赠送的东西><各一份/fcolor=150>\'

  +'|{cmd}<输入兑换码领礼物/@codeinput>');




end;




procedure _codeinput; 

begin    

        This_NPC.InputDialog(This_Player,'请输入礼包兑换码',0,711) ;

end;




procedure p711;

var

num:integer;

begin

num :=  StrToIntDef(This_NPC.InputStr,-1);//输入非阿拉伯数字的字符都返回-1

if This_NPC.InputOK  then             

    begin

        if num = This_Player.GetV(66,66) then 

begin

This_Player.Give('赠送的东西',1);

This_Player.Give('赠送的东西',1);

This_Player.Give('赠送的东西',1);

This_Player.Give('赠送的东西',1);

This_NPC.NpcDialog(This_Player,

'|验证成功');

end else

This_NPC.NpcDialog(This_Player,

'您已经获得了奖励,无法重复领取,或激活码错误');

    end




 end; 

   

 begin

  domain;

end.
声明：
1：本站内容如若侵犯到您的权益，请联系我们，我们会第一时间删除！联系：12225150@qq.com。
2：使用本站资源需要您有一定的技术基础，否则将无法使用，如果你没有相关技术知识，请勿下载，虚拟物品，概不退换。
3：本站游戏资源不保证代码的完整性，不保证游戏无BUG，要求完美者请勿下载。
4：本站所有资源标价皆是资源本身的价格，不包含任何技术服务！要包技术服务的价格肯定是不一样的。
5：本站资源旨在为全网技术爱好者或游戏开发人员提供游戏素材，方便您作为技术研究或开发学习等用途，请勿商用。
6：本站资源非您个人定制，所以里面的游戏玩法，游戏画面以及游戏设定，装备掉落，金币等游戏初始值可能都不是您期望的效果，您需要自行研究修改完善，或找专业人员按您的想法定制。