author | Wuzzy <Wuzzy2@mail.ru> |
Sun, 15 Sep 2019 15:54:43 +0200 | |
changeset 15403 | e347c3508f95 |
parent 15278 | 16f389fcd462 |
child 15645 | fb1f47e382d0 |
permissions | -rw-r--r-- |
4976 | 1 |
(* |
2 |
* Hedgewars, a free turn based strategy game |
|
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
4976 | 4 |
* |
5 |
* This program is free software; you can redistribute it and/or modify |
|
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
14 |
* You should have received a copy of the GNU General Public License |
|
15 |
* along with this program; if not, write to the Free Software |
|
10108
c68cf030eded
update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents:
10015
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
4976 | 17 |
*) |
18 |
||
4413 | 19 |
{$INCLUDE "options.inc"} |
4976 | 20 |
|
4413 | 21 |
unit uCommandHandlers; |
22 |
||
23 |
interface |
|
24 |
||
25 |
procedure initModule; |
|
26 |
procedure freeModule; |
|
27 |
||
28 |
implementation |
|
12998
22e032ab1cb7
Toggle hog tag translucency with Precise + Change hog tags key
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
29 |
uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions |
12815
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12490
diff
changeset
|
30 |
, uVisualGearsList, uGearsHedgehog |
7629 | 31 |
{$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}; |
4413 | 32 |
|
13107
7b3bc9a4dfb9
uCommandHandlers: Remove unused variable
Wuzzy <Wuzzy2@mail.ru>
parents:
13077
diff
changeset
|
33 |
var cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 0, 4, 5, 6, 15, 8, 8, 8, 8, 12, 13, 14); |
12998
22e032ab1cb7
Toggle hog tag translucency with Precise + Change hog tags key
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
34 |
cTagsMasksNoHealth: array[0..15] of byte = (3, 0, 1, 2, 0, 0, 0, 0, 11, 8, 9, 10, 8, 8, 8, 8); |
7028 | 35 |
|
4531
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
36 |
procedure chGenCmd(var s: shortstring); |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
37 |
begin |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
38 |
case s[1] of |
11919
e0476802c8b5
When doing something, set ready time to 0 instead of 1
Wuzzy <almikes@aol.com>
parents:
11532
diff
changeset
|
39 |
'R': if ReadyTimeLeft > 0 then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
40 |
begin |
11919
e0476802c8b5
When doing something, set ready time to 0 instead of 1
Wuzzy <almikes@aol.com>
parents:
11532
diff
changeset
|
41 |
ReadyTimeLeft:= 0; |
7805 | 42 |
if not isExternalSource then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
43 |
SendIPC('c'+s); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
44 |
end |
4531
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
45 |
end |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
46 |
end; |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
47 |
|
4413 | 48 |
procedure chQuit(var s: shortstring); |
49 |
begin |
|
4751 | 50 |
s:= s; // avoid compiler hint |
13077 | 51 |
if (GameState = gsGame) then |
52 |
begin |
|
53 |
isInChatMode:= false; |
|
5523 | 54 |
GameState:= gsConfirm; |
13077 | 55 |
end |
56 |
else begin |
|
10510 | 57 |
if GameState = gsConfirm then |
13077 | 58 |
GameState:= gsGame; |
59 |
end; |
|
10510 | 60 |
|
10392 | 61 |
updateCursorVisibility; |
4413 | 62 |
end; |
63 |
||
4744
ecc2c757d0df
general uKey refactor in preparaiton of two new shortcuts
koda
parents:
4661
diff
changeset
|
64 |
procedure chForceQuit(var s: shortstring); |
ecc2c757d0df
general uKey refactor in preparaiton of two new shortcuts
koda
parents:
4661
diff
changeset
|
65 |
begin |
ecc2c757d0df
general uKey refactor in preparaiton of two new shortcuts
koda
parents:
4661
diff
changeset
|
66 |
s:= s; // avoid compiler hint |
4751 | 67 |
GameState:= gsConfirm; |
68 |
ParseCommand('confirm', true); |
|
4413 | 69 |
end; |
70 |
||
71 |
procedure chConfirm(var s: shortstring); |
|
72 |
begin |
|
4751 | 73 |
s:= s; // avoid compiler hint |
74 |
if GameState = gsConfirm then |
|
7722 | 75 |
begin |
15278
16f389fcd462
Prevent saving of demo after /lua command was used
Wuzzy <Wuzzy2@mail.ru>
parents:
14896
diff
changeset
|
76 |
if (luaCmdUsed) then |
16f389fcd462
Prevent saving of demo after /lua command was used
Wuzzy <Wuzzy2@mail.ru>
parents:
14896
diff
changeset
|
77 |
SendIPC(_S'm'); |
7068 | 78 |
SendIPC(_S'Q'); |
4751 | 79 |
GameState:= gsExit |
7722 | 80 |
end |
4413 | 81 |
end; |
82 |
||
4751 | 83 |
procedure chHalt (var s: shortstring); |
4746
3ae448aebe7e
implemented actions for closing/enging program (needs testing over the net)
koda
parents:
4744
diff
changeset
|
84 |
begin |
3ae448aebe7e
implemented actions for closing/enging program (needs testing over the net)
koda
parents:
4744
diff
changeset
|
85 |
s:= s; // avoid compiler hint |
15278
16f389fcd462
Prevent saving of demo after /lua command was used
Wuzzy <Wuzzy2@mail.ru>
parents:
14896
diff
changeset
|
86 |
if (luaCmdUsed) then |
16f389fcd462
Prevent saving of demo after /lua command was used
Wuzzy <Wuzzy2@mail.ru>
parents:
14896
diff
changeset
|
87 |
SendIPC(_S'm'); |
7068 | 88 |
SendIPC(_S'H'); |
4746
3ae448aebe7e
implemented actions for closing/enging program (needs testing over the net)
koda
parents:
4744
diff
changeset
|
89 |
GameState:= gsExit |
3ae448aebe7e
implemented actions for closing/enging program (needs testing over the net)
koda
parents:
4744
diff
changeset
|
90 |
end; |
3ae448aebe7e
implemented actions for closing/enging program (needs testing over the net)
koda
parents:
4744
diff
changeset
|
91 |
|
4413 | 92 |
procedure chCheckProto(var s: shortstring); |
8370 | 93 |
var i: LongInt; |
4413 | 94 |
begin |
6001 | 95 |
if isDeveloperMode then |
96 |
begin |
|
8370 | 97 |
i:= StrToInt(s); |
11532 | 98 |
checkFails(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old (got '+intToStr(i)+', expecting '+intToStr(cNetProtoVersion)+')', true); |
99 |
checkFails(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new (got '+intToStr(i)+', expecting '+intToStr(cNetProtoVersion)+')', true); |
|
7058 | 100 |
end |
4413 | 101 |
end; |
102 |
||
103 |
procedure chTeamLocal(var s: shortstring); |
|
104 |
begin |
|
105 |
s:= s; // avoid compiler hint |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
106 |
if not isDeveloperMode then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
107 |
exit; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
108 |
if CurrentTeam = nil then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
109 |
OutError(errmsgIncorrectUse + ' "/rdriven"', true); |
4413 | 110 |
CurrentTeam^.ExtDriven:= true |
111 |
end; |
|
112 |
||
113 |
procedure chScript(var s: shortstring); |
|
114 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
115 |
if s[1]='"' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
116 |
Delete(s, 1, 1); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
117 |
if s[byte(s[0])]='"' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
118 |
Delete(s, byte(s[0]), 1); |
6254
e90fb60cb46d
Force a desync if there is a script name mismatch. This avoids playing until the game desyncs due to script differences.
nemo
parents:
6245
diff
changeset
|
119 |
cScriptName:= s; |
13721
61095cb5f58a
Critical error if loading a script has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
120 |
ScriptLoad(s, true) |
4413 | 121 |
end; |
122 |
||
9902 | 123 |
procedure chScriptParam(var s: shortstring); |
124 |
begin |
|
9985
42cd42e44c9a
GravRacer, GravHigh, GravMutant, Grav... uhm... shoppamap? Easy! Gravity script could be combined with any other script now.
unc0rr
parents:
9902
diff
changeset
|
125 |
ScriptSetString('ScriptParam', s); |
42cd42e44c9a
GravRacer, GravHigh, GravMutant, Grav... uhm... shoppamap? Easy! Gravity script could be combined with any other script now.
unc0rr
parents:
9902
diff
changeset
|
126 |
ScriptCall('onParameters'); |
9902 | 127 |
end; |
128 |
||
4413 | 129 |
procedure chCurU_p(var s: shortstring); |
130 |
begin |
|
131 |
s:= s; // avoid compiler hint |
|
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
132 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, -1, CursorMovementY); |
4413 | 133 |
end; |
134 |
||
135 |
procedure chCurU_m(var s: shortstring); |
|
136 |
begin |
|
137 |
s:= s; // avoid compiler hint |
|
13767
2e8b3081cf80
Only reset CursorMovement to 0 if command "-cur_*" is called with appropriate direction
Wuzzy <Wuzzy2@mail.ru>
parents:
13721
diff
changeset
|
138 |
if CursorMovementY < 0 then |
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
139 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementY); |
4413 | 140 |
end; |
141 |
||
142 |
procedure chCurD_p(var s: shortstring); |
|
143 |
begin |
|
144 |
s:= s; // avoid compiler hint |
|
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
145 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 1, CursorMovementY); |
4413 | 146 |
end; |
147 |
||
148 |
procedure chCurD_m(var s: shortstring); |
|
149 |
begin |
|
150 |
s:= s; // avoid compiler hint |
|
13767
2e8b3081cf80
Only reset CursorMovement to 0 if command "-cur_*" is called with appropriate direction
Wuzzy <Wuzzy2@mail.ru>
parents:
13721
diff
changeset
|
151 |
if CursorMovementY > 0 then |
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
152 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementY); |
4413 | 153 |
end; |
154 |
||
155 |
procedure chCurL_p(var s: shortstring); |
|
156 |
begin |
|
157 |
s:= s; // avoid compiler hint |
|
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
158 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, -1, CursorMovementX); |
4413 | 159 |
end; |
160 |
||
161 |
procedure chCurL_m(var s: shortstring); |
|
162 |
begin |
|
163 |
s:= s; // avoid compiler hint |
|
13767
2e8b3081cf80
Only reset CursorMovement to 0 if command "-cur_*" is called with appropriate direction
Wuzzy <Wuzzy2@mail.ru>
parents:
13721
diff
changeset
|
164 |
if CursorMovementX < 0 then |
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
165 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementX); |
4413 | 166 |
end; |
167 |
||
168 |
procedure chCurR_p(var s: shortstring); |
|
169 |
begin |
|
170 |
s:= s; // avoid compiler hint |
|
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
171 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 1, CursorMovementX); |
4413 | 172 |
end; |
173 |
||
174 |
procedure chCurR_m(var s: shortstring); |
|
175 |
begin |
|
176 |
s:= s; // avoid compiler hint |
|
13767
2e8b3081cf80
Only reset CursorMovement to 0 if command "-cur_*" is called with appropriate direction
Wuzzy <Wuzzy2@mail.ru>
parents:
13721
diff
changeset
|
177 |
if CursorMovementX > 0 then |
14896
63357ed39886
Precise + camera movement keys = move camera at slower
Wuzzy <Wuzzy2@mail.ru>
parents:
14895
diff
changeset
|
178 |
updateCursorMovementDelta((LocalMessage and gmPrecise) <> 0, 0, CursorMovementX); |
4413 | 179 |
end; |
180 |
||
181 |
procedure chLeft_p(var s: shortstring); |
|
182 |
begin |
|
183 |
s:= s; // avoid compiler hint |
|
10392 | 184 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
185 |
exit; |
7805 | 186 |
if not isExternalSource then |
7068 | 187 |
SendIPC(_S'L'); |
4413 | 188 |
bShowFinger:= false; |
189 |
with CurrentHedgehog^.Gear^ do |
|
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
190 |
Message:= Message or (gmLeft and InputMask); |
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
191 |
ScriptCall('onLeft'); |
4413 | 192 |
end; |
193 |
||
194 |
procedure chLeft_m(var s: shortstring); |
|
195 |
begin |
|
196 |
s:= s; // avoid compiler hint |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
197 |
if CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
198 |
exit; |
7805 | 199 |
if not isExternalSource then |
7068 | 200 |
SendIPC(_S'l'); |
4413 | 201 |
with CurrentHedgehog^.Gear^ do |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
202 |
Message:= Message and (not (gmLeft and InputMask)); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
203 |
ScriptCall('onLeftUp'); |
4413 | 204 |
end; |
205 |
||
206 |
procedure chRight_p(var s: shortstring); |
|
207 |
begin |
|
208 |
s:= s; // avoid compiler hint |
|
10392 | 209 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
210 |
exit; |
7805 | 211 |
if not isExternalSource then |
7068 | 212 |
SendIPC(_S'R'); |
4413 | 213 |
bShowFinger:= false; |
214 |
with CurrentHedgehog^.Gear^ do |
|
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
215 |
Message:= Message or (gmRight and InputMask); |
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
216 |
ScriptCall('onRight'); |
4413 | 217 |
end; |
218 |
||
219 |
procedure chRight_m(var s: shortstring); |
|
220 |
begin |
|
221 |
s:= s; // avoid compiler hint |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
222 |
if CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
223 |
exit; |
7805 | 224 |
if not isExternalSource then |
7068 | 225 |
SendIPC(_S'r'); |
4413 | 226 |
with CurrentHedgehog^.Gear^ do |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
227 |
Message:= Message and (not (gmRight and InputMask)); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
228 |
ScriptCall('onRightUp'); |
4413 | 229 |
end; |
230 |
||
231 |
procedure chUp_p(var s: shortstring); |
|
232 |
begin |
|
233 |
s:= s; // avoid compiler hint |
|
10392 | 234 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
235 |
exit; |
7805 | 236 |
if not isExternalSource then |
7068 | 237 |
SendIPC(_S'U'); |
4413 | 238 |
bShowFinger:= false; |
239 |
with CurrentHedgehog^.Gear^ do |
|
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
240 |
Message:= Message or (gmUp and InputMask); |
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
241 |
ScriptCall('onUp'); |
4413 | 242 |
end; |
243 |
||
244 |
procedure chUp_m(var s: shortstring); |
|
245 |
begin |
|
246 |
s:= s; // avoid compiler hint |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
247 |
if CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
248 |
exit; |
7805 | 249 |
if not isExternalSource then |
7068 | 250 |
SendIPC(_S'u'); |
4413 | 251 |
with CurrentHedgehog^.Gear^ do |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
252 |
Message:= Message and (not (gmUp and InputMask)); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
253 |
ScriptCall('onUpUp'); |
4413 | 254 |
end; |
255 |
||
256 |
procedure chDown_p(var s: shortstring); |
|
257 |
begin |
|
258 |
s:= s; // avoid compiler hint |
|
10392 | 259 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
260 |
exit; |
7805 | 261 |
if not isExternalSource then |
7068 | 262 |
SendIPC(_S'D'); |
4413 | 263 |
bShowFinger:= false; |
264 |
with CurrentHedgehog^.Gear^ do |
|
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
265 |
Message:= Message or (gmDown and InputMask); |
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
266 |
ScriptCall('onDown'); |
4413 | 267 |
end; |
268 |
||
269 |
procedure chDown_m(var s: shortstring); |
|
270 |
begin |
|
271 |
s:= s; // avoid compiler hint |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
272 |
if CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
273 |
exit; |
7805 | 274 |
if not isExternalSource then |
7068 | 275 |
SendIPC(_S'd'); |
4413 | 276 |
with CurrentHedgehog^.Gear^ do |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
277 |
Message:= Message and (not (gmDown and InputMask)); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
278 |
ScriptCall('onDownUp'); |
4413 | 279 |
end; |
280 |
||
281 |
procedure chPrecise_p(var s: shortstring); |
|
282 |
begin |
|
283 |
s:= s; // avoid compiler hint |
|
10392 | 284 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
285 |
exit; |
7805 | 286 |
if not isExternalSource then |
7068 | 287 |
SendIPC(_S'Z'); |
4413 | 288 |
bShowFinger:= false; |
289 |
with CurrentHedgehog^.Gear^ do |
|
4522
0f590eefd531
Add an input mask for setting of gear messages. Intended for intercepting user messages. This is totally untested. I don't think it should desync but seriously needs a lot of testing. Esp the doPut behaviour.
nemo
parents:
4437
diff
changeset
|
290 |
Message:= Message or (gmPrecise and InputMask); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
291 |
ScriptCall('onPrecise'); |
4413 | 292 |
end; |
293 |
||
294 |
procedure chPrecise_m(var s: shortstring); |
|
295 |
begin |
|
296 |
s:= s; // avoid compiler hint |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
297 |
if CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
298 |
exit; |
7805 | 299 |
if not isExternalSource then |
7068 | 300 |
SendIPC(_S'z'); |
4413 | 301 |
with CurrentHedgehog^.Gear^ do |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
302 |
Message:= Message and (not (gmPrecise and InputMask)); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
303 |
ScriptCall('onPreciseUp'); |
4413 | 304 |
end; |
305 |
||
306 |
procedure chLJump(var s: shortstring); |
|
307 |
begin |
|
308 |
s:= s; // avoid compiler hint |
|
10392 | 309 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
310 |
exit; |
7805 | 311 |
if not isExternalSource then |
7068 | 312 |
SendIPC(_S'j'); |
4413 | 313 |
bShowFinger:= false; |
314 |
with CurrentHedgehog^.Gear^ do |
|
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
315 |
Message:= Message or (gmLJump and InputMask); |
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
316 |
ScriptCall('onLJump'); |
4413 | 317 |
end; |
318 |
||
319 |
procedure chHJump(var s: shortstring); |
|
320 |
begin |
|
321 |
s:= s; // avoid compiler hint |
|
10392 | 322 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
323 |
exit; |
7805 | 324 |
if not isExternalSource then |
7068 | 325 |
SendIPC(_S'J'); |
4413 | 326 |
bShowFinger:= false; |
327 |
with CurrentHedgehog^.Gear^ do |
|
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
328 |
Message:= Message or (gmHJump and InputMask); |
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
329 |
ScriptCall('onHJump'); |
4413 | 330 |
end; |
331 |
||
332 |
procedure chAttack_p(var s: shortstring); |
|
10672 | 333 |
var inbtwnTrgtAttks: Boolean; |
4413 | 334 |
begin |
335 |
s:= s; // avoid compiler hint |
|
10392 | 336 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
337 |
exit; |
4413 | 338 |
bShowFinger:= false; |
339 |
with CurrentHedgehog^.Gear^ do |
|
340 |
begin |
|
4900 | 341 |
AddFileLog('/+attack: hedgehog''s Gear^.State = '+inttostr(State)); |
4413 | 342 |
if ((State and gstHHDriven) <> 0) then |
343 |
begin |
|
10672 | 344 |
inbtwnTrgtAttks:= ((GameFlags and gfInfAttack) <> 0) and ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0); |
345 |
if (not inbtwnTrgtAttks) then |
|
346 |
FollowGear:= CurrentHedgehog^.Gear; |
|
7805 | 347 |
if not isExternalSource then |
7068 | 348 |
SendIPC(_S'A'); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
349 |
Message:= Message or (gmAttack and InputMask); |
10228 | 350 |
ScriptCall('onAttack'); // so if I fire airstrike, it doesn't count as attack? fine, fine |
4413 | 351 |
end |
352 |
end |
|
353 |
end; |
|
354 |
||
355 |
procedure chAttack_m(var s: shortstring); |
|
356 |
begin |
|
357 |
s:= s; // avoid compiler hint |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
358 |
if CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
359 |
exit; |
4413 | 360 |
with CurrentHedgehog^.Gear^ do |
361 |
begin |
|
7805 | 362 |
if not isExternalSource and |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
363 |
((Message and gmAttack) <> 0) then |
7068 | 364 |
SendIPC(_S'a'); |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
365 |
Message:= Message and (not (gmAttack and InputMask)); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
366 |
ScriptCall('onAttackUp'); |
4413 | 367 |
end |
368 |
end; |
|
369 |
||
370 |
procedure chSwitch(var s: shortstring); |
|
371 |
begin |
|
372 |
s:= s; // avoid compiler hint |
|
10392 | 373 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
374 |
exit; |
7805 | 375 |
if not isExternalSource then |
7068 | 376 |
SendIPC(_S'S'); |
4413 | 377 |
bShowFinger:= false; |
378 |
with CurrentHedgehog^.Gear^ do |
|
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
379 |
Message:= Message or (gmSwitch and InputMask); |
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
380 |
ScriptCall('onSwitch'); |
4413 | 381 |
end; |
382 |
||
383 |
procedure chNextTurn(var s: shortstring); |
|
7671 | 384 |
var gi: PGear; |
4413 | 385 |
begin |
386 |
s:= s; // avoid compiler hint |
|
7103 | 387 |
|
11532 | 388 |
if checkFails(AllInactive, '/nextturn called when not all gears are inactive', true) then exit; |
4413 | 389 |
|
7389
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7218
diff
changeset
|
390 |
CheckSum:= CheckSum xor GameTicks; |
7104 | 391 |
gi := GearsList; |
392 |
while gi <> nil do |
|
393 |
begin |
|
9797
1fdc1507e42d
remove state from check, just to see if this was why we just desynced
nemo
parents:
9796
diff
changeset
|
394 |
with gi^ do CheckSum:= CheckSum xor X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac; |
7389
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7218
diff
changeset
|
395 |
AddRandomness(CheckSum); |
7104 | 396 |
gi := gi^.NextGear |
397 |
end; |
|
7103 | 398 |
|
7805 | 399 |
if not isExternalSource then |
7103 | 400 |
begin |
401 |
s[0]:= #5; |
|
402 |
s[1]:= 'N'; |
|
7389
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7218
diff
changeset
|
403 |
SDLNet_Write32(CheckSum, @s[2]); |
7103 | 404 |
SendIPC(s) |
405 |
end |
|
406 |
else |
|
11532 | 407 |
checkFails(CurrentTeam^.hasGone or (CheckSum = lastTurnChecksum), 'Desync detected', true); |
7831 | 408 |
|
7187
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7151
diff
changeset
|
409 |
AddFileLog('Next turn: time '+inttostr(GameTicks)); |
4413 | 410 |
end; |
411 |
||
412 |
procedure chTimer(var s: shortstring); |
|
413 |
begin |
|
7790 | 414 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
415 |
exit; |
4413 | 416 |
|
11532 | 417 |
if checkFails((s[0] = #1) and (s[1] >= '1') and (s[1] <= '5'), 'Malformed /timer', true) then exit; |
7790 | 418 |
|
7805 | 419 |
if not isExternalSource then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
420 |
SendIPC(s); |
4413 | 421 |
bShowFinger:= false; |
422 |
with CurrentHedgehog^.Gear^ do |
|
423 |
begin |
|
4522
0f590eefd531
Add an input mask for setting of gear messages. Intended for intercepting user messages. This is totally untested. I don't think it should desync but seriously needs a lot of testing. Esp the doPut behaviour.
nemo
parents:
4437
diff
changeset
|
424 |
Message:= Message or (gmTimer and InputMask); |
4661
f5d858e4b634
Whole ton of script callbacks on commands. Poor engine.
mikade
parents:
4611
diff
changeset
|
425 |
MsgParam:= byte(s[1]) - ord('0'); |
6818
136aa9c8c593
Add the parameters I missed the first time when I added these hooks.
mikade
parents:
6700
diff
changeset
|
426 |
ScriptCall('onTimer', MsgParam); |
4413 | 427 |
end |
428 |
end; |
|
429 |
||
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
430 |
// Increment timer or bounciness |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
431 |
procedure chTimerU(var s: shortstring); |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
432 |
var t: LongWord; |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
433 |
tb: Byte; |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
434 |
begin |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
435 |
s:= s; // avoid compiler hint |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
436 |
if CheckNoTeamOrHH then |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
437 |
exit; |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
438 |
// We grab the current timer first so we can increment it |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
439 |
if (CurrentHedgehog^.Gear^.Message and gmPrecise) = 0 then |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
440 |
t:= HHGetTimerMsg(CurrentHedgehog^.Gear) |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
441 |
else |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
442 |
// Use bounciness if Precise is pressed |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
443 |
t:= HHGetBouncinessMsg(CurrentHedgehog^.Gear); |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
444 |
if t <> MSGPARAM_INVALID then |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
445 |
begin |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
446 |
// Calculate new timer |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
447 |
Inc(t); |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
448 |
if t > 5 then |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
449 |
t:= 1; |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
450 |
tb:= t mod 255; |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
451 |
// Delegate the actual change to /timer |
13862 | 452 |
ParseCommand('timer ' + Char(tb + Ord('0')), true); |
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
453 |
end; |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
454 |
end; |
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
455 |
|
4413 | 456 |
procedure chSlot(var s: shortstring); |
457 |
var slot: LongWord; |
|
7068 | 458 |
ss: shortstring; |
4413 | 459 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
460 |
if (s[0] <> #1) or CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
461 |
exit; |
4413 | 462 |
slot:= byte(s[1]) - 49; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
463 |
if slot > cMaxSlotIndex then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
464 |
exit; |
7805 | 465 |
if not isExternalSource then |
7068 | 466 |
begin |
467 |
ss[0]:= #1; |
|
468 |
ss[1]:= char(byte(s[1]) + 79); |
|
469 |
SendIPC(ss); |
|
470 |
end; |
|
4413 | 471 |
bShowFinger:= false; |
472 |
with CurrentHedgehog^.Gear^ do |
|
473 |
begin |
|
4522
0f590eefd531
Add an input mask for setting of gear messages. Intended for intercepting user messages. This is totally untested. I don't think it should desync but seriously needs a lot of testing. Esp the doPut behaviour.
nemo
parents:
4437
diff
changeset
|
474 |
Message:= Message or (gmSlot and InputMask); |
8924 | 475 |
MsgParam:= slot; |
6818
136aa9c8c593
Add the parameters I missed the first time when I added these hooks.
mikade
parents:
6700
diff
changeset
|
476 |
ScriptCall('onSlot', MsgParam); |
4413 | 477 |
end |
478 |
end; |
|
479 |
||
480 |
procedure chSetWeapon(var s: shortstring); |
|
481 |
begin |
|
7790 | 482 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
483 |
exit; |
4413 | 484 |
|
14530
ec0afe1c6024
Add control (default: X) to unselect current weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
14522
diff
changeset
|
485 |
(* Use "~" (ASCII character 126) as synonym for NUL byte (=amNothing). |
ec0afe1c6024
Add control (default: X) to unselect current weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
14522
diff
changeset
|
486 |
This is done to allow to add "setweap ~" in QTfrontend/binds.cpp because |
ec0afe1c6024
Add control (default: X) to unselect current weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
14522
diff
changeset
|
487 |
the NUL byte would terminate the strings in C++ otherwise. *) |
ec0afe1c6024
Add control (default: X) to unselect current weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
14522
diff
changeset
|
488 |
if (s[1] = '~') then |
ec0afe1c6024
Add control (default: X) to unselect current weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
14522
diff
changeset
|
489 |
s[1]:= #0; |
11532 | 490 |
if checkFails((s[0] = #1) and (s[1] <= char(High(TAmmoType))), 'Malformed /setweap', true) then exit; |
4413 | 491 |
|
7805 | 492 |
if not isExternalSource then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
493 |
SendIPC('w' + s); |
4413 | 494 |
|
495 |
with CurrentHedgehog^.Gear^ do |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
496 |
begin |
4522
0f590eefd531
Add an input mask for setting of gear messages. Intended for intercepting user messages. This is totally untested. I don't think it should desync but seriously needs a lot of testing. Esp the doPut behaviour.
nemo
parents:
4437
diff
changeset
|
497 |
Message:= Message or (gmWeapon and InputMask); |
4413 | 498 |
MsgParam:= byte(s[1]); |
6818
136aa9c8c593
Add the parameters I missed the first time when I added these hooks.
mikade
parents:
6700
diff
changeset
|
499 |
ScriptCall('onSetWeapon', MsgParam); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
500 |
end; |
4413 | 501 |
end; |
502 |
||
503 |
procedure chTaunt(var s: shortstring); |
|
504 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
505 |
if (s[0] <> #1) or CheckNoTeamOrHH then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
506 |
exit; |
4413 | 507 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
508 |
if TWave(s[1]) > High(TWave) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
509 |
exit; |
4413 | 510 |
|
7805 | 511 |
if not isExternalSource then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
512 |
SendIPC('t' + s); |
4413 | 513 |
|
12815
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12490
diff
changeset
|
514 |
PlayTaunt(byte(s[1])) |
4413 | 515 |
end; |
516 |
||
517 |
procedure chPut(var s: shortstring); |
|
518 |
begin |
|
519 |
s:= s; // avoid compiler hint |
|
520 |
doPut(0, 0, false); |
|
521 |
end; |
|
522 |
||
523 |
procedure chCapture(var s: shortstring); |
|
524 |
begin |
|
525 |
s:= s; // avoid compiler hint |
|
10633
2f062fac5791
Add that "make screenshots of Land/LandPixels" thing for map creators
nemo
parents:
10603
diff
changeset
|
526 |
flagMakeCapture:= true; |
11025
999afa63035f
just disable landpixels w/ blurry land instead. the mask can be helpful for debugging at least.
nemo
parents:
11024
diff
changeset
|
527 |
flagDumpLand:= (LocalMessage and gmPrecise <> 0); |
4413 | 528 |
end; |
529 |
||
7629 | 530 |
procedure chRecord(var s: shortstring); |
531 |
begin |
|
532 |
s:= s; // avoid compiler hint |
|
533 |
{$IFDEF USE_VIDEO_RECORDING} |
|
534 |
if flagPrerecording then |
|
535 |
StopPreRecording() |
|
536 |
else |
|
537 |
BeginPreRecording(); |
|
538 |
{$ENDIF} |
|
539 |
end; |
|
540 |
||
4413 | 541 |
procedure chSetMap(var s: shortstring); |
542 |
begin |
|
5679
505c6448069b
accidentally reverted this when reverting the rest of the override changes.
nemo
parents:
5555
diff
changeset
|
543 |
if isDeveloperMode then |
6088 | 544 |
begin |
6339 | 545 |
if s = '' then |
8025 | 546 |
cPathz[ptMapCurrent]:= s |
6339 | 547 |
else |
8025 | 548 |
cPathz[ptMapCurrent]:= cPathz[ptMaps] + '/' + s; |
6088 | 549 |
InitStepsFlags:= InitStepsFlags or cifMap |
550 |
end; |
|
6828
6a5d33bff0b0
At mikade's request. give scripting access to the map name prior to override.
nemo
parents:
6818
diff
changeset
|
551 |
cMapName:= s; |
13721
61095cb5f58a
Critical error if loading a script has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
552 |
ScriptLoad('Maps/' + s + '/map.lua', false) |
4413 | 553 |
end; |
554 |
||
555 |
procedure chSetTheme(var s: shortstring); |
|
556 |
begin |
|
557 |
if isDeveloperMode then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
558 |
begin |
8025 | 559 |
cPathz[ptCurrTheme]:= cPathz[ptThemes] + '/' + s; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
560 |
Theme:= s; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
561 |
InitStepsFlags:= InitStepsFlags or cifTheme |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
562 |
end |
4413 | 563 |
end; |
564 |
||
565 |
procedure chSetSeed(var s: shortstring); |
|
566 |
begin |
|
567 |
if isDeveloperMode then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
568 |
begin |
8912 | 569 |
SetRandomSeed(s, true); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
570 |
cSeed:= s; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
571 |
InitStepsFlags:= InitStepsFlags or cifRandomize |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
572 |
end |
12847
1aba77b2e4ac
This is a desyncing change. But... We might need a new release anyway. ☹
nemo
parents:
12815
diff
changeset
|
573 |
end; |
4413 | 574 |
|
575 |
procedure chAmmoMenu(var s: shortstring); |
|
576 |
begin |
|
577 |
s:= s; // avoid compiler hint |
|
578 |
if CheckNoTeamOrHH then |
|
10439
7de934f2247c
allow toggling ammo menu while NoTeamOrHH, as suggested by unC0Rr
sheepluva
parents:
10392
diff
changeset
|
579 |
bShowAmmoMenu:= (not bShowAmmoMenu) |
4413 | 580 |
else |
581 |
begin |
|
582 |
with CurrentTeam^ do |
|
583 |
with Hedgehogs[CurrHedgehog] do |
|
584 |
begin |
|
585 |
bSelected:= false; |
|
586 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
587 |
if bShowAmmoMenu then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
588 |
bShowAmmoMenu:= false |
12216
5b525d041fb4
Fix crash when trying to open ammo menu with current team hog gear = nil
Wuzzy <almikes@aol.com>
parents:
11919
diff
changeset
|
589 |
else if not(CurrentTeam^.Extdriven) and ((Gear = nil) or ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) |
7946
a99a79bbd857
Simplify ammo menu conditions so it shows up in more states. Should fix issue #465. The part w/ sliding in uworld is main #465 problem.
nemo
parents:
7831
diff
changeset
|
590 |
or ((Gear^.State and gstHHDriven) = 0)) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
591 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
592 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
593 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
594 |
bShowAmmoMenu:= true |
4413 | 595 |
end; |
596 |
end |
|
597 |
end; |
|
598 |
||
14681
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
599 |
procedure chVolUp_p(var s: shortstring); |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
600 |
begin |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
601 |
s:= s; // avoid compiler hint |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
602 |
cVolumeUpKey:= true; |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
603 |
updateVolumeDelta((LocalMessage and gmPrecise) <> 0); |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
604 |
end; |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
605 |
|
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
606 |
procedure chVolUp_m(var s: shortstring); |
4413 | 607 |
begin |
608 |
s:= s; // avoid compiler hint |
|
14681
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
609 |
cVolumeUpKey:= false; |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
610 |
updateVolumeDelta((LocalMessage and gmPrecise) <> 0); |
4413 | 611 |
end; |
612 |
||
14681
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
613 |
procedure chVolDown_p(var s: shortstring); |
4413 | 614 |
begin |
615 |
s:= s; // avoid compiler hint |
|
14681
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
616 |
cVolumeDownKey:= true; |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
617 |
updateVolumeDelta((LocalMessage and gmPrecise) <> 0); |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
618 |
end; |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
619 |
|
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
620 |
procedure chVolDown_m(var s: shortstring); |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
621 |
begin |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
622 |
s:= s; // avoid compiler hint |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
623 |
cVolumeDownKey:= false; |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
624 |
updateVolumeDelta((LocalMessage and gmPrecise) <> 0); |
4413 | 625 |
end; |
626 |
||
13039
aed4b25ff242
Fix volume caption not being shown when hitting mute key
Wuzzy <Wuzzy2@mail.ru>
parents:
13013
diff
changeset
|
627 |
procedure chMute(var s: shortstring); |
aed4b25ff242
Fix volume caption not being shown when hitting mute key
Wuzzy <Wuzzy2@mail.ru>
parents:
13013
diff
changeset
|
628 |
begin |
aed4b25ff242
Fix volume caption not being shown when hitting mute key
Wuzzy <Wuzzy2@mail.ru>
parents:
13013
diff
changeset
|
629 |
s:= s; // avoid compiler hint |
aed4b25ff242
Fix volume caption not being shown when hitting mute key
Wuzzy <Wuzzy2@mail.ru>
parents:
13013
diff
changeset
|
630 |
cMuteToggle:= true; |
aed4b25ff242
Fix volume caption not being shown when hitting mute key
Wuzzy <Wuzzy2@mail.ru>
parents:
13013
diff
changeset
|
631 |
end; |
aed4b25ff242
Fix volume caption not being shown when hitting mute key
Wuzzy <Wuzzy2@mail.ru>
parents:
13013
diff
changeset
|
632 |
|
4413 | 633 |
procedure chFindhh(var s: shortstring); |
634 |
begin |
|
635 |
s:= s; // avoid compiler hint |
|
10392 | 636 |
if CheckNoTeamOrHH then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
637 |
exit; |
5247 | 638 |
|
7629 | 639 |
if autoCameraOn then |
5247 | 640 |
begin |
7629 | 641 |
FollowGear:= nil; |
13642
3d14950641a4
Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents:
13641
diff
changeset
|
642 |
AddCaption(trmsg[sidAutoCameraOff], capcolSetting, capgrpVolume); |
5247 | 643 |
autoCameraOn:= false |
644 |
end |
|
7629 | 645 |
else |
646 |
begin |
|
13642
3d14950641a4
Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents:
13641
diff
changeset
|
647 |
AddCaption(trmsg[sidAutoCameraOn], capcolSetting, capgrpVolume); |
5247 | 648 |
bShowFinger:= true; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
649 |
if not CurrentHedgehog^.Unplaced then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
650 |
FollowGear:= CurrentHedgehog^.Gear; |
5247 | 651 |
autoCameraOn:= true |
652 |
end |
|
4413 | 653 |
end; |
654 |
||
655 |
procedure chPause(var s: shortstring); |
|
656 |
begin |
|
10392 | 657 |
if (gameType <> gmtNet) or (s = 'server') then |
9670
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9489
diff
changeset
|
658 |
isPaused:= not isPaused |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9489
diff
changeset
|
659 |
else |
9671 | 660 |
if (CurrentTeam^.ExtDriven) or (CurrentHedgehog^.BotLevel > 0) then |
661 |
isAFK:= not isAFK |
|
662 |
else |
|
663 |
isAFK:= false; // for real ninjas |
|
5524
40b7f95d9f18
Oh, and fix cursor visibility correlations between gsConfirm state and paused state
unc0rr
parents:
5523
diff
changeset
|
664 |
|
10392 | 665 |
updateCursorVisibility; |
4413 | 666 |
end; |
667 |
||
668 |
procedure chRotateMask(var s: shortstring); |
|
669 |
begin |
|
670 |
s:= s; // avoid compiler hint |
|
12490
b4eb289b5913
Backed out changeset c19e5ece5b3f
Wuzzy <almikes@aol.com>
parents:
12488
diff
changeset
|
671 |
// this is just for me, 'cause I thought it'd be fun. using the old precise + switch to keep it out of people's way |
9693 | 672 |
if LocalMessage and (gmPrecise or gmSwitch) = (gmPrecise or gmSwitch) then |
673 |
begin |
|
674 |
if UIDisplay <> uiNone then |
|
675 |
UIDisplay:= uiNone |
|
676 |
else UIDisplay:= uiAll |
|
677 |
end |
|
12490
b4eb289b5913
Backed out changeset c19e5ece5b3f
Wuzzy <almikes@aol.com>
parents:
12488
diff
changeset
|
678 |
else |
b4eb289b5913
Backed out changeset c19e5ece5b3f
Wuzzy <almikes@aol.com>
parents:
12488
diff
changeset
|
679 |
begin |
b4eb289b5913
Backed out changeset c19e5ece5b3f
Wuzzy <almikes@aol.com>
parents:
12488
diff
changeset
|
680 |
if UIDisplay <> uiNoTeams then |
b4eb289b5913
Backed out changeset c19e5ece5b3f
Wuzzy <almikes@aol.com>
parents:
12488
diff
changeset
|
681 |
UIDisplay:= uiNoTeams |
b4eb289b5913
Backed out changeset c19e5ece5b3f
Wuzzy <almikes@aol.com>
parents:
12488
diff
changeset
|
682 |
else UIDisplay:= uiAll |
b4eb289b5913
Backed out changeset c19e5ece5b3f
Wuzzy <almikes@aol.com>
parents:
12488
diff
changeset
|
683 |
end |
4413 | 684 |
end; |
685 |
||
12997
f06660523198
Add separate control for changing hedgehog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12990
diff
changeset
|
686 |
procedure chRotateTags(var s: shortstring); |
f06660523198
Add separate control for changing hedgehog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12990
diff
changeset
|
687 |
begin |
f06660523198
Add separate control for changing hedgehog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12990
diff
changeset
|
688 |
s:= s; // avoid compiler hint |
13000
c5529aabdda9
Flip Switch/Precise key combintions with change hog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12999
diff
changeset
|
689 |
// Rotate Tags key + Switch: Toggle translucency only |
c5529aabdda9
Flip Switch/Precise key combintions with change hog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12999
diff
changeset
|
690 |
if LocalMessage and gmSwitch = gmSwitch then |
12998
22e032ab1cb7
Toggle hog tag translucency with Precise + Change hog tags key
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
691 |
if ((cTagsMask and htTransparent) = 0) then |
13001
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
692 |
begin |
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
693 |
cTagsMask:= cTagsMask or htTransparent; |
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
694 |
cPrevTagsMask:= cPrevTagsMask or htTransparent |
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
695 |
end |
12998
22e032ab1cb7
Toggle hog tag translucency with Precise + Change hog tags key
Wuzzy <Wuzzy2@mail.ru>
parents:
12997
diff
changeset
|
696 |
else |
13001
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
697 |
begin |
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
698 |
cTagsMask:= cTagsMask and (not htTransparent); |
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
699 |
cPrevTagsMask:= cPrevTagsMask and (not htTransparent) |
876b1ef83191
Fix some consistency issues with change hog tags control
Wuzzy <Wuzzy2@mail.ru>
parents:
13000
diff
changeset
|
700 |
end |
13007
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
701 |
// Rotate Tags key + Precise: Cycle through hog tags (keeping translucency) |
13000
c5529aabdda9
Flip Switch/Precise key combintions with change hog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12999
diff
changeset
|
702 |
else if LocalMessage and gmPrecise = gmPrecise then |
13007
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
703 |
begin |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
704 |
cPrevTagsMask:= cTagsMask; |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
705 |
if ((GameFlags and gfInvulnerable) = 0) then |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
706 |
cTagsMask:= cTagsMasks[cTagsMask] |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
707 |
else |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
708 |
cTagsMask:= cTagsMasksNoHealth[cTagsMask] |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
709 |
end |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
710 |
// Rotate Tags key only: Toggle all hog tags on and off |
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
711 |
else |
12999
46ba3285449a
Switch + Change hog tags now turns on and off all tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12998
diff
changeset
|
712 |
if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then |
13013
4234a18a082c
Fix hittig precise+rottags the first time when all tags started off showing health tag in gfInvulnerable
Wuzzy <Wuzzy2@mail.ru>
parents:
13007
diff
changeset
|
713 |
begin |
4234a18a082c
Fix hittig precise+rottags the first time when all tags started off showing health tag in gfInvulnerable
Wuzzy <Wuzzy2@mail.ru>
parents:
13007
diff
changeset
|
714 |
cTagsMask:= cPrevTagsMask; |
4234a18a082c
Fix hittig precise+rottags the first time when all tags started off showing health tag in gfInvulnerable
Wuzzy <Wuzzy2@mail.ru>
parents:
13007
diff
changeset
|
715 |
if ((GameFlags and gfInvulnerable) <> 0) then |
4234a18a082c
Fix hittig precise+rottags the first time when all tags started off showing health tag in gfInvulnerable
Wuzzy <Wuzzy2@mail.ru>
parents:
13007
diff
changeset
|
716 |
cTagsMask:= cTagsMask and (not htHealth); |
4234a18a082c
Fix hittig precise+rottags the first time when all tags started off showing health tag in gfInvulnerable
Wuzzy <Wuzzy2@mail.ru>
parents:
13007
diff
changeset
|
717 |
end |
12999
46ba3285449a
Switch + Change hog tags now turns on and off all tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12998
diff
changeset
|
718 |
else |
46ba3285449a
Switch + Change hog tags now turns on and off all tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12998
diff
changeset
|
719 |
begin |
46ba3285449a
Switch + Change hog tags now turns on and off all tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12998
diff
changeset
|
720 |
cPrevTagsMask:= cTagsMask; |
46ba3285449a
Switch + Change hog tags now turns on and off all tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12998
diff
changeset
|
721 |
cTagsMask:= cTagsMask and (not (htTeamName or htName or htHealth)) |
13007
8a8aaaf97a95
The rottags key alone now toggles hog tags; preecise+rottags is used to cycle tags
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
722 |
end; |
12999
46ba3285449a
Switch + Change hog tags now turns on and off all tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12998
diff
changeset
|
723 |
end; |
12997
f06660523198
Add separate control for changing hedgehog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12990
diff
changeset
|
724 |
|
4413 | 725 |
procedure chSpeedup_p(var s: shortstring); |
726 |
begin |
|
727 |
s:= s; // avoid compiler hint |
|
7629 | 728 |
SpeedStart:= RealTicks; |
4413 | 729 |
isSpeed:= true |
730 |
end; |
|
731 |
||
732 |
procedure chSpeedup_m(var s: shortstring); |
|
733 |
begin |
|
734 |
s:= s; // avoid compiler hint |
|
735 |
isSpeed:= false |
|
736 |
end; |
|
737 |
||
738 |
procedure chZoomIn(var s: shortstring); |
|
739 |
begin |
|
740 |
s:= s; // avoid compiler hint |
|
14680
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
741 |
if (LocalMessage and gmPrecise <> 0) then |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
742 |
ZoomValue:= ZoomValue + cZoomDeltaSmall |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
743 |
else |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
744 |
ZoomValue:= ZoomValue + cZoomDelta; |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
745 |
if ZoomValue > cMinZoomLevel then |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
746 |
ZoomValue:= cMinZoomLevel; |
4413 | 747 |
end; |
748 |
||
749 |
procedure chZoomOut(var s: shortstring); |
|
750 |
begin |
|
751 |
s:= s; // avoid compiler hint |
|
14680
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
752 |
if (LocalMessage and gmPrecise <> 0) then |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
753 |
ZoomValue:= ZoomValue - cZoomDeltaSmall |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
754 |
else |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
755 |
ZoomValue:= ZoomValue - cZoomDelta; |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
756 |
if ZoomValue < cMaxZoomLevel then |
d74517fdb34f
Properly enforce zoom bounds again when changing zoom
Wuzzy <Wuzzy2@mail.ru>
parents:
14679
diff
changeset
|
757 |
ZoomValue:= cMaxZoomLevel; |
4413 | 758 |
end; |
759 |
||
760 |
procedure chZoomReset(var s: shortstring); |
|
761 |
begin |
|
762 |
s:= s; // avoid compiler hint |
|
14678
c96889bf5796
Precise+resetzoom = 100% zoom (instead of UserZoom)
Wuzzy <Wuzzy2@mail.ru>
parents:
14677
diff
changeset
|
763 |
if (LocalMessage and gmPrecise <> 0) then |
c96889bf5796
Precise+resetzoom = 100% zoom (instead of UserZoom)
Wuzzy <Wuzzy2@mail.ru>
parents:
14677
diff
changeset
|
764 |
ZoomValue:= cDefaultZoomLevel |
c96889bf5796
Precise+resetzoom = 100% zoom (instead of UserZoom)
Wuzzy <Wuzzy2@mail.ru>
parents:
14677
diff
changeset
|
765 |
else |
c96889bf5796
Precise+resetzoom = 100% zoom (instead of UserZoom)
Wuzzy <Wuzzy2@mail.ru>
parents:
14677
diff
changeset
|
766 |
ZoomValue:= UserZoom; |
4413 | 767 |
end; |
768 |
||
6898 | 769 |
procedure chMapGen(var s: shortstring); |
770 |
begin |
|
10603
bda5c7caf396
switch mapgen to enum. should still try and make sure the values are backwards compatible if possible.
nemo
parents:
10510
diff
changeset
|
771 |
cMapGen:= TMapGen(StrToInt(s)) |
6898 | 772 |
end; |
773 |
||
774 |
procedure chTemplateFilter(var s: shortstring); |
|
775 |
begin |
|
7151 | 776 |
cTemplateFilter:= StrToInt(s) |
6898 | 777 |
end; |
778 |
||
10472
8d04cebedb16
Partially hook up feature size so horrorcat has something to test.
nemo
parents:
10455
diff
changeset
|
779 |
procedure chFeatureSize(var s: shortstring); |
8d04cebedb16
Partially hook up feature size so horrorcat has something to test.
nemo
parents:
10455
diff
changeset
|
780 |
begin |
8d04cebedb16
Partially hook up feature size so horrorcat has something to test.
nemo
parents:
10455
diff
changeset
|
781 |
cFeatureSize:= StrToInt(s) |
8d04cebedb16
Partially hook up feature size so horrorcat has something to test.
nemo
parents:
10455
diff
changeset
|
782 |
end; |
8d04cebedb16
Partially hook up feature size so horrorcat has something to test.
nemo
parents:
10455
diff
changeset
|
783 |
|
6898 | 784 |
procedure chInactDelay(var s: shortstring); |
785 |
begin |
|
7151 | 786 |
cInactDelay:= StrToInt(s) |
6898 | 787 |
end; |
788 |
||
789 |
procedure chReadyDelay(var s: shortstring); |
|
790 |
begin |
|
7151 | 791 |
cReadyDelay:= StrToInt(s) |
6898 | 792 |
end; |
793 |
||
794 |
procedure chCaseFactor(var s: shortstring); |
|
795 |
begin |
|
7151 | 796 |
cCaseFactor:= StrToInt(s) |
6898 | 797 |
end; |
798 |
||
799 |
procedure chHealthCaseProb(var s: shortstring); |
|
800 |
begin |
|
7151 | 801 |
cHealthCaseProb:= StrToInt(s) |
6898 | 802 |
end; |
803 |
||
804 |
procedure chHealthCaseAmount(var s: shortstring); |
|
805 |
begin |
|
7151 | 806 |
cHealthCaseAmount:= StrToInt(s) |
6898 | 807 |
end; |
808 |
||
809 |
procedure chSuddenDTurns(var s: shortstring); |
|
810 |
begin |
|
7151 | 811 |
cSuddenDTurns:= StrToInt(s) |
6898 | 812 |
end; |
813 |
||
814 |
procedure chWaterRise(var s: shortstring); |
|
815 |
begin |
|
7151 | 816 |
cWaterRise:= StrToInt(s) |
6898 | 817 |
end; |
818 |
||
819 |
procedure chHealthDecrease(var s: shortstring); |
|
820 |
begin |
|
7151 | 821 |
cHealthDecrease:= StrToInt(s) |
6898 | 822 |
end; |
823 |
||
14522
d0441c7e9000
Lua: Add InitHealth, read-only variable containing the initial hog health setting
Wuzzy <Wuzzy2@mail.ru>
parents:
14463
diff
changeset
|
824 |
procedure chInitHealth(var s: shortstring); |
d0441c7e9000
Lua: Add InitHealth, read-only variable containing the initial hog health setting
Wuzzy <Wuzzy2@mail.ru>
parents:
14463
diff
changeset
|
825 |
begin |
d0441c7e9000
Lua: Add InitHealth, read-only variable containing the initial hog health setting
Wuzzy <Wuzzy2@mail.ru>
parents:
14463
diff
changeset
|
826 |
cInitHealth:= StrToInt(s) |
d0441c7e9000
Lua: Add InitHealth, read-only variable containing the initial hog health setting
Wuzzy <Wuzzy2@mail.ru>
parents:
14463
diff
changeset
|
827 |
end; |
d0441c7e9000
Lua: Add InitHealth, read-only variable containing the initial hog health setting
Wuzzy <Wuzzy2@mail.ru>
parents:
14463
diff
changeset
|
828 |
|
6898 | 829 |
procedure chDamagePercent(var s: shortstring); |
830 |
begin |
|
7151 | 831 |
cDamagePercent:= StrToInt(s) |
6898 | 832 |
end; |
833 |
||
834 |
procedure chRopePercent(var s: shortstring); |
|
835 |
begin |
|
7151 | 836 |
cRopePercent:= StrToInt(s) |
6898 | 837 |
end; |
838 |
||
839 |
procedure chGetAwayTime(var s: shortstring); |
|
840 |
begin |
|
7151 | 841 |
cGetAwayTime:= StrToInt(s) |
6898 | 842 |
end; |
843 |
||
844 |
procedure chMineDudPercent(var s: shortstring); |
|
845 |
begin |
|
7151 | 846 |
cMineDudPercent:= StrToInt(s) |
6898 | 847 |
end; |
848 |
||
849 |
procedure chLandMines(var s: shortstring); |
|
850 |
begin |
|
7151 | 851 |
cLandMines:= StrToInt(s) |
6898 | 852 |
end; |
853 |
||
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10672
diff
changeset
|
854 |
procedure chAirMines(var s: shortstring); |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10672
diff
changeset
|
855 |
begin |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10672
diff
changeset
|
856 |
cAirMines:= StrToInt(s) |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10672
diff
changeset
|
857 |
end; |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10672
diff
changeset
|
858 |
|
6898 | 859 |
procedure chExplosives(var s: shortstring); |
860 |
begin |
|
7151 | 861 |
cExplosives:= StrToInt(s) |
6898 | 862 |
end; |
863 |
||
864 |
procedure chGameFlags(var s: shortstring); |
|
865 |
begin |
|
7218
9ecd5bc9810b
Ensure that Clan ammo always takes precedence over Per Hog Ammo in the flags. It'd be best for the user sake if these buttons acted more like radio buttons.
nemo
parents:
7187
diff
changeset
|
866 |
GameFlags:= StrToInt(s); |
7629 | 867 |
if GameFlags and gfSharedAmmo <> 0 then GameFlags:= GameFlags and (not gfPerHogAmmo) |
6898 | 868 |
end; |
869 |
||
870 |
procedure chHedgehogTurnTime(var s: shortstring); |
|
871 |
begin |
|
7151 | 872 |
cHedgehogTurnTime:= StrToInt(s) |
6898 | 873 |
end; |
874 |
||
875 |
procedure chMinesTime(var s: shortstring); |
|
876 |
begin |
|
7151 | 877 |
cMinesTime:= StrToInt(s) |
6898 | 878 |
end; |
879 |
||
880 |
procedure chFastUntilLag(var s: shortstring); |
|
881 |
begin |
|
10862
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
882 |
fastUntilLag:= StrToInt(s) <> 0; |
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
883 |
|
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
884 |
if not fastUntilLag then |
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
885 |
begin |
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
886 |
// update health bars and the wind indicator |
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
887 |
AddVisualGear(0, 0, vgtTeamHealthSorter); |
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
888 |
AddVisualGear(0, 0, vgtSmoothWindBar) |
4575977d3ce0
Don't spawn team widget sorter on each frame when in lag. Issue 'spectate 0' instead, and only on first lag occasion.
unc0rr
parents:
10822
diff
changeset
|
889 |
end |
6898 | 890 |
end; |
4413 | 891 |
|
7201
dc17ffdf0702
The first campaign commit with a lot of changes...
belphegorr <szabibibi@gmail.com>
parents:
7187
diff
changeset
|
892 |
procedure chCampVar(var s:shortstring); |
dc17ffdf0702
The first campaign commit with a lot of changes...
belphegorr <szabibibi@gmail.com>
parents:
7187
diff
changeset
|
893 |
begin |
dc17ffdf0702
The first campaign commit with a lot of changes...
belphegorr <szabibibi@gmail.com>
parents:
7187
diff
changeset
|
894 |
CampaignVariable := s; |
dc17ffdf0702
The first campaign commit with a lot of changes...
belphegorr <szabibibi@gmail.com>
parents:
7187
diff
changeset
|
895 |
end; |
dc17ffdf0702
The first campaign commit with a lot of changes...
belphegorr <szabibibi@gmail.com>
parents:
7187
diff
changeset
|
896 |
|
14463
bd1db668b7c0
Add Lua functions to save/get mission variables
Wuzzy <Wuzzy2@mail.ru>
parents:
13862
diff
changeset
|
897 |
procedure chMissVar(var s:shortstring); |
bd1db668b7c0
Add Lua functions to save/get mission variables
Wuzzy <Wuzzy2@mail.ru>
parents:
13862
diff
changeset
|
898 |
begin |
bd1db668b7c0
Add Lua functions to save/get mission variables
Wuzzy <Wuzzy2@mail.ru>
parents:
13862
diff
changeset
|
899 |
MissionVariable := s; |
bd1db668b7c0
Add Lua functions to save/get mission variables
Wuzzy <Wuzzy2@mail.ru>
parents:
13862
diff
changeset
|
900 |
end; |
bd1db668b7c0
Add Lua functions to save/get mission variables
Wuzzy <Wuzzy2@mail.ru>
parents:
13862
diff
changeset
|
901 |
|
9489 | 902 |
procedure chWorldEdge(var s: shortstring); |
903 |
begin |
|
904 |
WorldEdge:= TWorldEdge(StrToInt(s)) |
|
905 |
end; |
|
906 |
||
10237 | 907 |
procedure chAdvancedMapGenMode(var s:shortstring); |
908 |
begin |
|
10249 | 909 |
s:= s; // avoid compiler hint |
10237 | 910 |
cAdvancedMapGenMode:= true; |
911 |
end; |
|
912 |
||
13459
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
913 |
procedure chShowMission_p(var s: shortstring); |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
914 |
begin |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
915 |
s:= s; // avoid compiler hint |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
916 |
isShowMission:= true; |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
917 |
end; |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
918 |
|
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
919 |
procedure chShowMission_m(var s: shortstring); |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
920 |
begin |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
921 |
s:= s; // avoid compiler hint |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
922 |
isShowMission:= false; |
13461
854caa3c9212
Lua API: Add parameter forceDisplay to ShowMission to prevent manual hiding
Wuzzy <Wuzzy2@mail.ru>
parents:
13459
diff
changeset
|
923 |
if (not isForceMission) then |
854caa3c9212
Lua API: Add parameter forceDisplay to ShowMission to prevent manual hiding
Wuzzy <Wuzzy2@mail.ru>
parents:
13459
diff
changeset
|
924 |
HideMission(); |
13459
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
925 |
end; |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
926 |
|
14749
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14681
diff
changeset
|
927 |
procedure chGearInfo(var s: shortstring); |
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14681
diff
changeset
|
928 |
begin |
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14681
diff
changeset
|
929 |
s:= s; // avoid compiler hint |
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14681
diff
changeset
|
930 |
isShowGearInfo:= not isShowGearInfo; |
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14681
diff
changeset
|
931 |
end; |
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14681
diff
changeset
|
932 |
|
4413 | 933 |
procedure initModule; |
934 |
begin |
|
4528
630f4ab0c926
Reorder top registered variables by frequency gathered from 60 or so games of varying length/type. Oh. And add green hair to joker.
nemo
parents:
4522
diff
changeset
|
935 |
//////// Begin top sorted by freq analysis not including chatmsg |
7407 | 936 |
RegisterVariable('+right' , @chRight_p , false, true); |
937 |
RegisterVariable('-right' , @chRight_m , false, true); |
|
938 |
RegisterVariable('+up' , @chUp_p , false, true); |
|
939 |
RegisterVariable('-up' , @chUp_m , false, true); |
|
940 |
RegisterVariable('+left' , @chLeft_p , false, true); |
|
941 |
RegisterVariable('-left' , @chLeft_m , false, true); |
|
7629 | 942 |
RegisterVariable('+attack' , @chAttack_p , false); |
7407 | 943 |
RegisterVariable('+down' , @chDown_p , false, true); |
944 |
RegisterVariable('-down' , @chDown_m , false, true); |
|
945 |
RegisterVariable('hjump' , @chHJump , false, true); |
|
946 |
RegisterVariable('ljump' , @chLJump , false, true); |
|
7629 | 947 |
RegisterVariable('nextturn', @chNextTurn , false); |
948 |
RegisterVariable('-attack' , @chAttack_m , false); |
|
949 |
RegisterVariable('slot' , @chSlot , false); |
|
7407 | 950 |
RegisterVariable('setweap' , @chSetWeapon , false, true); |
4528
630f4ab0c926
Reorder top registered variables by frequency gathered from 60 or so games of varying length/type. Oh. And add green hair to joker.
nemo
parents:
4522
diff
changeset
|
951 |
//////// End top by freq analysis |
7629 | 952 |
RegisterVariable('gencmd' , @chGenCmd , false); |
6898 | 953 |
RegisterVariable('script' , @chScript , false); |
9902 | 954 |
RegisterVariable('scriptparam', @chScriptParam, false); |
6898 | 955 |
RegisterVariable('proto' , @chCheckProto , true ); |
956 |
RegisterVariable('spectate', @chFastUntilLag , false); |
|
957 |
RegisterVariable('capture' , @chCapture , true ); |
|
958 |
RegisterVariable('rotmask' , @chRotateMask , true ); |
|
12997
f06660523198
Add separate control for changing hedgehog tags
Wuzzy <Wuzzy2@mail.ru>
parents:
12990
diff
changeset
|
959 |
RegisterVariable('rottags' , @chRotateTags , true ); |
6898 | 960 |
RegisterVariable('rdriven' , @chTeamLocal , false); |
961 |
RegisterVariable('map' , @chSetMap , false); |
|
962 |
RegisterVariable('theme' , @chSetTheme , false); |
|
963 |
RegisterVariable('seed' , @chSetSeed , false); |
|
964 |
RegisterVariable('template_filter', @chTemplateFilter, false); |
|
965 |
RegisterVariable('mapgen' , @chMapGen , false); |
|
966 |
RegisterVariable('maze_size',@chTemplateFilter, false); |
|
10472
8d04cebedb16
Partially hook up feature size so horrorcat has something to test.
nemo
parents:
10455
diff
changeset
|
967 |
RegisterVariable('feature_size',@chFeatureSize, false); |
6898 | 968 |
RegisterVariable('delay' , @chInactDelay , false); |
969 |
RegisterVariable('ready' , @chReadyDelay , false); |
|
970 |
RegisterVariable('casefreq', @chCaseFactor , false); |
|
971 |
RegisterVariable('healthprob', @chHealthCaseProb, false); |
|
972 |
RegisterVariable('hcaseamount', @chHealthCaseAmount, false); |
|
973 |
RegisterVariable('sd_turns', @chSuddenDTurns , false); |
|
974 |
RegisterVariable('waterrise', @chWaterRise , false); |
|
975 |
RegisterVariable('healthdec', @chHealthDecrease, false); |
|
14522
d0441c7e9000
Lua: Add InitHealth, read-only variable containing the initial hog health setting
Wuzzy <Wuzzy2@mail.ru>
parents:
14463
diff
changeset
|
976 |
RegisterVariable('inithealth',@chInitHealth, false); |
6898 | 977 |
RegisterVariable('damagepct',@chDamagePercent , false); |
978 |
RegisterVariable('ropepct' , @chRopePercent , false); |
|
979 |
RegisterVariable('getawaytime' , @chGetAwayTime , false); |
|
980 |
RegisterVariable('minedudpct',@chMineDudPercent, false); |
|
981 |
RegisterVariable('minesnum', @chLandMines , false); |
|
10822 | 982 |
RegisterVariable('airmines', @chAirMines , false); |
6898 | 983 |
RegisterVariable('explosives',@chExplosives , false); |
984 |
RegisterVariable('gmflags' , @chGameFlags , false); |
|
985 |
RegisterVariable('turntime', @chHedgehogTurnTime, false); |
|
986 |
RegisterVariable('minestime',@chMinesTime , false); |
|
987 |
RegisterVariable('quit' , @chQuit , true ); |
|
988 |
RegisterVariable('forcequit', @chForceQuit , true ); |
|
989 |
RegisterVariable('confirm' , @chConfirm , true ); |
|
990 |
RegisterVariable('halt', @chHalt , true ); |
|
991 |
RegisterVariable('+speedup', @chSpeedup_p , true ); |
|
992 |
RegisterVariable('-speedup', @chSpeedup_m , true ); |
|
993 |
RegisterVariable('zoomin' , @chZoomIn , true ); |
|
994 |
RegisterVariable('zoomout' , @chZoomOut , true ); |
|
995 |
RegisterVariable('zoomreset',@chZoomReset , true ); |
|
996 |
RegisterVariable('ammomenu', @chAmmoMenu , true); |
|
7629 | 997 |
RegisterVariable('+precise', @chPrecise_p , false, true); |
998 |
RegisterVariable('-precise', @chPrecise_m , false, true); |
|
6898 | 999 |
RegisterVariable('switch' , @chSwitch , false); |
7629 | 1000 |
RegisterVariable('timer' , @chTimer , false, true); |
6898 | 1001 |
RegisterVariable('taunt' , @chTaunt , false); |
1002 |
RegisterVariable('put' , @chPut , false); |
|
14681
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
1003 |
RegisterVariable('+volup' , @chVolUp_p , true ); |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
1004 |
RegisterVariable('-volup' , @chVolUp_m , true ); |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
1005 |
RegisterVariable('+voldown', @chVolDown_p , true ); |
bd43e703608b
Fix precise volume change being a bit buggy
Wuzzy <Wuzzy2@mail.ru>
parents:
14680
diff
changeset
|
1006 |
RegisterVariable('-voldown', @chVolDown_m , true ); |
13039
aed4b25ff242
Fix volume caption not being shown when hitting mute key
Wuzzy <Wuzzy2@mail.ru>
parents:
13013
diff
changeset
|
1007 |
RegisterVariable('mute' , @chMute , true ); |
7404 | 1008 |
RegisterVariable('findhh' , @chFindhh , true ); |
6898 | 1009 |
RegisterVariable('pause' , @chPause , true ); |
1010 |
RegisterVariable('+cur_u' , @chCurU_p , true ); |
|
1011 |
RegisterVariable('-cur_u' , @chCurU_m , true ); |
|
1012 |
RegisterVariable('+cur_d' , @chCurD_p , true ); |
|
1013 |
RegisterVariable('-cur_d' , @chCurD_m , true ); |
|
1014 |
RegisterVariable('+cur_l' , @chCurL_p , true ); |
|
1015 |
RegisterVariable('-cur_l' , @chCurL_m , true ); |
|
1016 |
RegisterVariable('+cur_r' , @chCurR_p , true ); |
|
1017 |
RegisterVariable('-cur_r' , @chCurR_m , true ); |
|
7201
dc17ffdf0702
The first campaign commit with a lot of changes...
belphegorr <szabibibi@gmail.com>
parents:
7187
diff
changeset
|
1018 |
RegisterVariable('campvar' , @chCampVar , true ); |
14463
bd1db668b7c0
Add Lua functions to save/get mission variables
Wuzzy <Wuzzy2@mail.ru>
parents:
13862
diff
changeset
|
1019 |
RegisterVariable('missvar' , @chMissVar , true ); |
7629 | 1020 |
RegisterVariable('record' , @chRecord , true ); |
9489 | 1021 |
RegisterVariable('worldedge',@chWorldEdge , false); |
10237 | 1022 |
RegisterVariable('advmapgen',@chAdvancedMapGenMode, false); |
13459
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
1023 |
RegisterVariable('+mission', @chShowMission_p, true); |
08a3851aaf67
Add dedicated key to display mission panel: M
Wuzzy <Wuzzy2@mail.ru>
parents:
13107
diff
changeset
|
1024 |
RegisterVariable('-mission', @chShowMission_m, true); |
14749
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14681
diff
changeset
|
1025 |
RegisterVariable('gearinfo', @chGearInfo , true ); |
13533
0c8001e43fd3
Add control to cycle through timer/bounciness values
Wuzzy <Wuzzy2@mail.ru>
parents:
13461
diff
changeset
|
1026 |
RegisterVariable('timer_u' , @chTimerU , true ); |
4413 | 1027 |
end; |
1028 |
||
1029 |
procedure freeModule; |
|
1030 |
begin |
|
1031 |
end; |
|
1032 |
||
1033 |
end. |