[Stratagus-CVS] stratagus/src/ui interface.c

[Russell Smith]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Russell Smith <address@hidden>  03/12/02 19:35:05

Modified files:
        src/ui         : interface.c 

Log message:
        Added fill mana cheat to give all your units full mana

Patches:
Index: stratagus/src/ui/interface.c
diff -u stratagus/src/ui/interface.c:1.144 stratagus/src/ui/interface.c:1.145
--- stratagus/src/ui/interface.c:1.144  Fri Nov 28 17:06:55 2003
+++ stratagus/src/ui/interface.c        Tue Dec  2 19:35:05 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: interface.c,v 1.144 2003/11/28 22:06:55 nehalmistry Exp $
+//     $Id: interface.c,v 1.145 2003/12/03 00:35:05 mr-russ Exp $
 
 //@{
 
@@ -1082,6 +1082,13 @@
        } else {
            SetMessage("God Mode OFF");
        }
+    } else if (!strcmp(Input, "fill mana")) {
+       for (i = 0; i < ThisPlayer->TotalNumUnits; ++i) {
+           if (ThisPlayer->Units[i]->Type->_MaxMana) {
+               ThisPlayer->Units[i]->Mana = 
ThisPlayer->Units[i]->Type->_MaxMana;
+           }
+       }
+       SetMessage("All magic at your command");
 #ifdef DEBUG
     } else if (!strcmp(Input, "ai me")) {
        if (ThisPlayer->AiEnabled) {