.版本 2

.子程序 绘制矩形_A
.参数 绘制场景, 整数型
.参数 X左边, 整数型
.参数 Y顶边, 整数型
.参数 W宽度, 整数型
.参数 H高度, 整数型
.参数 方框颜色, 整数型
.参数 PX, 整数型

启动精灵 (场景, 16)
绘制线条_A (绘制场景, X左边, Y顶边 ＋ H高度 － PX, W宽度, PX, 方框颜色)
绘制线条_A (绘制场景, X左边, Y顶边, PX, H高度, 方框颜色)
绘制线条_A (绘制场景, X左边, Y顶边, W宽度, PX, 方框颜色)
绘制线条_A (绘制场景, X左边 ＋ W宽度 － PX, Y顶边, PX, H高度, 方框颜色)
关闭精灵 (场景)

.子程序 绘制文本_A
.参数 pSprite, 整数型
.参数 Text, 文本型
.参数 x, 整数型
.参数 y, 整数型
.参数 Color, 整数型
.局部变量 rect, RECT1

启动精灵 (场景, 16)
rect.top ＝ y
rect.left ＝ x
rect.right ＝ asm_ADD (800, rect.left)
rect.bottom ＝ asm_ADD (20, rect.top)
Jmp (DrawTextA, 字体, pSprite, lstrcpyn_文本 (Text), -1, lstrcpyn_整数 (rect.left), 0, Color)
关闭精灵 (场景)

模块+源码下载地址：https://www.lanzouu.com/i74o6ij 密码:[此处包含隐藏内容，如果需要查看请回复]