火山编程全局大漠函数封装方法

最新推荐文章于 2024-10-06 20:16:20 发布

网站_1937a.cn

最新推荐文章于 2024-10-06 20:16:20 发布

阅读量115

点赞数 3

文章标签： java microsoft 前端

本文链接：https://blog.csdn.net/qq_47573648/article/details/142376894

版权

<火山程序 类型 = "通常" 版本 = 1 />

包 火山.程序

类 公共函数 <公开 注释 = "" 注释 = "">
{
    方法 按下组合键 <公开>
    参数 下标 <类型 = 整数>
    参数 功能键 <类型 = 文本型>
    参数 键码 <类型 = 文本型>
    {


        取程序 ().主窗口对象.全局大漠 [下标].KeyDownChar (功能键)
        延时 (50)
        取程序 ().主窗口对象.全局大漠 [下标].KeyPressChar (键码)
        延时 (50)
        取程序 ().主窗口对象.全局大漠 [下标].KeyUpChar (功能键)
        延时 (100)



    }

    方法 大漠找色 <公开 类型 = 整数>
    参数 下标 <类型 = 整数>
    参数 x1 <类型 = 整数>
    参数 y1 <类型 = 整数>
    参数 x2 <类型 = 整数>
    参数 y2 <类型 = 整数>
    参数 颜色值 <类型 = 文本型>
    参数 相似度 <类型 = 小数>
    参数 time <类型 = 整数>
    {


        变量 方向 <类型 = 整数 值 = 0>
        变量 intX <类型 = 整数>
        变量 intY <类型 = 整数>
        变量 标记 <类型 = 逻辑型>
        变量 起始时间 <类型 = 小数>
        变量 间隔 <类型 = 小数>
        变量 ret <类型 = 整数>
        标记 = 假
        方向 = 0

        如果 (time > 0)
        {
            起始时间 = 取现行时间 ()
            // 间隔 = 取时间间隔 (取现行时间 (), 起始时间, 火山.基本.时间字段类型.毫秒)
            判断循环 (取时间间隔 (取现行时间 (), 起始时间, 火山.基本.时间字段类型.毫秒) < time)
            {

                ret = 取程序 ().主窗口对象.全局大漠 [下标].FindColor (x1, y1, x2, y2, 颜色值, 相似度, 方向, intX, intY)

                如果 (ret > 0)
                {
                    标记 = 真
                    // 调试输出 ("找色退出循环")
                    跳出循环

                }

                延时 (100)
                // 调试输出 ("循环没有找到色" + 到文本 (intX) + 到文本 (intY))
                到循环尾
            }

        }
        否则
        {
            取程序 ().主窗口对象.全局大漠 [下标].FindColor (x1, y1, x2, y2, 颜色值, 1, 方向, intX, intY)
            如果 (intX > 0 && intY > 0)
            {
                标记 = 真

            }

        }
        如果 (标记 == 真)
        {
            // 调试输出 ("找到色")
            返回 (1)
        }
        否则
        {
            // 调试输出 ("没有找到色")
            返回 (0)

        }


    }

    方法 释放技能 <公开 类型 = 整数>
    参数 下标 <类型 = 整数>
    参数 技能键 <类型 = 整数>
    {

        如果 (技能键 != 0)
        {
            // 取程序 ().主窗口对象.全局大漠 [下标].KeyPress (技能键)
            取程序 ().主窗口对象.全局大漠 [下标].KeyPress (112)

        }
        否则
        {
            取程序 ().主窗口对象.全局大漠 [下标].KeyPress (112)

        }



        返回 (0)

    }

    #
    #
    #
}