[Stratagus-CVS] stratagus/src/map ccl_map.c

[address@hidden]

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

Modified files:
        src/map        : ccl_map.c 

Log message:
        Allow CclRevealMap during the game

Patches:
Index: stratagus/src/map/ccl_map.c
diff -u stratagus/src/map/ccl_map.c:1.45 stratagus/src/map/ccl_map.c:1.46
--- stratagus/src/map/ccl_map.c:1.45    Wed Dec  3 12:53:22 2003
+++ stratagus/src/map/ccl_map.c Sun Dec 14 15:29:52 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_map.c,v 1.45 2003/12/03 01:53:22 jsalmon3 Exp $
+//     $Id: ccl_map.c,v 1.46 2003/12/14 04:29:52 jsalmon3 Exp $
 
 //@{
 
@@ -247,16 +247,15 @@
 
 /**
 **     Reveal the complete map.
-**     FIXME: only functional in init file!
 */
 #if defined(USE_GUILE) || defined(USE_SIOD)
 local SCM CclRevealMap(void)
 {
-    if (!CclInConfigFile) {
-       PrintFunction();
-       fprintf(stdout, "Only supported within config file\n");
+    if (CclInConfigFile) {
+       FlagRevealMap = 1;
+    } else {
+       RevealMap();
     }
-    FlagRevealMap = 1;
 
     return SCM_UNSPECIFIED;
 }
@@ -267,11 +266,11 @@
        lua_pushstring(l, "incorrect argument");
        lua_error(l);
     }
-    if (!CclInConfigFile) {
-       PrintFunction();
-       fprintf(stdout, "Only supported within config file\n");
+    if (CclInConfigFile) {
+       FlagRevealMap = 1;
+    } else {
+       RevealMap();
     }
-    FlagRevealMap = 1;
 
     return 0;
 }