我下载此源码多月了,一直没条理好,只能羡慕了 又有一个源码,我认为可以跟此源码一拼,那源码好象是A*的 因为它进行反盗链的处理,我只能把它网站打出来了 http://www.newasp.net/code/Delphi/20788.html 它是八方向的,要改成四面只需在它主程序的此函数改成这样 function MovingCost(X, Y, Direction: Integer): Integer; begin Result := TerrainParams[Form1.FData[Y, X].TerrainType].MoveCost; if ((Direction and 1) = 1) and (Result > 0) then // 如果是斜方向,则COST增加 // Result := Result +(Result shr 1); //应为Result*sqt(2),此处近似为1.5(八格设制) Result := -1; //禁止斜线通路 (四格设制) end;
