gom引擎行会收人第一行会竞标第二行会传奇脚本

admin

[@main]
        #IF
        #ACT
        MOV S$第一行会竞标
        MOV S$第二行会竞标
        MOV S$第三行会竞标
        MOV S$等级要求1
        MOV S$等级要求2
        MOV S$等级要求3
       
       
       
        #IF
        equal A304
        #ACT
        MOV S$收人状态1 -
       
        #IF
        equal A305
        #ACT
        MOV S$收人状态2 -
       
       
        #IF
        equal A306
        #ACT
        MOV S$收人状态3 -
       
       
        #IF
        equal A304 允许收人
        #ACT
        MOV S$收人状态1
       
        #IF
        equal A305 允许收人
        #ACT
        MOV S$收人状态2
       
       
        #IF
        equal A306 允许收人
        #ACT
        MOV S$收人状态3
       
       
        #IF
        equal A304 拒绝收人
        #ACT
        MOV S$收人状态1
       
        #IF
        equal A305 拒绝收人
        #ACT
        MOV S$收人状态2
       
       
        #IF
        equal A306 拒绝收人
        #ACT
        MOV S$收人状态3
       
        #IF
        #ACT
        SetStringBlank S$收人状态1 21 1
        SetStringBlank S$收人状态2 21 1
       
       
       
        #IF
        equal A300
        #ACT
        MOV S$行会名字1 -暂无行会-
        SetStringBlank S$行会名字1 20 1
        #ELSEACT
        MOV S$行会名字1
        SetStringBlank S$行会名字1 20 1
       
       
        #IF
        equal A301
        #ACT
        MOV S$行会名字2 -暂无行会-
        SetStringBlank S$行会名字2 20 1
        #ELSEACT
        MOV S$行会名字2
        SetStringBlank S$行会名字2 20 1
       
        #IF
        equal A302
        #ACT
        MOV S$行会名字3 -暂无行会-
        #ELSEACT
        MOV S$行会名字3
       
        #IF
        #ACT
        MOV S$竞标价格1
        MOV S$竞标价格2
        MOV S$竞标价格3
       
        SetStringBlank S$竞标价格1 16 1
        SetStringBlank S$竞标价格2 16 1
       
       
        #IF
        ISGUILDMASTER
        #ACT
        MOV S$第一行会竞标
        MOV S$第二行会竞标
        MOV S$第三行会竞标
       
       
        #IF
        equal A300
        #ACT
        MOV S$行会名字1 -暂无行会-
        SetStringBlank S$行会名字1 20 1
        #ELSEACT
        MOV S$行会名字1
        SetStringBlank S$行会名字1 20 1
       
       
        #IF
        equal A301
        #ACT
        MOV S$行会名字2 -暂无行会-
        SetStringBlank S$行会名字2 20 1
        #ELSEACT
        MOV S$行会名字2
        SetStringBlank S$行会名字2 20 1
       
        #IF
        equal A302
        #ACT
        MOV S$行会名字3 -暂无行会-
        #ELSEACT
        MOV S$行会名字3
       
        #IF
        #ACT
        MOV S$竞标价格1
        MOV S$竞标价格2
        MOV S$竞标价格3
       
        SetStringBlank S$竞标价格1 16 1
        SetStringBlank S$竞标价格2 16 1
       
       
       
       
       
       
       
        #IF
        ISGUILDMASTER
        equal  
        #ACT
        MOV S$等级要求1
       
        #IF
        ISGUILDMASTER
        equal  
        #ACT
        MOV S$等级要求2
       
       
        #IF
        ISGUILDMASTER
        equal  
        #ACT
        MOV S$等级要求3
       
       
       
        #IF
        ISGUILDMASTER
        equal A304 允许收人
        equal  
        #ACT
        MOV S$收人状态1
       
        #IF
        ISGUILDMASTER
        equal A305 允许收人
        equal  
        #ACT
        MOV S$收人状态2
       
       
        #IF
        ISGUILDMASTER
        equal A306 允许收人
        equal  
        #ACT
        MOV S$收人状态3
       
       
        #IF
        ISGUILDMASTER
        equal A304 拒绝收人
        equal  
        #ACT
        MOV S$收人状态1
       
        #IF
        ISGUILDMASTER
        equal A305 拒绝收人
        equal  
        #ACT
        MOV S$收人状态2
       
       
        #IF
        ISGUILDMASTER
        equal A306 拒绝收人
        equal  
        #ACT
        MOV S$收人状态3
       
       
        #IF
        #ACT
        goto @字符1
       
       
        #IF
        #ACT
        #SAY
        　
       
        　　   　　{/SCOLOR=251}　　　  
        　      
        　     
        　      　　
        　　　         　　　　　　　
       
        {行会掌门可竟拍，每次需在当前竞价上加10元宝.每晚24点清空数据/SCOLOR=250}
       
       
       
       
       
       
        [@字符1]
        #IF
        ISGUILDMASTER
        equal  
        equal  
        #ACT
        SetStringBlank S$收人状态1 20 1
        SetStringBlank S$收人状态2 20 1
        SetStringBlank S$等级要求1 35 1
        SetStringBlank S$等级要求2 36 1
        BREAK
       
       
       
        #IF
        ISGUILDMASTER
        equal  
        #ACT
        SetStringBlank S$收人状态1 20 1
        SetStringBlank S$收人状态2 20 1
        SetStringBlank S$等级要求1 35 1
        SetStringBlank S$等级要求2 17 1
        BREAK
       
       
        #IF
        ISGUILDMASTER
        equal  
        #ACT
        SetStringBlank S$收人状态1 20 1
        SetStringBlank S$收人状态2 20 1
        SetStringBlank S$等级要求1 16 1
        SetStringBlank S$等级要求2 36 1
        BREAK
       
       
        #IF
        #ACT
        SetStringBlank S$收人状态1 20 1
        SetStringBlank S$收人状态2 20 1
        SetStringBlank S$等级要求1 16 1
        SetStringBlank S$等级要求2 17 1
        BREAK
       
       
       
       
       
       
       
       
       
       
       
        [@收人3]
        #if
        equal A306 允许收人
        #act
        messagebox \您将关闭行会招募状态.确定关闭么？ @禁止3 @取消
        #elseact
        messagebox \您将开启行会招募状态.确定开启么？ @允许3 @取消
       
        [@允许3]
        #act
        MOV A306 允许收人
        Messagebox 　当前收人设置为允许收人
        goto @main
       
        [@禁止3]
        #act
        MOV A306 拒绝收人
        Messagebox 　当前收人设置为拒绝收人
        goto @main
       
       
       
       
        [@收人2]
        #if
        equal A305 允许收人
        #act
        messagebox \您将关闭行会招募状态.确定关闭么？ @禁止2 @取消
        #elseact
        messagebox \您将开启行会招募状态.确定开启么？ @允许2 @取消
       
        [@允许2]
        #act
        MOV A305 允许收人
        Messagebox 　当前收人设置为允许收人
        goto @main
       
        [@禁止2]
        #act
        MOV A305 拒绝收人
        Messagebox 　当前收人设置为拒绝收人
        goto @main
       
       
       
       
       
       
       
        [@收人1]
        #if
        equal  
        #ElseAct
        MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价
        break
       
       
        #if
        equal A304 允许收人
        #act
        messagebox \您将关闭行会招募状态.确定关闭么？ @禁止1 @取消
        #elseact
        messagebox \您将开启行会招募状态.确定开启么？ @允许1 @取消
       
        [@允许1]
        #if
        equal  
        #ElseAct
        MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价
        break
       
        #IF
        #act
        MOV A304 允许收人
        Messagebox 　当前收人设置为允许收人
        goto @main
       
        [@禁止1]
        #if
        equal  
        #ElseAct
        MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价
        break
       
        #IF
        #act
        MOV A304 拒绝收人
        Messagebox 　当前收人设置为拒绝收人
        goto @main
       
       
       
       
       
       
       
       
       
        [@InPutInteger85]
        #if
        equal  
        #ElseAct
        MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价
        break
       
        #if
        large N85 0
        CheckStringlength  < 4
        CheckStringlength  > 0
        #ACT
        MOV  
        Messagebox 　当前收人设置为级
        GOTO @main
        BREAK
        #ELSEACT
        Messagebox 　请输入正确的等级
       
       
       
        [@InPutInteger86]
        #if
        equal  
        #ElseAct
        MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价
        break
       
        #if
        large N86 0
        CheckStringlength  < 4
        CheckStringlength  > 0
        #ACT
        MOV  
        Messagebox 　当前收人设置为级
        GOTO @main
        BREAK
        #ELSEACT
        Messagebox 　请输入正确的等级
       
       
        [@InPutInteger87]
        #if
        equal  
        #ElseAct
        MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价
        break
       
        #if
        large N87 0
        CheckStringlength  < 4
        CheckStringlength  > 0
        #ACT
        MOV  
        Messagebox 　当前收人设置为级
        GOTO @main
        BREAK
        #ELSEACT
        Messagebox 　请输入正确的等级
       
       
       
       
       
        ;-------------------------------------------------------------------------------------------------------------
       
        [@竞标1]
        #IF
        CheckGameGold > 9
        #ACT
        #ELSEACT
        messagebox 　你的元宝不足10个.无法使用此功
        break
       
        #if
        equal  
        #act
        messagebox 　您已获得了公告牌位置①使用权.无需再次竞标.
        break
       
       
        #IF
        CheckGameGold >
        #ACT
        INC G300 10
        GameGold -
        mov A300
        GuildNoticeMsg 249 251 行会招人：〖〗行会的掌门「」出价元宝，获得公告牌位置使用权!
        mov A304 允许收人
        GOTO @main
        BREAK
        #ELSEACT
        MOV N$第一行会价格
        inc N$第一行会价格 10
        Messagebox 　抱歉，本次竞拍需要元宝，您的元宝不足
       
       
        [@加入1]
        #IF
        HAVEGUILD
        #ACT
        Messagebox 　您当前已经加入行会.请退出后在加入.
        break
       
        #if
        equal
        #act
        messagebox [提示]该位置暂无行会竞价！
        break
       
        #if
        equal A304 拒绝收人
        #act
        messagebox 　当前【】行会拒绝收人
        break
       
        #if
        CHECKLEVELEX <
        #act
        messagebox 　【】行会收人需要人物达到级
        break
       
       
        #if
        #act
        ADDGUILDMEMBER
        GuildNoticeMsg 55 251 【行会招人公告】玩家〖〗通过公告牌加入了【】行会！
        break
       
       
       
        ;--------------------------------------------------------------------------------------------------------------
       
        [@竞标2]
       
        #if
        equal  
        #act
        messagebox 　您已获得了公告牌位置②使用权.无需再次竞标.
        break
       
       
        #IF
        CheckGameGold >
        #ACT
        INC G301 1000
        GameGold -
        mov A301
        GuildNoticeMsg 249 251 行会招人：〖〗行会的掌门「」出价元宝，获得公告牌位置②使用权!
        mov A305 允许收人
        GOTO @main
        BREAK
        #ELSEACT
        MOV N$第二行会价格
        inc N$第二行会价格 1000
        Messagebox 　抱歉，本次竞拍需要元宝，您的元宝不足
       
       
        [@加入2]
        #IF
        HAVEGUILD
        #ACT
        Messagebox 　您当前已经加入行会.请退出后在加入.
        break
       
        #if
        equal
        #act
        messagebox [提示]该位置暂无行会竞价！
        break
       
       
       
        #if
        equal A305 拒绝收人
        #act
        messagebox 　当前【】行会拒绝收人
        break
       
        #if
        CHECKLEVELEX <
        #act
        messagebox 　【】行会收人需要人物达到级
        break
       
       
       
        #if
        #act
        ADDGUILDMEMBER
        GuildNoticeMsg 55 251 【行会招人公告】玩家〖〗通过公告牌加入了【】行会！
        break
       
       
        ;-----------------------------------------------------------------------------------------
       
       
        [@竞标3]
       
        #if
        equal  
        #act
        messagebox 　您已获得了公告牌位置③使用权.无需再次竞标.
        break
       
        #IF
        CheckGameGold >
        #ACT
        INC G302 1000
        GameGold -
        mov A302
        GuildNoticeMsg 249 251 行会招人：〖〗行会的掌门「」出价元宝，获得公告牌位置③使用权!
        mov A306 允许收人
        GOTO @main
        BREAK
        #ELSEACT
        MOV N$第三行会价格
        inc N$第三行会价格 1000
        Messagebox 　抱歉，本次竞拍需要元宝，您的元宝不足
       
       
        [@加入3]
        #IF
        HAVEGUILD
        #ACT
        Messagebox 　您当前已经加入行会.请退出后在加入.
        break
       
        #if
        equal
        #act
        messagebox [提示]该位置暂无行会竞价！
        break
       
       
        #if
        equal A306 拒绝收人
        #act
        messagebox 　当前【】行会拒绝收人
        break
       
        #if
        CHECKLEVELEX <
        #act
        messagebox 　【】行会收人需要人物达到级
        break
       
       
       
       
        #if
        #act
        ADDGUILDMEMBER
        GuildNoticeMsg 55 251 【行会招人公告】玩家〖〗通过公告牌加入了【】行会！
        break