红袖.txt

企业版传奇世界本

[@红袖]
{
#ACT
MOV S5 <color=purple[]
INC S5 $HUMAN(JZB)
INC S5 >
#SAY
啊，有贵客到来，欢迎光临。本店专营传奇世界个性饰品，\
种类繁多，价廉物美，定有一款适合你，快来挑选一下吧。\
不过，小店刚刚开张，购买的个性服务需要用元宝支付。\\
<元宝兑换极品修炼值/@兑换极品修炼值>　<购买金牌帐号/@购买金牌帐号>　<变更当前天关宝物/@天宝>\\
<游戏积分兑换游戏积分卷/@元宝兑换游戏积分>-方便游戏积分的流通交易\\
查看联系购买元宝，请<点这里冲值元宝/@冲值>　　<离开/@exit>

[@天宝]
#ACT
MOV S5 <COLOR=GREEN[]
INC S5 $HUMAN(TGM1)
INC S5 >[][]获得机率：<color=purple[]
INC S5 $HUMAN(TGX)
INC S5 >/<color=purple[]
INC S5 $HUMAN(TGS1)
INC S5 >
GOTO @显示天宝贝

[@显示天宝贝]
　　每个人的天关宝物是不同的，只有在里闯天关的时候才能获\
得它，同时也只有在你获得它之后，新的天关宝物才会随机出现\
！当然，如果你对你当前的天关宝物不满意，你还可以在我这里\
花费一定的游戏积分来变更它！<COLOR=GREEN 变更一次收费：50点游戏积分！>\\
　　当前你的天关宝物是：<$STR(S5)>\\
　　<我确定要变更我当前的天关天宝/@开始变更>　你当前游戏积分:<COLOR=GREEN [><$HUMAN(JFD)><COLOR=GREEN ]>点\
　　<返回上页/@main>

[@开始变更]
#IF
CHECKVAR HUMAN JFD > 49
#ACT
CALCVAR HUMAN JFD - 50
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 7 (*)你当前的天关宝物随机变更中...请等待3秒...
DELAY 2 @天宝
#CALL [\游戏功能\天关天宝.txt] @随机天宝
#SAY
　　每个人的天关宝物是不同的，只有在里闯天关的时候才能获\
得它，同时也只有在你获得它之后，新的天关宝物才会随机出现\
！当然，如果你对你当前的天关宝物不满意，你还可以在我这里\
花费一定的游戏积分来变更它！<COLOR=GREEN 变更一次收费：50点游戏积分！>\\
　　当前你的天关宝物是：<$STR(S5)>\\
　　你当前的天关宝物随机变更中...<COLOR=red 请等待3秒...>
#ELSESAY
进行天关宝物变更，需要支付50点游戏积分才能进入！\\
你现在<color=green 游戏积分不足50点>，不能进入！\\
游戏积分可以在游戏里屠杀各地BOSS获得，或者在天关中或红袖\
处用元宝换取！\
　　　　　　　　　　　　　　　　　　　　　　　　　　<返回/@main>

[@元宝兑换游戏积分]
“游戏积分”在游戏里很多地方有使用，如：法师购买宝宝，道\
士购买4、5级技能，进入暗神天空，变更天关宝物，购买BOSS卷\
轴等等！<color=green 游戏积分卷双击即可使用！>\
　游戏积分可以在游戏里屠杀BOSS、天关等地方获取！\
　为了方便游戏积分的流通，让玩家之间可以互相交易，你可以\
<color=green 把你的游戏积分在这里兑换成游戏积分卷拿去卖给其它玩家！>\\
　你当前游戏积分:[<$HUMAN(JFD)>]点　　<我要兑换3点游戏积分卷/@开始积分1>\
　　　　　　　　　　　　　　<我要兑换10点游戏积分卷/@开始积分2>\


[@开始积分1]
#IF
CHECKVAR HUMAN JFD > 2
#ACT
GIVE 游戏积分卷3 1
CALCVAR HUMAN JFD - 3
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 您使用:[3点游戏积分]兑换了:1个游戏积分卷3
goto @元宝兑换游戏积分
break
#ELSEACT
MessageBox 对不起，您的游戏积分不足3点，兑换失败。
break

[@开始积分2]
#IF
CHECKVAR HUMAN JFD > 9
#ACT
GIVE 游戏积分卷10 1
CALCVAR HUMAN JFD - 10
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 您使用:[10点游戏积分]兑换了:1个游戏积分卷10
goto @元宝兑换游戏积分
break
#ELSEACT
MessageBox 对不起，您的游戏积分不足10点，兑换失败。
break

[@4333]
“元宝”除了可以用于购买游戏道具，还可以兑换成<color=red 游戏积分>在\
游戏中使用！目前兑换比率是[<color=red 1:3>]。\\
　　<color=green 即1元宝 = 3点游戏积分>\\
　　你当前元宝:[<$GAMEGOLD>]个　　游戏积分:[<$HUMAN(JFD)>]点\\\
　　<我要开始兑换游戏积分/@开始游戏积分>　　　 <购买元宝/@冲值>　　　　　<返回上页/@main>

[@开始游戏积分]
#ACT
queryvalue 请输入你要用多少个元宝来兑换极品修炼值: 2 4 112
break

[@getstring112]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 3
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P1 1
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 1000
#ACT
MessageBox 对不起，你输入数量大于了1000个！请重新输入数字，数量不能超过1000个
break
#IF
CHECKGAMEGOLD > $STR(P1)
CHECKVAR HUMAN SCL > 0
#ACT
GAMEGOLD - $STR(P1)
CALCVAR HUMAN JFD + $human(SCL)
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 您使用:[<$STR(P1)>个元宝]兑换了:[<$human(SCL)>]点游戏积分
GOTO @元宝兑换游戏积分
break
#ELSEACT
MessageBox 对不起，您的元宝不足，兑换失败。


[@购买金牌帐号]
金牌帐号：价格=<COLOR=GREEN 2000个元宝>\\
1.购买金牌帐号后，可使用所有的VIP服务！\
2.拥有进入金牌练级地图和金牌打宝地图的权利！\
3.<COLOR=GREEN 第一次购买金牌帐号可获得奖励：游戏积分+3000点！>\
4.游戏中只要是需要英雄排名才能佩带的装备，都可以直接佩带！\
5.金牌帐号在炼狱和神狱地图内不减少金币！奖励<COLOR=GREEN 移动仓库>1个！\\
<立即购买金牌帐号/@立即购买>　　<冲值元宝/@冲值>　　<返回上页/@main>

[@立即购买]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\金牌帐号.txt
#ACT
MESSAGEBOX 你已经是金牌帐号了，请不要重复购买！
break
#IF
CHECKGAMEGOLD < 2000 
#ACT
messagebox 购买失败，你当前的元宝不足2000个！\元宝的获得方式：\在红袖处点冲值元宝，与我们客服联系购买！
break
#IF
CHECKVAR HUMAN VIP > 20
#ACT
GIVE 移动仓库 1
GAMEGOLD - 2000
CALCVAR HUMAN JFD + 3000
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
ADDNAMELIST ..\QuestDiary\数据文件\金牌帐号.txt
SENDMSG 0 [<$USERNAME>]花费[2000]个元宝在红袖处购买了金牌帐号！获得奖励“移动仓库”1个！
messagebox 恭喜你成功购买了金牌帐号！\从现在开始你可以使用金牌帐号服务了
break
close
#ELSEACT
GIVE 移动仓库 1
GAMEGOLD - 2000
CALCVAR HUMAN JFD + 3000
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
CALCVAR HUMAN VIP = 20
SAVEVAR HUMAN VIP ..\QuestDiary\数据文件\VIPSave.txt
ADDNAMELIST ..\QuestDiary\数据文件\金牌帐号.txt
SENDMSG 0 [<$USERNAME>]花费[2000]个元宝在红袖处购买了金牌帐号！获得奖励“移动仓库”1个！
messagebox 恭喜你成功购买了金牌帐号！\从现在开始你可以使用金牌帐号服务了
break
close

[@冲值]
#CALL [\游戏功能\冲值元宝.txt] @买元宝

[@兑换极品修炼值]
“元宝”除了可以用于购买游戏道具，还可以兑换成<color=red 极品修炼值>\
在游戏中使用！目前兑换比率是[<color=red 1:2000>]。\\
　　<color=green 即1元宝 = 2000点极品修炼值>\\
　　你当前元宝:[<$GAMEGOLD>]个　　极品修炼值:[<$JPPOINT>]点\\\
　　<我要开始兑换极品修炼值/@开始极品修炼值>　　　<购买元宝/@冲值>　　　　　<返回上页/@main>

[@开始极品修炼值]
#ACT
queryvalue 请输入你要用多少个元宝来兑换极品修炼值: 2 4 111
break

[@getstring111]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL P1 1
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 1000
#ACT
MessageBox 对不起，你输入数量大于了1000个！请重新输入数字，数量不能超过1000个
break
#IF
CHECKGAMEGOLD > $STR(P1)
CHECKVAR HUMAN SCL > 0
#ACT
GAMEGOLD - $STR(P1)
JPPOINT + $human(SCL)
SENDMSG 5 您使用:[<$STR(P1)>个元宝]兑换了:[<$human(SCL)>]点极品修炼值
GOTO @兑换极品修炼值
break
#ELSEACT
MessageBox 对不起，您的元宝不足，兑换失败。

}