易语言模仿A星算法例程

.计次循环首 (宽度_, N_X)
.计次循环首 (高度_, N_Y)
地图 [N_X] [N_Y].背景颜色 ＝ 多项选择 (取随机数 (1, 7), #黑色, #黑色, #白色, #白色, #白色, #白色, #白色)
地图 [N_X] [N_Y].标题 ＝ “”
.计次循环尾 ()
.计次循环尾 ()
地图 [取随机数 (1, 宽度_)] [取随机数 (1, 高度_)].背景颜色 ＝ #红色
地图 [取随机数 (1, 宽度_)] [取随机数 (1, 高度_)].背景颜色 ＝ #绿色

.计次循环首 (宽度_, N_X)
.计次循环首 (高度_, N_Y)
.如果真 (地图 [N_X] [N_Y].背景颜色 ＝ #黑色)
Member.X ＝ N_X
Member.Y ＝ N_Y
加入成员 (Close_list, Member)
.如果真结束
' 自动加入所有黑点元素 //不可穿透点
.计次循环尾 ()
.计次循环尾 ()