非常有意思的传奇服务端翻牌活动
[@main]
#IF
#ACT
OpenBigDialogBox
#SAY
<《本活动一天3次》：/SCOLOR=250>每天<10:30,14点,19点>举行！
活动开始后,只要你参与就能获得<“幸运骰子”/SCOLOR=242>
获得这些骰子就可以来找我<翻牌/SCOLOR=58>，我记得不是
很清楚了，曾经有人在我这里翻过<终极装备/SCOLOR=253>！
使用的骰子<越多/SCOLOR=250>，可以翻的牌就越多，得到
奖励的<机会/SCOLOR=250>也就越多！
<﹡/SCOLOR=58><使用一颗骰子翻牌/@使用一颗骰子翻牌>
<﹡/SCOLOR=58><使用二颗骰子翻牌/@使用二颗骰子翻牌>
<﹡/SCOLOR=58><使用三颗骰子翻牌/@使用三颗骰子翻牌>
<﹡/SCOLOR=250><我要用灵玉换取幸运骰子/@1q2e>
;——————————————————————————————————
[@1q2e]
你有灵玉吗?每个<灵玉>可以换取3个幸运骰子哦。
可以点击下面换取：
<【我确定用灵玉换取3个骰子】/@1q2e3q>
<【关闭】/@exit>
[@1q2e3q]
#IF
checkitem 灵玉 1
#ACT
take 灵玉 1
give 幸运骰子 3
SENDMSG 6 恭喜您换得3颗幸运骰子!
#elseact
MESSAGEBOX 你没有灵玉,耍我玩呢?
[@使用一颗骰子翻牌]
#ACT
MESSAGEBOX 你有可能获得：1000-3000W的经验 50-200元宝 中等装备 勋章材料 转生材料
#SAY
<Img:7:0:-2:-20/@Exit>
<Img:36:0:-3:0/@翻牌1> <Img:36:0:-2:0/@翻牌1> <Img:36:0:-2:0/@翻牌1> <Img:36:0:-2:0/@翻牌1>
[@翻牌1]
#IF
CheckItem 幸运骰子 1
#ACT
MOvR N89 1 8
GOTO @骰子判断1
Break
#ELSEACT
GuildNoticeMsg 58 255 【翻牌失败，我需要1颗幸运骰子】 SELF
Break
[@骰子判断1]
#IF
EQUAL N89 1
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
GetRandomText .QuestDiary数据翻牌文件骰子1颗.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 2
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
GetRandomText .QuestDiary数据翻牌文件骰子1颗宝珠.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 3
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
MOvR N88 10000000 30000000
CHANGEEXP + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]点经验】
MessAgeBox 【获得[<$STR(N88)>]点经验】
Break
Close
#IF
EQUAL N89 4
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
GIVE 1000万经验卷 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[1000万经验卷]】
MessAgeBox 【获得[1000万经验卷]】
Break
Close
#IF
RANDOM 3
EQUAL N89 5
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
GIVE 超级神水包 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[超级神水包]】
MessAgeBox 【获得[超级神水包]】
Break
Close
#IF
EQUAL N89 5
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
MOvR N88 10000000 50000000
CHANGEEXP + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]点经验】
MessAgeBox 【获得[<$STR(N88)>]点经验】
Break
Close
#IF
EQUAL N89 6
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
MOvR N88 50 200
GAMEGOLD + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]个元宝】
MessAgeBox 【获得[<$STR(N88)>]个元宝】
Break
Close
#IF
EQUAL N89 7
CheckItem 幸运骰子 1
#Act
Take 幸运骰子 1
MessAgeBox 【狠对不起，什么都没有获得】
Break
Close
;——————————————————————————————————
[@使用二颗骰子翻牌]
#ACT
MESSAGEBOX 你有可能获得：2000-8000万的经验 100-400元宝 高级装备 高级勋章材料 高级转生材料
#SAY
<Img:7:0:-2:-20/@Exit>
<Img:36:0:-3:0/@翻牌2> <Img:36:0:-2:0/@翻牌2> <Img:36:0:-2:0/@翻牌2> <Img:36:0:-2:0/@翻牌2>
<Img:36:0:-2:0/@翻牌2> <Img:36:0:-2:0/@翻牌2> <Img:36:0:-2:0/@翻牌2> <Img:36:0:-2:0/@翻牌2>
[@翻牌2]
#IF
CheckItem 幸运骰子 2
#ACT
MOvR N89 1 8
GOTO @骰子判断2
Break
#ELSEACT
GuildNoticeMsg 58 255 【翻牌失败，我需要2颗幸运骰子】 SELF
Break
[@骰子判断2]
#IF
EQUAL N89 1
CheckItem 幸运骰子 2
#Act
Take 幸运骰子 2
GetRandomText .QuestDiary数据翻牌文件骰子2颗.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 2
CheckItem 幸运骰子 2
#Act
Take 幸运骰子 2
GetRandomText .QuestDiary数据翻牌文件骰子2颗宝珠.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 3
CheckItem 幸运骰子 2
#Act
Take 幸运骰子 2
MOvR N88 20000000 80000000
CHANGEEXP + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]点经验】
MessAgeBox 【获得[<$STR(N88)>]点经验】
Break
Close
#IF
EQUAL N89 4
CheckItem 幸运骰子 2
#Act
Take 幸运骰子 2
GIVE 超级神水包 3
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[超级神水3包]】
MessAgeBox 【获得[超级神水3包]】
Break
Close
#IF
EQUAL N89 5
CheckItem 幸运骰子 2
#Act
Take 幸运骰子 2
GIVE 5000万经验卷 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[5000万经验卷]】
MessAgeBox 【获得[5000万经验卷]】
Break
Close
#IF
EQUAL N89 6
CheckItem 幸运骰子 2
#Act
Take 幸运骰子 2
MOvR N88 100 400
GAMEGOLD + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]个元宝】
MessAgeBox 【获得[<$STR(N88)>]个元宝】
Break
Close
#IF
EQUAL N89 7
CheckItem 幸运骰子 2
#Act
Take 幸运骰子 2
MessAgeBox 【狠对不起，什么都没有获得】
Break
Close
;——————————————————————————————————
[@使用三颗骰子翻牌]
#ACT
MESSAGEBOX 你有可能获得：5000-1亿的经验 8%几率获得1亿-2亿经验 200-800元宝 10%几率获得500-1000元宝 终极装备 终极勋章材料 终极转生材料 终极斗笠材料
#SAY
<Img:7:0:-2:-20/@Exit>
<Img:36:0:-3:0/@翻牌3> <Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3>
<Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3>
<Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3> <Img:36:0:-2:0/@翻牌3>
[@翻牌3]
#IF
CheckGameGold > 499
CheckItem 幸运骰子 3
#ACT
MOvR N89 1 8
GOTO @骰子判断3
Break
#ELSEACT
GuildNoticeMsg 58 255 【翻牌失败，我需要3颗幸运骰子还有500元宝操作费用】 SELF
Break
[@骰子判断3]
#IF
RANDOM 60
EQUAL N89 4
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
MOvR N88 100000000 200000000
CHANGEEXP + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]点经验】
MessAgeBox 【获得[<$STR(N88)>]点经验】
Break
Close
#IF
RANDOM 80
EQUAL N89 4
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
MOvR N88 500 1000
GAMEGOLD + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]个元宝】
MessAgeBox 【获得[<$STR(N88)>]个元宝】
Break
Close
#IF
RANDOM 100
EQUAL N89 4
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
GetRandomText .QuestDiary数据翻牌文件七剑装备.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 1
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
GetRandomText .QuestDiary数据翻牌文件骰子3颗.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 2
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
GetRandomText .QuestDiary数据翻牌文件骰子3颗宝珠.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 3
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
MOvR N88 50000000 100000000
CHANGEEXP + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]点经验】
MessAgeBox 【获得[<$STR(N88)>]点经验】
Break
Close
#IF
EQUAL N89 4
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GIVE 超级神水盒 1
GameGold - 500
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[超级神水盒]】
MessAgeBox 【获得[超级神水盒]】
Break
Close
#IF
EQUAL N89 5
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GIVE 5000万经验卷 1
GameGold - 500
GetRandomText .QuestDiary数据翻牌文件进贡物品.txt S0
GIVE <$STR(S0)> 1
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(S0)>]+5000万经验卷】
MessAgeBox 【获得[<$STR(S0)>]】
Break
Close
#IF
EQUAL N89 6
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
MOvR N88 200 800
GAMEGOLD + <$STR(N88)>
GuildNoticeMsg 241 255 【玩家(%s)翻开扑克牌，意外的获得了[<$STR(N88)>]个元宝】
MessAgeBox 【获得[<$STR(N88)>]个元宝】
Break
Close
#IF
EQUAL N89 7
CheckGameGold > 499
CheckItem 幸运骰子 3
#Act
Take 幸运骰子 3
GameGold - 500
MessAgeBox 【狠对不起，什么都没有获得】
Break
Close
- 上一篇文章：写的比较复杂的独孤合成脚本
- 下一篇文章：编写相当规范的传奇服务端黑社会工厂