积分换装备脚本

@main]
<$USERNAME>您好，欢迎来到<$SERVERNAME>，很高兴为您服务\
<冲值1.5W元宝获得1点积分/SCOLOR=180>你目前的积分为[<$HUMAN(积分)>]点\
  『<500积分点换永恒衣服/@永恒衣服>』 『<800积分点换永恒武器/@永恒武器>』\
『<1000积分点换主宰衣服/@主宰衣服>』『<2000积分点换主宰武器/@主宰武器>』\
『<3000积分点换传奇衣服/@传奇衣服>』『<4000积分换点传奇武器/@传奇武器>』\
[@永恒衣服]
『<永恒战袍[龙魄]』/@男>\
『<永恒战袍[风舞]』/@女>\
[@男]
#IF
CHECKVAR HUMAN 积分 > 500
#ACT
CALCVAR HUMAN 积分 - 500
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 永恒战袍[龙魄] 1
SENDMSG 1 [%s]用500点积分换取了【永恒战袍[龙魄]】一件！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【永恒战袍[龙魄]】需要500点积分！
[@女]
#IF
CHECKVAR HUMAN 积分 > 500
#ACT
CALCVAR HUMAN 积分 - 500
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 永恒战袍[风舞] 1
SENDMSG 1 [%s]用500点积分换取了【永恒战袍[风舞]】一件！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【永恒战袍[风舞]】需要500点积分！
[@永恒武器]
#IF
CHECKVAR HUMAN 积分 > 800
#ACT
CALCVAR HUMAN 积分 - 800
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 永恒神剑[魅影] 1
SENDMSG 1 [%s]用800点积分换取了【永恒神剑[魅影]】一把！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【永恒神剑[魅影]】需要800点积分！
[@主宰衣服]
『<主宰神甲(男)』/@男1>\
『<主宰神甲(男)』/@女1>\
[@男1]
#IF
CHECKVAR HUMAN 积分 > 1000
#ACT
CALCVAR HUMAN 积分 - 1000
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 主宰神甲(男) 1
SENDMSG 1 [%s]用1000点积分换取了【主宰神甲(男)】一件！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【主宰神甲(男)】需要1000点积分！
[@女1]
#IF
CHECKVAR HUMAN 积分 > 1000
#ACT
CALCVAR HUMAN 积分 - 1000
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 主宰神甲(女) 1
SENDMSG 1 [%s]用1000点积分换取了【主宰神甲(女)】一件！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【主宰神甲(女)】需要1000点积分！
[@主宰武器]
#IF
CHECKVAR HUMAN 积分 > 2000
#ACT
CALCVAR HUMAN 积分 - 2000
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 主宰神剑 1
SENDMSG 1 [%s]用2000点积分换取了【主宰神剑】一把！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【主宰神剑】需要2000点积分！
[@传奇衣服]
『<传奇神甲(男)』/@男2>\
『<传奇神甲(女)』/@女2>\
[@男2]
#IF
CHECKVAR HUMAN 积分 > 3000
#ACT
CALCVAR HUMAN 积分 - 3000
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 传奇神甲(男) 1
SENDMSG 1 [%s]用3000点积分换取了【传奇神甲(男)】一件！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【传奇神甲(男)】需要3000点积分！
[@女2]
#IF
CHECKVAR HUMAN 积分 > 3000
#ACT
CALCVAR HUMAN 积分 - 3000
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 传奇神甲(女) 1
SENDMSG 1 [%s]用3000点积分换取了【传奇神甲(女)】一件！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【传奇神甲(女)】需要3000点积分！
[@传奇武器]
#IF
CHECKVAR HUMAN 积分 > 4000
#ACT
CALCVAR HUMAN 积分 - 4000
SAVEVAR HUMAN 积分 ..\QuestDiary\积分.txt
give 传奇神剑 1
SENDMSG 1 [%s]用4000点积分换取了【传奇神剑】一把！
SENDMSG 6 您还有[<$HUMAN(积分)>]点积分
#ELSEACT
MESSAGEBOX 换取【传奇神剑】需要4000点积分！

好文章啊,感谢楼主分享