28 

    28 

    29 procedure initModule;

    29 procedure initModule;

    30 procedure freeModule;

    30 procedure freeModule;

    31 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean; Rand: boolean);

    31 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean; Rand: boolean);

    32 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);

    32 procedure RegisterVariable(Name: shortstring; p: TCommandHandler; Trusted: boolean);

    34 procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean);

    34 procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean);

    35 procedure ParseTeamCommand(s: shortstring);

    35 procedure ParseTeamCommand(s: shortstring);

    36 procedure StopMessages(Message: Longword);

    36 procedure StopMessages(Message: Longword);

    37 

    37 

    38 implementation

    38 implementation

    74     Variables:= value

    74     Variables:= value

    75     end;

    75     end;

    76 end;

    76 end;

    77 

    77 

    78 

    78 

    80 begin

    80 begin

    81     ParseCommand(CmdStr, TrustedSource, false)

    81     ParseCommand(CmdStr, TrustedSource, false)

    82 end;

    82 end;

    83 

    83 

    84 procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean);

    84 procedure ParseCommand(CmdStr: shortstring; TrustedSource, ExternalSource: boolean);