充值领取NPC脚本如下:
[@main]
<10元充值领取/@奖励10> <50元充值领取/@奖励50> <100元充值领取/@奖励100> <500元充值领取/@奖励500>
[@奖励10]
尊敬的玩家,感谢您对布衣传说所做的贡献!\ \ \
请输入<宣传码/@@InputString1
>领取奖励\ \
<关闭/@EXIT>
[@InputString1]
#IF
CheckStringlength S1 = 8
#ACT
GOTO @领奖励10
#ELSESAY
您输入的宣传码不正确
[@领奖励10]
#IF
CHECKTEXTLIST ..\QuestDiary\10元充值领取\未领取宣传码.txt S1
#ACT
GIVE 100元宝
SENDMSG 1 提示:恭喜【<$USERNAME>】领取宣传礼包,快人一步走向人生巅峰!想领取快去群里联系管理员吧!
DelTextList ..\QuestDiary\10元充值领取\未领取宣传码.txt S1
AddTextList ..\QuestDiary\10元充值领取\已领取宣传码.txt S1
AddTextList ..\QuestDiary\10元充值领取\领取日志.txt <$DATETIME> <$USERID>_<$str(S1)>
close
#ELSESAY
您输入的宣传码不正确或已被使用
[@奖励50]
{
尊敬的玩家,感谢您对布衣传说所做的贡献!\ \ \
请输入<宣传码/@@InputString1
>领取奖励\ \
<关闭/@EXIT>
[@InputString1]
#IF
CheckStringlength S1 = 8
#ACT
GOTO @领奖励50
#ELSESAY
您输入的宣传码不正确
[@领奖励50]
#IF
CHECKTEXTLIST ..\QuestDiary\50元充值领取\未领取宣传码.txt S1
#ACT
GIVE 100元宝
SENDMSG 1 提示:恭喜【<$USERNAME>】领取宣传礼包,快人一步走向人生巅峰!想领取快去群里联系管理员吧!
DelTextList ..\QuestDiary\50元充值领取\未领取宣传码.txt S1
AddTextList ..\QuestDiary\50元充值领取\已领取宣传码.txt S1
AddTextList ..\QuestDiary\50元充值领取\领取日志.txt <$DATETIME> <$USERID>_<$str(S1)>
close
#ELSESAY
您输入的宣传码不正确或已被使用
[@奖励100]
{
尊敬的玩家,感谢您对布衣传说所做的贡献!\ \ \
请输入<宣传码/@@InputString1
>领取奖励\ \
<关闭/@EXIT>
[@InputString1]
#IF
CheckStringlength S1 = 8
#ACT
GOTO @领奖励100
#ELSESAY
您输入的宣传码不正确
[@领奖励100]
#IF
CHECKTEXTLIST ..\QuestDiary\100元充值领取\未领取宣传码.txt S1
#ACT
GIVE 100元宝
SENDMSG 1 提示:恭喜【<$USERNAME>】领取宣传礼包,快人一步走向人生巅峰!想领取快去群里联系管理员吧!
DelTextList ..\QuestDiary\100元充值领取\未领取宣传码.txt S1
AddTextList ..\QuestDiary\100元充值领取\已领取宣传码.txt S1
AddTextList ..\QuestDiary\100元充值领取\领取日志.txt <$DATETIME> <$USERID>_<$str(S1)>
close
#ELSESAY
您输入的宣传码不正确或已被使用
[@奖励500]
{
尊敬的玩家,感谢您对布衣传说所做的贡献!\ \ \
请输入<宣传码/@@InputString1
>领取奖励\ \
<关闭/@EXIT>
[@InputString1]
#IF
CheckStringlength S1 = 8
#ACT
GOTO @领奖励500
#ELSESAY
您输入的宣传码不正确
[@领奖励500]
#IF
CHECKTEXTLIST ..\QuestDiary\500元充值领取\未领取宣传码.txt S1
#ACT
GIVE 100元宝
SENDMSG 1 提示:恭喜【<$USERNAME>】领取宣传礼包,快人一步走向人生巅峰!想领取快去群里联系管理员吧!
DelTextList ..\QuestDiary\500元充值领取\未领取宣传码.txt S1
AddTextList ..\QuestDiary\500元充值领取\已领取宣传码.txt S1
AddTextList ..\QuestDiary\500元充值领取\领取日志.txt <$DATETIME> <$USERID>_<$str(S1)>
close
#ELSESAY
您输入的宣传码不正确或已被使用
|