author | unc0rr |
Thu, 27 Jan 2011 22:14:14 +0300 | |
branch | server_refactor |
changeset 4601 | 08ae94dd4c0d |
parent 4532 | d0efc40f609b |
child 4611 | 445d382cd401 |
permissions | -rw-r--r-- |
4413 | 1 |
{$INCLUDE "options.inc"} |
2 |
unit uCommandHandlers; |
|
3 |
||
4 |
interface |
|
5 |
||
6 |
procedure initModule; |
|
7 |
procedure freeModule; |
|
8 |
||
9 |
implementation |
|
4437
05192cdbce9b
un-break build (wrong merge in uConsole) and update project file with the new sources
koda
parents:
4413
diff
changeset
|
10 |
uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom; |
4413 | 11 |
|
4531
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
12 |
procedure chGenCmd(var s: shortstring); |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
13 |
begin |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
14 |
case s[1] of |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
15 |
'R': if ReadyTimeLeft > 1 then |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
16 |
begin |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
17 |
ReadyTimeLeft:= 1; |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
18 |
if not CurrentTeam^.ExtDriven then SendIPC('c'+s); |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
19 |
end |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
20 |
end |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
21 |
end; |
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
22 |
|
4413 | 23 |
procedure chQuit(var s: shortstring); |
24 |
const prevGState: TGameState = gsConfirm; |
|
25 |
begin |
|
26 |
s:= s; // avoid compiler hint |
|
27 |
if GameState <> gsConfirm then |
|
28 |
begin |
|
29 |
prevGState:= GameState; |
|
30 |
GameState:= gsConfirm |
|
31 |
end else |
|
32 |
GameState:= prevGState |
|
33 |
end; |
|
34 |
||
35 |
procedure chConfirm(var s: shortstring); |
|
36 |
begin |
|
37 |
s:= s; // avoid compiler hint |
|
38 |
if GameState = gsConfirm then |
|
39 |
begin |
|
40 |
SendIPC('Q'); |
|
41 |
GameState:= gsExit |
|
42 |
end |
|
43 |
else |
|
44 |
ParseCommand('chat team', true); |
|
45 |
end; |
|
46 |
||
47 |
procedure chCheckProto(var s: shortstring); |
|
48 |
var i, c: LongInt; |
|
49 |
begin |
|
50 |
if isDeveloperMode then |
|
51 |
begin |
|
52 |
val(s, i, c); |
|
53 |
if (c <> 0) or (i = 0) then exit; |
|
54 |
TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true); |
|
55 |
TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true) |
|
56 |
end |
|
57 |
end; |
|
58 |
||
59 |
procedure chTeamLocal(var s: shortstring); |
|
60 |
begin |
|
61 |
s:= s; // avoid compiler hint |
|
62 |
if not isDeveloperMode then exit; |
|
63 |
if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/rdriven"', true); |
|
64 |
CurrentTeam^.ExtDriven:= true |
|
65 |
end; |
|
66 |
||
67 |
procedure chGrave(var s: shortstring); |
|
68 |
begin |
|
69 |
if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/grave"', true); |
|
70 |
if s[1]='"' then Delete(s, 1, 1); |
|
71 |
if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
|
72 |
CurrentTeam^.GraveName:= s |
|
73 |
end; |
|
74 |
||
75 |
procedure chFort(var s: shortstring); |
|
76 |
begin |
|
77 |
if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/fort"', true); |
|
78 |
if s[1]='"' then Delete(s, 1, 1); |
|
79 |
if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
|
80 |
CurrentTeam^.FortName:= s |
|
81 |
end; |
|
82 |
||
83 |
procedure chFlag(var s: shortstring); |
|
84 |
begin |
|
85 |
if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/flag"', true); |
|
86 |
if s[1]='"' then Delete(s, 1, 1); |
|
87 |
if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
|
88 |
CurrentTeam^.flag:= s |
|
89 |
end; |
|
90 |
||
91 |
procedure chScript(var s: shortstring); |
|
92 |
begin |
|
93 |
if s[1]='"' then Delete(s, 1, 1); |
|
94 |
if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
|
95 |
ScriptLoad(s) |
|
96 |
end; |
|
97 |
||
98 |
procedure chSetHat(var s: shortstring); |
|
99 |
begin |
|
100 |
if (not isDeveloperMode) or (CurrentTeam = nil) then exit; |
|
101 |
with CurrentTeam^ do |
|
102 |
begin |
|
103 |
if not CurrentHedgehog^.King then |
|
104 |
if (s = '') or |
|
105 |
(((GameFlags and gfKing) <> 0) and (s = 'crown')) or |
|
106 |
((Length(s) > 39) and (Copy(s,1,8) = 'Reserved') and (Copy(s,9,32) <> PlayerHash)) then |
|
107 |
CurrentHedgehog^.Hat:= 'NoHat' |
|
108 |
else |
|
109 |
CurrentHedgehog^.Hat:= s |
|
110 |
end; |
|
111 |
end; |
|
112 |
||
113 |
procedure chCurU_p(var s: shortstring); |
|
114 |
begin |
|
115 |
s:= s; // avoid compiler hint |
|
116 |
CursorMovementY:= -1; |
|
117 |
end; |
|
118 |
||
119 |
procedure chCurU_m(var s: shortstring); |
|
120 |
begin |
|
121 |
s:= s; // avoid compiler hint |
|
122 |
CursorMovementY:= 0; |
|
123 |
end; |
|
124 |
||
125 |
procedure chCurD_p(var s: shortstring); |
|
126 |
begin |
|
127 |
s:= s; // avoid compiler hint |
|
128 |
CursorMovementY:= 1; |
|
129 |
end; |
|
130 |
||
131 |
procedure chCurD_m(var s: shortstring); |
|
132 |
begin |
|
133 |
s:= s; // avoid compiler hint |
|
134 |
CursorMovementY:= 0; |
|
135 |
end; |
|
136 |
||
137 |
procedure chCurL_p(var s: shortstring); |
|
138 |
begin |
|
139 |
s:= s; // avoid compiler hint |
|
140 |
CursorMovementX:= -1; |
|
141 |
end; |
|
142 |
||
143 |
procedure chCurL_m(var s: shortstring); |
|
144 |
begin |
|
145 |
s:= s; // avoid compiler hint |
|
146 |
CursorMovementX:= 0; |
|
147 |
end; |
|
148 |
||
149 |
procedure chCurR_p(var s: shortstring); |
|
150 |
begin |
|
151 |
s:= s; // avoid compiler hint |
|
152 |
CursorMovementX:= 1; |
|
153 |
end; |
|
154 |
||
155 |
procedure chCurR_m(var s: shortstring); |
|
156 |
begin |
|
157 |
s:= s; // avoid compiler hint |
|
158 |
CursorMovementX:= 0; |
|
159 |
end; |
|
160 |
||
161 |
procedure chLeft_p(var s: shortstring); |
|
162 |
begin |
|
163 |
s:= s; // avoid compiler hint |
|
164 |
if CheckNoTeamOrHH or isPaused then exit; |
|
165 |
if not CurrentTeam^.ExtDriven then SendIPC('L'); |
|
166 |
bShowFinger:= false; |
|
167 |
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
|
168 |
Message:= Message or (gmLeft and InputMask) |
4413 | 169 |
end; |
170 |
||
171 |
procedure chLeft_m(var s: shortstring); |
|
172 |
begin |
|
173 |
s:= s; // avoid compiler hint |
|
174 |
if CheckNoTeamOrHH then exit; |
|
175 |
if not CurrentTeam^.ExtDriven then SendIPC('l'); |
|
176 |
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
|
177 |
Message:= Message and not (gmLeft and InputMask) |
4413 | 178 |
end; |
179 |
||
180 |
procedure chRight_p(var s: shortstring); |
|
181 |
begin |
|
182 |
s:= s; // avoid compiler hint |
|
183 |
if CheckNoTeamOrHH or isPaused then exit; |
|
184 |
if not CurrentTeam^.ExtDriven then SendIPC('R'); |
|
185 |
bShowFinger:= false; |
|
186 |
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
|
187 |
Message:= Message or (gmRight and InputMask) |
4413 | 188 |
end; |
189 |
||
190 |
procedure chRight_m(var s: shortstring); |
|
191 |
begin |
|
192 |
s:= s; // avoid compiler hint |
|
193 |
if CheckNoTeamOrHH then exit; |
|
194 |
if not CurrentTeam^.ExtDriven then SendIPC('r'); |
|
195 |
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
|
196 |
Message:= Message and not (gmRight and InputMask) |
4413 | 197 |
end; |
198 |
||
199 |
procedure chUp_p(var s: shortstring); |
|
200 |
begin |
|
201 |
s:= s; // avoid compiler hint |
|
202 |
if CheckNoTeamOrHH or isPaused then exit; |
|
203 |
if not CurrentTeam^.ExtDriven then SendIPC('U'); |
|
204 |
bShowFinger:= false; |
|
205 |
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
|
206 |
Message:= Message or (gmUp and InputMask) |
4413 | 207 |
end; |
208 |
||
209 |
procedure chUp_m(var s: shortstring); |
|
210 |
begin |
|
211 |
s:= s; // avoid compiler hint |
|
212 |
if CheckNoTeamOrHH then exit; |
|
213 |
if not CurrentTeam^.ExtDriven then SendIPC('u'); |
|
214 |
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
|
215 |
Message:= Message and not (gmUp and InputMask); |
4413 | 216 |
end; |
217 |
||
218 |
procedure chDown_p(var s: shortstring); |
|
219 |
begin |
|
220 |
s:= s; // avoid compiler hint |
|
221 |
if CheckNoTeamOrHH or isPaused then exit; |
|
222 |
if not CurrentTeam^.ExtDriven then SendIPC('D'); |
|
223 |
bShowFinger:= false; |
|
224 |
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
|
225 |
Message:= Message or (gmDown and InputMask) |
4413 | 226 |
end; |
227 |
||
228 |
procedure chDown_m(var s: shortstring); |
|
229 |
begin |
|
230 |
s:= s; // avoid compiler hint |
|
231 |
if CheckNoTeamOrHH then exit; |
|
232 |
if not CurrentTeam^.ExtDriven then SendIPC('d'); |
|
233 |
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
|
234 |
Message:= Message and not (gmDown and InputMask) |
4413 | 235 |
end; |
236 |
||
237 |
procedure chPrecise_p(var s: shortstring); |
|
238 |
begin |
|
239 |
s:= s; // avoid compiler hint |
|
240 |
if CheckNoTeamOrHH or isPaused then exit; |
|
241 |
if not CurrentTeam^.ExtDriven then SendIPC('Z'); |
|
242 |
bShowFinger:= false; |
|
243 |
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
|
244 |
Message:= Message or (gmPrecise and InputMask); |
4413 | 245 |
end; |
246 |
||
247 |
procedure chPrecise_m(var s: shortstring); |
|
248 |
begin |
|
249 |
s:= s; // avoid compiler hint |
|
250 |
if CheckNoTeamOrHH then exit; |
|
251 |
if not CurrentTeam^.ExtDriven then SendIPC('z'); |
|
252 |
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
|
253 |
Message:= Message and not (gmPrecise and InputMask); |
4413 | 254 |
end; |
255 |
||
256 |
procedure chLJump(var s: shortstring); |
|
257 |
begin |
|
258 |
s:= s; // avoid compiler hint |
|
259 |
if CheckNoTeamOrHH or isPaused then exit; |
|
260 |
if not CurrentTeam^.ExtDriven then SendIPC('j'); |
|
261 |
bShowFinger:= false; |
|
262 |
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
|
263 |
Message:= Message or (gmLJump and InputMask) |
4413 | 264 |
end; |
265 |
||
266 |
procedure chHJump(var s: shortstring); |
|
267 |
begin |
|
268 |
s:= s; // avoid compiler hint |
|
269 |
if CheckNoTeamOrHH or isPaused then exit; |
|
270 |
if not CurrentTeam^.ExtDriven then SendIPC('J'); |
|
271 |
bShowFinger:= false; |
|
272 |
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
|
273 |
Message:= Message or (gmHJump and InputMask) |
4413 | 274 |
end; |
275 |
||
276 |
procedure chAttack_p(var s: shortstring); |
|
277 |
begin |
|
278 |
s:= s; // avoid compiler hint |
|
279 |
if CheckNoTeamOrHH or isPaused then exit; |
|
280 |
bShowFinger:= false; |
|
281 |
with CurrentHedgehog^.Gear^ do |
|
282 |
begin |
|
283 |
{$IFDEF DEBUGFILE}AddFileLog('/+attack: hedgehog''s Gear^.State = '+inttostr(State));{$ENDIF} |
|
284 |
if ((State and gstHHDriven) <> 0) then |
|
285 |
begin |
|
286 |
FollowGear:= CurrentHedgehog^.Gear; |
|
287 |
if not CurrentTeam^.ExtDriven then SendIPC('A'); |
|
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
|
288 |
Message:= Message or (gmAttack and InputMask) |
4413 | 289 |
end |
290 |
end |
|
291 |
end; |
|
292 |
||
293 |
procedure chAttack_m(var s: shortstring); |
|
294 |
begin |
|
295 |
s:= s; // avoid compiler hint |
|
296 |
if CheckNoTeamOrHH then exit; |
|
297 |
with CurrentHedgehog^.Gear^ do |
|
298 |
begin |
|
299 |
if not CurrentTeam^.ExtDriven and |
|
300 |
((Message and gmAttack) <> 0) then SendIPC('a'); |
|
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
|
301 |
Message:= Message and not (gmAttack and InputMask) |
4413 | 302 |
end |
303 |
end; |
|
304 |
||
305 |
procedure chSwitch(var s: shortstring); |
|
306 |
begin |
|
307 |
s:= s; // avoid compiler hint |
|
308 |
if CheckNoTeamOrHH or isPaused then exit; |
|
309 |
if not CurrentTeam^.ExtDriven then SendIPC('S'); |
|
310 |
bShowFinger:= false; |
|
311 |
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
|
312 |
Message:= Message or (gmSwitch and InputMask) |
4413 | 313 |
end; |
314 |
||
315 |
procedure chNextTurn(var s: shortstring); |
|
316 |
begin |
|
317 |
s:= s; // avoid compiler hint |
|
318 |
TryDo(AllInactive, '/nextturn called when not all gears are inactive', true); |
|
319 |
||
320 |
if not CurrentTeam^.ExtDriven then SendIPC('N'); |
|
321 |
{$IFDEF DEBUGFILE} |
|
322 |
AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
|
323 |
{$ENDIF} |
|
324 |
end; |
|
325 |
||
326 |
procedure chTimer(var s: shortstring); |
|
327 |
begin |
|
328 |
if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |
|
329 |
||
330 |
if not CurrentTeam^.ExtDriven then SendIPC(s); |
|
331 |
bShowFinger:= false; |
|
332 |
with CurrentHedgehog^.Gear^ do |
|
333 |
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
|
334 |
Message:= Message or (gmTimer and InputMask); |
4413 | 335 |
MsgParam:= byte(s[1]) - ord('0') |
336 |
end |
|
337 |
end; |
|
338 |
||
339 |
procedure chSlot(var s: shortstring); |
|
340 |
var slot: LongWord; |
|
341 |
begin |
|
342 |
if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
|
343 |
slot:= byte(s[1]) - 49; |
|
344 |
if slot > cMaxSlotIndex then exit; |
|
345 |
if not CurrentTeam^.ExtDriven then SendIPC(char(byte(s[1]) + 79)); |
|
346 |
bShowFinger:= false; |
|
347 |
with CurrentHedgehog^.Gear^ do |
|
348 |
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
|
349 |
Message:= Message or (gmSlot and InputMask); |
4413 | 350 |
MsgParam:= slot |
351 |
end |
|
352 |
end; |
|
353 |
||
354 |
procedure chSetWeapon(var s: shortstring); |
|
355 |
begin |
|
356 |
if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
|
357 |
||
358 |
if TAmmoType(s[1]) > High(TAmmoType) then exit; |
|
359 |
||
360 |
if not CurrentTeam^.ExtDriven then SendIPC('w' + s); |
|
361 |
||
362 |
with CurrentHedgehog^.Gear^ do |
|
363 |
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
|
364 |
Message:= Message or (gmWeapon and InputMask); |
4413 | 365 |
MsgParam:= byte(s[1]); |
366 |
end; |
|
367 |
end; |
|
368 |
||
369 |
procedure chTaunt(var s: shortstring); |
|
370 |
begin |
|
371 |
if (s[0] <> #1) or CheckNoTeamOrHH then exit; |
|
372 |
||
373 |
if TWave(s[1]) > High(TWave) then exit; |
|
374 |
||
375 |
if not CurrentTeam^.ExtDriven then SendIPC('t' + s); |
|
376 |
||
377 |
with CurrentHedgehog^.Gear^ do |
|
378 |
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
|
379 |
Message:= Message or (gmAnimate and InputMask); |
4413 | 380 |
MsgParam:= byte(s[1]) |
381 |
end |
|
382 |
end; |
|
383 |
||
384 |
procedure chPut(var s: shortstring); |
|
385 |
begin |
|
386 |
s:= s; // avoid compiler hint |
|
387 |
doPut(0, 0, false); |
|
388 |
end; |
|
389 |
||
390 |
procedure chCapture(var s: shortstring); |
|
391 |
begin |
|
392 |
s:= s; // avoid compiler hint |
|
393 |
flagMakeCapture:= true |
|
394 |
end; |
|
395 |
||
396 |
procedure chSetMap(var s: shortstring); |
|
397 |
begin |
|
398 |
if isDeveloperMode then |
|
399 |
begin |
|
400 |
Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s; |
|
401 |
InitStepsFlags:= InitStepsFlags or cifMap |
|
402 |
end |
|
403 |
end; |
|
404 |
||
405 |
procedure chSetTheme(var s: shortstring); |
|
406 |
begin |
|
407 |
if isDeveloperMode then |
|
408 |
begin |
|
409 |
Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s; |
|
410 |
InitStepsFlags:= InitStepsFlags or cifTheme |
|
411 |
end |
|
412 |
end; |
|
413 |
||
414 |
procedure chSetSeed(var s: shortstring); |
|
415 |
begin |
|
416 |
if isDeveloperMode then |
|
417 |
begin |
|
418 |
SetRandomSeed(s); |
|
419 |
cSeed:= s; |
|
420 |
InitStepsFlags:= InitStepsFlags or cifRandomize |
|
421 |
end |
|
422 |
end; |
|
423 |
||
424 |
procedure chAmmoMenu(var s: shortstring); |
|
425 |
begin |
|
426 |
s:= s; // avoid compiler hint |
|
427 |
if CheckNoTeamOrHH then |
|
428 |
bShowAmmoMenu:= true |
|
429 |
else |
|
430 |
begin |
|
431 |
with CurrentTeam^ do |
|
432 |
with Hedgehogs[CurrHedgehog] do |
|
433 |
begin |
|
434 |
bSelected:= false; |
|
435 |
||
436 |
if bShowAmmoMenu then bShowAmmoMenu:= false |
|
437 |
else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or |
|
438 |
((MultiShootAttacks > 0) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) = 0)) or |
|
439 |
((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true |
|
440 |
end; |
|
441 |
end |
|
442 |
end; |
|
443 |
||
444 |
procedure chVol_p(var s: shortstring); |
|
445 |
begin |
|
446 |
s:= s; // avoid compiler hint |
|
447 |
inc(cVolumeDelta, 3) |
|
448 |
end; |
|
449 |
||
450 |
procedure chVol_m(var s: shortstring); |
|
451 |
begin |
|
452 |
s:= s; // avoid compiler hint |
|
453 |
dec(cVolumeDelta, 3) |
|
454 |
end; |
|
455 |
||
456 |
procedure chFindhh(var s: shortstring); |
|
457 |
begin |
|
458 |
s:= s; // avoid compiler hint |
|
459 |
if CheckNoTeamOrHH or isPaused then exit; |
|
460 |
bShowFinger:= true; |
|
461 |
FollowGear:= CurrentHedgehog^.Gear |
|
462 |
end; |
|
463 |
||
464 |
procedure chPause(var s: shortstring); |
|
465 |
begin |
|
466 |
s:= s; // avoid compiler hint |
|
467 |
if gameType <> gmtNet then |
|
468 |
isPaused:= not isPaused; |
|
469 |
SDL_ShowCursor(ord(isPaused)) |
|
470 |
end; |
|
471 |
||
472 |
procedure chRotateMask(var s: shortstring); |
|
473 |
begin |
|
474 |
s:= s; // avoid compiler hint |
|
475 |
if ((GameFlags and gfInvulnerable) = 0) then cTagsMask:= cTagsMasks[cTagsMask] else cTagsMask:= cTagsMasksNoHealth[cTagsMask]; |
|
476 |
end; |
|
477 |
||
478 |
procedure chSpeedup_p(var s: shortstring); |
|
479 |
begin |
|
480 |
s:= s; // avoid compiler hint |
|
481 |
isSpeed:= true |
|
482 |
end; |
|
483 |
||
484 |
procedure chSpeedup_m(var s: shortstring); |
|
485 |
begin |
|
486 |
s:= s; // avoid compiler hint |
|
487 |
isSpeed:= false |
|
488 |
end; |
|
489 |
||
490 |
procedure chZoomIn(var s: shortstring); |
|
491 |
begin |
|
492 |
s:= s; // avoid compiler hint |
|
493 |
if ZoomValue < cMinZoomLevel then |
|
494 |
ZoomValue:= ZoomValue + cZoomDelta; |
|
495 |
end; |
|
496 |
||
497 |
procedure chZoomOut(var s: shortstring); |
|
498 |
begin |
|
499 |
s:= s; // avoid compiler hint |
|
500 |
if ZoomValue > cMaxZoomLevel then |
|
501 |
ZoomValue:= ZoomValue - cZoomDelta; |
|
502 |
end; |
|
503 |
||
504 |
procedure chZoomReset(var s: shortstring); |
|
505 |
begin |
|
506 |
s:= s; // avoid compiler hint |
|
507 |
ZoomValue:= cDefaultZoomLevel; |
|
508 |
end; |
|
509 |
||
510 |
||
511 |
procedure initModule; |
|
512 |
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
|
513 |
//////// Begin top sorted by freq analysis not including chatmsg |
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
|
514 |
RegisterVariable('+right' , vtCommand, @chRight_p , false); |
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
|
515 |
RegisterVariable('-right' , vtCommand, @chRight_m , false); |
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
|
516 |
RegisterVariable('+up' , vtCommand, @chUp_p , false); |
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
|
517 |
RegisterVariable('-up' , vtCommand, @chUp_m , false); |
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
|
518 |
RegisterVariable('+left' , vtCommand, @chLeft_p , false); |
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
|
519 |
RegisterVariable('-left' , vtCommand, @chLeft_m , false); |
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
|
520 |
RegisterVariable('+attack' , vtCommand, @chAttack_p , false); |
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
|
521 |
RegisterVariable('+down' , vtCommand, @chDown_p , false); |
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
|
522 |
RegisterVariable('-down' , vtCommand, @chDown_m , false); |
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
|
523 |
RegisterVariable('hjump' , vtCommand, @chHJump , false); |
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
|
524 |
RegisterVariable('ljump' , vtCommand, @chLJump , false); |
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
|
525 |
RegisterVariable('nextturn', vtCommand, @chNextTurn , false); |
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
|
526 |
RegisterVariable('-attack' , vtCommand, @chAttack_m , false); |
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
|
527 |
RegisterVariable('slot' , vtCommand, @chSlot , false); |
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
|
528 |
RegisterVariable('setweap' , vtCommand, @chSetWeapon , false); |
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
|
529 |
//////// End top by freq analysis |
4531
4ea193b0e378
Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents:
4528
diff
changeset
|
530 |
RegisterVariable('gencmd' , vtCommand, @chGenCmd , false); |
4413 | 531 |
RegisterVariable('flag' , vtCommand, @chFlag , false); |
532 |
RegisterVariable('script' , vtCommand, @chScript , false); |
|
533 |
RegisterVariable('proto' , vtCommand, @chCheckProto , true ); |
|
534 |
RegisterVariable('spectate', vtBoolean, @fastUntilLag , false); |
|
535 |
RegisterVariable('capture' , vtCommand, @chCapture , true ); |
|
536 |
RegisterVariable('rotmask' , vtCommand, @chRotateMask , true ); |
|
537 |
RegisterVariable('rdriven' , vtCommand, @chTeamLocal , false); |
|
538 |
RegisterVariable('map' , vtCommand, @chSetMap , false); |
|
539 |
RegisterVariable('theme' , vtCommand, @chSetTheme , false); |
|
540 |
RegisterVariable('seed' , vtCommand, @chSetSeed , false); |
|
541 |
RegisterVariable('template_filter', vtLongInt, @cTemplateFilter, false); |
|
542 |
RegisterVariable('mapgen' , vtLongInt, @cMapGen , false); |
|
543 |
RegisterVariable('maze_size',vtLongInt, @cMazeSize , false); |
|
544 |
RegisterVariable('delay' , vtLongInt, @cInactDelay , false); |
|
545 |
RegisterVariable('ready' , vtLongInt, @cReadyDelay , false); |
|
546 |
RegisterVariable('casefreq', vtLongInt, @cCaseFactor , false); |
|
547 |
RegisterVariable('healthprob', vtLongInt, @cHealthCaseProb, false); |
|
548 |
RegisterVariable('hcaseamount', vtLongInt, @cHealthCaseAmount, false); |
|
549 |
RegisterVariable('sd_turns', vtLongInt, @cSuddenDTurns , false); |
|
550 |
RegisterVariable('waterrise', vtLongInt, @cWaterRise , false); |
|
551 |
RegisterVariable('healthdec', vtLongInt, @cHealthDecrease, false); |
|
552 |
RegisterVariable('damagepct',vtLongInt, @cDamagePercent , false); |
|
553 |
RegisterVariable('ropepct' , vtLongInt, @cRopePercent , false); |
|
554 |
RegisterVariable('minedudpct',vtLongInt,@cMineDudPercent, false); |
|
555 |
RegisterVariable('minesnum', vtLongInt, @cLandMines , false); |
|
556 |
RegisterVariable('explosives',vtLongInt,@cExplosives , false); |
|
557 |
RegisterVariable('gmflags' , vtLongInt, @GameFlags , false); |
|
558 |
RegisterVariable('trflags' , vtLongInt, @TrainingFlags , false); |
|
559 |
RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false); |
|
560 |
RegisterVariable('minestime',vtLongInt, @cMinesTime , false); |
|
561 |
RegisterVariable('fort' , vtCommand, @chFort , false); |
|
562 |
RegisterVariable('grave' , vtCommand, @chGrave , false); |
|
563 |
RegisterVariable('hat' , vtCommand, @chSetHat , false); |
|
564 |
RegisterVariable('quit' , vtCommand, @chQuit , true ); |
|
565 |
RegisterVariable('confirm' , vtCommand, @chConfirm , true ); |
|
566 |
RegisterVariable('+speedup', vtCommand, @chSpeedup_p , true ); |
|
567 |
RegisterVariable('-speedup', vtCommand, @chSpeedup_m , true ); |
|
568 |
RegisterVariable('zoomin' , vtCommand, @chZoomIn , true ); |
|
569 |
RegisterVariable('zoomout' , vtCommand, @chZoomOut , true ); |
|
570 |
RegisterVariable('zoomreset',vtCommand, @chZoomReset , true ); |
|
571 |
RegisterVariable('ammomenu', vtCommand, @chAmmoMenu , true); |
|
572 |
RegisterVariable('+precise', vtCommand, @chPrecise_p , false); |
|
573 |
RegisterVariable('-precise', vtCommand, @chPrecise_m , false); |
|
574 |
RegisterVariable('switch' , vtCommand, @chSwitch , false); |
|
575 |
RegisterVariable('timer' , vtCommand, @chTimer , false); |
|
576 |
RegisterVariable('taunt' , vtCommand, @chTaunt , false); |
|
577 |
RegisterVariable('put' , vtCommand, @chPut , false); |
|
578 |
RegisterVariable('+volup' , vtCommand, @chVol_p , true ); |
|
579 |
RegisterVariable('-volup' , vtCommand, @chVol_m , true ); |
|
580 |
RegisterVariable('+voldown', vtCommand, @chVol_m , true ); |
|
581 |
RegisterVariable('-voldown', vtCommand, @chVol_p , true ); |
|
582 |
RegisterVariable('findhh' , vtCommand, @chFindhh , true ); |
|
583 |
RegisterVariable('pause' , vtCommand, @chPause , true ); |
|
584 |
RegisterVariable('+cur_u' , vtCommand, @chCurU_p , true ); |
|
585 |
RegisterVariable('-cur_u' , vtCommand, @chCurU_m , true ); |
|
586 |
RegisterVariable('+cur_d' , vtCommand, @chCurD_p , true ); |
|
587 |
RegisterVariable('-cur_d' , vtCommand, @chCurD_m , true ); |
|
588 |
RegisterVariable('+cur_l' , vtCommand, @chCurL_p , true ); |
|
589 |
RegisterVariable('-cur_l' , vtCommand, @chCurL_m , true ); |
|
590 |
RegisterVariable('+cur_r' , vtCommand, @chCurR_p , true ); |
|
591 |
RegisterVariable('-cur_r' , vtCommand, @chCurR_m , true ); |
|
592 |
end; |
|
593 |
||
594 |
procedure freeModule; |
|
595 |
begin |
|
596 |
end; |
|
597 |
||
598 |
end. |