stratagus-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Stratagus-CVS] stratagus doc/ChangeLog.html src/unit/unittype.c


From: Russell Smith
Subject: [Stratagus-CVS] stratagus doc/ChangeLog.html src/unit/unittype.c
Date: Sun, 21 Sep 2003 04:40:45 -0400

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Russell Smith <address@hidden>  03/09/21 04:40:44

Modified files:
        doc            : ChangeLog.html 
        src/unit       : unittype.c 

Log message:
        Fixed bug: did not save improve-production

Patches:
Index: stratagus/doc/ChangeLog.html
diff -u stratagus/doc/ChangeLog.html:1.538 stratagus/doc/ChangeLog.html:1.539
--- stratagus/doc/ChangeLog.html:1.538  Sun Sep 21 03:13:51 2003
+++ stratagus/doc/ChangeLog.html        Sun Sep 21 04:40:44 2003
@@ -2,7 +2,7 @@
 <html>
 <head>
 <!--
-----   $Id: ChangeLog.html,v 1.538 2003/09/21 07:13:51 mr-russ Exp $
+----   $Id: ChangeLog.html,v 1.539 2003/09/21 08:40:44 mr-russ Exp $
 
 ----   (c) Copyright 1998-2003 by Lutz Sammer
 
@@ -36,6 +36,7 @@
 <li>Future 1.19 Release<p>
     <ul>
     <li>++
+    <li>Fixed bug: did not save improve-production (from Russell Smith).
     <li>RevealAttacker does what it should, attack the attacker (from Russell 
Smith).
     <li>DrawUnitInfo uses Resource Names instead of hard coded (from Russell 
Smith).
     <li>Use first races UI by default, it should be defined (from Russell 
Smith).
Index: stratagus/src/unit/unittype.c
diff -u stratagus/src/unit/unittype.c:1.98 stratagus/src/unit/unittype.c:1.99
--- stratagus/src/unit/unittype.c:1.98  Sat Sep 20 05:03:41 2003
+++ stratagus/src/unit/unittype.c       Sun Sep 21 04:40:44 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: unittype.c,v 1.98 2003/09/20 09:03:41 mr-russ Exp $
+//     $Id: unittype.c,v 1.99 2003/09/21 08:40:44 mr-russ Exp $
 
 //@{
 
@@ -695,16 +695,33 @@
     if( flag ) {
        CLprintf(file,")\n");
     }
-
+    
     for( i=flag=0; i<MaxCosts; ++i ) {
-       if( all || type->_Costs[i] ) {
+       if( type->ImproveIncomes[i] > DefaultIncomes[i] ) {
            if( !flag ) {
-               CLprintf(file,"  'repair-costs '(");
+               CLprintf(file,"   'improve-production '(");
                flag=1;
            } else {
                CLprintf(file," ");
            }
-           CLprintf(file,"%s 
%d",DefaultResourceNames[i],type->_RepairCosts[i]);
+           CLprintf(file,"%s %d 
",DefaultResourceNames[i],type->ImproveIncomes[i]-DefaultIncomes[i]);
+       }
+    }
+    if( flag ) {
+       CLprintf(file,")\n");
+    }
+
+    if( type->RepairHP ) {
+       for( i=flag=0; i<MaxCosts; ++i ) {
+           if( all || type->_Costs[i] ) {
+               if( !flag ) {
+                   CLprintf(file,"  'repair-costs '(");
+                   flag=1;
+               } else {
+                   CLprintf(file," ");
+               }
+               CLprintf(file,"%s 
%d",DefaultResourceNames[i],type->_RepairCosts[i]);
+           }
        }
     }
     if( flag ) {
@@ -1095,7 +1112,7 @@
     char **sp;
 
     CLprintf(file,"\n;;; -----------------------------------------\n");
-    CLprintf(file,";;; MODULE: unittypes $Id: unittype.c,v 1.98 2003/09/20 
09:03:41 mr-russ Exp $\n\n");
+    CLprintf(file,";;; MODULE: unittypes $Id: unittype.c,v 1.99 2003/09/21 
08:40:44 mr-russ Exp $\n\n");
 
     // Original number to internal unit-type name.
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]