易语言调用大漠把血蓝内力体力转化为进度条

大家好，又见面了，我是你们的朋友全栈君。

把游戏角色的 体力、血值、内力、经验通过进度条组件动态读取显示出来，并且通过api函数SendMessage来实现进度条颜色的变化，这里我们设置了血，体力，内力，经验的不同颜色，会根据游戏时时变化百分比例，调用大漠的OCR先把数值读出来，然后换算成进度调的百分比。

易语言源码：

.版本 2

.子程序 体力变化
.局部变量 str, 文本型
.局部变量 a, 双精度小数型
.局部变量 b, 双精度小数型
.局部变量 c, 双精度小数型
.局部变量 体力进度条句柄, 整数型

' 2564/2564
体力进度条句柄 ＝ _启动窗口.进度条_体力.取窗口句柄 ()
str ＝ dm.Ocr (201, 1, 292, 30, “ffffff-000000”, 1)
.如果 (取文本长度 (str) ＞ 0)
    _启动窗口.标签_体力.标题 ＝ str
    a ＝ 到数值 (取文本左边 (str, 倒找文本 (str, “/”, , 假)))
    b ＝ 到数值 (取文本右边 (str, 取文本长度 (str) － 倒找文本 (str, “/”, , 假)))
    _启动窗口.进度条_体力.位置 ＝ 1000
    .如果 (a ＝ b)
        _启动窗口.进度条_体力.位置 ＝ 1000

    .否则
        c ＝ (1 － 到数值 (a ÷ b)) × _启动窗口.进度条_体力.位置
        _启动窗口.进度条_体力.位置 ＝ _启动窗口.进度条_体力.位置 － c

    .如果结束

    发送消息 (体力进度条句柄, 1033, 真, #绿色)

.否则

.版本 2

.子程序 生命变化, , , 显示角色的血值变化，通过时钟调用
.局部变量 str, 文本型
.局部变量 s_array, 文本型, , "0"
.局部变量 a, 双精度小数型
.局部变量 b, 双精度小数型
.局部变量 c, 双精度小数型
.局部变量 血值进度条句柄, 整数型

血值进度条句柄 ＝ _启动窗口.进度条_生命.取窗口句柄 ()
.如果 (在线 ＝ 1)
    str ＝ dm.Ocr (287, 1, 384, 26, “ffffff-000000”, 1)
    .如果真 (取文本长度 (str) ＞ 0)
        _启动窗口.标签_生命.标题 ＝ str
        a ＝ 到整数 (取文本左边 (str, 倒找文本 (str, “/”, , 假)))
        b ＝ 到整数 (取文本右边 (str, 取文本长度 (str) － 倒找文本 (str, “/”, , 假)))
        _启动窗口.进度条_生命.位置 ＝ 1000
        .如果 (a ＝ b)
            _启动窗口.进度条_生命.位置 ＝ 1000

        .否则
            c ＝ (1 － 到数值 (a ÷ b)) × _启动窗口.进度条_生命.位置
            _启动窗口.进度条_生命.位置 ＝ _启动窗口.进度条_生命.位置 － c
        .如果结束

        发送消息 (血值进度条句柄, 1033, 真, #红色)
    .如果真结束


.否则
    _启动窗口.标签_生命.标题 ＝ “”
    _启动窗口.进度条_生命.位置 ＝ 0

 原文:易语言大漠血蓝体力内力经验进度条显示

       511遇见易语言大漠游戏外挂一键登录