GOM引擎加微信兑换礼包脚本

(@@InPutString)

[@main]
#if
#act
OPENMERCHANTBIGDLG  22 207  3 4 0 -80 1 380 65
#say
\ \
\ \
\ \
\ \
\ \
　　<欢迎来到【<$SERVERNAME>】！/SCOLOR=151>\
　　一个游戏能做到长久稳定和每个玩家是分不开的关系，\
　　我们在此处制作了微信客服咨询平台。\
　　如果你觉得本游戏好玩，用1分钟时间对我们游戏做1个宣传\
　　每天晚上22:30沙巴克结束的时间我们会在QQ群公告的最下方发布一组\　　{CDKEY/AUTOCOLOR=254,251,168,191,250,70,245,249,253}兑换码\
　　提示:每个{CDKEY/AUTOCOLOR=254,251,168,191,250,70,245,249,253}可以领取1-100元现金奖励\
　　并且每天下午19:00QQ群内不定时发放红包！\
　　每天我们还会抽3名幸运玩家，获得600元豪华充值大礼！\
　　关注每日QQ群活动哦 \
　　<注意：每个>{CDKEY/AUTOCOLOR=254,251,168,191,250,70,245,249,253}<仅可以兑换一次，使用过将作废.>\
<>                                        <请输入您的CDKEY兑换码/@@InPutString6> \



[@查看]
#IF
#ACT
OpenWebSite


[@InPutString6]
#if
CheckTextList ..\QuestDiary\数据文件\兑换码.txt <$STR(S6)>
#act
DelTextList ..\QuestDiary\数据文件\兑换码.txt <$STR(S6)>
AddTextList ..\QuestDiary\数据文件\兑换记录.txt 游戏名:<$USERNAME>兑换码:<$STR(S6)>时间:<$DATETIME>
goto @奖励
#elseact
MOV S6 无
MESSAGEBOX 提示:\CDKEY错误,请确认后再使用.
goto @main
break

[@奖励]
#if
#ACT
movr N12 1 50
GuildNoticeMsg 245 0 公告:恭喜(%s)使用CDKEY兑换(<$STR(N12)>)元人民币奖励成功.
GuildNoticeMsg 245 0 公告:恭喜(%s)使用CDKEY兑换(<$STR(N12)>)元人民币奖励成功.
GamePoint + <$STR(N12)>
MESSAGEBOX 提示:\恭喜您兑换成功!\您此次使用的CDKEY为:<$STR(S6)>\兑换的金额是<$STR(N12)>元.\欢迎下次使用.
MOV S6
goto @main
break

传奇服务端