传世私服中州绝世天下脚本

(@callboard)
%100
[@mainleft]
#IF
EQUAL G80 0
#SAY
<COLOR=blue ～·～·～·～·～·～·～·～> <COLOR=GREEN 绝世神兵·绝世天下> <COLOR=blue ～·～·～·～·～·～·～·～·～>\
相传在宇内各界有着三把绝世神兵，是战魔
道三天尊曾经使用过的神器！绝世神兵是世
间独一无二的武器，有着天尊特有的特殊超
级属性和隐藏属性！
<COLOR=blue ～·～·～·～·～·～·～·～·～·～> 　 <COLOR=blue ～·～·～·～·～·～·～·～·～·～·～>\
战士职业：<绝世·屠龙/@属性1>　使用<天关积分购买/@购买1>　　 此武器<COLOR=GREEN 当前拥有者是：><COLOR=red [><$GLOBAL(JSTL)><COLOR=red ]>
法师职业：<绝世·神杖/@属性2>　使用<天关积分购买/@购买2>　　 此武器<COLOR=GREEN 当前拥有者是：><COLOR=red [><$GLOBAL(JSSZ)><COLOR=red ]>
道士职业：<绝世·宝轮/@属性3>　使用<天关积分购买/@购买3>　　 此武器<COLOR=GREEN 当前拥有者是：><COLOR=red [><$GLOBAL(JSBL)><COLOR=red ]>\
战士职业：<绝世·战甲/@属性4>　使用<天关积分购买/@购买4>　　 此盔甲<COLOR=GREEN 当前拥有者是：><COLOR=red [><$GLOBAL(JSZJ)><COLOR=red ]>
法师职业：<绝世·魔衣/@属性5>　使用<天关积分购买/@购买5>　　 此盔甲<COLOR=GREEN 当前拥有者是：><COLOR=red [><$GLOBAL(JSMY)><COLOR=red ]>
道士职业：<绝世·道袍/@属性6>　使用<天关积分购买/@购买6>　　 此盔甲<COLOR=GREEN 当前拥有者是：><COLOR=red [><$GLOBAL(JSDP)><COLOR=red ]>
#ELSESAY
<COLOR=blue ～·～·～·～·～·～·～·～> <COLOR=GREEN 绝世神兵·绝世天下> <COLOR=blue ～·～·～·～·～·～·～·～·～>\
　　相传在宇内各界有着三把绝世神兵，是战魔道三天尊曾经使用过的神器！绝世神兵是世间独
一无二的武器，有着天尊特有的特殊超级属性和隐藏属性！\
　　如何才能获得它们呢？去寻找吧，在传世大陆神秘某一地方...\
　　当你满足某一条件的时候，你或许就能成为绝世武器的主人...\
　　成王、成神、统领天下群雄...\
　　绝世神兵将实现你所有的梦想，展现你无敌的英雄气概...\
<COLOR=blue ～·～·～·～·～·～·～·～·～·～> 　 <COLOR=blue ～·～·～·～·～·～·～·～·～·～·～>\

[@main]
#IF
EQUAL G80 0
#SAY


现在只要你使用<3600点/@3600>天关积分，即可获得
其中之一，注意，绝世武器其特性很特别，
全服只能有一把，如果被人提前购得，那么
就再也不能购买了！
#ELSESAY


[@属性1]
#ACT
messagebox 「绝世·屠龙」：(全服仅此一把)　　攻击力10-45，强度+1，幸运+2，攻击速度+1，准确+3　「此神器死亡不会爆出，不能交易，不会被盗取，终身使用」
break

[@属性2]
#ACT
messagebox 「绝世·神杖」：(全服仅此一把)　　攻击力10-20，魔法力10-18，强度+1，幸运+3，准确+8　「此神器死亡不会爆出，不能交易，不会被盗取，终身使用」
break

[@属性3]
#ACT
messagebox 「绝世·宝轮」：(全服仅此一把)　　攻击力10-25，道术力10-20，强度+1，幸运+4，准确+5　「此神器死亡不会爆出，不能交易，不会被盗取，终身使用」
break

[@属性4]
#ACT
messagebox 「绝世·战甲」：(全服仅此一件)　　物理防御15-35，魔法防御10-25，攻击力10-10　「此神器死亡不会爆出，不能交易，不会被盗取，终身使用」
break

[@属性5]
#ACT
messagebox 「绝世·魔衣」：(全服仅此一件)　　物理防御12-26，魔法防御10-22，魔法力5-15　「此神器死亡不会爆出，不能交易，不会被盗取，终身使用」
break

[@属性6]
#ACT
messagebox 「绝世·道袍」：(全服仅此一件)　　物理防御12-26，魔法防御10-22，道术力5-15　「此神器死亡不会爆出，不能交易，不会被盗取，终身使用」
break

;============================================================

[@购买1]
#IF
CHECKVAR GLOBAL JSTL = 暂无
#ACT
#ELSEACT
messagebox 「绝世·屠龙」：(全服仅此一把)　目前已经被[<$GLOBAL(JSTL)>]购买，现在已经不能购买了！
break
#IF
CHECKVAR GLOBAL JSSZ = $USERNAME
#ACT
messagebox 「绝世神兵」一人只能购买一把！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSBL = $USERNAME
#ACT
messagebox 「绝世神兵」一人只能购买一把！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSTL = 暂无
CHECKVAR HUMAN TGJ > 3599
#ACT
give 绝世·屠龙 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·屠龙]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·屠龙]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·屠龙]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 3600
CALCVAR GLOBAL JSTL = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSTL ..QuestDiary数据文件JSTLSave.txt
messagebox 「绝世·屠龙」购买成功！
break
#ELSEACT
messagebox 「绝世·屠龙」：(全服仅此一把)　购买「绝世·屠龙」，需要至少3600点天关积分！
break

[@购买2]
#IF
CHECKVAR GLOBAL JSSZ = 暂无
#ACT
#ELSEACT
messagebox 「绝世·神杖」：(全服仅此一把)　目前已经被[<$GLOBAL(JSSZ)>]购买，现在已经不能购买了！
break
#IF
CHECKVAR GLOBAL JSTL = $USERNAME
#ACT
messagebox 「绝世神兵」一人只能购买一把！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSBL = $USERNAME
#ACT
messagebox 「绝世神兵」一人只能购买一把！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSSZ = 暂无
CHECKVAR HUMAN TGJ > 3599
#ACT
give 绝世·神杖 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·神杖]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·神杖]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·神杖]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 3600
CALCVAR GLOBAL JSSZ = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSSZ ..QuestDiary数据文件JSSZSave.txt
messagebox 「绝世·神杖」购买成功！
break
#ELSEACT
messagebox 「绝世·神杖」：(全服仅此一把)　购买「绝世·神杖」，需要至少3600点天关积分！
break

[@购买3]
#IF
CHECKVAR GLOBAL JSBL = 暂无
#ACT
#ELSEACT
messagebox 「绝世·宝轮」：(全服仅此一把)　目前已经被[<$GLOBAL(JSBL)>]购买，现在已经不能购买了！
break
#IF
CHECKVAR GLOBAL JSTL = $USERNAME
#ACT
messagebox 「绝世神兵」一人只能购买一把！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSSZ = $USERNAME
#ACT
messagebox 「绝世神兵」一人只能购买一把！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSBL = 暂无
CHECKVAR HUMAN TGJ > 3599
#ACT
give 绝世·宝轮 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·宝轮]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·宝轮]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·宝轮]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 3600
CALCVAR GLOBAL JSBL = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSBL ..QuestDiary数据文件JSBLSave.txt
messagebox 「绝世·宝轮」购买成功！
break
#ELSEACT
messagebox 「绝世·宝轮」：(全服仅此一把)　购买「绝世·宝轮」，需要至少3600点天关积分！
break


[@购买4]
#IF
CHECKVAR GLOBAL JSZJ = 暂无
#ACT
#ELSEACT
messagebox 「绝世·战甲」：(全服仅此一件)　目前已经被[<$GLOBAL(JSZJ)>]购买，现在已经不能购买了！
break
#IF
CHECKVAR GLOBAL JSMY = $USERNAME
#ACT
messagebox 「绝世战甲」一人只能购买一件！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSDP = $USERNAME
#ACT
messagebox 「绝世战甲」一人只能购买一件！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSZJ = 暂无
CHECKVAR HUMAN TGJ > 2599
gender MAN
#ACT
give 绝世·战甲(男) 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·战甲]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·战甲]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·战甲]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 2600
CALCVAR GLOBAL JSZJ = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSZJ ..QuestDiary数据文件JSZJSave.txt
messagebox 「绝世·战甲」购买成功！
break
#IF
CHECKVAR GLOBAL JSZJ = 暂无
CHECKVAR HUMAN TGJ > 2599
gender WOMAN
#ACT
give 绝世·战甲(女) 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·战甲]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·战甲]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·战甲]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 2600
CALCVAR GLOBAL JSZJ = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSZJ ..QuestDiary数据文件JSZJSave.txt
messagebox 「绝世·战甲」购买成功！
break
#ELSEACT
messagebox 「绝世·战甲」：(全服仅此一件)　购买「绝世·战甲」，需要至少2600点天关积分！
break

[@购买5]
#IF
CHECKVAR GLOBAL JSMY = 暂无
#ACT
#ELSEACT
messagebox 「绝世·魔衣」：(全服仅此一件)　目前已经被[<$GLOBAL(JSMY)>]购买，现在已经不能购买了！
break
#IF
CHECKVAR GLOBAL JSZJ = $USERNAME
#ACT
messagebox 「绝世魔衣」一人只能购买一件！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSDP = $USERNAME
#ACT
messagebox 「绝世魔衣」一人只能购买一件！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSMY = 暂无
CHECKVAR HUMAN TGJ > 2599
gender MAN
#ACT
give 绝世·魔衣(男) 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·魔衣]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·魔衣]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·魔衣]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 2600
CALCVAR GLOBAL JSMY = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSMY ..QuestDiary数据文件JSMYSave.txt
messagebox 「绝世·魔衣」购买成功！
break
#IF
CHECKVAR GLOBAL JSMY = 暂无
CHECKVAR HUMAN TGJ > 2599
gender WOMAN
#ACT
give 绝世·魔衣(女) 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·魔衣]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·魔衣]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·魔衣]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 2600
CALCVAR GLOBAL JSMY = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSMY ..QuestDiary数据文件JSMYSave.txt
messagebox 「绝世·魔衣」购买成功！
break
#ELSEACT
messagebox 「绝世·魔衣」：(全服仅此一件)　购买「绝世·魔衣」，需要至少2600点天关积分！
break


[@购买6]
#IF
CHECKVAR GLOBAL JSDP = 暂无
#ACT
#ELSEACT
messagebox 「绝世·道袍」：(全服仅此一件)　目前已经被[<$GLOBAL(JSDP)>]购买，现在已经不能购买了！
break
#IF
CHECKVAR GLOBAL JSZJ = $USERNAME
#ACT
messagebox 「绝世道袍」一人只能购买一件！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSMY = $USERNAME
#ACT
messagebox 「绝世道袍」一人只能购买一件！把机会给别人吧！
break
#IF
CHECKVAR GLOBAL JSDP = 暂无
CHECKVAR HUMAN TGJ > 2599
gender MAN
#ACT
give 绝世·道袍(男) 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·道袍]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·道袍]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·道袍]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 2600
CALCVAR GLOBAL JSDP = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSDP ..QuestDiary数据文件JSDPSave.txt
messagebox 「绝世·道袍」购买成功！
break
#IF
CHECKVAR GLOBAL JSDP = 暂无
CHECKVAR HUMAN TGJ > 2599
gender WOMAN
#ACT
give 绝世·道袍(女) 1
SENDMSG 0 恭喜[<$USERNAME>]成为本服[绝世·道袍]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 8 恭喜[<$USERNAME>]成为本服[绝世·道袍]的所有者，他将使用此神器开创前所未有的崭新世界...
SENDMSG 10 恭喜[<$USERNAME>]成为本服[绝世·道袍]的所有者，他将使用此神器开创前所未有的崭新世界...
CALCVAR HUMAN TGJ - 2600
CALCVAR GLOBAL JSDP = $USERNAME
SAVEVAR HUMAN TGJ ..QuestDiary数据文件TGJSave.txt
SAVEVAR GLOBAL JSDP ..QuestDiary数据文件JSDPSave.txt
messagebox 「绝世·道袍」购买成功！
break
#ELSEACT
messagebox 「绝世·道袍」：(全服仅此一件)　购买「绝世·道袍」，需要至少2600点天关积分！
break

真是难得给力的帖子啊。

无回帖，不论坛，这才是人道。

看到这帖子真是高兴！

我只是路过打酱油的。

太生气了，无法HOLD啦 >_<......

感恩无私的分享与奉献

看到这帖子真是高兴！

真是难得给力的帖子啊。

感恩无私的分享与奉献