卡密兑换物品脚本

(@@InPutString)
[@main]
#if
#act
#say
\ \ \ \ \
<              /SCOLOR=0><邀请10名游戏玩家进群免费赠送月卡一张(价值100元)！！/SCOLOR=250>\
\
\ \ \
<              /SCOLOR=0><背包神器*1+罗门币*1万/SCOLOR=249>   <ItemShow:1770:1:0:-20:1>  <输入卡密|249#卡密兑换/@@InPutString40>\ \ \
<              /SCOLOR=0><唯一赞助物品，用来维护服务器成本。(白嫖杀2000只怪送背包雪豹！)/SCOLOR=250>\


\ \

[@InPutString40]


#IF
CHECKTEXTLIST ..\..\..\..\兑换码数据\宣传未使用兑换码.txt <$STR(S40)>
#act
AddTextListEx ..\..\..\..\兑换码数据\使用宣传记录.txt <$DATETIME>-<$SERVERNAME>-【<$USERNAME>】使用兑换码：<$STR(S40)> 0
DELTEXTLIST ..\..\..\..\兑换码数据\宣传未使用兑换码.txt <$STR(S40)>
Give 芝士雪豹 1
GameGird + 10000
MESSAGEBOX \\兑换码使用成功。
#elseact
Goto @100元
break




[@100元]


#IF
CHECKTEXTLIST ..\..\..\..\兑换码数据\100元未使用兑换码.txt <$STR(S40)>
#act
AddTextListEx ..\..\..\..\兑换码数据\100元使用记录.txt <$DATETIME>-<$SERVERNAME>-【<$USERNAME>】使用兑换码：<$STR(S40)> 0
DELTEXTLIST ..\..\..\..\兑换码数据\100元未使用兑换码.txt <$STR(S40)>
Give 芝士雪豹 10
GameGird + 100000
MESSAGEBOX \\兑换码使用成功。
#elseact
Goto @月卡
break


[@月卡]
#if
CHECKTEXTLIST ..\..\..\..\兑换码数据\月卡使用记录.txt <$STR(S40)>
#act
MESSAGEBOX 提示:您已经领取过了无法重复领取
break


#IF
CHECKTEXTLIST ..\..\..\..\兑换码数据\月卡.txt <$STR(S40)>
#ACT
AddTextListEx ..\..\..\..\兑换码数据\月卡使用记录.txt <$STR(S40)>
Give 芝士雪豹 1
GameGird + 10000
MESSAGEBOX \\兑换码使用成功。
#elseact
MESSAGEBOX \\不能重复领取哦,或兑换码无效。
break