欢迎登录八尾狐交易平台!
帮助中心   |    曝光台

八尾狐

热门搜索: 单职业    沉默    仙剑    复古    商业    品牌    打金   

爵位捐献脚本,排名前5分别获得:总统公爵侯爵伯爵子爵封号

  • 时间:2020-05-31 13:23 编辑:八尾狐 来源:八尾狐 阅读:398
  • 扫一扫,手机访问
摘要:(@buy @sell @upgradenow @getbackupgnow @repair @s_repair @@InPutString @@InPutInteger @ReclaimItem )%100+10+11+15 [@main]#IFCHECKLEVELEX > 0#ACTLOADVAR HUMAN JK ..QuestDiary捐献排行\元宝捐献元宝捐款.txtSortHum

(@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.gm005.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)> @刷新人物属性


  • 全部评论(0)
联系我们

电话:15066888405

邮箱:kefu@baweihu.cn

时间:9:00-18:00


扫一扫关注我们