点卡脚本怎么实现?
点卡脚本怎么实现啊 ?有什么点卡生成工具吗?
(@@InPutString @@InPutInteger )
[@main]
<点击输入推广码/@@InPutInteger5>\
卡号属于一次性的！领取以后就会失效！\
[@InPutInteger5]
#IF
CheckTextList .\QuestDiary\推广系统\推广卡号列表.txt <$STR(N5)>
#act
DelTextList .\QuestDiary\推广系统\推广卡号列表.txt <$STR(N5)>
MOV S10 玩家账号:
MOV S11 输入的卡:
MOV S12 --
AddTextList .\QuestDiary\推广系统\领取名单.txt <$STR(S10)> <$USERID> <$STR(S12)> <$STR(S11)> <$STR(N5)>
give 勇者项链 1
give 无畏项链 1
give 苍生项链 1
SENDMSG 0 -------------------------------------------
SENDMSG 0 恭喜玩家[%s]成功领取了奖励物品
SENDMSG 0 -------------------------------------------
close
#elsesay
您的输入的推广码:<$STR(N5)> 不对! \ \ \
<返回/@main>
页:
[1]