芝麻哥！ 我想实现新手卡脚本！求教！
芝麻哥！ 我想实现新手卡脚本！求教！就是说实现 凭着特殊号 能从NPC那里领取东西！
这个特殊号仅能使用一次！
(@@InPutString @@InPutInteger )
[@main]
#IF
CHECKIPLIST ..\QuestDiary\推广系统\IP.txt
#act
messagebox 您的IP已经参与过本活动了！\
#ELSESAY
<点击输入推广码/@@InPutInteger5>\
卡号属于一次性的！领取以后就会失效！\
[@InPutInteger5]
#IF
CheckTextList .\QuestDiary\推广系统\推广卡号列表.txt <$STR(N5)>
#act
addIPLIST ..\QuestDiary\推广系统\IP.txt
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
give 风舞袍 1
give 风舞链 1
give 风舞镯 2
give 风舞戒 2
give 风舞靴 1
give 风舞带 1
give 100万经验丹 1
give 四倍经验卷 1
give 幸运宝石(20%) 1
SENDMSG 0 -------------------------------------------
SENDMSG 0 恭喜玩家[%s]成功领取了奖励物品
SENDMSG 0 -------------------------------------------
close
#IF
CheckTextList .\QuestDiary\推广系统\推广牛号列表.txt <$STR(N5)>
#act
addIPLIST ..\QuestDiary\推广系统\IP.txt
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
give 风舞袍 1
give 风舞链 1
give 风舞镯 2
give 风舞戒 2
give 风舞靴 1
give 风舞带 1
give 100万经验丹 1
give 四倍经验卷 1
give 幸运宝石(20%) 1
SENDMSG 0 -------------------------------------------
SENDMSG 0 恭喜玩家[%s]成功领取了奖励物品
SENDMSG 0 -------------------------------------------
close
#elsesay
您的输入的推广码:<$STR(N5)> 不对! \ \ \
<返回/@main>
这个你参考一下
\QuestDiary\推广系统\推广卡号列表.tx
里面自己输入卡号 一行一个
页:
[1]