[Stratagus-CVS] stratagus/src/ai new_ai.c

[ludovic pollet]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     ludovic pollet <address@hidden> 03/11/20 06:31:01

Modified files:
        src/ai         : new_ai.c 

Log message:
        Wrong goal was used when transporting.

Patches:
Index: stratagus/src/ai/new_ai.c
diff -u stratagus/src/ai/new_ai.c:1.93 stratagus/src/ai/new_ai.c:1.94
--- stratagus/src/ai/new_ai.c:1.93      Thu Nov 20 06:12:44 2003
+++ stratagus/src/ai/new_ai.c   Thu Nov 20 06:31:01 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//      $Id: new_ai.c,v 1.93 2003/11/20 11:12:44 pludov Exp $
+//      $Id: new_ai.c,v 1.94 2003/11/20 11:31:01 pludov Exp $
 
 
 //@{
@@ -784,7 +784,7 @@
 {
     CLprintf(file, "\n;;; -----------------------------------------\n");
     CLprintf(file,
-       ";;; MODULE: AI $Id: new_ai.c,v 1.93 2003/11/20 11:12:44 pludov Exp 
$\n\n");
+       ";;; MODULE: AI $Id: new_ai.c,v 1.94 2003/11/20 11:31:01 pludov Exp 
$\n\n");
 
     SaveAiTypesWcName(file);
     SaveAiHelper(file);
@@ -1666,22 +1666,22 @@
            return;
        }
        
-       gw=aitr->Unit->Orders[0].Goal->Type->TileWidth;
-       gh=aitr->Unit->Orders[0].Goal->Type->TileHeight;
-       gx=aitr->Unit->Orders[0].Goal->X;
-       gy=aitr->Unit->Orders[0].Goal->Y;
-       maxrange=aitr->Unit->Orders[0].Range;
-       minrange=aitr->Unit->Orders[0].MinRange;
+       gw=aitr->Order.Goal->Type->TileWidth;
+       gh=aitr->Order.Goal->Type->TileHeight;
+       gx=aitr->Order.Goal->X;
+       gy=aitr->Order.Goal->Y;
+       maxrange=aitr->Order.Range;
+       minrange=aitr->Order.MinRange;
     } else {
        // Take care of non square goals :)
        // If goal is non square, range states a non-existant goal rather
        // than a tile.
-       gw = aitr->Unit->Orders[0].Width;
-       gh = aitr->Unit->Orders[0].Height;
-       maxrange=aitr->Unit->Orders[0].Range;
-       minrange=aitr->Unit->Orders[0].MinRange;
-       gx=aitr->Unit->Orders[0].X;
-       gy=aitr->Unit->Orders[0].Y;
+       gw = aitr->Order.Width;
+       gh = aitr->Order.Height;
+       maxrange=aitr->Order.Range;
+       minrange=aitr->Order.MinRange;
+       gx=aitr->Order.X;
+       gy=aitr->Order.Y;
     }
        
     // Check if we have an idle air transporter.