4月42020
迷失传奇行会捐献排名
haosf 发布时间：2020-4-4 8:37 Saturday 阅读：2047次
迷失传奇为玩家提供最新迷失传奇开区信息,找迷失传奇何必东奔西走,最新迷失传奇发布网应有尽有.
(@@InPutInteger)
[@main]#IF
CheckStringList ..\QuestDiary\开区清空文本2\行会捐献名单.txt $GUILDNAME
#ELSEACT
MOV S15 <$GUILDNAME>
ADDLINELIST ..\QuestDiary\开区清空文本2\行会捐献数据\<$STR(S15)>.txt 0
CLEARNAMELIST ..\QuestDiary\开区清空文本2\行会捐献数据\<$STR(S15)>.txt
ADDLINELIST ..\QuestDiary\开区清空文本2\行会捐献数据\<$STR(S15)>.txt 0
ADDLINELIST ..\QuestDiary\开区清空文本2\行会捐献名单.txt $GUILDNAME
#IF
CheckStringList ..\QuestDiary\开区清空文本2\行会捐献名单.txt $GUILDNAME
#ACT
MOV S15 <$GUILDNAME>
ReadRandomLine ..\QuestDiary\开区清空文本2\行会捐献数据\<$STR(S15)>.txt S16
#IF
checklevelex > 0
#say
\
<COLOR=clRed 行会捐献排名 Hot~ > <查看行会附加属性/@查看> <我要为行会做贡献/@@InPutInteger88>\
<COLOR=clTeal ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈>\
<COLOR=clAqua 行会排名第一名>--[ <$GLOBAL(行会名字1)> ] <COLOR=clFuchsia 共捐献元宝：>[ <$GLOBAL(行会数量1)> ] \
<COLOR=clAqua 行会排名第二名>--[ <$GLOBAL(行会名字2)> ] <COLOR=clFuchsia 共捐献元宝：>[ <$GLOBAL(行会数量2)> ] \
<COLOR=clTeal ┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈>\
<COLOR=clLime 提示：当行会有排名，全会成员主号英雄都将享受属性加成！> \
<COLOR=clLime 合区后排名将会刷新！><COLOR=clRed “所有人都可以为自己的行会捐献”> \
<COLOR=clFuchsia 您目前行会累计捐献为：[> <$STR(S16)> <COLOR=clFuchsia 元宝 ]> <地图介绍/@介绍>\
<挑战【烈焰神塔】/@进地图1> <COLOR=clAqua 第一行会5W元宝，第二行会10W元宝，其他20W元宝> \
[@介绍]
\
<COLOR=clRed 地图介绍 Hot~ >\ \
<COLOR=clRed 地图分为50层，进入随机，打死怪物后需要回到土城重新进入 Hot~ >\
<COLOR=clLime 你到底会传送到哪一层，我也不知道，只能祝你好运了，小伙子> \
<COLOR=clAqua 传送进去就会刷怪，如果不消失碰到人了，只能见面就是干！！> \
<COLOR=clRed 称霸江湖必抢地图！！！！> \
<COLOR=clRed 注意：进入地图刷新什么怪我也不知道！只能祝你好运了> \
<COLOR=clAqua 进入条件：第一行会5W元宝，第二行会10W元宝，其他20W元宝> \
<挑战【烈焰神塔】/@进地图1> <返回/@main>
[@查看]
\
<COLOR=clRed 行会附加属性 Hot~ >\ \
<COLOR=clRed 独家玩法，牛逼叼炸天 Hot~ >\ \
<COLOR=clLime 排名第一的行会，包含行会成员增加攻魔道30 HPMP1500> \
<COLOR=clLime 排名第一的行会，包含行会成员增加攻魔道30 HPMP1500> \
<COLOR=clLime 排名第一的行会，包含行会成员增加攻魔道30 HPMP1500> \ \
<返回/@main>
[@进地图1]
#IF
CHECKVAR GLOBAL 行会名字1 = <$GUILDNAME>
#ACT
MOV D22 50000
GOTO @进图
#ELSEACT
GOTO @进地图2
BREAK
[@进地图2]
#IF
CHECKVAR GLOBAL 行会名字2 = <$GUILDNAME>
#ACT
MOV D22 100000
GOTO @进图
#ELSEACT
GOTO @进地图3
BREAK
[@进地图3]
#IF
CHECKGAMEGOLD > 199999
#ACT
MOV D22 200000
GOTO @进图
BREAK
[@进图]
#IF
CHECKGAMEGOLD < <$STR(D22)>
#ACT
MESSAGEBOX [提示]：元宝不足<$STR(D22)>个！
BREAK
#ELSEACT
GAMEGOLD - <$STR(D22)>
MOVR D20 50
INC D20 1
MAP XSJ<$STR(D20)>
DELAYGOTO 1 @刷怪
SENDMSG 0 恭喜玩家【%s】在进入随机地图【%m】★★！！ 251 249
SENDMSG 0 恭喜玩家【%s】在进入随机地图【%m】★★！！ 251 249
SENDMSG 0 恭喜玩家【%s】在进入随机地图【%m】★★！！ 251 249 30
BREAK
[@刷怪]
;#IF
;equal D20 50
;CheckRangeMonCount XSJ<$STR(D20)> 13 16 10 < 1
;#ACT
;MONGENEX XSJ<$STR(D20)> 18 30 稻草人 1 1
;BREAK
#IF
ISONMAP XSJ<$STR(D20)>
CheckRangeMonCount XSJ<$STR(D20)> 13 16 10 < 1
#ACT
ReadRandomStr .\QuestDiary\抽取怪物.txt S15
MONGENEX XSJ<$STR(D20)> 13 16 <$STR(S15)> 1 1
BREAK
[@@InPutInteger88]
#IF
HAVEGUILD
#ACT
DELAYGOTO 1 ~INPUTINTEGER88
BREAK
#ELSEACT
MESSAGEBOX [提示]：你还没有行会！
BREAK
[~InPutInteger88]
#if
small M88 1000
#ACT
MESSAGEBOX ぐ【失败】：最少捐献1000元宝!
GOTO @main
BREAK
#IF
CHECKGAMEGOLD < <$STR(M88)>
#ACT
MESSAGEBOX ぐ【失败】：您身上元宝不足<$STR(M88)>个!
GOTO @main
BREAK
#ELSEACT
GAMEGOLD - <$STR(M88)>
MOV S15 <$GUILDNAME>
ReadRandomLine ..\QuestDiary\开区清空文本2\行会捐献数据\<$STR(S15)>.txt S16
MOV M16 <$STR(S16)>
INC M16 <$STR(M88)>
CLEARNAMELIST ..\QuestDiary\开区清空文本2\行会捐献数据\<$STR(S15)>.txt
ADDLINELIST ..\QuestDiary\开区清空文本2\行会捐献数据\<$STR(S15)>.txt <$STR(M16)>
CALCVAR HUMAN 个人数量 = <$STR(M16)>
DELAYGOTO 1 @PH
BREAK
[@ph]
#IF
CHECKLEVELEX > 0
#ACT
MOV D99 0
MOV D11 1
MOV S10
MOV D10 3
; ↑D10=排名总数+1
#IF
CHECKVAR HUMAN 个人数量 = 0
#act
MOV D10 0
#IF
CHECKVAR GLOBAL 行会名字1 = <$STR(S15)>
#act
CALCVAR GLOBAL 行会数量1 = <$HUMAN(个人数量)>
MOV D10 1
#IF
CHECKVAR GLOBAL 行会名字2 = <$STR(S15)>
#act
CALCVAR GLOBAL 行会数量2 = <$HUMAN(个人数量)>
MOV D10 2
#IF
CHECKVAR GLOBAL 行会名字3 = <$STR(S15)>
#act
CALCVAR GLOBAL 行会数量3 = <$HUMAN(个人数量)>
MOV D10 3
;=======================1=========================
#IF
CHECKLEVELEX > 0
LARGE D10 1
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 行会数量<$STR(D11)> < <$HUMAN(个人数量)>
LARGE D10 1
#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)>
DEC D10 1
CALCVAR GLOBAL 行会名字<$STR(D10)> = <$STR(S15)>
CALCVAR GLOBAL 行会数量<$STR(D10)> = <$HUMAN(个人数量)>
MOV D99 1
;=======================2=========================
#IF
CHECKLEVELEX > 0
LARGE D10 1
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 行会数量<$STR(D11)> < <$HUMAN(个人数量)>
LARGE D10 1
#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)>
DEC D10 1
CALCVAR GLOBAL 行会名字<$STR(D10)> = <$STR(S15)>
CALCVAR GLOBAL 行会数量<$STR(D10)> = <$HUMAN(个人数量)>
MOV D99 1
;=======================3=========================
#IF
CHECKLEVELEX > 0
LARGE D10 1
#ACT
MOV D11 <$STR(D10)>
DEC D11 1
#IF
CHECKVAR GLOBAL 行会数量<$STR(D11)> < <$HUMAN(个人数量)>
LARGE D10 1
#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)>
DEC D10 1
CALCVAR GLOBAL 行会名字<$STR(D10)> = <$STR(S15)>
CALCVAR GLOBAL 行会数量<$STR(D10)> = <$HUMAN(个人数量)>
MOV D99 1
;降序
#IF
CHECKLEVELEX > 0
#ACT
MOV D11 1
MOV S10
MOV D10 0
MOV D12 3
; ↑D12=排名总数+1
#IF
CHECKVAR HUMAN 个人数量 = 0
#act
MOV D10 0
#IF
CHECKVAR GLOBAL 行会名字1 = <$STR(S15)>
#act
CALCVAR GLOBAL 行会数量1 = <$HUMAN(个人数量)>
MOV D10 1
#IF
CHECKVAR GLOBAL 行会名字2 = <$STR(S15)>
#act
CALCVAR GLOBAL 行会数量2 = <$HUMAN(个人数量)>
MOV D10 2
#IF
CHECKVAR GLOBAL 行会名字3 = <$STR(S15)>
#act
CALCVAR GLOBAL 行会数量3 = <$HUMAN(个人数量)>
MOV D10 3
#IF
EQUAL D10 0
#ACT
break
;=======================1=========================
#IF
CHECKLEVELEX > 0
LARGE D10 0
#ACT
MOV D11 <$STR(D10)>
INC D11 1
#IF
CHECKVAR GLOBAL 行会数量<$STR(D11)> > <$HUMAN(个人数量)>
SMALL D10 6
LARGE D10 0
#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)>
INC D10 1
CALCVAR GLOBAL 行会名字<$STR(D10)> = <$STR(S15)>
CALCVAR GLOBAL 行会数量<$STR(D10)> = <$HUMAN(个人数量)>
MOV D99 1
;=======================2=========================
#IF
CHECKLEVELEX > 0
LARGE D10 0
#ACT
MOV D11 <$STR(D10)>
INC D11 1
#IF
CHECKVAR GLOBAL 行会数量<$STR(D11)> > <$HUMAN(个人数量)>
SMALL D10 6
LARGE D10 0
#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)>
INC D10 1
CALCVAR GLOBAL 行会名字<$STR(D10)> = <$STR(S15)>
CALCVAR GLOBAL 行会数量<$STR(D10)> = <$HUMAN(个人数量)>
MOV D99 1
;=======================3=========================
#IF
CHECKLEVELEX > 0
LARGE D10 0
#ACT
MOV D11 <$STR(D10)>
INC D11 1
#IF
CHECKVAR GLOBAL 行会数量<$STR(D11)> > <$HUMAN(个人数量)>
SMALL D10 6
LARGE D10 0
#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)>
INC D10 1
CALCVAR GLOBAL 行会名字<$STR(D10)> = <$STR(S15)>
CALCVAR GLOBAL 行会数量<$STR(D10)> = <$HUMAN(个人数量)>
MOV D99 1
#IF
EQUAL D99 1
#ACT
Gmexecute 开始提问 @属性改变
#IF
CHECKLEVELEX > 0
#ACT
SAVEVAR GLOBAL 行会名字1 ..\QuestDiary\开区清空文本2\行会捐献.txt
SAVEVAR GLOBAL 行会名字2 ..\QuestDiary\开区清空文本2\行会捐献.txt
SAVEVAR GLOBAL 行会名字3 ..\QuestDiary\开区清空文本2\行会捐献.txt
SAVEVAR GLOBAL 行会数量1 ..\QuestDiary\开区清空文本2\行会捐献.txt
SAVEVAR GLOBAL 行会数量2 ..\QuestDiary\开区清空文本2\行会捐献.txt
SAVEVAR GLOBAL 行会数量3 ..\QuestDiary\开区清空文本2\行会捐献.txt
SENDMSG 0 【%s】为【<$STR(S15)>】行会捐献【<$STR(M88)>元宝】，【<$STR(S15)>】当前排名为：【<$STR(D10)>】 255 241 30
DELAYGOTO 1 @MAIN
[@属性改变]
#If
HAVEGUILD
#Act
#CALL [\\登陆\属性.txt] @SX
[@变量]
#IF
equal I11 0
#ACT
MOV I11 79704342
VAR String GLOBAL 行会名字1
VAR String GLOBAL 行会名字2
VAR String GLOBAL 行会名字3
VAR Integer GLOBAL 行会数量1
VAR Integer GLOBAL 行会数量2
VAR Integer GLOBAL 行会数量3
LOADVAR GLOBAL 行会名字1 ..\QuestDiary\开区清空文本2\行会捐献.txt
LOADVAR GLOBAL 行会名字2 ..\QuestDiary\开区清空文本2\行会捐献.txt
LOADVAR GLOBAL 行会名字3 ..\QuestDiary\开区清空文本2\行会捐献.txt
LOADVAR GLOBAL 行会数量1 ..\QuestDiary\开区清空文本2\行会捐献.txt
LOADVAR GLOBAL 行会数量2 ..\QuestDiary\开区清空文本2\行会捐献.txt
LOADVAR GLOBAL 行会数量3 ..\QuestDiary\开区清空文本2\行会捐献.txt
