传奇一条龙,私服服务端,骗子举报

标题: 兑换码兑换系统 [打印本页]

作者: 红鹰支付6s98 时间: 2014-4-5 09:37
标题: 兑换码兑换系统
;说明-请在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

欢迎光临传奇一条龙,私服服务端,骗子举报 (https://www.923sc.com/)