.版本 2
.支持库 ogrelib
.程序集 窗口程序集1
.子程序 _居中_被单击
.局部变量 p1, 整数型, , , 句柄
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 gx, 整数型, , , 得出游戏宽
.局部变量 gy, 整数型, , , 得出游戏高
.局部变量 屏幕, 矩形
.局部变量 HwndEx, 整数型, , "20"
.局部变量 n, , , , 成员数
.局部变量 p2, 整数型, , , 句柄
.局部变量 p3, 整数型, , , 句柄
.局部变量 p4, 整数型, , , 句柄
窗口_枚举子窗口 (, HwndEx, “xstg”)
n ＝ 取数组成员数 (HwndEx)
.如果真 (n ＝ 1)
p1 ＝ HwndEx [n － n ＋ 1]
.如果真结束
.如果真 (n ＝ 2)
p1 ＝ HwndEx [n － n ＋ 1]
p2 ＝ HwndEx [n － 1]
.如果真结束
.如果真 (n ＝ 3)
p1 ＝ HwndEx [n － n ＋ 1]
p2 ＝ HwndEx [n － 1]
p3 ＝ HwndEx [n － 2]
.如果真结束
.如果真 (n ＝ 4)
p1 ＝ HwndEx [n － n ＋ 1]
p2 ＝ HwndEx [n － 1]
p3 ＝ HwndEx [n － 2]
p4 ＝ HwndEx [n － 3]
.如果真结束
.如果真 (n ＝ 5)
p1 ＝ HwndEx [n － n ＋ 1]
p2 ＝ HwndEx [n － 1]
p3 ＝ HwndEx [n － 2]
p4 ＝ HwndEx [n － 3]
p5 ＝ HwndEx [n － 4]
.如果真结束
.如果真 (n ＝ 6)
p1 ＝ HwndEx [n － n ＋ 1]
p2 ＝ HwndEx [n － 1]
p3 ＝ HwndEx [n － 2]
p4 ＝ HwndEx [n － 3]
p5 ＝ HwndEx [n － 4]
p6 ＝ HwndEx [n － 5]
.如果真结束
.如果真 (n ＝ 7)
p1 ＝ HwndEx [n － n ＋ 1]
p2 ＝ HwndEx [n － 1]
p3 ＝ HwndEx [n － 2]
p4 ＝ HwndEx [n － 3]
p5 ＝ HwndEx [n － 4]
p6 ＝ HwndEx [n － 5]
p7 ＝ HwndEx [n － 6]
.如果真结束
.如果真 (n ＝ 8)
p1 ＝ HwndEx [n － n ＋ 1]
p2 ＝ HwndEx [n － 1]
p3 ＝ HwndEx [n － 2]
p4 ＝ HwndEx [n － 3]
p5 ＝ HwndEx [n － 4]
p6 ＝ HwndEx [n － 5]
p7 ＝ HwndEx [n － 6]
p8 ＝ HwndEx [n － 7]
.如果真结束
取窗口矩形 (p1, 屏幕) ' 如果p1不存在怎么办 这里下判断？
gx ＝ 屏幕.右边 － 屏幕.左边 ' 得出游戏宽
gy ＝ 屏幕.底边 － 屏幕.顶边 ' 得出游戏高
y ＝ (取屏幕高度 () － gy) ÷ 2 ' 顶边居中位置
x ＝ (取屏幕宽度 () － gx) ÷ 2 ' 左边居中位置
窗口_置位置和大小 (p1, y, x)
窗口_置位置和大小 (p2, y, x)
窗口_置位置和大小 (p3, y, x)
窗口_置位置和大小 (p4, y, x)
窗口_置位置和大小 (p5, y, x)
窗口_置位置和大小 (p6, y, x)
窗口_置位置和大小 (p7, y, x)
窗口_置位置和大小 (p8, y, x)