[Stratagus-CVS] stratagus/src/clone ccl_player.c

[address@hidden]

CVSROOT:        /home/strat
Module name:    stratagus
Changes by:      <address@hidden>       03/12/14 15:28:55

Modified files:
        src/clone      : ccl_player.c 

Log message:
        Redraw resources after CclSetPlayerResource

Patches:
Index: stratagus/src/clone/ccl_player.c
diff -u stratagus/src/clone/ccl_player.c:1.49 
stratagus/src/clone/ccl_player.c:1.50
--- stratagus/src/clone/ccl_player.c:1.49       Fri Dec 12 08:46:30 2003
+++ stratagus/src/clone/ccl_player.c    Sun Dec 14 15:28:55 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_player.c,v 1.49 2003/12/11 21:46:30 jsalmon3 Exp $
+//     $Id: ccl_player.c,v 1.50 2003/12/14 04:28:55 jsalmon3 Exp $
 
 //@{
 
@@ -1169,6 +1169,7 @@
        list = gh_cdr(list);
        player->Resources[i] = gh_scm2int(value);
     }
+    MustRedraw |= RedrawResources;
     return SCM_UNSPECIFIED;
 }
 #elif defined(USE_LUA)
@@ -1193,16 +1194,12 @@
            }
        }
        if (i == MaxCosts) {
-          // FIXME: this leaves a half initialized player
           lua_pushfstring(l, "Unsupported tag: %s", value);
           lua_error(l);
        }
-       if (!lua_isnumber(l, j + 1)) {
-           lua_pushstring(l, "incorrect argument");
-           lua_error(l);
-       }
-       player->Resources[i] = lua_tonumber(l, j + 1);
+       player->Resources[i] = LuaToNumber(l, j + 1);
     }
+    MustRedraw |= RedrawResources;
     return 0;
 }
 #endif