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

CHECKTEXTLIST ..\QuestDiary\10群宣传码.txt<$STR(S28)>

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