军衔系统

创想传奇

;加载变量:
;上线显示名称部分，(注意有封号系统的避免冲突):
;安装在:\Mir200\Envir\MapQuest_def\QManage.txt
#if
#act
VAR String HUMAN jxmc
VAR Integer HUMAN jxdj
LOADVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
LOADVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>

;调用说明:
#call [\\军衔系统\军衔系统.txt] @军衔系统
;调用说明:
;#call [\\军衔系统\军衔系统.txt] @军衔系统
[@军衔系统]
{
#if
#say
\
军衔：代表着荣誉和实力,如果你有足够的荣誉值,快申请吧!\
──────────────────────────\
军衔等级:<$HUMAN(jxdj)>\
军衔称号:<$HUMAN(jxmc)>\  \
<确定申请军衔/@申请军衔>   <各等级需求/@各军衔需求>
[@各军衔需求]
晋升「士兵」需要荣誉:300点\
晋升「下士」需要荣誉:500点\
晋升「中士」需要荣誉:800点\
晋升「上士」需要荣誉:1000点\
晋升「副军校」需要荣誉:1200点\
晋升「正军校」需要荣誉:1400点\
晋升「副参领」需要荣誉:1600点\
晋升「正参领」需要荣誉:1800点\
晋升「副都统」需要荣誉:2000点\
晋升「正都统」需要荣誉:2200点\
晋升「将军」需要荣誉:2400点\
晋升「大将军」需要荣誉:2600点\
晋升「诸侯王」需要荣誉:3000点\
\
<返回[url=]/@main[/url]>
[@申请军衔]
#if
CHECKVAR HUMAN jxdj = 0
CHECKGLORYPOINT > 299
#act
GLORYCHANGE - 300
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 士兵
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 1
CHECKGLORYPOINT > 499
#act
GLORYCHANGE - 500
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 下士
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 2
CHECKGLORYPOINT > 799
#act
GLORYCHANGE - 800
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 中士
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 3
CHECKGLORYPOINT > 999
#act
GLORYCHANGE - 1000
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 上士
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 4
CHECKGLORYPOINT > 1199
#act
GLORYCHANGE - 1200
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 副军校
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 5
CHECKGLORYPOINT > 1399
#act
GLORYCHANGE - 1400
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 正军校
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 6
CHECKGLORYPOINT > 1599
#act
GLORYCHANGE - 1600
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 副参领
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 7
CHECKGLORYPOINT > 1799
#act
GLORYCHANGE - 1800
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 正参领
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 8
CHECKGLORYPOINT > 1999
#act
GLORYCHANGE - 2000
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 副都统
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 9
CHECKGLORYPOINT > 2199
#act
GLORYCHANGE - 2200
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 正都统
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 10
CHECKGLORYPOINT > 2399
#act
GLORYCHANGE - 2400
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 将军
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 11
CHECKGLORYPOINT > 2599
#act
GLORYCHANGE - 2600
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 大将军
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 12
CHECKGLORYPOINT > 2999
#act
GLORYCHANGE - 3000
CALCVAR HUMAN jxdj + 1
CALCVAR HUMAN jxmc = 诸侯王
SAVEVAR HUMAN jxmc ..\QuestDiary\数据文件\jxmcsave.txt
SAVEVAR HUMAN jxdj ..\QuestDiary\数据文件\jxdjsave.txt
SETRANKLEVELNAME %s\<$HUMAN(jxmc)>
sendmsg 1 恭喜:「<$USERNAME>」成功晋升为<$HUMAN(jxmc)>军衔
goto @main
break
#if
CHECKVAR HUMAN jxdj = 13
#act
sendmsg 6 恭喜:「<$USERNAME>」你已经是<$HUMAN(jxmc)>最高军衔无法继续晋升了!
goto @main
break
#if
#say
你没有足够的荣誉值\ \
<返回[url=]/@main[/url]>
}

cervh7w1n

前排支持下了哦~

hcoprdzitb

小白一个 顶一下

泡芙107csq

我是个凑数的。。。

qwe879002818

大人，此事必有蹊跷！

24079izvwl

看起来好像不错的样子

bampbe76p3

支持一下

tomsob8hg

相当不错，感谢无私分享精神！

fwaoxnll

打酱油的人拉，回复下赚取积分

bzcer3kel

看帖回帖是美德！

lavigxc150

为保住菊花，这个一定得回复！