[@MAIN]
#CALL [Mir2000_自动入会Mir2000_自动入会NPC.txt] @Mir2000_自动入会NPC
 |
脚本下载地址 |
Mir2000_自动入会QF.txt
[@Mir2000_自动入会QF]
{
[@UserCmd9]
#IF
ISGUILDMASTER
#ACT
GOTO @Mir2000_自动入会NPC
BREAK
#IF
HAVEGUILD
#ACT
SENDMSG 7 对不起，您已有行会，无法申请加入！
BREAK
#IF
CHECKLEVELEX > 0
#ACT
QUERYVALUE 10 0 20 @Mir2000_入会申请 输入申请加入的行会名： QF
BREAK
[@Mir2000_入会申请]
#IF
CHECKStringList ….GuildBaseGuildList.txt <$STR(S10)>
#ACT
INI_READ_STRING ….GuildBaseGuilds<$STR(S10)>.ini Mir2000_入会设置 Mir2000_入会掌门 S11
INI_READ_INTEGER ….GuildBaseGuilds<$STR(S10)>.ini Mir2000_入会设置 Mir2000_入会开关 P1
INI_READ_INTEGER ….GuildBaseGuilds<$STR(S10)>.ini Mir2000_入会设置 Mir2000_入会等级 P2
INI_READ_INTEGER ….GuildBaseGuilds<$STR(S10)>.ini Mir2000_入会设置 Mir2000_入会弹窗 P3
#ELSEACT
MESSAGEBOX 入会申请： 对不起，您输入的行会名字不正确！
BREAK
#OR
SMALL P1 1
EQUAL S11
#ACT
MESSAGEBOX 入会申请： 【<$STR(S10)>】行会当前禁止任何人加入，请联系行会掌门开放入会！
BREAK
#IF
CHECKLEVELEX < <$STR(P2)>
#ACT
MESSAGEBOX 入会申请： 【<$STR(S10)>】行会低要求[<$STR(P2)>级]才能加入！
BREAK
#IF
SMALL P3 1
#ACT
AFFILIATEGUILD <$STR(S10)>
MESSAGEBOX 入会申请： 恭喜加入【<$STR(S10)>】成功，同兄弟们回到好玩推荐的岁月！
BREAK
#IF
CHECKONLINE <$STR(S11)>
#ACT
<$STR(S11)>.CALCVAR HUMAN 申请入会姓名 = <$USERNAME>
<$STR(S11)>.CALCVAR HUMAN 申请入会职业 = <$JOB>
<$STR(S11)>.CALCVAR HUMAN 申请入会等级 = <$LEVEL>
<$STR(S11)>.QUERYVALUE 2 2 2 @Mir2000_同意入会 入会申请： 姓名[<$USERNAME>]职业[<$JOB>]等级[<$LEVEL>]。 前往【确认】同意入会 → QF
MESSAGEBOX 入会申请： 请求加入【<$STR(S10)>】的申请已发出。 如果长时间未同意、可能就是被拒绝！
#ELSEACT
MESSAGEBOX 入会申请： 【<$STR(S10)>】的掌门[<$STR(S11)>]未在线，无法申请！
BREAK
[@Mir2000_同意入会]
#IF
CHECKLEVELEX > 0
#ACT
<$HUMAN(申请入会姓名)>.AFFILIATEGUILD <$GUILDNAME>
#IF
<$HUMAN(申请入会姓名)>.HAVEGUILD
#ELSEACT
<$HUMAN(申请入会姓名)>.GMEXECUTE 加入门派
<$HUMAN(申请入会姓名)>.AFFILIATEGUILD <$GUILDNAME>
#IF
CHECKLEVELEX > 0
#ACT
<$HUMAN(申请入会姓名)>.MESSAGEBOX 入会申请： 行会【<$GUILDNAME>】已经同意您的入会申请！
BREAK
[@Mir2000_自动入会加载]
#CALL [Mir2000_自动入会Mir2000_自动入会NPC.txt] @Mir2000_自动入会NPC
BREAK
}
[@Mir2000_自动入会QM]
{
#IF
CHECKLEVELEX > 0
#ACT
VAR STRING HUMAN 申请入会姓名
VAR STRING HUMAN 申请入会职业
VAR INTEGER HUMAN 申请入会等级
#IF
ISGUILDMASTER
#ACT
INI_READ_STRING ….GuildBaseGuilds<$GUILDNAME>.ini Mir2000_入会设置 Mir2000_入会掌门 S11
#ELSEACT
BREAK
#IF
EQUAL <$STR(S11)>
#ELSEACT
INI_WRITE_STRING ….GuildBaseGuilds<$GUILDNAME>.ini Mir2000_入会设置 Mir2000_入会掌门 <$USERNAME>
BREAK
}
