antyvfl 发表于 2022-10-8 23:54:20

传奇世界中州轮回使者

(@buy @sell )
%100
[@main]
神秘的轮回之地总让人意想不到de收获，此地只向勇敢的人敞开
         里面半小时刷一只大BOSS<COLOR=red 兔精灵>，爆极品装备，2倍死神勋章
         如果你想好了我启用神秘力量传送你去，你给我<COLOR=red 980万元宝>费用
         <堂堂男儿那能怕死,我要进去一探究竟/@我去轮回>\
      站在这也够无聊的，弄点小买卖赚点小钱养点鱼虾吧
;　　         购买<强化技能/@红袖02>　　<COLOR=GREEN 摘取><身上勋章/@不可取下>
;　　         改变<元神性别/@性别>　清理<元神技能/@技能>　清理<元神红名/@消红>
;　　         购买<元神境界/@红袖02>　购买<四级骷髅/@红袖02>　购买<五级骷髅/@红袖02>
　　<COLOR=GREEN 积分><购买物品/@积分23>　<COLOR=GREEN 兑换><传世宝卡/@传世宝卡><COLOR=red 升级><盾牌属性/@盾牌升级>
　　<COLOR=GREEN 购买><金牌服务/@传世宝0><COLOR=red 激活><圣灵属性/@武器圣灵1>购买<圣灵宝石/@红袖03>
                   <游戏商城/@生成01>


[@我去轮回]
         <color=7df0fe ┏━━━━━┳━━━━━━━━━━━━━━━━━━━┓>
         ■ 地图名字：<color=red 轮回之地>　　　　　　　　 　　 　　 　　■
         <color=c464fc ■> 进入条件：<color=green 980万元宝>，每秒自动加3亿经验，还等啥呢 <color=c464fc ■>
         ■ 地图爆率：<color=red 一切皆有可能>不花钱也牛B。祝你好运！！！■
         ■ 地图限制：禁止随，好友传送，行会传送，夫妻召唤等 ■
         ■ 地图难度：<color=red 神秘地图> 　　　　　　　　　　　　　    ■
         <color=fe7ded ■>━━━━━━━━━━━━━━━━━━━━━━━━━<color=fe7ded ■>
         <color=fb04db ■> <我要进去闯闯/@闯闯122>　　　　　　　　　　　　　　　　<关闭/@exit> <color=fb04db ■>
         <color=7df0fe ┗━━━━━┷━━━━━━━━━━━━━━━━━━━┛>


[@闯闯122]
#if
checkgamegold > 9800000
#ACT
GAMEGOLD - 9800000
MAPMOVE luzd1
SENDMSG 0 恭喜勇士<$USERNAME>进入一度轮回之地！！！无限的激情神秘的装备等着他拿啊,让我们大家一起祝福他发大财:阿门！
SENDMSG 8 恭喜勇士<$USERNAME>进入一度轮回之地！！！无限的激情神秘的装备等着他拿啊,让我们大家一起祝福他发大财:阿门！
SENDMSG 10 恭喜勇士<$USERNAME>进入一度轮回之地！！！无限的激情神秘的装备等着他拿啊,让我们大家一起祝福他发大财:阿门！
SENDMSG 15 恭喜勇士<$USERNAME>进入一度轮回之地！！！无限的激情神秘的装备等着他拿啊,让我们大家一起祝福他发大财:阿门！
#elseact
messagebox 你的背包没有980万元宝


[@红袖03]
#IF
CHECKGAMEGOLD > 999999
#ACT
GAMEGOLD - 1000000
give 圣灵宝石 1
SENDMSG 5 恭喜你花100万元宝成功购买了圣灵宝石一件！
break
#ELSEACT
MessageBox 请看清楚需要的条件需要100万元宝不够！
close

[@红袖02]
#CALL [游戏功能另外购买.txt] @红袖01


[@传世宝0]
#IF
CHECKNAMELIST ..QuestDiary数据文件金牌帐号.txt
#ACT
MESSAGEBOX 你已经是金牌帐号了，请不要重复购买！
break
#IF
CHECKGAMEGOLD < 50000
#ACT
messagebox 购买失败，你当前的元宝不足50000个！元宝的获得方式：购买元宝请与我们客服联系！
break
#ELSEACT
GAMEGOLD - 50000
ADDNAMELIST ..QuestDiary数据文件金牌帐号.txt
SENDMSG 0 [<$USERNAME>]花费个元宝在老兵处购买了金牌帐号！
messagebox 恭喜你成功购买了金牌帐号！从现在开始你可以使用金牌帐号服务了
break
close

[@武器圣灵1]
#CALL [游戏功能圣灵属性.txt] @武器圣灵

[@生成01]
#CALL [游戏功能装备买卖.txt] @mai990


[@不可取下]
　　部分高级勋章在使用后，会出现不能取下的问题，出现
这个的时候你可以来我这里花费一定的金币就可以取下了！\
　　<COLOR=GREEN 每次摘取勋章需要收费20万金币！>\
　　<我要取下自己身上不能取下的勋章/@自己身上>
　　<我要取下元神身上不能取下的勋章/@元神身上>
　　<返回/@main>

[@自己身上]
#IF
CHECKUSEITEM 2
#ACT
#ELSEACT
SENDMSG 5 你身上没有佩带有勋章！
break
#IF
CHECKGOLD 200000
#ACT
TAKE 金币 200000
takeb $RIGHTHAND
SENDMSG 5 勋章已经摘下！
break
#ELSEACT
SENDMSG 5 你身上没有20万金币，不能摘取勋章！
break

[@神秘宝箱]
#IF
CHECKGAMEGOLD > 10
#ACT
GAMEGOLD - 10
GIVE 神秘宝箱 1

[@元神身上]
#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 您使用:购买了:1块狮魔石
MessageBox 您使用:购买了:1块狮魔石
#ELSEACT
MessageBox 对不起，您的元宝不足，购买失败。

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

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


幽冥项链 20 10


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 对不起，您的游戏积分不足，购买失败。

[@hanghuijingyan]
#ACT
MOV S33 $GUILDNAME
CALCVAR HUMAN SCL = $GUILDFLOURISHPOINT
CALCVAR HUMAN J01 = $GLOBAL(HJ01)
CALCVAR HUMAN J02 = $GLOBAL(HJ02)
CALCVAR HUMAN J03 = $GLOBAL(HJ03)
CALCVAR HUMAN J04 = $GLOBAL(HJ04)
CALCVAR HUMAN J05 = $GLOBAL(HJ05)
CALCVAR HUMAN J06 = $GLOBAL(HJ06)
CALCVAR HUMAN J07 = $GLOBAL(HJ07)
CALCVAR HUMAN J08 = $GLOBAL(HJ08)
CALCVAR HUMAN J09 = $GLOBAL(HJ09)
CALCVAR HUMAN J10 = $GLOBAL(HJ10)
CALCVAR HUMAN J11 = $GLOBAL(HJ11)
CALCVAR HUMAN J12 = $GLOBAL(HJ12)
CALCVAR HUMAN J13 = $GLOBAL(HJ13)
CALCVAR HUMAN J14 = $GLOBAL(HJ14)
CALCVAR HUMAN J15 = $GLOBAL(HJ15)
CALCVAR HUMAN J16 = $GLOBAL(HJ16)
CALCVAR HUMAN J17 = $GLOBAL(HJ17)
CALCVAR HUMAN J18 = $GLOBAL(HJ18)
CALCVAR HUMAN J19 = $GLOBAL(HJ19)
CALCVAR HUMAN J20 = $GLOBAL(HJ20)
CALCVAR HUMAN J21 = $GLOBAL(HJ21)
CALCVAR HUMAN H01 = $GLOBAL(HX01)
CALCVAR HUMAN H02 = $GLOBAL(HX02)
CALCVAR HUMAN H03 = $GLOBAL(HX03)
CALCVAR HUMAN H04 = $GLOBAL(HX04)
CALCVAR HUMAN H05 = $GLOBAL(HX05)
CALCVAR HUMAN H06 = $GLOBAL(HX06)
CALCVAR HUMAN H07 = $GLOBAL(HX07)
CALCVAR HUMAN H08 = $GLOBAL(HX08)
CALCVAR HUMAN H09 = $GLOBAL(HX09)
CALCVAR HUMAN H10 = $GLOBAL(HX10)
CALCVAR HUMAN H11 = $GLOBAL(HX11)
CALCVAR HUMAN H12 = $GLOBAL(HX12)
CALCVAR HUMAN H13 = $GLOBAL(HX13)
CALCVAR HUMAN H14 = $GLOBAL(HX14)
CALCVAR HUMAN H15 = $GLOBAL(HX15)
CALCVAR HUMAN H16 = $GLOBAL(HX16)
CALCVAR HUMAN H17 = $GLOBAL(HX17)
CALCVAR HUMAN H18 = $GLOBAL(HX18)
CALCVAR HUMAN H19 = $GLOBAL(HX19)
CALCVAR HUMAN H20 = $GLOBAL(HX20)
CALCVAR HUMAN H21 = $GLOBAL(HX21)
GOTO @进入升序排序
break

[@进入升序排序]
#ACT
#CALL [行会排行升序排序.txt] @自动排序升序

[@退出升序排序]
#ACT
CALCVAR GLOBAL HJ01 = $HUMAN(J01)
CALCVAR GLOBAL HJ02 = $HUMAN(J02)
CALCVAR GLOBAL HJ03 = $HUMAN(J03)
CALCVAR GLOBAL HJ04 = $HUMAN(J04)
CALCVAR GLOBAL HJ05 = $HUMAN(J05)
CALCVAR GLOBAL HJ06 = $HUMAN(J06)
CALCVAR GLOBAL HJ07 = $HUMAN(J07)
CALCVAR GLOBAL HJ08 = $HUMAN(J08)
CALCVAR GLOBAL HJ09 = $HUMAN(J09)
CALCVAR GLOBAL HJ10 = $HUMAN(J10)
CALCVAR GLOBAL HJ11 = $HUMAN(J11)
CALCVAR GLOBAL HJ12 = $HUMAN(J12)
CALCVAR GLOBAL HJ13 = $HUMAN(J13)
CALCVAR GLOBAL HJ14 = $HUMAN(J14)
CALCVAR GLOBAL HJ15 = $HUMAN(J15)
CALCVAR GLOBAL HJ16 = $HUMAN(J16)
CALCVAR GLOBAL HJ17 = $HUMAN(J17)
CALCVAR GLOBAL HJ18 = $HUMAN(J18)
CALCVAR GLOBAL HJ19 = $HUMAN(J19)
CALCVAR GLOBAL HJ20 = $HUMAN(J20)
CALCVAR GLOBAL HJ21 = $HUMAN(J21)
CALCVAR GLOBAL HX01 = $HUMAN(H01)
CALCVAR GLOBAL HX02 = $HUMAN(H02)
CALCVAR GLOBAL HX03 = $HUMAN(H03)
CALCVAR GLOBAL HX04 = $HUMAN(H04)
CALCVAR GLOBAL HX05 = $HUMAN(H05)
CALCVAR GLOBAL HX06 = $HUMAN(H06)
CALCVAR GLOBAL HX07 = $HUMAN(H07)
CALCVAR GLOBAL HX08 = $HUMAN(H08)
CALCVAR GLOBAL HX09 = $HUMAN(H09)
CALCVAR GLOBAL HX10 = $HUMAN(H10)
CALCVAR GLOBAL HX11 = $HUMAN(H11)
CALCVAR GLOBAL HX12 = $HUMAN(H12)
CALCVAR GLOBAL HX13 = $HUMAN(H13)
CALCVAR GLOBAL HX14 = $HUMAN(H14)
CALCVAR GLOBAL HX15 = $HUMAN(H15)
CALCVAR GLOBAL HX16 = $HUMAN(H16)
CALCVAR GLOBAL HX17 = $HUMAN(H17)
CALCVAR GLOBAL HX18 = $HUMAN(H18)
CALCVAR GLOBAL HX19 = $HUMAN(H19)
CALCVAR GLOBAL HX20 = $HUMAN(H20)
CALCVAR GLOBAL HX21 = $HUMAN(H21)
SAVEVAR GLOBAL HJ01 ..QuestDiary数据文件行会排名HJ01Save.txt
SAVEVAR GLOBAL HJ02 ..QuestDiary数据文件行会排名HJ02Save.txt
SAVEVAR GLOBAL HJ03 ..QuestDiary数据文件行会排名HJ03Save.txt
SAVEVAR GLOBAL HJ04 ..QuestDiary数据文件行会排名HJ04Save.txt
SAVEVAR GLOBAL HJ05 ..QuestDiary数据文件行会排名HJ05Save.txt
SAVEVAR GLOBAL HJ06 ..QuestDiary数据文件行会排名HJ06Save.txt
SAVEVAR GLOBAL HJ07 ..QuestDiary数据文件行会排名HJ07Save.txt
SAVEVAR GLOBAL HJ08 ..QuestDiary数据文件行会排名HJ08Save.txt
SAVEVAR GLOBAL HJ09 ..QuestDiary数据文件行会排名HJ09Save.txt
SAVEVAR GLOBAL HJ10 ..QuestDiary数据文件行会排名HJ10Save.txt
SAVEVAR GLOBAL HJ11 ..QuestDiary数据文件行会排名HJ11Save.txt
SAVEVAR GLOBAL HJ12 ..QuestDiary数据文件行会排名HJ12Save.txt
SAVEVAR GLOBAL HJ13 ..QuestDiary数据文件行会排名HJ13Save.txt
SAVEVAR GLOBAL HJ14 ..QuestDiary数据文件行会排名HJ14Save.txt
SAVEVAR GLOBAL HJ15 ..QuestDiary数据文件行会排名HJ15Save.txt
SAVEVAR GLOBAL HJ16 ..QuestDiary数据文件行会排名HJ16Save.txt
SAVEVAR GLOBAL HJ17 ..QuestDiary数据文件行会排名HJ17Save.txt
SAVEVAR GLOBAL HJ18 ..QuestDiary数据文件行会排名HJ18Save.txt
SAVEVAR GLOBAL HJ19 ..QuestDiary数据文件行会排名HJ19Save.txt
SAVEVAR GLOBAL HJ20 ..QuestDiary数据文件行会排名HJ20Save.txt
SAVEVAR GLOBAL HJ21 ..QuestDiary数据文件行会排名HJ21Save.txt
SAVEVAR GLOBAL HX01 ..QuestDiary数据文件行会排名HX01Save.txt
SAVEVAR GLOBAL HX02 ..QuestDiary数据文件行会排名HX02Save.txt
SAVEVAR GLOBAL HX03 ..QuestDiary数据文件行会排名HX03Save.txt
SAVEVAR GLOBAL HX04 ..QuestDiary数据文件行会排名HX04Save.txt
SAVEVAR GLOBAL HX05 ..QuestDiary数据文件行会排名HX05Save.txt
SAVEVAR GLOBAL HX06 ..QuestDiary数据文件行会排名HX06Save.txt
SAVEVAR GLOBAL HX07 ..QuestDiary数据文件行会排名HX07Save.txt
SAVEVAR GLOBAL HX08 ..QuestDiary数据文件行会排名HX08Save.txt
SAVEVAR GLOBAL HX09 ..QuestDiary数据文件行会排名HX09Save.txt
SAVEVAR GLOBAL HX10 ..QuestDiary数据文件行会排名HX10Save.txt
SAVEVAR GLOBAL HX11 ..QuestDiary数据文件行会排名HX11Save.txt
SAVEVAR GLOBAL HX12 ..QuestDiary数据文件行会排名HX12Save.txt
SAVEVAR GLOBAL HX13 ..QuestDiary数据文件行会排名HX13Save.txt
SAVEVAR GLOBAL HX14 ..QuestDiary数据文件行会排名HX14Save.txt
SAVEVAR GLOBAL HX15 ..QuestDiary数据文件行会排名HX15Save.txt
SAVEVAR GLOBAL HX16 ..QuestDiary数据文件行会排名HX16Save.txt
SAVEVAR GLOBAL HX17 ..QuestDiary数据文件行会排名HX17Save.txt
SAVEVAR GLOBAL HX18 ..QuestDiary数据文件行会排名HX18Save.txt
SAVEVAR GLOBAL HX19 ..QuestDiary数据文件行会排名HX19Save.txt
SAVEVAR GLOBAL HX20 ..QuestDiary数据文件行会排名HX20Save.txt
SAVEVAR GLOBAL HX21 ..QuestDiary数据文件行会排名HX21Save.txt
break

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

[@传世宝卡]
游戏中杀怪获得的“<COLOR=GREEN 传世宝卡>”可以拿到我这里来兑换奖励，可
随机兑换到：<COLOR=red 元宝、积分、极品修炼值、声望>！能兑换到什么和
能兑换多少就要看你的运气了！\
我要<使用传世宝卡兑换奖励/@兑换宝贝>\
\
　　　　　　　　　　　　　　　　　　　　　　　　　　<返回/@main>


[@兑换宝贝]
#ACT
checkitembox 请放入传世宝卡 1 119
break

[@getboxitem119]
#IF
equal $CHECKBOXITEM.NAME 传世宝卡
#ACT
take 传世宝卡 1
MOVR P1 4
INC P1 1
MOV S0 @baoksdui
INC S0 $STR(P1)
GOTO $STR(S0)
break
#ELSEACT
MessageBox 对不起，你放入的物品不是传世宝卡，兑换失败。
break

[@baoksdui1]
#IF
RANDOM 500
#ACT
GAMEGOLD + 30
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝30个！
break
#IF
RANDOM 200
#ACT
GAMEGOLD + 15
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝15个！
break
#IF
RANDOM 160
#ACT
GAMEGOLD + 8
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝8个！
break
#IF
RANDOM 100
#ACT
GAMEGOLD + 5
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝5个！
break
#IF
RANDOM 50
#ACT
GAMEGOLD + 3
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝3个！
break
#IF
RANDOM 10
#ACT
GAMEGOLD + 2
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝2个！
break
#IF
RANDOM 3
#ACT
GAMEGOLD + 1
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝1个！
break
#IF
RANDOM 1
#ACT
CALCVAR HUMAN JFD + 1
SAVEVAR HUMAN JFD ..QuestDiary数据文件JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+1
break

[@baoksdui2]
#IF
RANDOM 100
#ACT
CALCVAR HUMAN JFD + 30
SAVEVAR HUMAN JFD ..QuestDiary数据文件JFDSave.txt
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了游戏积分+30
break
#IF
RANDOM 30
#ACT
CALCVAR HUMAN JFD + 10
SAVEVAR HUMAN JFD ..QuestDiary数据文件JFDSave.txt
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了游戏积分+10
break
#IF
RANDOM 15
#ACT
CALCVAR HUMAN JFD + 5
SAVEVAR HUMAN JFD ..QuestDiary数据文件JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+5
break
#IF
RANDOM 5
#ACT
CALCVAR HUMAN JFD + 3
SAVEVAR HUMAN JFD ..QuestDiary数据文件JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+3
break
#IF
RANDOM 1
#ACT
CALCVAR HUMAN JFD + 1
SAVEVAR HUMAN JFD ..QuestDiary数据文件JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+1
break

[@baoksdui3]
#IF
RANDOM 50
#ACT
JPPOINT + 20000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+20000
break
#IF
RANDOM 15
#ACT
JPPOINT + 15000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+15000
break
#IF
RANDOM 5
#ACT
JPPOINT + 10000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+5000
break
#IF
RANDOM 1
#ACT
JPPOINT + 5000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+5000
break

[@baoksdui4]
#IF
RANDOM 100
#ACT
CREDITPOINT + 20
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+20
break
#IF
RANDOM 30
#ACT
CREDITPOINT + 10
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+10
break
#IF
RANDOM 15
#ACT
CREDITPOINT + 5
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+5
break
#IF
RANDOM 5
#ACT
CREDITPOINT + 2
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+2
break
#IF
RANDOM 1
#ACT
CREDITPOINT + 1
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+1
break

[@宝物之证]
　　你算找对人了，那是凝聚了人类几千年文明结晶的宝物
之证，正好我这里有个宝物箱，宝物箱里除了：超级天山雪
莲、超级深海灵礁、超级冰泉圣水、治疗神水和百变披风，
就有一个宝物之证，如果你需要的话就卖给你，一个宝物箱
价值30元宝。\
　　<购买宝物箱/@购买>
　　<离开/@exit>

[@购买]
#IF
HOUR 22 22
MIN 0 10
#ACT
#ELSEACT
messagebox “宝物箱”只能每日晚上10点到10点10分钟之间才能购买
break
#if
CHECKGAMEGOLD > 29
#ACT
GAMEGOLD - 30
give 宝物箱 1
CALCVAR HUMAN 消费 + 30
SAVEVAR HUMAN 消费 ..QuestDiary数据文件消费.txt
MessageBox 成功购买了1个宝物箱
close
#ELSEACT
MessageBox 您的元宝不足！
close

[@技能]
#if
checkys
#SAY
　　你对你元神分身已学的技能不满意？没关系，在我这可
以帮助你删除掉你不喜欢的技能！但要收取你一点点费用！
　　每删除一次，不管什么技能一律10个元宝
　　注意:<COLOR=GREEN 删除前请先召唤出你的分身才能成功删除！>\
　　<我要删除元神技能/@删除元神>
　　<算了，钱不够！/@exit>
#ELSEACT
MessageBox 您还没有真元神的分身吧！
close

[@删除元神]
#ACT
queryvalue 请输入你想删除分身已学的[技能名字] 2 20 444
break

[@getstring444]
#if
CHECKGAMEGOLD > 9
#ACT
Getstring S1
GAMEGOLD - 10
CALCVAR HUMAN 消费 + 10
SAVEVAR HUMAN 消费 ..QuestDiary数据文件消费.txt
GMEXECUTE 删除技能 $YSNAME $STR(s1)
MessageBox 你成功为你分身删除了一项技能如果没有成功说明你没有召唤出分身就操作了在删除前需把分身召唤出来才能成功
#ELSEACT
MessageBox 您的元宝不足！
close

[@消红]
#if
checkys
#SAY
　　你的元神分身红名了，犯了谋杀罪？没关系，在我们里可
以帮助你清洗掉它的犯罪记录！但要收取你一点点费用！
　　每清洗一次，不管多少点PK值一律变白需1个元宝
　　注意:<COLOR=GREEN 清洗前请先召唤出你的分身才能成功清洗！>\
　　<我要给元神洗红/@清洗红名1>
　　<算了，红就红吧/@exit>
#ELSEACT
MessageBox 您还没有真元神的分身吧！
close

[@性别]
#if
checkys
#SAY
　　你是否对你分身的性别不满意？没关系，在我这可
以帮助你的分身做变性手术！但要收取你一点点费用！
　　每清洗变性一次，需收取10个元宝
　　注意:<COLOR=GREEN 变性前请先召唤出你的分身才能成功变性！>\
　　<我要给元神变男的/@变男的>
　　<我要给元神变女的/@变女的>
#ELSEACT
MessageBox 您还没有真元神的分身吧！
close

[@变女的]
#if
CHECKGAMEGOLD > 9
#ACT
GMEXECUTE 调整性别 $YSNAME 女
GAMEGOLD - 10
CALCVAR HUMAN 消费 + 10
SAVEVAR HUMAN 消费 ..QuestDiary数据文件消费.txt
MessageBox 你成功为你分身更改成了男性如果没有成功说明你没有召唤出分身就点了
#ELSEACT
MessageBox 您的元宝不足！
close

[@变男的]
#if
CHECKGAMEGOLD > 9
#ACT
GMEXECUTE 调整性别 $YSNAME 男
GAMEGOLD - 10
CALCVAR HUMAN 消费 + 10
SAVEVAR HUMAN 消费 ..QuestDiary数据文件消费.txt
MessageBox 你成功为你分身更改成了男性如果没有成功说明你没有召唤出分身就点了
#ELSEACT
MessageBox 您的元宝不足！
close

[@清洗红名1]
#if
CHECKGAMEGOLD > 9
#ACT
GMEXECUTE 清除PK值 $YSNAME
GAMEGOLD - 10
CALCVAR HUMAN 消费 + 10
SAVEVAR HUMAN 消费 ..QuestDiary数据文件消费.txt
MessageBox 你成功为你分身清洗掉了PK值如果没有成功说明你没有召唤出分身就点了清洗
#ELSEACT
MessageBox 您的元宝不足！
close


[@盾牌升级]
　　最新<COLOR=GREEN 1.980虎啸中州>版更新了<COLOR=GREEN 通灵盾牌>，盾牌可佩带在
人物右手上，即左手武器右手盾牌。盾牌不仅能增加你的
各种属性还可以有机率的免除一定的伤害。
　　要想使用和看见通灵盾牌，请先将你的客户端升级到
1.970版，你可以点这里下载并安装1.970补丁。
　　<看不见盾牌的需要升级客户端到1.970/@客户端升级>
　　<我要升级我的盾牌品级和属性/@行会盾牌1>
　　<返回上页/@main>

[@行会盾牌1]
　　通灵盾牌一共有<COLOR=GREEN 10个品级>，品级越高，盾牌的属性越
好，盾牌防御时免除的伤害越多。
　　现在你只需要花费1000000个<COLOR=GREEN 元宝>即可为你的通灵盾牌提升
属性和品级。
　　<COLOR=red 注意：>每次升级盾牌不是100%成功，如果升级失败盾
牌是不会消失的，只不过你的元宝就不会退你了。
　　<看不见盾牌的需要升级客户端到1.980/@客户端升级>
　　<我要升级我的盾牌属性/@升级盾牌>
　　<返回上页/@盾牌升级>　　　　　　　　　　　　 <color=0x545454 刺客-紫制作>


[@升级盾牌]
#ACT
checkitembox 请放入盾牌： 1 201

[@getboxitem201]
#IF
EQUAL $CHECKBOXITEM.STDMODE 12
#ACT
MOV S1 $CHECKBOXITEM.ItemExD
MOV D0 $ItemEx.$STR(S1).7
#ELSEACT
SENDMSG 5 你放入的物品不是盾牌类物品，不能升级！
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
LARGE D0 9
#ACT
SENDMSG 5 你的盾牌品级已经达到最高10级，不能再升级了！
break
#IF
CHECKGAMEGOLD < 1000000
#ACT
SENDMSG 5 你的元宝数量不足1000000个，每次升级需要1000000个元宝！
break
#IF
SMALL D0 2
#ACT
MOV D1 1
#IF
LARGE D0 1
#ACT
MOV D1 2
#IF
LARGE D0 2
#ACT
MOV D1 4
#IF
LARGE D0 3
#ACT
MOV D1 8
#IF
LARGE D0 4
#ACT
MOV D1 12
#IF
LARGE D0 5
#ACT
MOV D1 18
#IF
LARGE D0 6
#ACT
MOV D1 28
#IF
LARGE D0 7
#ACT
MOV D1 58
#IF
LARGE D0 8
#ACT
MOV D1 118
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
RANDOM $STR(D1)
#ACT
GAMEGOLD - 1000000
UpgradeUserItemEx $STR(S1) 0 + 1
UpgradeUserItemEx $STR(S1) 1 + 1
UpgradeUserItemEx $STR(S1) 2 + 1
UpgradeUserItemEx $STR(S1) 3 + 1
UpgradeUserItemEx $STR(S1) 4 + 1
UpgradeUserItemEx $STR(S1) 5 + 1
UpgradeUserItemEx $STR(S1) 6 + 1
UpgradeUserItemEx $STR(S1) 7 + 1
UpgradeUserItemEx $STR(S1) 11 + 10
SENDMSG 5 恭喜你升级成功，盾牌品级和威力提升了
MOV D2 $ItemEx.$STR(S1).7
GOTO @检测广播
break
#ELSEACT
GAMEGOLD - 1000000
SENDMSG 5 本次盾牌升级无效，您可以使用1000000个元宝再次尝试!
break

[@检测广播]
#IF
LARGE D2 2
#ACT
SENDMSG 0 (*)恭喜<<$USERNAME>>在装备物品大使处升级盾牌品级<<$STR(D2)>>级成功！
SENDMSG 10 (*)恭喜<$USERNAME>在装备物品大使处升级牌品级<$STR(D2)>级成功！
break

liwei906666 发表于 2022-10-9 01:32:04

楼主加油，我们都看好你哦。

test123457 发表于 2022-10-9 08:17:53

真是被感动的痛哭流涕……

wǒ想我是海 发表于 2022-10-10 18:24:41

强烈支持楼主ing……

meidou. 发表于 2022-10-14 05:09:45

看到这帖子真是高兴！

today_gg 发表于 2022-10-15 02:38:30

感恩无私的分享与奉献 :)

roach_work 发表于 2022-10-15 04:38:30

看到这帖子真是高兴！

11892929 发表于 2022-10-16 18:36:10

楼主加油，我们都看好你哦。

ap2br7iu0vy 发表于 2022-10-20 06:30:11

激动人心，无法言表！

wnz40458 发表于 2022-10-20 13:18:51

淡定，淡定，淡定……
页: [1] 2
查看完整版本: 传奇世界中州轮回使者