hedgewars/uCommandHandlers.pas
author nemo
Sat, 25 Dec 2010 14:10:11 -0500
changeset 4675 02f73576c059
parent 4661 f5d858e4b634
child 4744 ecc2c757d0df
child 4808 7c3e5b52344a
permissions -rw-r--r--
oops. forgot cmake for Control map
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
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   168
    Message:= Message or (gmLeft and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   169
    ScriptCall('onLeft');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   170
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   171
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   172
procedure chLeft_m(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   173
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   174
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   175
if CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   176
if not CurrentTeam^.ExtDriven then SendIPC('l');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   177
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   178
    Message:= Message and not (gmLeft and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   179
    ScriptCall('onLeftUp');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   180
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   181
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   182
procedure chRight_p(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   183
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   184
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   185
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   186
if not CurrentTeam^.ExtDriven then SendIPC('R');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   187
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   188
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   189
    Message:= Message or (gmRight and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   190
    ScriptCall('onRight');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   191
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   192
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   193
procedure chRight_m(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   194
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   195
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   196
if CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   197
if not CurrentTeam^.ExtDriven then SendIPC('r');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   198
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   199
    Message:= Message and not (gmRight and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   200
    ScriptCall('onRightUp');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   201
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   202
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   203
procedure chUp_p(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   204
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   205
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   206
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   207
if not CurrentTeam^.ExtDriven then SendIPC('U');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   208
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   209
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   210
    Message:= Message or (gmUp and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   211
    ScriptCall('onUp');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   212
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   213
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   214
procedure chUp_m(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   215
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   216
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   217
if CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   218
if not CurrentTeam^.ExtDriven then SendIPC('u');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   219
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
   220
    Message:= Message and not (gmUp and InputMask);
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   221
    ScriptCall('onUpUp');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   222
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   223
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   224
procedure chDown_p(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   225
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   226
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   227
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   228
if not CurrentTeam^.ExtDriven then SendIPC('D');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   229
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   230
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   231
    Message:= Message or (gmDown and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   232
    ScriptCall('onDown');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   233
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   234
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   235
procedure chDown_m(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   236
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   237
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   238
if CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   239
if not CurrentTeam^.ExtDriven then SendIPC('d');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   240
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   241
    Message:= Message and not (gmDown and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   242
    ScriptCall('onDownUp');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   243
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   244
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   245
procedure chPrecise_p(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   246
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   247
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   248
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   249
if not CurrentTeam^.ExtDriven then SendIPC('Z');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   250
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   251
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
   252
    Message:= Message or (gmPrecise and InputMask);
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   253
    ScriptCall('onPrecise');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   254
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   255
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   256
procedure chPrecise_m(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 then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   260
if not CurrentTeam^.ExtDriven then SendIPC('z');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   261
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
   262
    Message:= Message and not (gmPrecise and InputMask);
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   263
    ScriptCall('onPreciseUp');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   264
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   265
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   266
procedure chLJump(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
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   273
    Message:= Message or (gmLJump and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   274
    ScriptCall('onLJump');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   275
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   276
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   277
procedure chHJump(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   278
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   279
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   280
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   281
if not CurrentTeam^.ExtDriven then SendIPC('J');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   282
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   283
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   284
    Message:= Message or (gmHJump and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   285
    ScriptCall('onHJump');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   286
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   287
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   288
procedure chAttack_p(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   289
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   290
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   291
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   292
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   293
with CurrentHedgehog^.Gear^ do
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   294
    begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   295
    {$IFDEF DEBUGFILE}AddFileLog('/+attack: hedgehog''s Gear^.State = '+inttostr(State));{$ENDIF}
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   296
    if ((State and gstHHDriven) <> 0) then
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   297
        begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   298
        FollowGear:= CurrentHedgehog^.Gear;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   299
        if not CurrentTeam^.ExtDriven then SendIPC('A');
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   300
        Message:= Message or (gmAttack and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   301
	ScriptCall('onAttack');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   302
        end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   303
    end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   304
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   305
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   306
procedure chAttack_m(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   307
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   308
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   309
if CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   310
with CurrentHedgehog^.Gear^ do
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   311
    begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   312
    if not CurrentTeam^.ExtDriven and
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   313
        ((Message and gmAttack) <> 0) then SendIPC('a');
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   314
    Message:= Message and not (gmAttack and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   315
    ScriptCall('onAttackUp');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   316
    end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   317
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   318
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   319
procedure chSwitch(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   320
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   321
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   322
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   323
if not CurrentTeam^.ExtDriven then SendIPC('S');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   324
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   325
with CurrentHedgehog^.Gear^ do
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   326
    Message:= Message or (gmSwitch and InputMask);
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   327
    ScriptCall('onSwitch');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   328
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   329
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   330
procedure chNextTurn(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   331
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   332
    s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   333
    TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   334
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   335
    if not CurrentTeam^.ExtDriven then SendIPC('N');
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   336
{$IFDEF DEBUGFILE}
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   337
    AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   338
{$ENDIF}
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   339
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   340
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   341
procedure chTimer(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   342
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   343
if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   344
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   345
if not CurrentTeam^.ExtDriven then SendIPC(s);
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 (gmTimer and InputMask);
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   350
    MsgParam:= byte(s[1]) - ord('0');
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   351
    ScriptCall('onTimer');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   352
    end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   353
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   354
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   355
procedure chSlot(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   356
var slot: LongWord;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   357
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   358
if (s[0] <> #1) or CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   359
slot:= byte(s[1]) - 49;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   360
if slot > cMaxSlotIndex then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   361
if not CurrentTeam^.ExtDriven then SendIPC(char(byte(s[1]) + 79));
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   362
bShowFinger:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   363
with CurrentHedgehog^.Gear^ do
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   364
    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
   365
    Message:= Message or (gmSlot and InputMask);
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   366
    MsgParam:= slot; 
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   367
    ScriptCall('onSlot');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   368
    end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   369
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   370
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   371
procedure chSetWeapon(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   372
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   373
    if (s[0] <> #1) or CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   374
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   375
    if TAmmoType(s[1]) > High(TAmmoType) then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   376
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   377
    if not CurrentTeam^.ExtDriven then SendIPC('w' + s);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   378
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   379
    with CurrentHedgehog^.Gear^ do
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   380
    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
   381
        Message:= Message or (gmWeapon and InputMask);
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   382
        MsgParam:= byte(s[1]);
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   383
	ScriptCall('onSetWeapon');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   384
    end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   385
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   386
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   387
procedure chTaunt(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   388
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   389
if (s[0] <> #1) or CheckNoTeamOrHH then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   390
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   391
if TWave(s[1]) > High(TWave) then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   392
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   393
if not CurrentTeam^.ExtDriven then SendIPC('t' + s);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   394
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   395
with CurrentHedgehog^.Gear^ do
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   396
    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
   397
    Message:= Message or (gmAnimate and InputMask);
4661
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   398
    MsgParam:= byte(s[1]) ; 
f5d858e4b634 Whole ton of script callbacks on commands. Poor engine.
mikade
parents: 4611
diff changeset
   399
    ScriptCall('onTaunt');
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   400
    end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   401
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   402
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   403
procedure chPut(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   404
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   405
    s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   406
    doPut(0, 0, false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   407
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   408
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   409
procedure chCapture(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   410
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   411
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   412
flagMakeCapture:= true
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   413
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   414
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   415
procedure chSetMap(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
Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   420
InitStepsFlags:= InitStepsFlags or cifMap
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   421
end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   422
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   423
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   424
procedure chSetTheme(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   425
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   426
if isDeveloperMode then
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   427
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   428
Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s;
4611
445d382cd401 A very very basic snow implementation
nemo
parents: 4532
diff changeset
   429
Theme:= s;
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   430
InitStepsFlags:= InitStepsFlags or cifTheme
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   431
end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   432
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   433
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   434
procedure chSetSeed(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   435
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   436
if isDeveloperMode then
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   437
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   438
SetRandomSeed(s);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   439
cSeed:= s;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   440
InitStepsFlags:= InitStepsFlags or cifRandomize
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   441
end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   442
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   443
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   444
procedure chAmmoMenu(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   445
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   446
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   447
if CheckNoTeamOrHH then
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   448
    bShowAmmoMenu:= true
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   449
else
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   450
    begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   451
    with CurrentTeam^ do
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   452
        with Hedgehogs[CurrHedgehog] do
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   453
            begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   454
            bSelected:= false;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   455
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   456
            if bShowAmmoMenu then bShowAmmoMenu:= false
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   457
            else if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   458
                    ((MultiShootAttacks > 0) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) = 0)) or
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   459
                    ((Gear^.State and gstHHDriven) = 0) then else bShowAmmoMenu:= true
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   460
            end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   461
    end
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   462
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   463
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   464
procedure chVol_p(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   465
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   466
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   467
inc(cVolumeDelta, 3)
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   468
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   469
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   470
procedure chVol_m(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   471
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   472
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   473
dec(cVolumeDelta, 3)
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   474
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   475
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   476
procedure chFindhh(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   477
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   478
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   479
if CheckNoTeamOrHH or isPaused then exit;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   480
bShowFinger:= true;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   481
FollowGear:= CurrentHedgehog^.Gear
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   482
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   483
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   484
procedure chPause(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   485
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   486
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   487
if gameType <> gmtNet then
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   488
    isPaused:= not isPaused;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   489
SDL_ShowCursor(ord(isPaused))
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   490
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   491
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   492
procedure chRotateMask(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   493
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   494
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   495
if ((GameFlags and gfInvulnerable) = 0) then cTagsMask:= cTagsMasks[cTagsMask] else cTagsMask:= cTagsMasksNoHealth[cTagsMask];
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   496
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   497
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   498
procedure chSpeedup_p(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
isSpeed:= true
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   502
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   503
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   504
procedure chSpeedup_m(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   505
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   506
s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   507
isSpeed:= false
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   508
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   509
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   510
procedure chZoomIn(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   511
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   512
    s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   513
    if ZoomValue < cMinZoomLevel then
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   514
        ZoomValue:= ZoomValue + cZoomDelta;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   515
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   516
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   517
procedure chZoomOut(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   518
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   519
    s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   520
    if ZoomValue > cMaxZoomLevel then
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   521
        ZoomValue:= ZoomValue - cZoomDelta;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   522
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   523
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   524
procedure chZoomReset(var s: shortstring);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   525
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   526
    s:= s; // avoid compiler hint
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   527
    ZoomValue:= cDefaultZoomLevel;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   528
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   529
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   530
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   531
procedure initModule;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   532
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
   533
//////// 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
   534
    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
   535
    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
   536
    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
   537
    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
   538
    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
   539
    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
   540
    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
   541
    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
   542
    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
   543
    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
   544
    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
   545
    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
   546
    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
   547
    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
   548
    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
   549
//////// End top by freq analysis
4531
4ea193b0e378 Reenable ReadyTimer using a synced message NEEDS TESTING.
nemo
parents: 4528
diff changeset
   550
    RegisterVariable('gencmd'  , vtCommand, @chGenCmd       , false);
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   551
    RegisterVariable('flag'    , vtCommand, @chFlag         , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   552
    RegisterVariable('script'  , vtCommand, @chScript       , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   553
    RegisterVariable('proto'   , vtCommand, @chCheckProto   , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   554
    RegisterVariable('spectate', vtBoolean, @fastUntilLag   , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   555
    RegisterVariable('capture' , vtCommand, @chCapture      , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   556
    RegisterVariable('rotmask' , vtCommand, @chRotateMask   , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   557
    RegisterVariable('rdriven' , vtCommand, @chTeamLocal    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   558
    RegisterVariable('map'     , vtCommand, @chSetMap       , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   559
    RegisterVariable('theme'   , vtCommand, @chSetTheme     , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   560
    RegisterVariable('seed'    , vtCommand, @chSetSeed      , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   561
    RegisterVariable('template_filter', vtLongInt, @cTemplateFilter, false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   562
    RegisterVariable('mapgen'  , vtLongInt, @cMapGen        , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   563
    RegisterVariable('maze_size',vtLongInt, @cMazeSize      , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   564
    RegisterVariable('delay'   , vtLongInt, @cInactDelay    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   565
    RegisterVariable('ready'   , vtLongInt, @cReadyDelay    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   566
    RegisterVariable('casefreq', vtLongInt, @cCaseFactor    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   567
    RegisterVariable('healthprob', vtLongInt, @cHealthCaseProb, false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   568
    RegisterVariable('hcaseamount', vtLongInt, @cHealthCaseAmount, false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   569
    RegisterVariable('sd_turns', vtLongInt, @cSuddenDTurns  , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   570
    RegisterVariable('waterrise', vtLongInt, @cWaterRise    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   571
    RegisterVariable('healthdec', vtLongInt, @cHealthDecrease, false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   572
    RegisterVariable('damagepct',vtLongInt, @cDamagePercent , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   573
    RegisterVariable('ropepct' , vtLongInt, @cRopePercent   , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   574
    RegisterVariable('minedudpct',vtLongInt,@cMineDudPercent, false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   575
    RegisterVariable('minesnum', vtLongInt, @cLandMines     , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   576
    RegisterVariable('explosives',vtLongInt,@cExplosives    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   577
    RegisterVariable('gmflags' , vtLongInt, @GameFlags      , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   578
    RegisterVariable('trflags' , vtLongInt, @TrainingFlags  , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   579
    RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   580
    RegisterVariable('minestime',vtLongInt, @cMinesTime     , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   581
    RegisterVariable('fort'    , vtCommand, @chFort         , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   582
    RegisterVariable('grave'   , vtCommand, @chGrave        , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   583
    RegisterVariable('hat'     , vtCommand, @chSetHat       , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   584
    RegisterVariable('quit'    , vtCommand, @chQuit         , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   585
    RegisterVariable('confirm' , vtCommand, @chConfirm      , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   586
    RegisterVariable('+speedup', vtCommand, @chSpeedup_p    , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   587
    RegisterVariable('-speedup', vtCommand, @chSpeedup_m    , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   588
    RegisterVariable('zoomin'  , vtCommand, @chZoomIn       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   589
    RegisterVariable('zoomout' , vtCommand, @chZoomOut      , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   590
    RegisterVariable('zoomreset',vtCommand, @chZoomReset    , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   591
    RegisterVariable('ammomenu', vtCommand, @chAmmoMenu     , true);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   592
    RegisterVariable('+precise', vtCommand, @chPrecise_p    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   593
    RegisterVariable('-precise', vtCommand, @chPrecise_m    , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   594
    RegisterVariable('switch'  , vtCommand, @chSwitch       , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   595
    RegisterVariable('timer'   , vtCommand, @chTimer        , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   596
    RegisterVariable('taunt'   , vtCommand, @chTaunt        , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   597
    RegisterVariable('put'     , vtCommand, @chPut          , false);
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   598
    RegisterVariable('+volup'  , vtCommand, @chVol_p        , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   599
    RegisterVariable('-volup'  , vtCommand, @chVol_m        , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   600
    RegisterVariable('+voldown', vtCommand, @chVol_m        , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   601
    RegisterVariable('-voldown', vtCommand, @chVol_p        , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   602
    RegisterVariable('findhh'  , vtCommand, @chFindhh       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   603
    RegisterVariable('pause'   , vtCommand, @chPause        , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   604
    RegisterVariable('+cur_u'  , vtCommand, @chCurU_p       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   605
    RegisterVariable('-cur_u'  , vtCommand, @chCurU_m       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   606
    RegisterVariable('+cur_d'  , vtCommand, @chCurD_p       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   607
    RegisterVariable('-cur_d'  , vtCommand, @chCurD_m       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   608
    RegisterVariable('+cur_l'  , vtCommand, @chCurL_p       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   609
    RegisterVariable('-cur_l'  , vtCommand, @chCurL_m       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   610
    RegisterVariable('+cur_r'  , vtCommand, @chCurR_p       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   611
    RegisterVariable('-cur_r'  , vtCommand, @chCurR_m       , true );
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   612
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   613
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   614
procedure freeModule;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   615
begin
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   616
end;
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   617
46caab3a8f84 uCommandHandlers
unc0rr
parents:
diff changeset
   618
end.