传奇一条龙,GM论坛,GM部落,传奇版本库,传奇服务端,传奇单机版 - dtbbk.Com

 找回密码
 立即注册

Blue引擎脚本-爵位捐献 - 传奇私服脚本

查看: 1838|回复: 0

Blue引擎脚本-爵位捐献

[复制链接]
发表于 2017-9-24 12:16:25 | 显示全部楼层 |阅读模式
[@Mir2m2捐献系统脚本NPC]
{
#IF
CHECKLEVELEX > 0
#ACT
MOV S11 <$GLOBAL(捐献人物姓名1)><$GLOBAL(捐献名字空格)>
MOV S12 <$GLOBAL(捐献人物姓名2)><$GLOBAL(捐献名字空格)>
MOV S13 <$GLOBAL(捐献人物姓名3)><$GLOBAL(捐献名字空格)>
MOV S14 <$GLOBAL(捐献人物姓名4)><$GLOBAL(捐献名字空格)>
MOV S15 <$GLOBAL(捐献人物姓名5)><$GLOBAL(捐献名字空格)>
DEC S11 15 200
DEC S12 15 200
DEC S13 15 200
DEC S14 15 200
DEC S15 15 200
#SAY
 <人物捐献排名>     <查看人物附加属性/@Mir2m2捐献人物附加属性>     <我要捐献人物排名/@Mir2m2捐献人物开始捐献>\
 <英雄捐献排名/@Mir2m2捐献系统英雄排名>     <查看英雄附加属性/@Mir2m2捐献英雄附加属性>     <我要捐献英雄排名/@Mir2m2捐献英雄开始捐献>\
<COLOR=clPurple ─────────────────────────────>\
<COLOR=clAqua 人物第一名>→<COLOR=clLime [国王]>:<$STR(S11)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献人物数量1)>\
<COLOR=clAqua 人物第二名>→<COLOR=clLime [公爵]>:<$STR(S12)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献人物数量2)>\
<COLOR=clAqua 人物第三名>→<COLOR=clLime [侯爵]>:<$STR(S13)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献人物数量3)>\
<COLOR=clAqua 人物第四名>→<COLOR=clLime [伯爵]>:<$STR(S14)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献人物数量4)>\
<COLOR=clAqua 人物第五名>→<COLOR=clLime [子爵]>:<$STR(S15)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献人物数量5)>\
<COLOR=clAqua 人物第六名>→<COLOR=clLime [男爵]>:<查看是否在排名内/@Mir2m2捐献人物查看排名>  <COLOR=clFuchsia 您人物累计捐献:><$HUMAN(捐献个人数量A)> <COLOR=clFuchsia 元宝>\ \
<COLOR=clLime 每周日晚上23:59分清理所有捐献数量值和清理捐献排行榜和封号>\

[@Mir2m2捐献系统英雄排名]
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 $(捐献英雄显示主号)
#IF
EQUAL S10 否
#ACT
MOV S11 <$GLOBAL(捐献英雄姓名1)><$GLOBAL(捐献名字空格)>
MOV S12 <$GLOBAL(捐献英雄姓名2)><$GLOBAL(捐献名字空格)>
MOV S13 <$GLOBAL(捐献英雄姓名3)><$GLOBAL(捐献名字空格)>
MOV S14 <$GLOBAL(捐献英雄姓名4)><$GLOBAL(捐献名字空格)>
MOV S15 <$GLOBAL(捐献英雄姓名5)><$GLOBAL(捐献名字空格)>
#ELSEACT
MOV S11 <$GLOBAL(捐献主号姓名1)><$GLOBAL(捐献名字空格)>
MOV S12 <$GLOBAL(捐献主号姓名2)><$GLOBAL(捐献名字空格)>
MOV S13 <$GLOBAL(捐献主号姓名3)><$GLOBAL(捐献名字空格)>
MOV S14 <$GLOBAL(捐献主号姓名4)><$GLOBAL(捐献名字空格)>
MOV S15 <$GLOBAL(捐献主号姓名5)><$GLOBAL(捐献名字空格)>
#IF
CHECKLEVELEX > 0
#ACT
DEC S11 15 200
DEC S12 15 200
DEC S13 15 200
DEC S14 15 200
DEC S15 15 200
#SAY
 <人物捐献排名/@Mir2m2捐献系统脚本NPC>     <查看人物附加属性/@Mir2m2捐献人物附加属性>     <我要捐献人物排名/@Mir2m2捐献人物开始捐献>\
 <英雄捐献排名>     <查看英雄附加属性/@Mir2m2捐献英雄附加属性>     <我要捐献英雄排名/@Mir2m2捐献英雄开始捐献>\
<COLOR=clPurple ─────────────────────────────>\
<COLOR=clAqua 英雄第一名>→<COLOR=clLime [国王]>:<$STR(S11)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献英雄数量1)>\
<COLOR=clAqua 英雄第二名>→<COLOR=clLime [公爵]>:<$STR(S12)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献英雄数量2)>\
<COLOR=clAqua 英雄第三名>→<COLOR=clLime [侯爵]>:<$STR(S13)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献英雄数量3)>\
<COLOR=clAqua 英雄第四名>→<COLOR=clLime [伯爵]>:<$STR(S14)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献英雄数量4)>\
<COLOR=clAqua 英雄第五名>→<COLOR=clLime [子爵]>:<$STR(S15)>   <COLOR=clFuchsia 共捐献元宝:><$GLOBAL(捐献英雄数量5)>\
<COLOR=clAqua 英雄第六名>→<COLOR=clLime [男爵]>:<查看是否在排名内/@Mir2m2捐献英雄查看排名>  <COLOR=clFuchsia 您英雄累计捐献:><$HUMAN(捐献个人数量B)> <COLOR=clFuchsia 元宝>\ \
<COLOR=clLime 每周日晚上23:59分清理所有捐献数量值和清理捐献排行榜和封号>\

[@Mir2m2捐献人物附加属性]
#ACT
#SAY
 <人物捐献排名/@Mir2m2捐献系统脚本NPC>     <查看人物附加属性>     <我要捐献人物排名/@Mir2m2捐献人物开始捐献>\
 <英雄捐献排名/@Mir2m2捐献系统英雄排名>     <查看英雄附加属性/@Mir2m2捐献英雄附加属性>     <我要捐献英雄排名/@Mir2m2捐献英雄开始捐献>\
<COLOR=clPurple ─────────────────────────────>\
<COLOR=clRed 国王神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+1000> <COLOR=clLime 道士:HP+800>  <COLOR=clLime 法师:HP+600>\
<COLOR=clRed 公爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+600>  <COLOR=clLime 道士:HP+500>  <COLOR=clLime 法师:HP+400>\
<COLOR=clRed 侯爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+400>  <COLOR=clLime 道士:HP+300>  <COLOR=clLime 法师:HP+250>\
<COLOR=clRed 伯爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+300>  <COLOR=clLime 道士:HP+200>  <COLOR=clLime 法师:HP+160>\
<COLOR=clRed 子爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+200>  <COLOR=clLime 道士:HP+120>   <COLOR=clLime 法师:HP+100>\
<COLOR=clRed 男爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+100>  <COLOR=clLime 道士:HP+60>   <COLOR=clLime 法师:HP+40>\ \
<COLOR=clLime 每周日晚上23:59分清理所有捐献数量值和清理捐献排行榜和封号>\

[@Mir2m2捐献英雄附加属性]
#ACT
#SAY
 <人物捐献排名/@Mir2m2捐献系统脚本NPC>     <查看人物附加属性/@Mir2m2捐献人物附加属性>     <我要捐献人物排名/@Mir2m2捐献人物开始捐献>\
 <英雄捐献排名/@Mir2m2捐献系统英雄排名>     <查看英雄附加属性>     <我要捐献英雄排名/@Mir2m2捐献英雄开始捐献>\
<COLOR=clPurple ─────────────────────────────>\
<COLOR=clRed 国王神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+1000> <COLOR=clLime 道士:HP+800>  <COLOR=clLime 法师:HP+600>\
<COLOR=clRed 公爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+600>  <COLOR=clLime 道士:HP+500>  <COLOR=clLime 法师:HP+400>\
<COLOR=clRed 侯爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+400>  <COLOR=clLime 道士:HP+300>  <COLOR=clLime 法师:HP+250>\
<COLOR=clRed 伯爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+300>  <COLOR=clLime 道士:HP+200>  <COLOR=clLime 法师:HP+160>\
<COLOR=clRed 子爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+200>  <COLOR=clLime 道士:HP+120>   <COLOR=clLime 法师:HP+100>\
<COLOR=clRed 男爵神秘属性:><COLOR=clAqua 上线+HP:><COLOR=clLime 战士:HP+100>  <COLOR=clLime 道士:HP+60>   <COLOR=clLime 法师:HP+40>\ \
<COLOR=clLime 每周日晚上23:59分清理所有捐献数量值和清理捐献排行榜和封号>\

[@Mir2m2捐献人物查看排名]
#IF
CHECKVAR GLOBAL 捐献人物姓名1 = <$USERNAME>
#ACT
MESSAGEBOX 您好,【国王】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
CHECKVAR GLOBAL 捐献人物姓名2 = <$USERNAME>
#ACT
MESSAGEBOX 您好,【公爵】阁下,您现在享受的是多加HP神秘特权属性`!,
break
#IF
CHECKVAR GLOBAL 捐献人物姓名3 = <$USERNAME>
#ACT
MESSAGEBOX 您好,【侯爵】阁下,您现在享受的是多加HP神秘特权属性`!,
break
#IF
CHECKVAR GLOBAL 捐献人物姓名4 = <$USERNAME>
#ACT
MESSAGEBOX 您好,【伯爵】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
CHECKVAR GLOBAL 捐献人物姓名5 = <$USERNAME>
#ACT
MESSAGEBOX 您好,【子爵】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
checkvar human 捐献个人数量A < $(捐献人物上榜数量)
#ELSEACT
MESSAGEBOX 您好,【男爵】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
CHECKLEVELEX > 0
#ACT
MESSAGEBOX 对不起,您不在排名内!\ \必须捐献$(捐献人物上榜数量)以上【元宝】才可以获得排名!
break

[@Mir2m2捐献英雄查看排名]
#IF
CHECKVAR GLOBAL 捐献英雄姓名1 = <$H.USERNAME>
#ACT
MESSAGEBOX 您好,【国王】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
CHECKVAR GLOBAL 捐献英雄姓名2 = <$H.USERNAME>
#ACT
MESSAGEBOX 您好,【公爵】阁下,您现在享受的是多加HP神秘特权属性`!,
break
#IF
CHECKVAR GLOBAL 捐献英雄姓名3 = <$H.USERNAME>
#ACT
MESSAGEBOX 您好,【侯爵】阁下,您现在享受的是多加HP神秘特权属性`!,
break
#IF
CHECKVAR GLOBAL 捐献英雄姓名4 = <$H.USERNAME>
#ACT
MESSAGEBOX 您好,【伯爵】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
CHECKVAR GLOBAL 捐献英雄姓名5 = <$H.USERNAME>
#ACT
MESSAGEBOX 您好,【子爵】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
checkvar human 捐献个人数量B < $(捐献英雄上榜数量)
#ELSEACT
MESSAGEBOX 您好,【男爵】阁下,您现在享受的是多加HP神秘特权属性`!
break
#IF
CHECKLEVELEX > 0
#ACT
MESSAGEBOX 对不起,您不在排名内!\ \必须捐献$(捐献英雄上榜数量)以上【元宝】才可以获得排名!
break

[@Mir2m2捐献人物开始捐献]
#ACT
QUERYVALUE 90 1 9 @Mir2m2捐献人物开始捐献B 请输入您要捐献的元宝数量(最小$(捐献人物单次捐献)元宝):
[@Mir2m2捐献人物开始捐献B]
#IF
SMALL M90 $(捐献人物单次捐献)
#ACT
MESSAGEBOX 对不起,单次捐献最少为【$(捐献人物单次捐献)元宝】!
BREAK
#IF
CHECKGAMEGOLD < <$STR(M90)>
#ACT
MESSAGEBOX 对不起,您身上的元宝数量不够【<$STR(M90)>】!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
GAMEGOLD - <$STR(M90)>
CALCVAR HUMAN 捐献个人数量A + <$STR(M90)>
SAVEVAR HUMAN 捐献个人数量A ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献个人记录.txt
#IF
checkvar human 捐献个人数量A < $(捐献人物上榜数量)
#ACT
MOV S10 捐献累计达到【$(捐献人物上榜数量)元宝】才可进入排名!
#ELSEACT
MOV S10 您已进入人物捐献排名榜!
#IF
CHECKLEVELEX > 0
#ACT
MESSAGEBOX 恭喜您,捐献成功,当前捐献累计为:<$HUMAN(捐献个人数量A)>元宝\ \<$STR(S10)>
DELAYGOTO 1 @Mir2m2捐献人物提升排名
DELAYGOTO 1 @Mir2m2捐献系统人物排名

[@Mir2m2捐献英雄开始捐献]
#ACT
QUERYVALUE 90 1 9 @Mir2m2捐献英雄开始捐献B 请输入您要捐献的元宝数量(最小$(捐献英雄单次捐献)元宝):
[@Mir2m2捐献英雄开始捐献B]
#IF
CHECKHEROONLINE
#ELSEACT
MESSAGEBOX 对不起,您的英雄不在线,召唤出英雄才能捐献!
BREAK

#IF
SMALL M90 $(捐献英雄单次捐献)
#ACT
MESSAGEBOX 对不起,单次捐献最少为【$(捐献英雄单次捐献)元宝】!
BREAK
#IF
CHECKGAMEGOLD < <$STR(M90)>
#ACT
MESSAGEBOX 对不起,您身上的元宝数量不够【<$STR(M90)>】!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
GAMEGOLD - <$STR(M90)>
CALCVAR HUMAN 捐献个人数量B + <$STR(M90)>
SAVEVAR HUMAN 捐献个人数量B ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献个人记录.txt
#IF
checkvar human 捐献个人数量B < $(捐献英雄上榜数量)
#ACT
MOV S10 捐献累计达到【$(捐献英雄上榜数量)元宝】才可进入排名!
#ELSEACT
MOV S10 您已进入英雄捐献排名榜!
#IF
CHECKLEVELEX > 0
#ACT
MESSAGEBOX 恭喜您,捐献成功,当前捐献累计为:<$HUMAN(捐献个人数量B)>元宝\ \<$STR(S10)>
DELAYGOTO 1 @Mir2m2捐献英雄提升排名
DELAYGOTO 1 @Mir2m2捐献系统英雄排名


[@Mir2m2捐献系统脚本QM]
#IF
SMALL I79 347979
#ACT
MOV I79 347979
VAR String GLOBAL 捐献人物姓名1
VAR String GLOBAL 捐献人物姓名2
VAR String GLOBAL 捐献人物姓名3
VAR String GLOBAL 捐献人物姓名4
VAR String GLOBAL 捐献人物姓名5
VAR String GLOBAL 捐献人物姓名6
VAR Integer GLOBAL 捐献人物数量1
VAR Integer GLOBAL 捐献人物数量2
VAR Integer GLOBAL 捐献人物数量3
VAR Integer GLOBAL 捐献人物数量4
VAR Integer GLOBAL 捐献人物数量5
VAR Integer GLOBAL 捐献人物数量6
VAR String GLOBAL 捐献主号姓名1
VAR String GLOBAL 捐献主号姓名2
VAR String GLOBAL 捐献主号姓名3
VAR String GLOBAL 捐献主号姓名4
VAR String GLOBAL 捐献主号姓名5
VAR String GLOBAL 捐献主号姓名6
VAR String GLOBAL 捐献英雄姓名1
VAR String GLOBAL 捐献英雄姓名2
VAR String GLOBAL 捐献英雄姓名3
VAR String GLOBAL 捐献英雄姓名4
VAR String GLOBAL 捐献英雄姓名5
VAR String GLOBAL 捐献英雄姓名6
VAR Integer GLOBAL 捐献英雄数量1
VAR Integer GLOBAL 捐献英雄数量2
VAR Integer GLOBAL 捐献英雄数量3
VAR Integer GLOBAL 捐献英雄数量4
VAR Integer GLOBAL 捐献英雄数量5
VAR Integer GLOBAL 捐献英雄数量6
LOADVAR GLOBAL 捐献人物姓名1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物姓名2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物姓名3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物姓名4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物姓名5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物数量1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物数量2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物数量3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物数量4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献人物数量5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献主号姓名1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献主号姓名2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献主号姓名3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献主号姓名4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献主号姓名5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄姓名1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄姓名2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄姓名3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄姓名4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄姓名5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄数量1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄数量2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄数量3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄数量4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
LOADVAR GLOBAL 捐献英雄数量5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
VAR String GLOBAL 捐献名字空格
LOADVAR GLOBAL 捐献名字空格 ..\QuestDiary\Mir2m2捐献系统配置上古合击\Mir2m2捐献系统常量.ini
MOV S10 <$GLOBAL(捐献名字空格)>
DEC S10 1 1
CALCVAR GLOBAL 捐献名字空格 = <$STR(S10)>
#if
checklevelex > 0
#act
VAR Integer HUMAN 捐献个人数量A
VAR Integer HUMAN 捐献个人数量B
VAR Integer HUMAN 捐献人物改变
VAR Integer HUMAN 捐献英雄改变
LOADVAR HUMAN 捐献个人数量A ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献个人记录.txt
LOADVAR HUMAN 捐献个人数量B ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献个人记录.txt
MOV D84 1
#If
checkvar human 捐献个人数量A < $(捐献人物上榜数量)
#ELSEACT
GOTO @Mir2m2捐献人物提升排名

[@Mir2m2捐献系统排名清空]
#IF
EQUAL D84 0
ONLINELONGMIN < 1
#ACT
break
#IF
checkvar human 捐献个人数量A > 0
#ACT
CALCVAR HUMAN 捐献个人数量A = 0
DELAYGOTO 1 @Mir2m2人物封号脚本
#IF
checkvar human 捐献个人数量B > 0
#ACT
CALCVAR HUMAN 捐献个人数量B = 0
DELAYGOTO 1 @Mir2m2英雄封号脚本

[@Mir2m2捐献人物封号改变]
#IF
EQUAL D84 0
ONLINELONGMIN < 1
#ACT
break
#IF
checkvar human 捐献人物改变 = 1
#ACT
CALCVAR HUMAN 捐献人物改变 = 0
DELAYGOTO 1 @Mir2m2人物封号脚本
[@Mir2m2捐献英雄封号改变]
#IF
EQUAL D84 0
ONLINELONGMIN < 1
#ACT
break
#IF
checkvar human 捐献英雄改变 = 1
#ACT
CALCVAR HUMAN 捐献英雄改变 = 0
DELAYGOTO 1 @Mir2m2英雄封号脚本

[@Mir2m2捐献人物提升排名]
#IF
CHECKLEVELEX > 0
#ACT
MOV S10
MOV D10 0

#IF
checkvar human 捐献个人数量A < $(捐献人物上榜数量)
#ELSEACT
MOV D10 6
;       ↑D10=排名总数+1

#IF
CHECKVAR GLOBAL 捐献人物姓名1 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献人物数量1 = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物数量1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
break

#IF
CHECKVAR GLOBAL 捐献人物姓名2 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献人物数量2 = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物数量2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 2

#IF
CHECKVAR GLOBAL 捐献人物姓名3 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献人物数量3 = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物数量3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 3

#IF
CHECKVAR GLOBAL 捐献人物姓名4 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献人物数量4 = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物数量4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 4

#IF
CHECKVAR GLOBAL 捐献人物姓名5 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献人物数量5 = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物数量5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 5

#IF
EQUAL D10 0
#ACT
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献人物数量<$STR(D11)> < <$HUMAN(捐献个人数量A)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献人物姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献人物数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】人物累计捐献【<$HUMAN(捐献个人数量A)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献人物改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献人物改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献人物封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献人物数量<$STR(D11)> < <$HUMAN(捐献个人数量A)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献人物姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献人物数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】人物累计捐献【<$HUMAN(捐献个人数量A)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献人物改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献人物改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献人物封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献人物数量<$STR(D11)> < <$HUMAN(捐献个人数量A)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献人物姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献人物数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】人物累计捐献【<$HUMAN(捐献个人数量A)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献人物改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献人物改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献人物封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献人物数量<$STR(D11)> < <$HUMAN(捐献个人数量A)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献人物姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献人物数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】人物累计捐献【<$HUMAN(捐献个人数量A)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献人物改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献人物改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献人物封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献人物数量<$STR(D11)> < <$HUMAN(捐献个人数量A)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献人物姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献人物数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】人物累计捐献【<$HUMAN(捐献个人数量A)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献人物改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献人物姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献人物数量<$STR(D10)> = <$HUMAN(捐献个人数量A)>
SAVEVAR GLOBAL 捐献人物姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献人物改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献人物封号改变
break

[@Mir2m2捐献英雄提升排名]
#IF
CHECKHEROONLINE
#ELSEACT
BREAK

#IF
CHECKLEVELEX > 0
#ACT
MOV S10
MOV D10 0

#IF
checkvar human 捐献个人数量B < $(捐献英雄上榜数量)
#ELSEACT
MOV D10 6
;       ↑D10=排名总数+1

#IF
CHECKVAR GLOBAL 捐献主号姓名1 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献英雄数量1 = <$HUMAN(捐献个人数量B)>
CALCVAR GLOBAL 捐献英雄姓名1 = <$H.USERNAME>
SAVEVAR GLOBAL 捐献英雄姓名1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
break

#IF
CHECKVAR GLOBAL 捐献主号姓名2 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献英雄数量2 = <$HUMAN(捐献个人数量B)>
CALCVAR GLOBAL 捐献英雄姓名2 = <$H.USERNAME>
SAVEVAR GLOBAL 捐献英雄姓名2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 2

#IF
CHECKVAR GLOBAL 捐献主号姓名3 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献英雄数量3 = <$HUMAN(捐献个人数量B)>
CALCVAR GLOBAL 捐献英雄姓名3 = <$H.USERNAME>
SAVEVAR GLOBAL 捐献英雄姓名3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 3

#IF
CHECKVAR GLOBAL 捐献主号姓名4 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献英雄数量4 = <$HUMAN(捐献个人数量B)>
CALCVAR GLOBAL 捐献英雄姓名4 = <$H.USERNAME>
SAVEVAR GLOBAL 捐献英雄姓名4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 4

#IF
CHECKVAR GLOBAL 捐献主号姓名5 = <$USERNAME>
#act
CALCVAR GLOBAL 捐献英雄数量5 = <$HUMAN(捐献个人数量B)>
CALCVAR GLOBAL 捐献英雄姓名5 = <$H.USERNAME>
SAVEVAR GLOBAL 捐献英雄姓名5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV D10 5

#IF
EQUAL D10 0
#ACT
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献英雄数量<$STR(D11)> < <$HUMAN(捐献个人数量B)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献英雄姓名<$STR(D11)>
INC S11 )>
MOV S13 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献主号姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献英雄数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$STR(S13)>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】英雄累计捐献【<$HUMAN(捐献个人数量B)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献英雄改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$H.USERNAME>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$HUMAN(捐献个人数量B)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献英雄改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献英雄封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献英雄数量<$STR(D11)> < <$HUMAN(捐献个人数量B)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献英雄姓名<$STR(D11)>
INC S11 )>
MOV S13 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献主号姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献英雄数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$STR(S13)>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】英雄累计捐献【<$HUMAN(捐献个人数量B)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献英雄改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$H.USERNAME>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$HUMAN(捐献个人数量B)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献英雄改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献英雄封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献英雄数量<$STR(D11)> < <$HUMAN(捐献个人数量B)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献英雄姓名<$STR(D11)>
INC S11 )>
MOV S13 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献主号姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献英雄数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$STR(S13)>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】英雄累计捐献【<$HUMAN(捐献个人数量B)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献英雄改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$H.USERNAME>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$HUMAN(捐献个人数量B)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献英雄改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献英雄封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献英雄数量<$STR(D11)> < <$HUMAN(捐献个人数量B)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献英雄姓名<$STR(D11)>
INC S11 )>
MOV S13 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献主号姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献英雄数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$STR(S13)>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】英雄累计捐献【<$HUMAN(捐献个人数量B)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献英雄改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$H.USERNAME>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$HUMAN(捐献个人数量B)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献英雄改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献英雄封号改变
break

#IF
CHECKLEVELEX > 0
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 捐献英雄数量<$STR(D11)> < <$HUMAN(捐献个人数量B)>
#act
MOV S11 <$GLOBAL(
INC S11 捐献英雄姓名<$STR(D11)>
INC S11 )>
MOV S13 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献主号姓名<$STR(D11)>
INC S11 )>
MOV S12 <$STR(S11)>
MOV S11 <$GLOBAL(
INC S11 捐献英雄数量<$STR(D11)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$STR(S13)>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$STR(S12)>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$STR(S11)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
MOV S10 恭喜【<$USERNAME>】英雄累计捐献【<$HUMAN(捐献个人数量B)>元宝】,排名提升为第<$STR(D11)>位!
DEC D10 1
#IF
EQUAL D10 <$STR(D11)>
<$STR(S12)>.ONLINELONGMIN ? 0
#ACT
<$STR(S12)>.CALCVAR HUMAN 捐献英雄改变 = 1
#IF
EQUAL D11 1
#ACT
MOV D11 0
#IF
LARGE D10 <$STR(D11)>
EQUAL S10
#ACT
break
#IF
LARGE D10 <$STR(D11)>
#ACT
CALCVAR GLOBAL 捐献英雄姓名<$STR(D10)> = <$H.USERNAME>
CALCVAR GLOBAL 捐献主号姓名<$STR(D10)> = <$USERNAME>
CALCVAR GLOBAL 捐献英雄数量<$STR(D10)> = <$HUMAN(捐献个人数量B)>
SAVEVAR GLOBAL 捐献英雄姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量<$STR(D10)> ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 <$STR(S10)> 255 225
CALCVAR HUMAN 捐献英雄改变 = 1
Gmexecute $(捐献全服触发命令) @Mir2m2捐献英雄封号改变
break

[@Mir2m2捐献系统常量加载]
#CALL [\Mir2m2捐献系统配置上古合击\Mir2m2捐献系统常量.ini] @Mir2m2捐献系统常量
}

[@Mir2m2捐献英雄上线检测]
{
#If
checkvar human 捐献个人数量B < $(捐献英雄上榜数量)
#ELSEACT
#CALL [\Mir2m2捐献系统配置上古合击\Mir2m2捐献系统脚本.txt] @Mir2m2捐献英雄提升排名
#IF
CHECKLEVELEX > 0
#ACT
#CALL [\Mir2m2人物封号脚本上古合击\Mir2m2人物封号脚本.txt] @Mir2m2英雄封号脚本
}

[@Mir2m2捐献系统脚本RM]
{
#ACT
CALCVAR GLOBAL 捐献人物姓名1 =
CALCVAR GLOBAL 捐献人物姓名2 =
CALCVAR GLOBAL 捐献人物姓名3 =
CALCVAR GLOBAL 捐献人物姓名4 =
CALCVAR GLOBAL 捐献人物姓名5 =
CALCVAR GLOBAL 捐献人物数量1 = 0
CALCVAR GLOBAL 捐献人物数量2 = 0
CALCVAR GLOBAL 捐献人物数量3 = 0
CALCVAR GLOBAL 捐献人物数量4 = 0
CALCVAR GLOBAL 捐献人物数量5 = 0
CALCVAR GLOBAL 捐献主号姓名1 =
CALCVAR GLOBAL 捐献主号姓名2 =
CALCVAR GLOBAL 捐献主号姓名3 =
CALCVAR GLOBAL 捐献主号姓名4 =
CALCVAR GLOBAL 捐献主号姓名5 =
CALCVAR GLOBAL 捐献英雄姓名1 =
CALCVAR GLOBAL 捐献英雄姓名2 =
CALCVAR GLOBAL 捐献英雄姓名3 =
CALCVAR GLOBAL 捐献英雄姓名4 =
CALCVAR GLOBAL 捐献英雄姓名5 =
CALCVAR GLOBAL 捐献英雄数量1 = 0
CALCVAR GLOBAL 捐献英雄数量2 = 0
CALCVAR GLOBAL 捐献英雄数量3 = 0
CALCVAR GLOBAL 捐献英雄数量4 = 0
CALCVAR GLOBAL 捐献英雄数量5 = 0
SAVEVAR GLOBAL 捐献人物姓名1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物姓名2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物姓名3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物姓名4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物姓名5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献人物数量5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献主号姓名5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄姓名1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄姓名2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄姓名3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄姓名4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄姓名5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量1 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量2 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量3 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量4 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SAVEVAR GLOBAL 捐献英雄数量5 ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献系统变量.txt
SENDMSG 0 捐献系统排名已经清除(每周日清除一次),小退重新登录可重新排名! 255 225
$(捐献每周清空数据)CLEARNAMELIST ..\QuestDiary\Mir2m2开区清空文本上古合击\Mir2m2捐献个人记录.txt
$(捐献每周清空数据)GMEXECUTE $(捐献全服触发命令) @Mir2m2捐献系统排名清空
[@Mir2m2捐献系统常量加载]
#CALL [\Mir2m2捐献系统配置上古合击\Mir2m2捐献系统常量.ini] @Mir2m2捐献系统常量
}


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver/手机版/Gm版本库 ( 蜀ICP备20007044号-4 )|网站地图

GMT+8, 2024-12-25 09:24 , Processed in 0.102008 second(s), 16 queries .

Powered by GM版本库 X3.4

© 2001-2011 传奇版本库>  template by 版本库