模拟A星算法演示自动寻路

绿色起点

红色终点

黑色是障碍物

ALT+鼠标左键设置起点

ALT+鼠标右键设置终点

鼠标左键设置障碍物

鼠标右键取消障碍

.计次循环首 (高度_, y)
.计次循环首 (宽度_, x)
.如果真 (G_标签 [x] [y].背景颜色 ＝ #绿色) ' 寻找起点
G_标签 [x] [y].标题 ＝ “1”
.如果 (A星 ())
信息框 (“寻路成功” ＋ “用时” ＋ 到文本 (取启动时间 () － s), 0, )
.否则
信息框 (“寻路失败”, 0, )
.如果结束

返回 ()
.如果真结束

.计次循环尾 ()
.计次循环尾 ()