.版本 2
.支持库 ogrelib

.子程序 AttrLoad, 逻辑型, 公开
.参数 Filename, 文本型
.局部变量 fp, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 rect, RECT
.局部变量 iStartX
.局部变量 iStartY
.局部变量 iWidth
.局部变量 iHeight
.局部变量 iMagnifying
.局部变量 矩形, 矩形_
.局部变量 hdc, 整数型
.局部变量 iOldBkMode, 整数型
.局部变量 hCharacterBrush
.局部变量 hMonsterBrush
.局部变量 hNpcBrush
.局部变量 hItemBrush
.局部变量 hCrywolfMovePath

fp ＝ 打开文件 (Filename, #读写, #无限制)
.如果真 (fp ＝ 0)
    返回 (假)
.如果真结束
m_attrbuf ＝ 读入字节集 (fp, 65538)

hdc ＝ GetDC (_启动窗口.画板1.取设备句柄 ())
hCharacterBrush ＝ CreateSolidBrush (取颜色值 (255, 0, 0))
hMonsterBrush ＝ CreateSolidBrush (取颜色值 (128, 128, 128))
hNpcBrush ＝ CreateSolidBrush (取颜色值 (0, 255, 255))
hItemBrush ＝ CreateSolidBrush (取颜色值 (0, 0, 255))
hCrywolfMovePath ＝ CreateSolidBrush (取颜色值 (0, 255, 0))
iOldBkMode ＝ SetBkMode (hdc, #TRANSPARENT)
iStartX ＝ 100
iStartY ＝ 50
iWidth ＝ 1
iHeight ＝ 1
iMagnifying ＝ 3
.计次循环首 (255, y)
    .计次循环首 (255, x)
        .如果真 (位或 (m_attrbuf [y × 256 ＋ x], 4) ＝ 4 或 位或 (m_attrbuf [y × 256 ＋ x], 8) ＝ 8)
            rect.left ＝ iStartX ＋ y × iWidth × iMagnifying
            rect.right ＝ iStartX ＋ y × iWidth × iMagnifying ＋ iWidth × iMagnifying
            rect.top ＝ iStartY ＋ x × iHeight × iMagnifying
            rect.bottom ＝ iStartY ＋ x × iHeight × iMagnifying ＋ iHeight × iMagnifying
            FillRect (hdc, rect, GetStockObject (#LTGRAY_BRUSH))

        .如果真结束

    .计次循环尾 ()
.计次循环尾 ()
DeleteObject (hCharacterBrush)
DeleteObject (hMonsterBrush)
DeleteObject (hNpcBrush)
DeleteObject (hItemBrush)
DeleteObject (hCrywolfMovePath)
SetBkMode (hdc, iOldBkMode)
ReleaseDC (_启动窗口.取窗口句柄 (), hdc)
返回 (真)