1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
-- _________ __ __
-- / _____// |_____________ _/ |______ ____ __ __ ______
-- \_____ \\ __\_ __ \__ \\ __\__ \ / ___\| | \/ ___/
-- / \| | | | \// __ \| | / __ \_/ /_/ > | /\___ \
-- /_______ /|__| |__| (____ /__| (____ /\___ /|____//____ >
-- \/ \/ \//_____/ \/
-- ______________________ ______________________
-- T H E W A R B E G I N S
-- Stratagus - A free fantasy real time strategy game engine
--
-- wc2.lua - WC2 compatibility level
--
-- (c) Copyright 2001-2004 by Lutz Sammer and Jimmy Salmon
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- 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.2 2004/05/27 02:42:19 nehalmistry Exp $
speedcheat = false
godcheat = false
function HandleCheats(str)
local resources = { "titanium", "crystal" }
if (str == "there is no aliens level") then
-- FIXME: no function yet
AddMessage("cheat enabled")
elseif (str == "glittering prizes") then
SetPlayerData(GetThisPlayer(), "Resources", "titanium",
GetPlayerData(GetThisPlayer(), "Resources", "titanium") + 12000)
SetPlayerData(GetThisPlayer(), "Resources", "crystal",
GetPlayerData(GetThisPlayer(), "Resources", "crystal") + 5000)
AddMessage("!!! :)")
elseif (str == "on screen") then
RevealMap()
elseif (str == "showpath") then
RevealMap()
elseif (str == "fow on") then
SetFogOfWar(true)
elseif (str == "fow off") then
SetFogOfWar(false)
elseif (str == "fast debug") then
for i = 1,table.getn(resources) do
SetSpeedResourcesHarvest(resources[i], 10)
SetSpeedResourcesReturn(resources[i], 10)
end
SetSpeedBuild(10)
SetSpeedTrain(10)
SetSpeedUpgrade(10)
SetSpeedResearch(10)
AddMessage("FAST DEBUG SPEED")
elseif (str == "normal debug") then
for i = 1,table.getn(resources) do
SetSpeedResourcesHarvest(resources[i], 1)
SetSpeedResourcesReturn(resources[i], 1)
end
SetSpeedBuild(1)
SetSpeedTrain(1)
SetSpeedUpgrade(1)
SetSpeedResearch(1)
AddMessage("NORMAL DEBUG SPEED")
elseif (str == "make it so") then
if (speedcheat) then
speedcheat = false
for i = 1,table.getn(resources) do
SetSpeedResourcesHarvest(resources[i], 1)
SetSpeedResourcesReturn(resources[i], 1)
end
SetSpeedBuild(1)
SetSpeedTrain(1)
SetSpeedUpgrade(1)
SetSpeedResearch(1)
AddMessage("NO SO!")
else
speedcheat = true
for i = 1,table.getn(resources) do
SetSpeedResourcesHarvest(resources[i], 10)
SetSpeedResourcesReturn(resources[i], 10)
end
SetSpeedBuild(10)
SetSpeedTrain(10)
SetSpeedUpgrade(10)
SetSpeedResearch(10)
for i = 1,table.getn(resources) do
SetPlayerData(GetThisPlayer(), "Resources", resources[i],
GetPlayerData(GetThisPlayer(), "Resources", resources[i]) + 32000)
end
AddMessage("SO!")
end
elseif (str == "unite the clans") then
ActionVictory()
elseif (str == "you pitiful worm") then
ActionDefeat()
elseif (str == "it is a good day to die") then
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
else
return false
end
return true
end
|
