GOM引擎卡密兑换脚本-卡密兑换后自动删除
https://www.buluobbs.com/data/attachment/forum/202605/25/181315lga2aiz2ibb22qtf.jpg
[@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/
页:
[1]