传奇积分换道具脚本

畅游

传奇积分换道具脚本
[@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