兑换码兑换系统

红鹰支付6s98

;说明-请在QuestDiary\数据文件\ 下建立一个 兑换码.txt 文本 里面可随意输入数字 字母 一行可兑换一次
;movr N12 100 1000 可以更改 奖励元宝的数量 目前是抽取100-1000之间的数量 可以更改为最低1000 最高10000 例：movr N12 1000 10000
;无聊开发的娱乐脚本适合架设家族娱乐F的时候使用
;YB也可以改成其他的 装备 技能等
[@main]
#if
isadmin
#say
\           <提示:输入CDKEY,领取奖励.> \
\               <请输入您要兑换的CDKEY/@@InPutString20>  <清除数据/@清除>\
\  \
\       <注意：每个CDKEY仅可以兑换一次，使用过将作废.>\
\  \
\   <一共有><$STR(G10)><位玩家兑换成功.>  <共兑换元宝数量:><$STR(G11)> \
\  \
\ 提示:每个CDKEY可随机兑换100-1000元宝.   <关闭对话[url=]/@EXIT>\[/url]
#elsesay
\           <提示:输入CDKEY,领取奖励.> \
\               <请输入您要兑换的CDKEY/@@InPutString20>\
\  \
\       <注意：每个CDKEY仅可以兑换一次，使用过将作废.>\
\  \
\   <一共有><$STR(G10)><位玩家兑换成功.>  <共兑换元宝数量:><$STR(G11)> \
\  \
\ 提示:每个CDKEY可随机兑换100-1000元宝.   <关闭对话[url=]/@EXIT>\[/url]
[@@InPutString20]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<.........>       \
\            \
\                请稍后.\
#act
DelayCall 300 @a
[@a]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<............>       \
\            \
\                请稍后.\
#act
DelayCall 300 @aa
[@aa]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<...............>       \
\            \
\                请稍后.\
#act
DelayCall 300 @aaa
[@aaa]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<..................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @aaaa
[@aaaa]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<.....................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @aaaaa
[@aaaaa]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<........................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @ab
[@ab]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<...........................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @abb
[@abb]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<..............................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @abbb
[@abbb]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<.................................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @abbbb
[@abbbb]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<....................................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @abc
[@abc]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<.......................................>       \
\            \
\                请稍后.\
#act
DelayCall 300 @abcc
[@abcc]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\<..........................................>\
\            \
\                请稍后.\
#act
DelayCall 300 @abccc
[@abccc]
#if
#say
\            \
\            \
\      交易正在处理中...\
\            \
\................................................       \
\            \
\                请稍后.\
#act
DelayCall 300 @abcd
[@abcd]
#if
CheckTextList .\QuestDiary\数据文件\兑换码.txt <$str(s20)>
#act
goto @奖励
DelTextList .\QuestDiary\数据文件\兑换码.txt <$str(s20)>
#elseact
MESSAGEBOX 提示:\CDKEY码已经失效,请确认后再使用.
goto @main
break
[@奖励]
#ACT
movr N12 100 1000
GuildNoticeMsg 245 0 公告:恭喜(%s)使用CDKEY兑换(<$STR(N12)>)元宝成功.
GAMEGOLD + <$STR(N12)>
MESSAGEBOX 提示:\恭喜您兑换成功!\您此次使用的CDKEY兑换码为:<$str(s20)>\兑换的物品是<$STR(N12)>元宝.\欢迎下次使用.
INC G10 1
INC G11 <$STR(N12)>
goto @main
break
[@清除]
#if
isadmin
#act
mov G10 0
mov G11 0
MESSAGEBOX 提示:数据清理完毕.
#elseact
MESSAGEBOX 提示:您不是管理员,不能使用此功能.
break
- 本文出自红鹰gm论坛，原文地址：http://www.whsfzx.com/thread-19392-1-1.html