易语言类似A星算法

.计次循环首 (宽度_, N_X)
.计次循环首 (高度_, N_Y)
.如果真 (地图 [N_X] [N_Y].背景颜色 ＝ #粉红)
Member.X ＝ N_X
Member.Y ＝ N_Y
Member.V ＝ VABLE
加入成员 (Open_list, Member) ' 添加进CLOSE 排除避免重复
加入成员 (Close_list, Member)
跳出循环 ()
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
对于寻找路径有所帮助，易语言类似A星算法例子。