1 /* build-in costmoveto code */
 2 static int CostMoveToCallBack_Default(unsigned int index, const CUnit &unit)
 3 {
 4 #ifdef DEBUG
 5     {
 6         Vec2i pos;
 7         pos.y = index / Map.Info.MapWidth;
 8         pos.x = index - pos.y * Map.Info.MapWidth;
 9         Assert(Map.Info.IsPointOnMap(pos));
10     }
11 #endif
12     int cost = 0;
13     const int mask = unit.Type->MovementMask;
14     const CUnitTypeFinder unit_finder((UnitTypeType)unit.Type->UnitType);
15
16     // verify each tile of the unit.
17     int h = unit.Type->TileHeight;
18     const int w = unit.Type->TileWidth;
19     do {
20         const CMapField *mf = Map.Field(index);
21         int i = w;
22         do {
23             const int flag = mf->Flags & mask;
24             if (flag && (AStarKnowUnseenTerrain || mf->playerInfo.IsExplored(*unit.Player))) {
25                 if (flag & ~(MapFieldLandUnit | MapFieldAirUnit | MapFieldSeaUnit)) {
26                     // we can't cross fixed units and other unpassable things
27                     return -1;
28                 }
29                 CUnit *goal = mf->UnitCache.find(unit_finder);
30                 if (!goal) {
31                     // Shouldn't happen, mask says there is something on this tile
32                     Assert(0);
33                     return -1;
34                 }
35                 if (goal->Moving)  {
36                     // moving unit are crossable
37                     cost += AStarMovingUnitCrossingCost;
38                 } else {
39                     // for non moving unit Always Fail unless goal is unit, or unit can attack the target
40                     if (&unit != goal) {
41                         if (goal->Player->IsEnemy(unit) && unit.IsAgressive() && CanTarget(*unit.Type, *goal->Type)
42                             && goal->Variable[UNHOLYARMOR_INDEX].Value == 0 && goal->IsVisibleAsGoal(*unit.Player)) {
43                                 cost += 2 * AStarMovingUnitCrossingCost;
44                         } else {
45                         // FIXME: Need support for moving a fixed unit to add cost
46                             return -1;
47                         }
48                         //cost += AStarFixedUnitCrossingCost;
49                     }
50                 }
51             }
52             // Add cost of crossing unknown tiles if required
53             if (!AStarKnowUnseenTerrain && !mf->playerInfo.IsExplored(*unit.Player)) {
54                 // Tend against unknown tiles.
55                 cost += AStarUnknownTerrainCost;
56             }
57             // Add tile movement cost
58             cost += mf->getCost();
59             ++mf;
60         } while (--i);
61         index += AStarMapWidth;
62     } while (--h);
63     return cost;
64 }