2020-11-16 14:04
行会捐献脚本的目的是可以让行会里面捐献元宝的前3名成员获得属性，捐献榜第一名成员上线可以获得攻魔道属性10-10，第二名榜上成员获得6-6的攻魔道属性，第三名则获得2-2攻魔道属性。
(@@InPutInteger)
[@main]
#If
CheckLevelEx > 0
#Act
Mov S$行会名1 <$STR(A410)>
Mov S$行会名2 <$STR(A411)>
Mov S$行会名3 <$STR(A412)>
SetStringBlank <$STR(S$行会名1)> 16 1
SetStringBlank <$STR(S$行会名2)> 16 1
SetStringBlank <$STR(S$行会名3)> 16 1
#SAY
\ \ \
<每个人可为本行会捐献元宝,排行前３名的行会可获得奖励 →/SCOLOR=31> <查看奖励|250#第一名行会成员上线获得攻魔道10-10^251#第二名行会成员上线获得攻魔道6 - 6^31#第三名行会成员上线获得攻魔道2 - 2/SCOLOR=9>\
<---------------------------------------------------------------/AUTOCOLOR=91>\
<①排行第一所属行会/SCOLOR=250> {【<$STR(S$行会名1)>】/FCOLOR=255} {捐献数量:[<$STR(G410)>]/FCOLOR=254}\
<②排行第二所属行会/SCOLOR=251> {【<$STR(S$行会名2)>】/FCOLOR=255} {捐献数量:[<$STR(G411)>]/FCOLOR=251}\
<③排行第三所属行会/SCOLOR=31> {【<$STR(S$行会名3)>】/FCOLOR=255} {捐献数量:[<$STR(G412)>]/FCOLOR=31}\
<---------------------------------------------------------------/AUTOCOLOR=91>\
<合区后排名将会重新刷新/SCOLOR=70> <"所有行会成员均可为自己行会捐款">\
<---------------------------------------------------------------/AUTOCOLOR=91>\
<请输入要捐款的数量/@@inputinteger26(每次输入范围10-50000：)> <你的行会当前已捐献：/SCOLOR=253>[<$GUILDBUILDPOINT>]<个元宝/SCOLOR=253>
[@inputinteger26]
#IF
NOT HAVEGUILD
#ACT
MESSAGEBOX \\你没有行会不能捐款
break
#OR
SMALL N26 10
LARGE N26 50000
#ACT
MESSAGEBOX \\请输入有效数值[10-50000]
BREAK
#IF
CHECKGAMEGOLD < <$STR(N26)>
#ACT
messagebox \\元宝不足，无法捐款
BREAK
#IF
HAVEGUILD
#ACT
GAMEGOLD - <$STR(N26)>
GUILDBUILDPOINT + <$STR(N26)>
INC U36 <$STR(N26)>
GUILDAURAEPOINT + <$STR(N26)>
MESSAGEBOX \\你成功为本行会捐献了[<$STR(N26)>]个元宝
goto @排行刷新
GOTO @MAIN
SendCenterMsg 251 249 本行会成员[<$USERNAME>]成功为本行会捐献了[<$STR(N26)>]个元宝。 2 3
#elseact
GAMEGOLD - <$STR(N26)>
GUILDBUILDPOINT + <$STR(N26)>
INC U36 <$STR(N26)>
MESSAGEBOX \\你成功为本行会捐献了[<$STR(N26)>]个元宝
goto @排行刷新
GOTO @MAIN
SendCenterMsg 251 249 本行会成员[<$USERNAME>]成功为本行会捐献了[<$STR(N26)>]个元宝。 2 3
[@排行刷新]
#if
CHECKGUILDBUILDPOINT > <$STR(G410)>
#act
GOTO @BAOCUN1
GMEXECUTE 开始提问 @行会排行刷新
BREAK
#if
CHECKGUILDBUILDPOINT > <$STR(G411)>
#act
GOTO @BAOCUN2
GMEXECUTE 开始提问 @行会排行刷新
BREAK
#if
CHECKGUILDBUILDPOINT > <$STR(G412)>
#act
MOV A412 <$GUILDNAME>
MOV G412 <$GUILDBUILDPOINT>
GMEXECUTE 开始提问 @行会排行刷新
BREAK
[@BAOCUN2]
#IF
EQUAL A411 <$GUILDNAME>
#ACT
MOV A411 <$GUILDNAME>
MOV G411 <$GUILDBUILDPOINT>
#elseact
MOV A412 <$STR(A411)>
MOV G412 <$STR(G411)>
MOV A411 <$GUILDNAME>
MOV G411 <$GUILDBUILDPOINT>
[@BAOCUN1]
#IF
EQUAL A410 <$GUILDNAME>
#ACT
MOV A410 <$GUILDNAME>
MOV G410 <$GUILDBUILDPOINT>
BREAK
#IF
EQUAL A411 <$GUILDNAME>
#ACT
MOV A411 <$STR(A410)>
MOV G411 <$STR(G410)>
MOV A410 <$GUILDNAME>
MOV G410 <$GUILDBUILDPOINT>
#elseact
MOV A412 <$STR(A411)>
MOV G412 <$STR(G411)>
MOV A411 <$STR(A410)>
MOV G411 <$STR(G410)>
MOV A410 <$GUILDNAME>
MOV G410 <$GUILDBUILDPOINT>