GOM引擎每个玩家限制领取一次的礼包脚本

[@main]
#if
#act
CloseBigDialogBox
#say
< ><-------------------------------------------------------------/scolor=13>\
< ><无比例.官网是唯一充值渠道/SCOLOR=249>\
< ><领取礼包方式：加群228382580向群管理索要激活码/AUTOCOLOR=70,150>\
< ><一个礼包码送20万金币-高级传送卡1张-随机传送石1个-盟重回城石1个/SCOLOR=250>\
< ><一个礼包码送在线回收-超级魔法药1个-超级金创药1个/SCOLOR=250>\
< ><本服更新内容或者开区时间都在官网公告发布/SCOLOR=250>\
<---------------------------------------------------------------------/scolor=13>\
<      >        <宣传礼包/@@InPutString28>


[@InPutString28]
#IF
CheckTextList ..\QuestDiary\领取机器码.txt <$MACHINEID>
#ACT
MESSAGEBOX 你已经领取了奖励，一个机器只限领取一次
BREAK


#IF
CHECKTEXTLIST ..\QuestDiary\10群宣传码.txt  <$STR(S28)>
#ACT
AddTextList ..\QuestDiary\领取机器码.txt <$MACHINEID>
give 金币 200000
GiveStateItem 高级地图传送卡 1 1 0 0 1 1 0 1
GiveStateItem 盟重传送石 1 1 0 0 1 1 0 1
GiveStateItem 随机传送石 1 1 0 0 1 1 0 1
GiveStateItem 超级金创药 1 1 0 0 1 1 0 5
GiveStateItem 超级魔法药 1 1 0 0 1 1 0 5
GiveStateItem 在线回收 1 1 0 0 1 1 0 1
DELTEXTLIST ..\QuestDiary\10群宣传码.txt  <$STR(S28)>
SENDMSG 7 领取成功：您获得群奖励，20万金币-高级传送卡1张-随机传送石1个-盟重回城石1个
SENDMSG 0 [『<$USERNAME>』完成群推广，获得20万金币-高级传送卡1张-随机传送石1个-盟重回城石1个
GOTO @11111输
#ELSEACT
SENDMSG 7 您输入的推广码不正确或已被他人使用，请重新输入！
GOTO @main