传奇积分换道具脚本

[@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

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

楼主发贴辛苦了，谢谢楼主分享！

这个帖子不回对不起自己！

谢谢楼主！喜欢这里的东西，方便又好用！

感谢楼主提供这么好的论坛」

在这里可以学到很多传奇一条龙开区时遇到的问题。

这东西我收了！谢谢楼主！

感谢楼主提供这么好的论坛！

楼主发贴辛苦了，谢谢楼主分享！

开传奇一条龙不求人，自己学习架设。