传奇世界中州轮回使者(2)

[@元神身上]
#IF
CHECKONLINE $YSNAME
#ELSEACT
MessageBox 请先将元神释放出来，才能使用本功能！
break
#IF
CHECKGOLD 200000
#ACT
TAKE 金币 200000
HCALL $YSNAME @元神取勋章
break
#ELSEACT
SENDMSG 5 你身上没有20万金币，不能摘取元神的勋章！
break

[@狮子魔]
　　想骑狮子吗？现在你只需要花费<COLOR=GREEN 200个元宝>即可在我这里\
购买到一个狮魔石，使用狮魔石后便可以驯养天狮兽了！\\
　　<购买一块狮魔石/@购买狮子>\\
　　<返回上页/@main>

[@购买狮子]
#IF
CHECKGAMEGOLD > 199
#ACT
GAMEGOLD - 200
GIVE 狮魔石 1
CALCVAR HUMAN 消费 + 200
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 5 您使用:[200个元宝]购买了:1块狮魔石
MessageBox 您使用:[200个元宝]购买了:1块狮魔石
#ELSEACT
MessageBox 对不起，您的元宝不足，购买失败。

[@buy]
请选择你想买的元宝商品。\\
<商品清单/@buy>\
<返　回/@main>\\
本商店商品购买，全部需要<COLOR=red 元宝支付>！

[@buy]
请选择你想买的元宝商品。\\\
<返　回/@main>\\
本商店商品购买，全部需要<COLOR=red 元宝支付>！

[goods]
幽冥项链 20 10

[newgoods]
152 圣灵宝石 100000
193 灵皓石 1000
100 三魂石 100
102 七魄石 100
150 圣灵精华 100
104 四级强化骷髅术 500
106 五级强化骷髅术 900
146 打工积分卷5 10
116 火晶石(大) 900
126 冰月石(大) 900
134 水云石(大) 900
118 圣甲石(大) 1000
136 魔咒石(大) 1000
120 圣甲宝石 1600
128 魔甲宝石 1600
122 青木宝石 1600
130 紫心宝石 1600
138 魔咒宝石 1600
140 天地宝石 1600
124 荣誉勋章53号 600
132 荣誉勋章54号 600
142 荣誉勋章55号 600
144 声望令牌(四十) 80
148 金砖 10
166 强化攻杀二重 600
168 强化攻杀三重 600
170 强化攻杀四重 600
172 强化攻杀五重 600
176 强化火球二重 600
178 强化火球三重 600
180 强化火球四重 600
182 强化火球五重 600
186 强化施毒二重 600
188 强化施毒三重 600
190 强化施毒四重 600
192 强化施毒五重 600
14 坐骑(青牛) 300
15 坐骑(火龙) 300
16 坐骑(火麒麟) 300
17 坐骑(神龙) 300
18 坐骑(圣火麒麟) 300
19 坐骑(超级神龙) 300
25 怒斩天下 1000
26 天怒惊雷 1000
27 天女散花咒 1000
28 迷光烈焰 1000
29 火毒攻心剑 1000
30 神之召唤 1000

[@积分23]
　　游戏积分可以在游戏中通过多种方式获得，比如<color=0X9ACD32 使用元宝在>\
<color=0X9ACD32 商城购买道具>，在线时间超过30分钟可以免费领取一定数量积分\
，参加各种活动如：<color=0X9ACD32 救公主、天关、众神考验活动>等都有可能获\
得不同数量的积分！\\
　　拥有积分后可以到我这里购买一些特别的道具和服务！\\
　　<进入积分购物/@进入购买>　　<返回上页/@main>

[@进入购买]
游戏积分目前可以购买以下一些服务和道具：\\
　　<color=0X9ACD32 你当前的积分数量是:><$HUMAN(JFD)>点\\
　　购买<极品修炼值/@极品修炼值>　单价50点=1点积分\\
　　购买<行会经验值/@行会经验>　单价2000点=1点积分\\
　　　　<返回上页/@main>

[@极品修炼值]
#ACT
queryvalue 请输入你要用多少点积分来换取[极品修炼值]: 2 7 8816
break

[@getstring8816]
#ACT
Getstring s1
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 50
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVAR HUMAN SCL < 1
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
CHECKVAR HUMAN JFD > $STR(s1)
#ACT
CALCVAR HUMAN JFD - $STR(s1)
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
JPPOINT + $human(SCL)
SENDMSG 5 您使用:[<$STR(S1)>积分]购买了:[<$human(SCL)>点]极品修炼值
goto @进入购买
#ELSEACT
MessageBox 对不起，您的游戏积分不足，购买失败。

;===========================================================

[@行会经验]
#ACT
queryvalue 请输入你要用多少点积分来换取[行会经验值]: 2 7 8817
break

[@getstring8817]
#ACT
Getstring s1
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVAR HUMAN SCL < 1
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
HAVEGUILD
#ELSEACT
MessageBox 对不起，你还没有行会，不能购买行会经验
break
#IF
CHECKVAR HUMAN JFD > $STR(s1)
#ACT
CALCVAR HUMAN JFD - $STR(s1)
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
GUILDFLOURISHPOINT + $human(SCL)
SENDMSG 5 您使用:[<$STR(S1)>积分]购买了:[<$human(SCL)>点]行会经验
SENDMSG 5 侠客:[<$STR(S34)>]为其行会[<$GUILDNAME>]增加了[<$human(SCL)>点]行会经验
goto @hanghuijingyan
#ELSEACT
MessageBox 对不起，您的游戏积分不足，购买失败。