[Stratagus-CVS] stratagus/data/ccl cheats.lua

[address@hidden]

CVSROOT:        /home/strat
Module name:    stratagus
Changes by:      <address@hidden>       03/12/16 07:08:02

Modified files:
        data/ccl       : cheats.lua 

Log message:
        Added 'it is a good day to die' cheat

Patches:
Index: stratagus/data/ccl/cheats.lua
diff -u stratagus/data/ccl/cheats.lua:1.3 stratagus/data/ccl/cheats.lua:1.4
--- stratagus/data/ccl/cheats.lua:1.3   Mon Dec 15 08:38:04 2003
+++ stratagus/data/ccl/cheats.lua       Tue Dec 16 07:08:01 2003
@@ -26,9 +26,10 @@
 --      along with this program; if not, write to the Free Software
 --      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 --
---     $Id: cheats.lua,v 1.3 2003/12/14 21:38:04 jsalmon3 Exp $
+--     $Id: cheats.lua,v 1.4 2003/12/15 20:08:01 jsalmon3 Exp $
 
 speedcheat = false
+godcheat = false
 
 function HandleCheats(str)
   local resources = { "gold", "wood", "oil" }
@@ -120,16 +121,21 @@
     ActionDefeat()
 
   elseif (str == "it is a good day to die") then
-    -- FIXME: Not supported yet
+    if (godcheat) then
+      godcheat = false
+      SetGodMode(false)
+      AddMessage("God Mode OFF")
+    else
+      godcheat = true
+      SetGodMode(true)
+      AddMessage("God Mode ON")
+    end
 
   elseif (str == "fill mana") then
     t = GetUnits("this");
     for i = 1,table.getn(t) do
       SetUnitMana(t[i], 255)
     end
-
-  elseif (str == "ai me") then
-    -- FIXME: Not supported yet
 
   else
     return false