雍1523 发表于 2023-10-7 15:26:34

传奇积分换道具脚本

[@main]
#IF
#ACT
#SAY
<Img:130:4:-110:-125/@抽取>\
　　　　　　　　　　　<这里的宝物很齐全,只要你拥有10000积分/SCOLOR=250>\
　　　　　　　　　　　<充值元宝送积分,充1个元宝就送1点积分/SCOLOR=254>\
　　　　　　　　　　　宝物有<道具，技能书，噬血，游龙，特戒等等/SCOLOR=253>\
　　　　　　　　　　　您当前的充值积分为：<$HUMAN(充值积分)>点！\ \
　　　　　　　　　　　<开始抽奖，抽取宝物/@抽取><封锁选单/@exit>
[@抽取]
#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

终极吾辈 发表于 2023-11-20 18:29:07

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

道盾合击 发表于 2023-11-20 21:59:13

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

牛家村专属 发表于 2023-11-21 02:45:09

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

金币合击 发表于 2023-11-21 08:29:28

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

帝尊大陆 发表于 2023-11-21 10:24:07

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

宠物乱斗 发表于 2023-11-21 14:07:10

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

烈火合击 发表于 2023-11-21 19:09:15

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

龙牌沉默 发表于 2023-11-21 22:58:32

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

雄霸屠龙 发表于 2023-11-22 04:30:42

开传奇一条龙不求人，自己学习架设。
页: [1] 2 3 4
查看完整版本: 传奇积分换道具脚本