自己写的VB即时战略小游戏，自动寻路模块：你可以任意使用，复制和传播该模块，但请不要更改下面的内容,工作原理：首先生成8个方向的节点，tmp(tmpe)用于记录生成的节点对应的节点号新生成的节点的指针（d1-表示离开起始点的距离)指向生成他的父节点，按该点到目的地的大小nude(i).d2排序后加入opened列表，，(opened总是指向离目的地最近的点)然后再从opened表中取出一个节点,生成新的节点，按8个方向生成新的节点，如果要生成的节点已经存在（在tmp(tmpe)中)就比较以下，改节点的d1值重新修改父节点指针，如果达到目的地就返回节点的序号值，如果目的地不能到达就选出，一个距离目的地最近的点做为目的地,如果起始点8个方