传奇积分换道具脚本

久久网游

传奇积分换道具脚本

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