传奇烈焰之城自动担保交易系统脚本

admin

烈焰之城自动担保交易系统，欢迎使用游戏帐号自助交易系统，在这里您可以【出售】自己帐号，或购买其他帐号，上架帐号时需填写/验证密保生日、问题、答案1分钟内系统处理完毕，整个交易过程中，接收灵符成功后需要扣除“10%”担保手续费。
        ;完整脚本提取：https://www.gm055.com/fwd/ngbb/8032.html
       
        (@@InPutString @@InPutInteger)
       
        [@main]
       
       
       
        #IF
        #ACT
        mov S$生日变量
        ANSIREPLACETEXT  / -
        ANSIREPLACETEXT  / -
        MOV T44
        MOV T45
        MOV T36
        MOV T37
        MOV T48
       
       
        #IF
        #ACT
        MOV S20
        MOV S21
        MOV S22
        MOV S23
        MOV S24
        MOV S25
        MOV N26
        CloseBigDialogBox
        OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
        MOV S$账号交易账号 　
        MOV S$账号交易角色
        MOV S$账号交易元宝
        MOV S$账号交易人民币
        MOV S$账号交易遮天币
        MOV S$账号交易充值数
       
       
        SetStringBlank  16 1
        SetStringBlank  16 1
        SetStringBlank  16 1
        SetStringBlank  16 1
        SetStringBlank  16 1
        SetStringBlank  16 1
       
        #SAY
          
        　　　　　　　　　　　  
          
        　　　   　
       
         
         
          
         
       
         
          
       
        　{/FCOLOR=70}
        　{/FCOLOR=70}
        　{/FCOLOR=70}
        　{/FCOLOR=70}
        　{/FCOLOR=70}
         
       
            
          
       
       
       
        [@开始出售账号]
        #if
        CHECKLEVELEX < 65
        #act
        messagebox
        break
       
        #IF
        #act
        CloseBigDialogBox
        OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
        #say
            
        　　　　
       
          
       
        :  输入格式：1999-1-1
        :
        :
        :
        :
        :
        :   
       
        　　　　　　　　　　　　　　　　　
        ;     
       
       
        [@InPutString20]
        #IF
        NOT EQUAL S20
        #ACT
        Messagebox 输入的密保生日错误，请重新输入....
        MOV S20
        break
        #ELSEACT
        goto @开始出售账号
        break
       
       
       
        #IF
        CHECKTEXTLIST ..QuestDiary自动担保系统密保年份.txt
        CHECKTEXTLIST ..QuestDiary自动担保系统密保月份.txt
        CHECKTEXTLIST ..QuestDiary自动担保系统密保日期.txt
        #ACT
        GetStringPos ..QuestDiary自动担保系统月份日期1.txt
        INC N0 1
        GetListString ..QuestDiary自动担保系统月份日期1.txt  S$最高日期
        MOV N$检测日期
        #ELSEACT
        messagebox 请确认生日填写正确!年份在1960-2020年之间!月份在1-12月之间!日期在1-30之间!
        break
       
        #IF
        LARGE N$检测日期
        #ACT
        MOV S20
        messagebox 日期填写错误，你填写的年月有天？
        #ELSEACT
        goto @开始出售账号
        break
       
        [@InPutString21]
        #IF
        NOT EQUAL S21
        #ACT
        goto @开始出售账号
        #ELSEACT
        Messagebox 输入的错误，请重新输入....
        MOV S21
       
       
       
        [@InPutString22]
        #IF
        NOT EQUAL S22
        #ACT
        goto @开始出售账号
        #ELSEACT
        Messagebox 输入的错误，请重新输入....
        MOV S22
       
       
       
       
        [@InPutString23]
        #IF
        NOT EQUAL S23
        #ACT
        goto @开始出售账号
        #ELSEACT
        Messagebox 输入的错误，请重新输入....
        MOV S23
       
       
       
        [@InPutString24]
        #IF
        NOT EQUAL S24
        #ACT
        goto @开始出售账号
        #ELSEACT
        Messagebox 输入的错误，请重新输入....
        MOV S24
       
       
        [@InPutString25]
        #IF
        NOT EQUAL S25
        #ACT
        goto @开始出售账号
        #ELSEACT
        Messagebox 输入的错误，请重新输入....
        MOV S25
       
       
       
       
        [@InPutInteger26]
        #IF
        #ACT
        MOV N$最低出售人民币 1000000
       
       
        #IF
        NOT SMALL N26 1000000
        #ACT
        goto @开始出售账号
        #ELSEACT
        Messagebox 输入的错误，本服担保交易至少出售100W灵符点....
        MOV N26 0
       
       
        [@开始出售账号555]
        #IF
        #ACT
        MOV S$验证问题1 a
        MOV S$验证答案1 a
        MOV S$验证问题2 a
        MOV S$验证答案2 a
       
        #OR
        NOT EQUAL S20
        NOT EQUAL S$验证问题1 a
        NOT EQUAL S$验证答案1 a
        NOT EQUAL S$验证问题2 a
        NOT EQUAL S$验证答案2 a
        #ACT
        Messagebox 请输入完整的密码保护资料！或者有密码保护资料提交错误！多次输入还是提示错误,请小退后重新尝试!
        break
       
       
        #IF
        EQUAL A888 测试区
        #ACT
        Messagebox 当前为测试区，不能卖号...
        break
       
       
        #OR
        EQUAL S25
        EQUAL N26 0
        #ACT
        Messagebox 请输入接收账号和出售的灵符数!
        break
       
        #IF
        NOT INSAFEZONE
        #ACT
        MESSAGEBOX 请返回安全区再进行操作！
        BREAK
       
       
        #IF
        #ACT
        MOV S$担保_帐号
        MOV N$担保_金额
        MOV S$担保_接收
        MESSAGEBOX 确认将您当前帐号角色以个灵符进行出售吗？出售所得将以发放至帐号：，请保证该帐号无误！！ @确认卖帐号 @取消
       
        [@确认卖帐号]
        #IF
        #ACT
        AddTextListEx ........账号交易帐号交易列表.txt  0 1
        AddTextList ........账号交易已售账号列表.txt
        AddTextListEx ..AutoLoadOffline.txt ## 0
        CREATEFILE ........账号交易账号数据.txt
        ClearNameList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt AA
        AddTextList ........账号交易账号数据.txt 级
        AddTextList ........账号交易账号数据.txt 天赋反射：
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt 天赋穿透：
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt 天赋伤害：
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt
        AddTextList ........账号交易账号数据.txt 天赋暴击：
        GetRandomText ........账号交易账号出售数量.txt N$全区卖号数量 0 1
        INC N$全区卖号数量 1
        ClearNameList ........账号交易账号出售数量.txt 1
        AddTextListEx ........账号交易账号出售数量.txt  0 1
        MESSAGEBOX 帐号上架成功，此帐号卖出或下架前无法继续登录！卖出前可联系担保客服进行下架！
        AddTextListEx ..QuestDiary自动担保系统卖号日志记录.txt 【】角色【】在提交卖号
        DELAYGOTO 20 @离线
        break
       
       
       
        [@离线]
        #ACT
        map zhjy
        OFFLINEPLAY 1000
        break
       
       
       
       
       
        [@查询出售账号]
       
       
        #IF
        NOT equal T49
        #ACT
        MESSAGEBOX 查询成功，请重新登录查收您购买的帐号[],请记录下来!!!
        #ELSEACT
        MESSAGEBOX 你还没购买过帐号呢!!!
       
        [@账号交易下架111]
        #IF
        #act
        CloseBigDialogBox
        #say
        　　　　
       
       
         
        {正确格式：区名+账号，例：zha123:区名+账号/FCOLOR=242}
        　　　　　　　　　　　　　　　　　　　　
       
       
        [@InPutString17]
        #IF
        CHECKTextList ........账号交易帐号交易列表.txt
        #ACT
        GetRandomText ........账号交易账号出售数量.txt N$全区卖号数量 0 1
        Dec N$全区卖号数量 1
        ClearNameList ........账号交易账号出售数量.txt 1
        AddTextListEx ........账号交易账号出售数量.txt  0 1
        DelTextList ........账号交易帐号交易列表.txt
        DelTextList ........账号交易已售账号列表.txt
        AddTextListEx ..QuestDiary自动担保系统卖号日志记录.txt 【】角色【】在提交下架卖号
        Messagebox 【】已经成功下架，可以上号游戏了
        Goto @main
        #ELSEACT
        Messagebox 输入的出售账号错误，请重新输入....
        break
       
       
        [@领取货款]
        #IF
        CHECKTextList ........账号交易待取款变量.txt AA
        #ACT
        GetStringPos ........账号交易待取款变量.txt AA
        INC N0 1
        GetListString ........账号交易待取款变量.txt  
        MOV N$我的金额
        #ELSEACT
        MOV N$我的金额 0
       
       
        #IF
        Large N$我的金额 0
        #ACT
        MUL N$我的金额 9
        DIV N$我的金额 10
        GAMEPOINT +
        MESSAGEBOX 成功领取灵符！
        DelTextList ........账号交易待取款变量.txt AA
        break
        #ELSEACT
        MESSAGEBOX 没有可领取的人民币！
        BREAK
       
       
       
        [@出售列表]
        #IF
        #ACT
        GetRandomText ........账号交易账号出售数量.txt N$全区卖号数量 0 1
       
        #IF
        SMALL N$全区卖号数量 1
        #ACT
        MESSAGEBOX 暂时没有正在出售的帐号！
        break
       
       
        #IF
        #ACT
        MOV N$编号0 0
        MOV N$编号1 1
        MOV N$编号2 2
        MOV N$编号3 3
        MOV N$编号4 4
        MOV N$编号5 5
        MOV N$编号6 6
        MOV N$编号7 7
        MOV N$出售列表页数 1
        Goto @出售列表2
       
        [@出售列表2]
        #IF
        #ACT
        MOV S$记录0
        MOV S$记录1
        MOV S$记录2
        MOV S$记录3
        MOV S$记录4
        MOV S$记录5
        MOV S$记录6
        MOV S$记录7
       
        #IF
        #ACT
        GetListString ........账号交易帐号交易列表.txt  S$记录0
        GetListString ........账号交易帐号交易列表.txt  S$记录1
        GetListString ........账号交易帐号交易列表.txt  S$记录2
        GetListString ........账号交易帐号交易列表.txt  S$记录3
        GetListString ........账号交易帐号交易列表.txt  S$记录4
        GetListString ........账号交易帐号交易列表.txt  S$记录5
        GetListString ........账号交易帐号交易列表.txt  S$记录6
        GetListString ........账号交易帐号交易列表.txt  S$记录7
       
        #IF
        NOT EQUAL S$记录0
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名0
        GetListString ........账号交易账号数据.txt 1 S$卖家账号0
        GetListString ........账号交易账号数据.txt 2 S$卖家角色0
        GetListString ........账号交易账号数据.txt 3 S$卖家价格0
        GetListString ........账号交易账号数据.txt 4 S$卖家接收0
        GetListString ........账号交易账号数据.txt 5 S$卖家等级0
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运0
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠0
        GetListString ........账号交易账号数据.txt 8 S$卖家切割0
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝0
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币0
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币0
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X0
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y0
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击0
        #IF
        NOT EQUAL S$记录1
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名1
        GetListString ........账号交易账号数据.txt 1 S$卖家账号1
        GetListString ........账号交易账号数据.txt 2 S$卖家角色1
        GetListString ........账号交易账号数据.txt 3 S$卖家价格1
        GetListString ........账号交易账号数据.txt 4 S$卖家接收1
        GetListString ........账号交易账号数据.txt 5 S$卖家等级1
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运1
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠1
        GetListString ........账号交易账号数据.txt 8 S$卖家切割1
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝1
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币1
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币1
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X1
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y1
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击1
        #IF
        NOT EQUAL S$记录2
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名2
        GetListString ........账号交易账号数据.txt 1 S$卖家账号2
        GetListString ........账号交易账号数据.txt 2 S$卖家角色2
        GetListString ........账号交易账号数据.txt 3 S$卖家价格2
        GetListString ........账号交易账号数据.txt 4 S$卖家接收2
        GetListString ........账号交易账号数据.txt 5 S$卖家等级2
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运2
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠2
        GetListString ........账号交易账号数据.txt 8 S$卖家切割2
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝2
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币2
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币2
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X2
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y2
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击2
       
        #IF
        NOT EQUAL S$记录3
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名3
        GetListString ........账号交易账号数据.txt 1 S$卖家账号3
        GetListString ........账号交易账号数据.txt 2 S$卖家角色3
        GetListString ........账号交易账号数据.txt 3 S$卖家价格3
        GetListString ........账号交易账号数据.txt 4 S$卖家接收3
        GetListString ........账号交易账号数据.txt 5 S$卖家等级3
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运3
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠3
        GetListString ........账号交易账号数据.txt 8 S$卖家切割3
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝3
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币3
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币3
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X3
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y3
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击3
        #IF
        NOT EQUAL S$记录4
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名4
        GetListString ........账号交易账号数据.txt 1 S$卖家账号4
        GetListString ........账号交易账号数据.txt 2 S$卖家角色4
        GetListString ........账号交易账号数据.txt 3 S$卖家价格4
        GetListString ........账号交易账号数据.txt 4 S$卖家接收4
        GetListString ........账号交易账号数据.txt 5 S$卖家等级4
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运4
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠4
        GetListString ........账号交易账号数据.txt 8 S$卖家切割4
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝4
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币4
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币4
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X4
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y4
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击4
        #IF
        NOT EQUAL S$记录5
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名5
        GetListString ........账号交易账号数据.txt 1 S$卖家账号5
        GetListString ........账号交易账号数据.txt 2 S$卖家角色5
        GetListString ........账号交易账号数据.txt 3 S$卖家价格5
        GetListString ........账号交易账号数据.txt 4 S$卖家接收5
        GetListString ........账号交易账号数据.txt 5 S$卖家等级5
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运5
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠5
        GetListString ........账号交易账号数据.txt 8 S$卖家切割5
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝5
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币5
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币5
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X5
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y5
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击5
       
        #IF
        NOT EQUAL S$记录6
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名6
        GetListString ........账号交易账号数据.txt 1 S$卖家账号6
        GetListString ........账号交易账号数据.txt 2 S$卖家角色6
        GetListString ........账号交易账号数据.txt 3 S$卖家价格6
        GetListString ........账号交易账号数据.txt 4 S$卖家接收6
        GetListString ........账号交易账号数据.txt 5 S$卖家等级6
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运6
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠6
        GetListString ........账号交易账号数据.txt 8 S$卖家切割6
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝6
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币6
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币6
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X6
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y6
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击6
        #IF
        NOT EQUAL S$记录7
        #ACT
        GetListString ........账号交易账号数据.txt 0 S$卖家区名7
        GetListString ........账号交易账号数据.txt 1 S$卖家账号7
        GetListString ........账号交易账号数据.txt 2 S$卖家角色7
        GetListString ........账号交易账号数据.txt 3 S$卖家价格7
        GetListString ........账号交易账号数据.txt 4 S$卖家接收7
        GetListString ........账号交易账号数据.txt 5 S$卖家等级7
        GetListString ........账号交易账号数据.txt 6 S$卖家幸运7
        GetListString ........账号交易账号数据.txt 7 S$卖家抽匠7
        GetListString ........账号交易账号数据.txt 8 S$卖家切割7
        GetListString ........账号交易账号数据.txt 9 S$卖家元宝7
        GetListString ........账号交易账号数据.txt 10 S$卖家遮天币7
        GetListString ........账号交易账号数据.txt 11 S$卖家人民币7
        GetListString ........账号交易账号数据.txt 12 S$卖家坐X7
        GetListString ........账号交易账号数据.txt 13 S$卖家坐Y7
        GetListString ........账号交易账号数据.txt 14 S$卖家暴击7
       
       
        #IF
        #ACT
        DelayGoto 10 @去显示担保列表
        break
       
        [@账号交易飞到玩家]
        #IF
        #ACT
        map zhjy
       
       
        [@账号交易飞玩家]
        #IF
        #ACT
        map zhjy
       
       
        [@账号交易购买0]
        #IF
        EQUAL S$卖家账号0
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
        [@账号交易购买1]
        #IF
        EQUAL S$卖家账号1
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
        [@账号交易购买2]
        #IF
        EQUAL S$卖家账号2
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
        [@账号交易购买3]
        #IF
        EQUAL S$卖家账号3
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
        [@账号交易购买4]
        #IF
        EQUAL S$卖家账号4
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
        [@账号交易购买5]
        #IF
        EQUAL S$卖家账号5
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
        [@账号交易购买6]
        #IF
        EQUAL S$卖家账号6
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
        [@账号交易购买7]
        #IF
        EQUAL S$卖家账号7
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        break
        #ELSEACT
        MOV S$购买的区名
        MOV S$购买的账号
        MOV S$购买的角色
        MOV S$购买的价格
        MOV S$购买的接收
        MOV S$显示购买的区名
        MOV S$显示购买的价格 人民币
        SetStringBlank S$显示购买的区名 20 1
        SetStringBlank S$显示购买的价格 20 1
        goto @账号交易购买
       
       
       
        [@账号交易购买]
        #IF
        #ACT
        CloseBigDialogBox
        OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
        #SAY
            
        　　　　  
       
         
         
        {/FCOLOR=70}
        {/FCOLOR=70}
        {/FCOLOR=70}
        {10%/FCOLOR=70}
         
         
       
       
         
       
        　　　　　　　　　　　　　　　　　 　
       
       
        [@继续购买账号]
        #ACT
        CloseBigDialogBox
        OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
        #SAY
            
        　　　　
       
       
       
        {/FCOLOR=70}
        {/FCOLOR=70}
        {/FCOLOR=70}
        {10%/FCOLOR=70}
       
          
        :  输入格式：1999-01-01必须为XXXX/XX/XX否则无法通过
        :
        :
        :
        :
        :
        　
        　　　　　　
       
        [@InPutString10]
        #IF
        NOT EQUAL S10
        #ACT
        MOV S$密保年份
        DEC S$密保年份 5 10
        MOV S$密保月份
        DEC S$密保月份 1 5
        DEC S$密保月份 3 5
        MOV S$密保日期
        DEC S$密保日期 1 8
        #ELSEACT
        MOV S10
        Messagebox 输入的错误，请重新输入....
        break
       
       
        #IF
        CHECKTEXTLIST ..QuestDiary自动担保系统密保年份.txt
        CHECKTEXTLIST ..QuestDiary自动担保系统密保月份.txt
        CHECKTEXTLIST ..QuestDiary自动担保系统密保日期.txt
        #ACT
        GetStringPos ..QuestDiary自动担保系统月份日期1.txt
        INC N0 1
        GetListString ..QuestDiary自动担保系统月份日期1.txt  S$最高日期
        MOV N$检测日期
        #ELSEACT
        messagebox 请确认生日填写正确!年份在1960-2020年之间!月份在1-12月之间!日期在1-30之间!
        break
       
        #IF
        LARGE N$检测日期
        #ACT
        MOV S10
        messagebox 日期填写错误，你填写的年月有天？
        #ELSEACT
        goto @继续购买账号
        break
       
        [@InPutString11]
        #OR
        EQUAL S11
        EQUAL S11
        EQUAL S11
        EQUAL S11
        #ACT
        MOV S11
        Messagebox 密码、保护问题和答案不能相同或者太过简单！请重新输入！！！
        break
       
        #OR
        CheckStringlength  > 10
        EQUAL S11
        #ACT
        MOV S11
        Messagebox 输入的错误,最多10位字符，请重新输入....
        break
        #ELSEACT
        goto @继续购买账号
       
       
       
       
       
        [@InPutString12]
        #OR
        EQUAL S12
        EQUAL S12
        EQUAL S12
        EQUAL S12
        #ACT
        MOV S12
        Messagebox 密码、保护问题和答案不能相同或者太过简单！请重新输入！！！
        break
       
       
        #OR
        CheckStringlength  > 10
        EQUAL S12
        #ACT
        MOV S12
        Messagebox 输入的错误,最多10位字符，请重新输入....
        break
        #ELSEACT
        goto @继续购买账号
       
       
       
        [@InPutString13]
        #OR
        EQUAL S13
        EQUAL S13
        EQUAL S13
        EQUAL S13
        #ACT
        MOV S13
        Messagebox 密码、保护问题和答案不能相同或者太过简单！请重新输入！！！
        break
       
       
        #OR
        CheckStringlength  > 10
        EQUAL S13
        #ACT
        MOV S13
        Messagebox 输入的错误,最多10位字符，请重新输入....
        break
        #ELSEACT
        goto @继续购买账号
       
       
       
       
        [@InPutString14]
       
        #OR
        EQUAL S14
        EQUAL S14
        EQUAL S14
        EQUAL S14
        #ACT
        MOV S14
        Messagebox 密码、保护问题和答案不能相同或者太过简单！请重新输入！！！
        break
       
       
        #OR
        CheckStringlength  > 10
        EQUAL S14
        #ACT
        MOV S14
        Messagebox 输入的错误,最多10位字符，请重新输入....
        break
        #ELSEACT
        goto @继续购买账号
       
       
        [@InPutString16]
        #OR
        EQUAL S16
        EQUAL S16
        EQUAL S16
        EQUAL S16
        #ACT
        MOV S16
        Messagebox 密码、保护问题和答案不能相同或者太过简单！请重新输入！！！
        break
       
       
        #or
        CheckContainsText S16 q
        CheckContainsText S16 w
        CheckContainsText S16 e
        CheckContainsText S16 r
        CheckContainsText S16 t
        CheckContainsText S16 y
        CheckContainsText S16 u
        CheckContainsText S16 i
        CheckContainsText S16 o
        CheckContainsText S16 p
        CheckContainsText S16 a
        CheckContainsText S16 s
        CheckContainsText S16 d
        CheckContainsText S16 f
        CheckContainsText S16 g
        CheckContainsText S16 h
        CheckContainsText S16 j
        CheckContainsText S16 k
        CheckContainsText S16 l
        CheckContainsText S16 z
        CheckContainsText S16 x
        CheckContainsText S16 c
        CheckContainsText S16 v
        CheckContainsText S16 b
        CheckContainsText S16 n
        CheckContainsText S16 m
        #elseact
        MOV S16
        MESSAGEBOX 密码不能太过简单！必须包含字母！！！
        break
       
       
        #OR
        CheckStringlength  > 10
        EQUAL S16
        #ACT
        MOV S16
        Messagebox 输入的错误,最多10位字符，请重新输入....
        break
        #ELSEACT
        goto @继续购买账号
       
       
       
       
        [@开始购买账号555]
        #IF
        NOT CHECKTEXTLIST ........账号交易帐号交易列表.txt
        #ACT
        MESSAGEBOX 暂时无出售的账号！
        goto @main
        BREAK
       
        #OR
        EQUAL S11
        EQUAL S12
        EQUAL S13
        EQUAL S10
        EQUAL S14
        EQUAL S16
        #ACT
        MESSAGEBOX 请输入完整密保信息资料！
        goto @main
        BREAK
       
       
       
       
        #IF
        CheckGAMEPOINT ?
        #ACT
        GAMEPOINT -
        AddTextListEx ..QuestDiary自动担保系统买号号日志记录.txt 账号【】角色【】在提交购买了账号下的【】角色【】.
        .KICK
        ;TextReplace  - / S$密码保护生日 0 0
        ;DELConfigFileItem ..QuestDiary自动担保系统修改资料.txt
        ;WriteConfigFileItem ..QuestDiary自动担保系统修改资料.txt  账号
        ;WriteConfigFileItem ..QuestDiary自动担保系统修改资料.txt  密码
        ;WriteConfigFileItem ..QuestDiary自动担保系统修改资料.txt  生日
        ;WriteConfigFileItem ..QuestDiary自动担保系统密保变量.txt  问题1
        ;WriteConfigFileItem ..QuestDiary自动担保系统密保变量.txt  答案1
        ;WriteConfigFileItem ..QuestDiary自动担保系统密保变量.txt  问题2
        ;WriteConfigFileItem ..QuestDiary自动担保系统密保变量.txt  答案2
        ;AddTextListEx ..QuestDiary自动担保系统提交修改.txt
       
       
        MOV S$密码保护生日
        ANSIREPLACETEXT  - /
        ANSIREPLACETEXT  - /
       
       
        AddTextListEx ..QuestDiary账号担保账号提交.txt ::::::
        AddTextListEx ..QuestDiary自动担保系统已卖出账号.txt
        DelTextList ........账号交易帐号交易列表.txt
        DelTextList ........账号交易已售账号列表.txt
        MOV T49
        GetStringPos ........账号交易待取款变量.txt
        INC N0 1
        GetListString ........账号交易待取款变量.txt  
        MOV N$过度的价格
        INC N$过度的价格
        DelTextList ........账号交易待取款变量.txt
        AddTextList ........账号交易待取款变量.txt
        AddTextList ........账号交易待取款变量.txt
        GetRandomText ........账号交易账号出售数量.txt N$全区卖号数量 0 1
        Dec N$全区卖号数量 1
        ClearNameList ........账号交易账号出售数量.txt 1
        AddTextListEx ........账号交易账号出售数量.txt  0 1
        sendmsg 6 购买成功，请重新登录查收您购买的帐号[],请记录下来!!!
        sendmsg 6 购买成功，请重新登录查收您购买的帐号[],请记录下来!!!
        sendmsg 6 购买成功，请重新登录查收您购买的帐号[],请记录下来!!!
        sendmsg 6 购买成功，请重新登录查收您购买的帐号[],请记录下来!!!
        MESSAGEBOX 您购买的帐号信息如下，请截图保存除客服外不要发给任何人！　帐号：　角色：　花费：灵符问题一：　答案一：问题二：　答案二：生日：　密码：　
        #ELSEACT
        MESSAGEBOX 购买该帐号需要灵符:，您的灵符不足！
        BREAK
       
        [@去显示担保列表]
        #IF
        #ACT
        MOV S$显示卖家区名0
        MOV S$显示卖家角色0
        MOV S$显示卖家价格0
        SetStringBlank S$显示卖家区名0 19 1
        SetStringBlank S$显示卖家角色0 15 1
        SetStringBlank S$显示卖家价格0 11 1
        MOV S$显示卖家区名1
        MOV S$显示卖家角色1
        MOV S$显示卖家价格1
        SetStringBlank S$显示卖家区名1 19 1
        SetStringBlank S$显示卖家角色1 15 1
        SetStringBlank S$显示卖家价格1 11 1
        MOV S$显示卖家区名2
        MOV S$显示卖家角色2
        MOV S$显示卖家价格2
        SetStringBlank S$显示卖家区名2 19 1
        SetStringBlank S$显示卖家角色2 15 1
        SetStringBlank S$显示卖家价格2 11 1
        MOV S$显示卖家区名3
        MOV S$显示卖家角色3
        MOV S$显示卖家价格3
        SetStringBlank S$显示卖家区名3 19 1
        SetStringBlank S$显示卖家角色3 15 1
        SetStringBlank S$显示卖家价格3 11 1
        MOV S$显示卖家区名4
        MOV S$显示卖家角色4
        MOV S$显示卖家价格4
        SetStringBlank S$显示卖家区名4 19 1
        SetStringBlank S$显示卖家角色4 15 1
        SetStringBlank S$显示卖家价格4 11 1
        MOV S$显示卖家区名5
        MOV S$显示卖家角色5
        MOV S$显示卖家价格5
        SetStringBlank S$显示卖家区名5 19 1
        SetStringBlank S$显示卖家角色5 15 1
        SetStringBlank S$显示卖家价格5 11 1
        MOV S$显示卖家区名6
        MOV S$显示卖家角色6
        MOV S$显示卖家价格6
        SetStringBlank S$显示卖家区名6 19 1
        SetStringBlank S$显示卖家角色6 15 1
        SetStringBlank S$显示卖家价格6 11 1
        MOV S$显示卖家区名7
        MOV S$显示卖家角色7
        MOV S$显示卖家价格7
        SetStringBlank S$显示卖家区名7 19 1
        SetStringBlank S$显示卖家角色7 15 1
        SetStringBlank S$显示卖家价格7 11 1
       
        CloseBigDialogBox
        OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
        #SAY
            
        　　　　
        　　　　　　　 　　　　　
          
        　　
        　　
        　　
        　　
        　　
        　　
        　　
        　　  
          
        　　　　　　　　　　　　　　  {当前第页/FCOLOR=253}  
       
       
       
       
       
       
        [@账号交易上一页]
        #IF
        LARGE N$编号5 5
        #ACT
        DEC N$编号0 8
        DEC N$编号1 8
        D