全屏吸怪

.版本 2

.子程序 全屏吸怪

.局部变量 人物数据, 长整数型

.局部变量 OBJ偏移, 长整数型

.局部变量 OBJ地址, 长整数型

.局部变量 OBJ数据, 长整数型

.局部变量 OBJ类型, 整数型

.局部变量 OBJ类型2, 整数型

.局部变量 OBJ坐标, 坐标型

.局部变量 OBJ数量, 整数型

.局部变量 首地址, 长整数型

.局部变量 尾地址, 长整数型

.局部变量 计次, 整数型

人物数据 ＝ 读写_读长整型 (#人物基址)

OBJ偏移 ＝ 读写_读长整型 (人物数据 ＋ #地图偏移)

首地址 ＝ 读写_读长整型 (OBJ偏移 ＋ #首地址)

尾地址 ＝ 读写_读长整型 (OBJ偏移 ＋ #尾地址)

OBJ坐标 ＝ 读人物坐标 (人物数据)

.计次循环首 (到长整数 ((尾地址 － 首地址) ÷ 8), 计次)

    OBJ数据 ＝ 读写_读长整型 (首地址 ＋ 8 × (计次 － 1))

    OBJ类型 ＝ 读写_读长整型 (OBJ数据 ＋ #类型偏移)

    OBJ类型2 ＝ 读写_读长整型 (OBJ数据 ＋ #类型偏移 ＋ 4)

    .如果真 (OBJ类型 ＝ 273 或 OBJ类型2 ＝ 529)

        .如果真 (人物数据 ≠ OBJ数据)

            OBJ数量 ＝ OBJ数量 ＋ 1

            读写_写小数型 (读写_读长整型 (OBJ数据 ＋ #对象坐标) ＋ 32, OBJ坐标.x)

            读写_写小数型 (读写_读长整型 (OBJ数据 ＋ #对象坐标) ＋ 36, OBJ坐标.y)

        .如果真结束

    .如果真结束

    处理事件 ()

.计次循环尾 ()