.版本 2
.子程序 顺图上
.局部变量 地图X, 整数型
.局部变量 地图Y, 整数型
.如果真 (读内存代码 (进程ID, #人物基址2 ＋ “+” ＋ #地图偏移) ≤ 0)
返回 ()
.如果真结束
地图X ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图X)
地图Y ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图Y)
组包_强制顺图 (地图X, 地图Y － 1)
.子程序 顺图下
.局部变量 地图X, 整数型
.局部变量 地图Y, 整数型
.如果真 (读内存代码 (进程ID, #人物基址2 ＋ “+” ＋ #地图偏移) ≤ 0)
返回 ()
.如果真结束
地图X ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图X)
地图Y ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图Y)
组包_强制顺图 (地图X, 地图Y ＋ 1)
.子程序 顺图左
.局部变量 地图X, 整数型
.局部变量 地图Y, 整数型
.如果真 (读内存代码 (进程ID, #人物基址2 ＋ “+” ＋ #地图偏移) ≤ 0)
返回 ()
.如果真结束
地图X ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图X)
地图Y ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图Y)
组包_强制顺图 (地图X － 1, 地图Y)
.子程序 顺图右
.局部变量 地图X, 整数型
.局部变量 地图Y, 整数型
.如果真 (读内存代码 (进程ID, #人物基址2 ＋ “+” ＋ #地图偏移) ≤ 0)
返回 ()
.如果真结束
地图X ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图X)
地图Y ＝ 读内存代码 (进程ID, 十到十六 (十六到十 (#商店基址2) － 8) ＋ “+” ＋ #时间基址 ＋ “+94+” ＋ #瞬图Y)
组包_强制顺图 (地图X ＋ 1, 地图Y)
.版本 2
.子程序 组包_强制顺图
.参数 X索引, 整数型
.参数 Y索引, 整数型
Send_缓冲CALL (45) ' 包头
Send_加密CALL (X索引, 1)
Send_加密CALL (Y索引, 1)
Send_加密CALL (0, 4)
Send_加密CALL (0, 4)
Send_加密CALL (0, 1)
.计次循环首 (9, )
Send_加密CALL (0, 2)
.计次循环尾 ()
.计次循环首 (8, )
Send_加密CALL (0, 4)
.计次循环尾 ()
.计次循环首 (7, )
Send_加密CALL (0, 2)
.计次循环尾 ()
Send_加密CALL (0, 4)
Send_加密CALL (0, 2)
Send_加密CALL (0, 2)
Send_加密CALL (0, 2)
Send_加密CALL (0, 4)
Send_加密CALL (0, 4)
Send_加密CALL (0, 2)
.计次循环首 (16, )
Send_加密CALL (0, 4)
.计次循环尾 ()
Send_发包CALL ()