GOM引擎卡密兑换脚本-卡密兑换后自动删除

[@main]
这里是会员兑换系统,输入卡密,即可兑换.\ \
<兑换周卡/@@InPutString10>  <兑换月卡/@@InPutString11>  <兑换年卡/@@InPutString12>


[@InPutString10]
#IF
CHECKTEXTLIST ..\..\..\..\会员卡密\周卡.txt <$STR(S10)>
#ACT
DELTEXTLIST ..\..\..\..\会员卡密\周卡.txt <$STR(S10)>
give 周卡 1
SENDMSG 5 提示：你成功兑换了周卡！
GOTO @MAIN
#ELSEACT
MESSAGEBOX 您的卡密错误,请重新输入.
GOTO @MAIN

[@InPutString11]
#IF
CHECKTEXTLIST ..\..\..\..\会员卡密\月卡.txt <$STR(S11)>
#ACT
DELTEXTLIST ..\..\..\..\会员卡密\月卡.txt <$STR(S11)>
give 月卡 1
SENDMSG 5 提示：你成功兑换了月卡！
GOTO @MAIN
#ELSEACT
MESSAGEBOX 您的卡密错误,请重新输入.
GOTO @MAIN


[@InPutString12]
#IF
CHECKTEXTLIST ..\..\..\..\会员卡密\年卡.txt <$STR(S12)>
#ACT
DELTEXTLIST ..\..\..\..\会员卡密\年卡.txt <$STR(S12)>
give 年卡 1
SENDMSG 5 提示：你成功兑换了年卡！
GOTO @MAIN
#ELSEACT
MESSAGEBOX 您的卡密错误,请重新输入.
GOTO @MAIN


卡号生成网站可以使用在线生成  https://kami.omq.cc/