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
139
140
141
142
143
144
145
146
147
148
|
-- ____ _ __
-- / __ )____ _____ | | / /___ ___________
-- / __ / __ \/ ___/ | | /| / / __ `/ ___/ ___/
-- / /_/ / /_/ (__ ) | |/ |/ / /_/ / / (__ )
-- /_____/\____/____/ |__/|__/\__,_/_/ /____/
--
-- A futuristic real-time strategy game.
-- This file is part of Bos Wars.
--
-- cheats.lua - Cheats
--
-- (c) Copyright 2001-2016 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
--
function HandleCheats(str)
local resources = { "energy", "magma" }
if (str == "rich") then
ThisPlayer.EnergyStored = ThisPlayer.EnergyStorageCapacity
ThisPlayer.MagmaStored = ThisPlayer.MagmaStorageCapacity
AddMessage("Jackpot !")
Cheater = true
elseif (str == "poor") then
ThisPlayer.EnergyStored = 0
ThisPlayer.MagmaStored = 0
AddMessage("Bankruptcy !")
Cheater = true
elseif (str == "reveal") then
RevealMap()
Cheater = true
elseif (str == "fow on") then
SetFogOfWar(true)
Cheater = true
elseif (str == "fow off") then
SetFogOfWar(false)
Cheater = true
elseif (str == "see all") then
SetFogOfWar(false)
RevealMap()
Cheater = true
elseif (str == "fast debug") then
SetSpeedBuild(10)
SetSpeedTrain(10)
AddMessage("FAST DEBUG SPEED")
Cheater = true
elseif (str == "normal debug") then
SetSpeedBuild(1)
SetSpeedTrain(1)
AddMessage("NORMAL DEBUG SPEED")
Cheater = true
elseif (str == "speed cheat") then
if (GetSpeedBuild() ~= 1) then
SetSpeedBuild(1)
SetSpeedTrain(1)
AddMessage("NO SPEED!")
else
SetSpeedBuild(10)
SetSpeedTrain(10)
ThisPlayer.EnergyStored = ThisPlayer.EnergyStored + 32000
ThisPlayer.MagmaStored = ThisPlayer.MagmaStored + 32000
AddMessage("SPEED!")
end
Cheater = true
elseif (str == "victory") then
StopGame(GameVictory)
Cheater = true
elseif (str == "defeat") then
StopGame(GameDefeat)
Cheater = true
elseif (str == "draw") then
StopGame(GameDraw)
Cheater = true
elseif (str == "godcheat") then
if (GetGodMode()) then
SetGodMode(false)
AddMessage("God Mode OFF")
else
SetGodMode(true)
AddMessage("God Mode ON")
end
Cheater = true
elseif (str == "full charge") then
for i = 0,ThisPlayer.TotalNumUnits-1 do
SetUnitVariable(ThisPlayer.Units[i].Slot, "Charge", 999999)
end
Cheater = true
elseif (string.sub(str, 1, 6) == "gimme ") then
local arr = {}
for w in string.gmatch(str,"[%w%p]+") do
table.insert(arr, w)
end
local unittype = arr[2]
local count = tonumber(arr[3])
if (count == nil or count < 1) then
count = 1
elseif (count > 9) then
count = 9
end
if UI.MouseViewport == nil then
AddMessage("Cannot give you units until you point at a location.")
else
local tilex = UI.MouseViewport:Viewport2MapX(CursorX)
local tiley = UI.MouseViewport:Viewport2MapY(CursorY)
for i = 1, count do
CreateUnit(unittype, "this", {tilex, tiley})
end
end
AddMessage("Cheater!")
Cheater = true
else
return false
end
return true
end
|
