一。机器人

;--------控制攻沙行会进入开关--------
#AutoRun NPC RUNONDAY 18:00 @红蓝方开启入会
#AutoRun NPC RUNONDAY 20:30 @红蓝方结束入会

[@红蓝方开启入会]
#IF
EQUAL <$HFCOUNT> 1
EQUAL A431 
#ACT
DummyloGon WX 23 25  10 0 2 1 0 
MOV A431 开启
SendCenterMsg 250 0  红蓝方行会系统已开启,玩家现在可以开始入会了。  1   15
SENDMSG 0 红蓝方行会系统已开启,玩家现在可以开始入会了。
SENDMSG 0 红蓝方行会系统已开启,玩家现在可以开始入会了。
SENDMSG 0 红蓝方行会系统已开启,玩家现在可以开始入会了。


[@红蓝方结束入会]
#IF
EQUAL <$HFCOUNT> 1
EQUAL A431 开启
#ACT
MOV A431 结束

    QM创建红蓝方

    #IF
    ISDUMMY
    EQUAL <$USERNAME> 龙语大哥
    NOT EQUAL <$GUILDNAME> 红方
    #ACT
    AddGuild 红方 龙语大哥
    ADDGUILDMEMBERCOUNT SELF = 500
    DELAYGOTO 30000 @假人自动下线
    
    #IF
    ISDUMMY
    EQUAL <$USERNAME> 龙语大姐
    NOT EQUAL <$GUILDNAME> 蓝方
    #ACT
    AddGuild 蓝方 龙语大姐
    ADDGUILDMEMBERCOUNT SELF = 500
    DELAYGOTO 30000 @假人自动下线
    
    
    
    [@假人自动下线]
    #IF
    ISDUMMY
    #ACT
    KICK
    BREAK

      QF,退出行会处理

      
       
       
      [@GuildDelMember]
      #IF
      NOT EQUAL A437 <$USERNAME>
      EQUAL <$GUILDNAME> 红方
      LARGE <$LEVEL> 49
      SMALL <$LEVEL> 60
      #ACT
      CALCVAR GLOBAL 红方52人数 - 1
      SAVEVAR GLOBAL 红方52人数 
      CALCVAR GLOBAL 红方总人数 - 1
      SAVEVAR GLOBAL 红方总人数 
      AddTextListEx ..\QuestDiary\数据文件\退出行会\退出行会名单.txt <$USERNAME>
      SetHumAttackMode 5 1
      
      #IF
      NOT EQUAL A437 <$USERNAME>
      EQUAL <$GUILDNAME> 红方
      LARGE <$LEVEL> 59
      SMALL <$LEVEL> 70
      #ACT
      CALCVAR GLOBAL 红方60人数 - 1
      SAVEVAR GLOBAL 红方60人数 
      CALCVAR GLOBAL 红方总人数 - 1
      SAVEVAR GLOBAL 红方总人数 
      AddTextListEx ..\QuestDiary\数据文件\退出行会\退出行会名单.txt <$USERNAME>
      SetHumAttackMode 5 1
      
      #IF
      NOT EQUAL A437 <$USERNAME>
      EQUAL <$GUILDNAME> 红方
      EQUAL <$LEVEL> 70
      #ACT
      CALCVAR GLOBAL 红方70人数 - 1
      SAVEVAR GLOBAL 红方70人数 
      CALCVAR GLOBAL 红方总人数 - 1
      SAVEVAR GLOBAL 红方总人数 
      AddTextListEx ..\QuestDiary\数据文件\退出行会\退出行会名单.txt <$USERNAME>
      SetHumAttackMode 5 1
      
      #IF
      NOT EQUAL A438 <$USERNAME>
      EQUAL <$GUILDNAME> 蓝方
      LARGE <$LEVEL> 49
      SMALL <$LEVEL> 60
      #ACT
      CALCVAR GLOBAL 蓝方52人数 - 1
      SAVEVAR GLOBAL 蓝方52人数 
      CALCVAR GLOBAL 蓝方总人数 - 1
      SAVEVAR GLOBAL 蓝方总人数 
      AddTextListEx ..\QuestDiary\数据文件\退出行会\退出行会名单.txt <$USERNAME>
      SetHumAttackMode 5 1
      
      #IF
      NOT EQUAL A438 <$USERNAME>
      EQUAL <$GUILDNAME> 蓝方
      LARGE <$LEVEL> 59
      SMALL <$LEVEL> 70
      #ACT
      CALCVAR GLOBAL 蓝方60人数 - 1
      SAVEVAR GLOBAL 蓝方60人数 
      CALCVAR GLOBAL 蓝方总人数 - 1
      SAVEVAR GLOBAL 蓝方总人数 
      AddTextListEx ..\QuestDiary\数据文件\退出行会\退出行会名单.txt <$USERNAME>
      SetHumAttackMode 5 1
      
      #IF
      NOT EQUAL A438 <$USERNAME>
      EQUAL <$GUILDNAME> 蓝方
      EQUAL <$LEVEL> 70
      #ACT
      CALCVAR GLOBAL 蓝方70人数 - 1
      SAVEVAR GLOBAL 蓝方70人数 
      CALCVAR GLOBAL 蓝方总人数 - 1
      SAVEVAR GLOBAL 蓝方总人数 
      AddTextListEx ..\QuestDiary\数据文件\退出行会\退出行会名单.txt <$USERNAME>
      SetHumAttackMode 5 1
      #OR
      EQUAL A437 <$USERNAME>
      EQUAL A438 <$USERNAME>
      #ACT
      SetHumAttackMode 5 1
      
      
      #IF
      #ACT
      AddTextListEx ..\QuestDiary\数据文件\退出行会\退出行会记录.txt [<$USERNAME>]退出[<$GUILDNAME>]行会:<$DATETIME>

        NPC,创建

        [@main]
        #IF
        large <$HFCOUNT> 1
        #ACT
        sendmsg 9  <font color='#00FF00'> 首次沙巴克攻城结束后无需再加入红蓝方!</font>
        BREAK
         
        #IF
        EQUAL N$禁止弹框 1
        #ACT
        MOV N$禁止弹框 0
        #ELSEACT
        sendmsg 9  <font color='#FF0000'>加入行会后随意退出,合区前无法再次加入红蓝方</font>
        
        #IF
        equal <$CLIENTFLAG> 1
        #SAY
        <Img|ay=1|x=0.0|y=0.0|width=500|height=320|scale9r=10|reset=1|reload=1|scale9t=10|img=public/bg_npc_01.png|scale9l=10|move=0|bg=1|scale9b=10>
        <Layout|x=597.0|y=2.0|width=80|height=80|link=@exit>
        <Button|x=500.0|y=1.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
        <Img|x=95.0|y=24.0|width=100|esc=0|img=custom/zft/hl_fj_02.png>
        <Text|x=224.0|y=19.0|color=149|size=18|text=红 蓝 方>
        <Img|x=310.0|y=24.0|width=100|esc=0|img=custom/zft/hl_fj_04.png>
        <Text|x=67.0|y=52.0|color=254|size=16|text=只有两个红蓝方才可以参与攻沙,获得对应沙巴克奖励>
        <Text|a=0|x=64.0|y=119.0|color=249|size=16|text=行会加入后人为退出,未合区前不能加入行会红方,蓝方>
        <RText|x=49.0|y=75.0|color=250|size=16|text=新区一合,采用红蓝方模式沙巴克争夺,奖励按活跃度领取>
        <RText|x=56.0|y=96.0|color=250|size=16|text=一合后沙巴克所有行会可参与,有活跃度的失败方均可领奖>
        <RText|x=103.0|y=150.0|color=89|size=16|text=行会总人数                <红方:/FCOLOR=249>{<$GLOBAL(红方总人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方总人数)>/FCOLOR=249}人>
        <RText|x=64.0|y=180.0|color=255|size=16|text=<52级/FCOLOR=70> ≤ <等级/FCOLOR=250> 〈 <60/FCOLOR=70>             <红方:/FCOLOR=249>{<$GLOBAL(红方52人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方52人数)>/FCOLOR=249}人>
        <RText|x=64.0|y=210.0|color=255|size=16|text=<60级/FCOLOR=70> ≤ <等级/FCOLOR=250> 〈 <70/FCOLOR=70>             <红方:/FCOLOR=249>{<$GLOBAL(红方60人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方60人数)>/FCOLOR=249}人>
        <RText|x=64.0|y=240.0|color=255|size=16|text=<70级/FCOLOR=70> ≤ <等级/FCOLOR=250> 〈 <70/FCOLOR=70>             <红方:/FCOLOR=249>{<$GLOBAL(红方70人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方70人数)>/FCOLOR=249}人>
        <Img|x=30.0|y=171.0|width=440|img=public/1900000667.png|esc=0>
        <Img|x=30.0|y=270.0|width=440|img=public/1900000667.png|esc=0>
        <Text|a=0|x=210.0|y=280.0|tips={红方YY:681608/FCOLOR=249}^{蓝方YY:681608/FCOLOR=249}|tipsx=-3|tipsy=40|color=251|size=17|text=点击加入红蓝方|link=@点击加入红蓝方>
        
        
        
        
        #IF
        equal <$CLIENTFLAG> 2
        #SAY
        <Img|ay=1|x=0.0|y=0.0|width=500|height=320|scale9r=10|reset=1|scale9t=10|reload=1|img=public/bg_npc_01.png|scale9l=10|move=0|bg=1|scale9b=10>
        <Layout|x=597.0|y=2.0|width=80|height=80|link=@exit>
        <Button|x=500.0|y=1.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
        <Img|x=95.0|y=24.0|width=100|esc=0|img=custom/zft/hl_fj_02.png>
        <Text|x=220.0|y=14.0|color=149|size=18|text=红 蓝 方>
        <Img|x=310.0|y=24.0|width=100|esc=0|img=custom/zft/hl_fj_04.png>
        <Text|x=67.0|y=52.0|color=254|size=16|text=只有两个红蓝方才可以参与攻沙,获得对应沙巴克奖励>
        <Text|a=0|x=64.0|y=119.0|color=249|size=16|text=行会加入后人为退出,未合区前不能加入行会红方,蓝方>
        <RText|x=49.0|y=75.0|color=250|size=16|text=新区一合,采用红蓝方模式沙巴克争夺,奖励按活跃度领取>
        <RText|x=56.0|y=96.0|color=250|size=16|text=一合后沙巴克所有行会可参与,有活跃度的失败方均可领奖>
        <RText|x=103.0|y=150.0|color=89|size=16|text=行会总人数                <红方:/FCOLOR=249>{<$GLOBAL(红方总人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方总人数)>/FCOLOR=249}人>
        <RText|x=64.0|y=180.0|color=255|size=16|text=<52级/FCOLOR=70> ≤ <等级/FCOLOR=250> 〈 <60/FCOLOR=70>             <红方:/FCOLOR=249>{<$GLOBAL(红方52人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方52人数)>/FCOLOR=249}人>
        <RText|x=64.0|y=210.0|color=255|size=16|text=<60级/FCOLOR=70> ≤ <等级/FCOLOR=250> 〈 <70/FCOLOR=70>             <红方:/FCOLOR=249>{<$GLOBAL(红方60人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方60人数)>/FCOLOR=249}人>
        <RText|x=64.0|y=240.0|color=255|size=16|text=<70级/FCOLOR=70> ≤ <等级/FCOLOR=250> 〈 <70/FCOLOR=70>             <红方:/FCOLOR=249>{<$GLOBAL(红方70人数)>/FCOLOR=249}人                     <蓝方:/FCOLOR=146>{<$GLOBAL(蓝方70人数)>/FCOLOR=249}人>
        <Img|x=30.0|y=171.0|width=440|img=public/1900000667.png|esc=0>
        <Img|x=30.0|y=270.0|width=440|img=public/1900000667.png|esc=0>
        <Button|a=0|x=200.0|y=275.0|width=150|height=30|tips={红方YY:681608/FCOLOR=249}^{蓝方YY:681608/FCOLOR=249}|tipsx=-3|tipsy=40|color=251|size=17|pimg=public/image5.png|nimg=public/image7.png|mimg=public/image7.png|text=点击加入红蓝方|link=@点击加入红蓝方>
        
        #IF
        equal <$CLIENTFLAG> 3
        #SAY
        <><沙巴克攻沙期间只有两个行会可以参与攻沙,获得对应沙巴克奖励/AUTOCOLOR=254>\
        <><行会加入后人为退出,未合区前不能加入行会红方,蓝方/AUTOCOLOR=249>\
        <><------------------------------------------------------/AUTOCOLOR=253>\
        <><当前行会总人数/autocolor=103>             <红方>:{<$STR(G429)>人/AUTOCOLOR=250}         <蓝方/AUTOCOLOR=146>:{<$STR(G430)>人/AUTOCOLOR=250}          \
        <><52/autocolor=70> ≤ <等级/AUTOCOLOR=250> 〈  <60/AUTOCOLOR=70>    <红方>:<$STR(G423)>人   <蓝方:/AUTOCOLOR=146><$STR(G424))>人     <相差不能超过><1/FCOLOR=251><人>\
        <><60/autocolor=70> ≤ <等级/AUTOCOLOR=250> 〈  <70/AUTOCOLOR=70>    <红方>:<$STR(G425)>人   <蓝方:/AUTOCOLOR=146><$STR(G426)>人     <相差不能超过><1/FCOLOR=251><人>\
        <><70/autocolor=70> ≤ <等级/AUTOCOLOR=250> 〈  <70/AUTOCOLOR=70>    <红方>:<$STR(G427)>人   <蓝方:/AUTOCOLOR=146><$STR(G428)>人     <相差不能超过><1/FCOLOR=251><人>\
        <><------------------------------------------------------/AUTOCOLOR=253>\
        <> <【加入红方】/@加入红方>  <退出行会,未合区前无法再次加入>  <【加入蓝方】/@加入蓝方>\
        
        
        
        [@点击加入红蓝方]
        #IF
        ; EQUAL <$HFCOUNT> 1
        EQUAL A431 开启
        #ELSEACT
        sendmsg 9  <font color='#00FF00'>当前无法加入,开放时间:一合当天【18:00】--【20:30】</font>
        BREAK
        
        #IF
        checknamelist ..\QuestDiary\数据文件\退出行会\退出行会名单.txt 
        #ACT
        sendmsg 9  <font color='#00FF00'>你已加入过红蓝方,退出无法再次加入</font>
        BREAK
        
        #IF
        HAVEGUILD
        #ACT
        sendmsg 9  <font color='#00FF00'> 对不起!您当前有行会</font>
        BREAK
        
        
        #IF
        CHECKLEVELEX < 50
        #ACT
        sendmsg 9  <font color='#00FF00'> 对不起!您的等级不足!</font>
        break
        
        #IF
        CHECKJOB warrior
        SMALL <$MAXDC> 150
        #ACT
        sendmsg 9  <font color='#00FF00'> 对不起!您的攻击不足150无法进入</font>
        BREAK
        
        #IF 
        #ACT 
        GETGuildsNumber 红方 S$红方人数
        GETGuildsNumber 蓝方 S$蓝方人数
        
        #IF 
        equal S$红方人数
        #act 
        sendmsg 9  <font color='#FFFF00'>当前红方行会不存在,联系客服处理</font>
        BREAK
        
        #IF  
        equal S$蓝方人数
        #act 
        sendmsg 9  <font color='#FFFF00'>当前蓝方行会不存在,联系客服处理</font>
        BREAK
        
        
        #IF
        LARGE <$LEVEL> 49
        SMALL <$LEVEL> 60
        #ACT
        GOTO @52级安排加入
        BREAK
        
        #IF
        LARGE <$LEVEL> 59
        SMALL <$LEVEL> 70
        #ACT
        GOTO @60级安排加入
        BREAK
        
        #IF
        EQUAL <$LEVEL> 70
        #ACT
        GOTO @70级安排加入
        BREAK
        
        [@52级安排加入]
        #IF
        CHECKVAR GLOBAL 红方52人数 = <$GLOBAL(蓝方52人数)>
        #ACT
        MOVR N$取随机值 2
        #IF
        EQUAL N$取随机值 0
        CHECKVAR GLOBAL 红方52人数 = <$GLOBAL(蓝方52人数)>
        #ACT
        ADDGUILDMEMBER 红方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入红方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 红方52人数 + 1
        SAVEVAR GLOBAL 红方52人数 
        CALCVAR GLOBAL 红方总人数 + 1
        SAVEVAR GLOBAL 红方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #IF
        EQUAL N$取随机值 1
        CHECKVAR GLOBAL 红方52人数 = <$GLOBAL(蓝方52人数)>
        #ACT
        ADDGUILDMEMBER 蓝方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入蓝方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 蓝方52人数 + 1
        SAVEVAR GLOBAL 蓝方52人数 
        CALCVAR GLOBAL 蓝方总人数 + 1
        SAVEVAR GLOBAL 蓝方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #OR
        CHECKVAR GLOBAL 红方52人数 < <$GLOBAL(蓝方52人数)>
        #ACT
        ADDGUILDMEMBER 红方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入红方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 红方52人数 + 1
        SAVEVAR GLOBAL 红方52人数 
        CALCVAR GLOBAL 红方总人数 + 1
        SAVEVAR GLOBAL 红方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #OR
        CHECKVAR GLOBAL 蓝方52人数 < <$GLOBAL(红方52人数)>
        #ACT
        ADDGUILDMEMBER 蓝方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入蓝方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 蓝方52人数 + 1
        SAVEVAR GLOBAL 蓝方52人数 
        CALCVAR GLOBAL 蓝方总人数 + 1
        SAVEVAR GLOBAL 蓝方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        
        
        
        
        
        [@60级安排加入]
        #IF
        CHECKVAR GLOBAL 红方60人数 = <$GLOBAL(蓝方60人数)>
        #ACT
        MOVR N$取随机值 2
        #IF
        EQUAL N$取随机值 0
        CHECKVAR GLOBAL 红方60人数 = <$GLOBAL(蓝方60人数)>
        #ACT
        ADDGUILDMEMBER 红方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入红方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 红方60人数 + 1
        SAVEVAR GLOBAL 红方60人数 
        CALCVAR GLOBAL 红方总人数 + 1
        SAVEVAR GLOBAL 红方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #IF
        EQUAL N$取随机值 1
        CHECKVAR GLOBAL 红方60人数 = <$GLOBAL(蓝方60人数)>
        #ACT
        ADDGUILDMEMBER 蓝方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入蓝方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 蓝方60人数 + 1
        SAVEVAR GLOBAL 蓝方60人数 
        CALCVAR GLOBAL 蓝方总人数 + 1
        SAVEVAR GLOBAL 蓝方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #OR
        CHECKVAR GLOBAL 红方60人数 < <$GLOBAL(蓝方60人数)>
        #ACT
        ADDGUILDMEMBER 红方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入红方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 红方60人数 + 1
        SAVEVAR GLOBAL 红方60人数 
        CALCVAR GLOBAL 红方总人数 + 1
        SAVEVAR GLOBAL 红方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #OR
        CHECKVAR GLOBAL 蓝方60人数 < <$GLOBAL(红方60人数)>
        #ACT
        ADDGUILDMEMBER 蓝方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入蓝方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 蓝方60人数 + 1
        SAVEVAR GLOBAL 蓝方60人数 
        CALCVAR GLOBAL 蓝方总人数 + 1
        SAVEVAR GLOBAL 蓝方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        
        
        
        
        [@70级安排加入]
        #IF
        CHECKVAR GLOBAL 红方70人数 = <$GLOBAL(蓝方70人数)>
        #ACT
        MOVR N$取随机值 2
        #IF
        EQUAL N$取随机值 0
        CHECKVAR GLOBAL 红方70人数 = <$GLOBAL(蓝方70人数)>
        #ACT
        ADDGUILDMEMBER 红方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入红方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 红方70人数 + 1
        SAVEVAR GLOBAL 红方70人数 
        CALCVAR GLOBAL 红方总人数 + 1
        SAVEVAR GLOBAL 红方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #IF
        EQUAL N$取随机值 1
        CHECKVAR GLOBAL 红方70人数 = <$GLOBAL(蓝方70人数)>
        #ACT
        ADDGUILDMEMBER 蓝方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入蓝方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 蓝方70人数 + 1
        SAVEVAR GLOBAL 蓝方70人数 
        CALCVAR GLOBAL 蓝方总人数 + 1
        SAVEVAR GLOBAL 蓝方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #OR
        CHECKVAR GLOBAL 红方70人数 < <$GLOBAL(蓝方70人数)>
        #ACT
        ADDGUILDMEMBER 红方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入红方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 红方70人数 + 1
        SAVEVAR GLOBAL 红方70人数 
        CALCVAR GLOBAL 红方总人数 + 1
        SAVEVAR GLOBAL 红方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
        #OR
        CHECKVAR GLOBAL 蓝方70人数 < <$GLOBAL(红方70人数)>
        #ACT
        ADDGUILDMEMBER 蓝方 <$USERNAME>
        sendmsg 9  <font color='#00FF00'>加入蓝方行会.如退出行会,合区前无法再次加入红蓝方</font>
        CALCVAR GLOBAL 蓝方70人数 + 1
        SAVEVAR GLOBAL 蓝方70人数 
        CALCVAR GLOBAL 蓝方总人数 + 1
        SAVEVAR GLOBAL 蓝方总人数 
        SetHumAttackMode 5 65535
        MOV N$禁止弹框 1
        GOTO @MAIN
        break
          变量申明

          #IF
          #ACT
          VAR INTEGER GLOBAL 红方总人数 6
          VAR INTEGER GLOBAL 红方52人数 6
          VAR INTEGER GLOBAL 红方60人数 6
          VAR INTEGER GLOBAL 红方70人数 6
          VAR INTEGER GLOBAL 蓝方总人数 6
          VAR INTEGER GLOBAL 蓝方52人数 6
          VAR INTEGER GLOBAL 蓝方60人数 6
          VAR INTEGER GLOBAL 蓝方70人数 6

            [@InPutString5]
            #IF
            EQUAL S5
            #ACT
            MESSAGEBOX 对不起!请输入玩家名字
            BREAK
            
            #IF 
            #ACT 
            GETGuildsNumber 红方 N$红方人数
            
            #IF 
            SMALL N$红方人数 1
            #act 
            sendmsg 9  <font color='#FFFF00'>当前分区尚未创建红方行会。</font>
            BREAK
            
            #IF
            NOT S5.checkonline
            #ACT
            MESSAGEBOX “<$STR(S5)>”不在线!
            BREAK
            
            ; 不在红方,先加入
            #IF
            NOT S5.CHECKOFGUILD 红方
            #ACT
            S5.ADDGUILDMEMBER 红方 <$STR(S5)>
            
            #IF
            S5.CHECKOFGUILD 红方
            #ACT
            <$STR(A437)>.SETRANKSGUILD 行会成员
            <$STR(S5)>.SETRANKSGUILD 副掌门
            MOV A437 <$STR(S5)>
            
            #IF
            S5.HAVEGUILD
            S5.CHECKOFGUILD 红方
            #ACT
            MESSAGEBOX 已将“<$STR(S5)>”加入红方行会,并提升为红方掌门!
            BREAK
            #ELSEACT
            MOV A437 
            MESSAGEBOX 操作失败,错误原因可能为:\\1.玩家“<$STR(S5)>”已加入其它行会\\2.红方行会已经有2位掌门人
            BREAK
            
            
            [@InPutString6]
            #IF
            EQUAL S6
            #ACT
            MESSAGEBOX 对不起!请输入玩家名字
            BREAK
            
            #IF
            NOT S6.checkonline
            #ACT
            MESSAGEBOX “<$STR(S6)>”不在线!
            BREAK
            
            #IF 
            #ACT 
            GETGuildsNumber 蓝方 N$蓝方人数
            
            
            #IF  
            SMALL N$蓝方人数 1
            #act 
            sendmsg 9  <font color='#FFFF00'>当前分区尚未创建蓝方行会。</font>
            BREAK
            
            ; 不在蓝方,先加入会蓝方
            #IF
            not S6.CHECKOFGUILD 蓝方
            #ACT
            S6.ADDGUILDMEMBER 蓝方 <$STR(S6)>
            
            ; 设置副掌门
            #IF
            S6.CHECKOFGUILD 蓝方
            #ACT
            <$STR(A438)>.SETRANKSGUILD 行会成员
            <$STR(S6)>.SETRANKSGUILD 副掌门
            MOV A438 <$STR(S6)>
            
            #IF
            S6.HAVEGUILD
            S6.CHECKOFGUILD 蓝方
            #ACT
            MESSAGEBOX 已将“<$STR(S6)>”加入蓝方行会,并提升为蓝方掌门!
            BREAK
            #ELSEACT
            MOV A438 
            MESSAGEBOX 操作失败,错误原因可能为:\\1.玩家“<$STR(S6)>”已加入其它行会\\2.蓝方行会已经有2位掌门人
            BREAK
              撰写回复...