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