1.76复古传奇服务端*公会脚本

风男人1984

[@main]
俗话说：杀人者，人恒杀之！不过我们*公会就是追求这一境界！\
如果你想作为一名合格的*，就要不畏死亡，杀人乃家常便饭嘛！\
传奇开单机传奇这提供全服*公会成员排行，只要你杀了人就自动成为我们杀\
手公会的一员,当然我们只提供最优秀的前十名排行！同时还会提供\
一种动态实时的*称号和斩杀人数显示!\
<全服*排行榜/@全服*排行榜>                   <*称号说明/@*称号说明>\
<我想成为不为人知的暗之*/@关闭称号11>\
<我想用斩杀数换赏金、换元宝/@换元宝>\
<我想参加*公会的高阶*试练/@高阶*试练>\
[@*称号说明]
*的称号随着杀人数的增加而改变,想得到最强的*的称号吗?\
要成为最强的*除了杀人之外,还可以参加我们工会提供的试练\
以下是我们目前提供的各种级别的称号和要求:\
1级:入门*:<斩杀1人>\
2级:三流*:<斩杀5人>\
3级:二流*:<斩杀10人>\
4级:一流*:<斩杀50人>\
5级:职业*:<斩杀100人>\
<未知级*:暗影*?鬼魅*?狂魔*?*之王?>     <返回/@MAIN>
[@高阶*试练]
此为*工会的秘密试练场地.是锻炼各位成就最强*为目标进\
行的强化训练,不同级别的*试练难度也有所不同,如果能通过我\
们的试练,那就能大量的提高你的斩杀数!最低限定<职业*>级别!\ \
<职业*试练场/@职业*试练场> 晋级目标 <暗影*>  <25元宝进入1次>\
<暗影*试练场/@暗影*试练场> 晋级目标 <灭魂*>  <50元宝进入1次>\
<灭魂*试练场/@灭魂*试练场> 晋级目标 <狂魔*>  <250元宝进入1次>\
<狂魔*试练场/@狂魔*试练场> 晋级目标 <*之王>  <500元宝进入1次>\
[@狂魔*试练场]
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\狂魔*.txt
CHECKGAMEGOLD > 499
#ACT
GAMEGOLD - 500
MAPMOVE DIE004
SENDMSG 0 职业*:%S进入了狂魔*试练场!
BREAK
#ELSESAY
对不起!你不符合要求!
[@灭魂*试练场]
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\灭魂*.txt
CHECKGAMEGOLD > 249
#ACT
GAMEGOLD - 250
MAPMOVE DIE003
SENDMSG 0 职业*:%S进入了灭魂*试练场!
BREAK
#ELSESAY
对不起!你不符合要求!
[@暗影*试练场]
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\暗影*.txt
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
MAPMOVE DIE002
SENDMSG 0 职业*:%S进入了暗影*试练场!
BREAK
#ELSESAY
对不起!你不符合要求!
[@职业*试练场]
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\职业*.txt
CHECKGAMEGOLD > 24
#ACT
GAMEGOLD - 25
MAPMOVE DIE001
SENDMSG 0 职业*:%S进入了职业*试练场!
BREAK
#ELSESAY
对不起!你不符合要求!
[@关闭称号11]
*默认的称号系统是不是让你觉得太过于暴露自己的实力，也许！\
想成为一个不为人知的高阶*，隐匿形迹是一种不错的选择！\ \
<关闭实时称号系统，成为暗之*/@关闭称号>\
<做为一名光明正大的*，没必要/@MAIN>
[@关闭称号]
#IF
CHECKVAR HUMAN 排行开关 = 1
#SAY
当前状态为:开启\ \
<关闭实时称号/@关闭称号22>                 <返回/@MAIN>
#IF
CHECKVAR HUMAN 排行开关 = 0
#SAY
当前状态为:关闭\ \
<开启实时称号/@开启称号>                 <返回/@MAIN>
[@关闭称号22]
#ACT
CALCVAR HUMAN 排行开关 = 0
SAVEVAR HUMAN 排行开关 ..\QuestDiary\宠物系统\变量.txt
SETRANKLEVELNAME %s\
BREAK
#SAY
实时称号系统已经关闭了!
[@开启称号]
#ACT
CALCVAR HUMAN 排行开关 = 1
SAVEVAR HUMAN 排行开关 ..\QuestDiary\宠物系统\变量.txt
GOTO @称号开放了
#SAY
实时称号系统已经开启了!
[@全服*排行榜]
全服*排行榜:\ \
序号              角色名             杀人数\
第1名             <$STR(A111)>            <$STR(G111)>\
第2名             <$STR(A112)>            <$STR(G112)>\
第3名             <$STR(A113)>            <$STR(G113)>\
第4名             <$STR(A114)>            <$STR(G114)>\
第5名             <$STR(A115)>            <$STR(G115)>\
<返回/@MAIN>                           <进入下一页/@全服*排行榜2>
[@全服*排行榜2]
全服*排行榜:\ \
序号              角色名             杀人数\
第6名             <$STR(A116)>            <$STR(G116)>\
第7名             <$STR(A117)>            <$STR(G117)>\
第8名             <$STR(A118)>            <$STR(G118)>\
第9名             <$STR(A119)>            <$STR(G119)>\
第10名            <$STR(A110)>            <$STR(G110)>\
<返回/@MAIN>                           <进入上一页/@全服*排行榜>
[@换元宝]
你目前手头有<$HUMAN(斩杀数)>个斩杀数,确定需要换成元宝嘛？\
由于*称号和*试练都域斩杀数的积累，除非你急用钱，否则\
我们公会强烈反对你这样子做，元宝事小，名气更加重要啊！\ \
<换赏金、5个斩杀数换1个元宝/@5个斩杀数换1个元宝>\
<换赏金、25个斩杀数换5个元宝/@25个斩杀数换5个元宝>\
<换赏金、50个斩杀数换10个元宝/@50个斩杀数换10个元宝>\
<换赏金、100个斩杀数换20个元宝/@100个斩杀数换20个元宝>\
<作为一名优秀的*，名气更加重要/@main>\
[@100个斩杀数换20个元宝]
#IF
CHECKVAR HUMAN 斩杀数 > 99
#ACT
GAMEGOLD + 20
CALCVAR HUMAN 斩杀数 - 100
SAVEVAR HUMAN 斩杀数 ..\QuestDiary\宠物系统\变量.txt
SENDMSG 6 你的斩杀数为<$HUMAN(斩杀数)>个，元宝数量为<$GAMEGOLD>个！
GOTO @换元宝
BREAK
#ELSESAY
你没有足够的斩杀数可以拿来兑换成元宝！
[@50个斩杀数换10个元宝]
#IF
CHECKVAR HUMAN 斩杀数 > 49
#ACT
GAMEGOLD + 10
CALCVAR HUMAN 斩杀数 - 50
SAVEVAR HUMAN 斩杀数 ..\QuestDiary\宠物系统\变量.txt
SENDMSG 6 你的斩杀数为<$HUMAN(斩杀数)>个，元宝数量为<$GAMEGOLD>个！
GOTO @换元宝
BREAK
#ELSESAY
你没有足够的斩杀数可以拿来兑换成元宝！
[@25个斩杀数换5个元宝]
#IF
CHECKVAR HUMAN 斩杀数 > 24
#ACT
GAMEGOLD + 5
CALCVAR HUMAN 斩杀数 - 25
SAVEVAR HUMAN 斩杀数 ..\QuestDiary\宠物系统\变量.txt
SENDMSG 6 你的斩杀数为<$HUMAN(斩杀数)>个，元宝数量为<$GAMEGOLD>个！
GOTO @换元宝
BREAK
#ELSESAY
你没有足够的斩杀数可以拿来兑换成元宝！
[@5个斩杀数换1个元宝]
#IF
CHECKVAR HUMAN 斩杀数 > 4
#ACT
GAMEGOLD + 1
CALCVAR HUMAN 斩杀数 - 5
SAVEVAR HUMAN 斩杀数 ..\QuestDiary\宠物系统\变量.txt
SENDMSG 6 你的斩杀数为<$HUMAN(斩杀数)>个，元宝数量为<$GAMEGOLD>个！
GOTO @换元宝
BREAK
#ELSESAY
你没有足够的斩杀数可以拿来兑换成元宝！
[@称号开放了]
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\入门*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 入门*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\三流*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 三流*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\二流*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 二流*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\一流*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 一流*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\职业*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 职业*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\暗影*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 暗影*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\灭魂*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 灭魂*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\狂魔*.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 狂魔*
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\战神传奇\*之王.txt
#ACT
MOV S10 已斩杀
MOV S11 <$HUMAN(斩杀数)>
INC S10 <$STR(S11)>
INC S10 人
MOV S20 ★★★★★*排行第
MOV S21 <$HUMAN(排行)>
INC S20 <$STR(S21)>
MOV S22 名★★★★★
INC S20 <$STR(S22)>
MOV S23 *之王
SETRANKLEVELNAME %s\<$STR(S23)>\<$STR(S10)>\<$STR(S20)>\
BREAK

康乃馨老太

拿币走人。。。。

w2824

论坛不能没有像楼主这样的人才啊！我会一直支持GM爱好者：www.gmahz.com

上海唐二帅

这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com

飛常皓

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

压后牙

楼主，我太崇拜你了！我想我是一天也不能离开GM爱好者：www.gmahz.com

qq3153430253

努力赚币中。。。

fcwindpass

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！

123457287

其实我一直觉得楼主的品味不错！呵呵！GM爱好者：www.gmahz.com太棒了！