战神引擎输入兑换码 兑换礼品NPC脚本

可以在游戏里设置一个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.