进度条文字版和文字进度条生成

前一段做QQ机器人文字游戏的时候，想做一个血条的功能，就做出了这么一个小命令可以供参考。

.如果真 (进度条_进度文本 ＝ “”)
进度条_进度文本 ＝ “■”
.如果真结束
.如果真 (进度条_空白文本 ＝ “”)
进度条_空白文本 ＝ “□”
.如果真结束
.如果真 (显示数量 ≤ 1)
显示数量 ＝ 2
.如果真结束
局_单个数值 ＝ 显示数量 ÷ 最大位置
局_进度方块数 ＝ 当前位置 × 局_单个数值
.如果真 (局_进度方块数 ≥ 显示数量)
局_进度方块数 ＝ 显示数量
.如果真结束
.计次循环首 (局_进度方块数, )
局_结果文本 ＝ 局_结果文本 ＋ 进度条_进度文本
.计次循环尾 ()
标签1.标题 ＝ 子程序_文字进度条 (到整数 (编辑框1.内容), 到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 编辑框4.内容, 编辑框5.内容)