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

.版本 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