.版本 2
.子程序 自己是队长, 逻辑型
.局部变量 队员对象, 整数型
.局部变量 队员位置, 整数型
.局部变量 人物对象, 整数型
人物对象 ＝ 内存_读整数型 (全局_进程句柄, #人物基址值)
.如果真 (人物对象 ≤ 65536)
返回 (假)
.如果真结束
.计次循环首 (8, 队员位置)
队员对象 ＝ 内存_读整数型 (全局_进程句柄, #队员基址 ＋ 4 × (队员位置 － 1))
.如果真 (队员对象 ≤ 0)
到循环尾 ()
.如果真结束
.如果真 (内存_读整数型 (全局_进程句柄, 队员对象 ＋ #队员有效标志) ＝ 1 且 内存_读整数型 (全局_进程句柄, 队员对象 ＋ #队长标志值) ＝ 1)
返回 (假)
.如果真结束
.计次循环尾 ()
返回 (真)

.版本 2
.子程序 队长自动组队调度
.如果 (自己是队长 ())
.如果真 (取列表名单文本 () ＝ “”)
返回 ()
.如果真结束
.如果真 (自动组队.选中 ＝ 假)
自动组队.选中 ＝ 真
接受组队.选中 ＝ 假
写日志 (自定义时间 () ＋ “自己是队长，自动开启自动组队” ＋ #换行符)
.如果真结束
.否则
.如果真 (自动组队.选中 ＝ 真)
自动组队.选中 ＝ 假
自动组队停止 ＝ 真
写日志 (自定义时间 () ＋ “自己已不是队长，关闭自动组队” ＋ #换行符)
.如果真结束
.如果结束