传奇积分换道具脚本

gmbbs醉后知酒浓 · 发表于 2018-9-11 15:52:24

[@main]
#IF
#ACT
#SAY
<Img:130:4:-110:-125/@抽取>\
　　　　　　　　　　　<这里的宝物很齐全,只要你拥有10000积分/SCOLOR=250>\
　　　　　　　　　　　<充值元宝送积分,充1个元宝就送1点积分/SCOLOR=254>\
　　　　　　　　　　　宝物有<道具，技能书，噬血，游龙，特戒等等/SCOLOR=253>\
　　　　　　　　　　　您当前的充值积分为：<$HUMAN(充值积分)>点！\ \
　　　　　　　　　　　<开始抽奖，抽取宝物/@抽取> <封锁选单[url=]/@exit[/url]>
[@抽取]
#IF
CHECKVAR HUMAN 充值积分 > 9999
#ACT
CALCVAR HUMAN 充值积分 - 10000
SAVEVAR HUMAN 充值积分 ..\QuestDiary\重要数据\充值积分Save.txt
GOTO @YAO
#ELSEACT
MESSAGEBOX 对不起，积分不足10000点，无法参与抽奖！
[@YAO]
#IF
random 55
#ACT
GetRandomText .\QuestDiary\积分抽奖\装备游龙列表.txt S10
give <$STR(S10)> 1
SendCenterMsg 246 252 恭喜全服幸运人物[<$USERNAME>]抽奖获得:<$STR(S10)>一件! 1 8
break
#IF
random 10
#ACT
GetRandomText .\QuestDiary\积分抽奖\装备噬血列表.txt S10
give <$STR(S10)> 1
SendCenterMsg 246 252 恭喜全服幸运人物[<$USERNAME>]抽奖获得:<$STR(S10)>一件! 1 8
break
#IF
random 3
#ACT
GetRandomText .\QuestDiary\积分抽奖\装备龙吟列表.txt S10
give <$STR(S10)> 1
SendCenterMsg 246 252 恭喜全服幸运人物[<$USERNAME>]抽奖获得:<$STR(S10)>一件! 1 8
break
#IF
random 1
#ACT
GetRandomText .\QuestDiary\积分抽奖\装备简单列表.txt S10
give <$STR(S10)> 1
SendCenterMsg 246 252 恭喜全服幸运人物[<$USERNAME>]抽奖获得:<$STR(S10)>一件! 1 8
break

杭半白 · 发表于 2018-9-17 18:17:23

啊啊啊啊啊啊啊啊啊啊啊

东方霞 · 发表于 2018-9-18 11:19:40

学习下

濮阳以菱 · 发表于 2018-9-18 11:46:54

淡定，淡定，淡定……

赀溅论 · 发表于 2018-9-18 16:47:36

高手云集果断围观

崭樊 · 发表于 2018-9-19 17:50:07

强烈支持楼主ing……

畔土泉 · 发表于 2018-9-20 21:22:34

介是神马？！！

云尖络 · 发表于 2018-9-22 17:11:00

路过帮顶嘿嘿

弓松雪 · 发表于 2018-9-28 09:11:05

为保住菊花，这个一定得回复！

闪哼 · 发表于 2018-10-10 18:38:15

我只是路过打酱油的。

[精选传奇脚本] 传奇积分换道具脚本