2024-05-07
(@buy @sell @upgradenow @getbackupgnow @repair @s_repair @@InPutString @@InPutInteger @ReclaimItem )
%100
+10
+11
+15
[@main]
#IF
CHECKLEVELEX > 0
#ACT
LOADVAR HUMAN JK ..QuestDiary捐献排行元宝捐献元宝捐款.txt
SortHumVarToListEx JK ..QuestDiary捐献排行元宝捐献元宝捐款.txt 1 ..QuestDiary捐献排行元宝捐献捐款排行.txt 1
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 0 S21 N21
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 1 S22 N22
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 2 S23 N23
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 3 S24 N24
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 4 S25 N25
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 5 S26 N26
MOV S27 <$USERNAME>
INC S27 :<$HUMAN(JK)>
GetStringPos ..QuestDiary捐献排行元宝捐献捐款排行.txt <$STR(S27)>
INC N30 1
MOV N28 <$STR(N30)>
MOV S28
;完整脚本提取版本：https://www.7bbz.com/fwd/ngbb/8365.html
#IF
EQUAL N30 1
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:15>
goto @main1
BREAK
#IF
EQUAL N30 2
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:31>
goto @main1
BREAK
#IF
EQUAL N30 3
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:47>
goto @main1
BREAK
#IF
EQUAL N30 4
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:63>
goto @main1
BREAK
#IF
EQUAL N30 5
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:79>
goto @main1
BREAK
#IF
EQUAL N30 6
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:95>
goto @main1
#ELSEACT
goto @main1
BREAK
[@MAIN1]
#IF
CHECKNAMELIST ..QuestDiary捐献排行第六排名.txt
#act
#SAY
<欢迎您使用俸禄捐献系统/AUTOCOLOR=241,238,249,95,70,133,146>
<一号名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=46> <30-30/SCOLOR=250> <+10%物理免伤/SCOLOR=46><+10%魔法免伤/SCOLOR=254>
<第二名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=238> <20-20/SCOLOR=250> <系统说明：/SCOLOR=22><俸禄捐系统可以提升您的实力/SCOLOR=254>
<第三名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=22> <15-15/SCOLOR=250> <只要您排到前六名就可以获得丰富给予/SCOLOR=254>
<第四名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=253> <10-10/SCOLOR=250> <注意事项：/SCOLOR=22><请不要盲目捐献 合区不保留/SCOLOR=254>
<第五名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=250> <5-5/SCOLOR=250> <捐献须高于1000元宝才可以获得俸禄/SCOLOR=22>
<第六名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=254> <3-3/SCOLOR=250> <捐献1000元宝就可以获得第六名3-3属性/SCOLOR=250>
<每次合区清理捐献排名>
<捐献排行/@排行> <我要捐款/@@InPutInteger15>
#ELSESAY
<欢迎您使用俸禄捐献系统/AUTOCOLOR=241,238,249,95,70,133,146>
<一号名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=46> <30-30/SCOLOR=250> <+10%物理免伤/SCOLOR=46><+10%魔法免伤/SCOLOR=254>
<第二名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=238> <20-20/SCOLOR=250> <系统说明：/SCOLOR=22><俸禄捐系统可以提升您的实力/SCOLOR=254>
<第三名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=22> <15-15/SCOLOR=250> <只要您排到前六名就可以获得丰富给予/SCOLOR=254>
<第四名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=253> <10-10/SCOLOR=250> <注意事项：/SCOLOR=22><请不要盲目捐献 合区不保留/SCOLOR=254>
<第五名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=250> <5-5/SCOLOR=250> <捐献须高于1000元宝才可以获得俸禄/SCOLOR=22>
<第六名/SCOLOR=254>:<属性给予 攻魔道/SCOLOR=254> <3-3/SCOLOR=250> <捐献1000元宝就可以获得第六名3-3属性/SCOLOR=250>
<每次合区清理捐献排名>
<捐献排行/@排行> <我要捐款/@@InPutInteger15>
[@捐献规则]
#IF
#ACT
MESSAGEBOX 捐款不得少于1000元宝!排名前5分别获得:总统，公爵，侯爵，伯爵，子爵封号。合区清理数据。
[@排行]
#IF
#ACT
#SAY
<捐款不得少于1000元宝!合区清理数据。/SCOLOR=254>
<一号名:总统/SCOLOR=253>:<所捐金额/SCOLOR=46>:<捐献者/SCOLOR=46>:<$STR(S21)>{<$STR(N21)>/SCOLOR=250}
<第二名:公爵/SCOLOR=249>:<所捐金额/SCOLOR=46>:<捐献者/SCOLOR=46>:<$STR(S22)>{<$STR(N22)>/SCOLOR=250}
<第三名:侯爵/SCOLOR=250>:<所捐金额/SCOLOR=46>:<捐献者/SCOLOR=46>:<$STR(S23)>{<$STR(N23)>/SCOLOR=250}
<第四名:伯爵/SCOLOR=250>:<所捐金额/SCOLOR=46>:<捐献者/SCOLOR=46>:<$STR(S24)>{<$STR(N24)>/SCOLOR=250}
<第五名:子爵/SCOLOR=250>:<所捐金额/SCOLOR=46>:<捐献者/SCOLOR=46>:<$STR(S25)>{<$STR(N25)>/SCOLOR=250}
<我的捐献：/SCOLOR=253> <$HUMAN(JK)>
[@InPutInteger15]
#IF
EQUAL N15
#ACT
messagebox 请输入捐款金额!
GOTO @WYJK
BREAK
#IF
SMALL N15 1000
#ACT
messagebox 您所要的捐款的金额小于1000元宝!
BREAK
#IF
CHECKGAMEGOLD > <$STR(N15)>
#ACT
GAMEGOLD - <$STR(N15)>
CALCVAR HUMAN JK + <$STR(N15)>
SAVEVAR HUMAN JK ..QuestDiary捐献排行元宝捐献元宝捐款.txt
Addnamelist ..QuestDiary捐献排行第六排名.txt
#CALL [系统功能属性给予.txt] @属性给予
#ELSEACT
messagebox 您没有足够的元宝！
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N21)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S21)>』总统称号，上线攻魔道+30.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N22)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S22)>』公爵称号，上线攻魔道+20.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N23)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S23)>』侯爵称号，上线攻魔道+15.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N24)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S24)>』伯爵称号，上线攻魔道+10.
GOTO @排名刷新
BREAK
#IF
CHECKVAR HUMAN JK > <$STR(N25)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐款『<$STR(N15)>』元宝抢走了玩家『<$STR(S25)>』子爵称号，上线攻魔道+5.
GOTO @排名刷新
BREAK
[@排名刷新]
#ACT
SortHumVarToListEx JK ..QuestDiary捐献排行元宝捐献元宝捐款.txt 1 ..QuestDiary捐献排行元宝捐献捐款排行.txt 1
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 0 S21 N21
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 1 S22 N22
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 2 S23 N23
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 3 S24 N24
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 4 S25 N25
GetListString ..QuestDiary捐献排行元宝捐献捐款排行.txt 5 S26 N26
ClearNameList ..QuestDiary捐献排行一号排名.txt
ClearNameList ..QuestDiary捐献排行第二排名.txt
ClearNameList ..QuestDiary捐献排行第三排名.txt
ClearNameList ..QuestDiary捐献排行第四排名.txt
ClearNameList ..QuestDiary捐献排行第五排名.txt
AddTextList ..QuestDiary捐献排行一号排名.txt <$STR(S21)>
AddTextList ..QuestDiary捐献排行第二排名.txt <$STR(S22)>
AddTextList ..QuestDiary捐献排行第三排名.txt <$STR(S23)>
AddTextList ..QuestDiary捐献排行第四排名.txt <$STR(S24)>
AddTextList ..QuestDiary捐献排行第五排名.txt <$STR(S25)>
MOV S27 <$USERNAME>
INC S27 <$HUMAN(JK)>
GetStringPos ..QuestDiary捐献排行元宝捐献捐款排行.txt <$STR(S27)>
INC N30 1
MOV N28 <$STR(N30)>
#If
S21.Checkonline
#Act
;
Hcall
<$STR(S21)>
@刷新人物属性
#If
S22.Checkonline
#Act
;
Hcall
<$STR(S22)>
@刷新人物属性
#If
S23.Checkonline
#Act
;
Hcall
<$STR(S23)>
@刷新人物属性
#If
S24.Checkonline
#Act
;
Hcall
<$STR(S24)>
@刷新人物属性
#If
S25.Checkonline
#Act
;
Hcall
<$STR(S25)>
@刷新人物属性
上一篇:
传奇版本中回城的时候经常黑地图什么原因
下一篇:
脚本错误: PGStartAutoPickItem1第:13139 行: D:MirServerMir2
