47     SendIPC('Q');

    47     SendIPC('Q');

    48     GameState:= gsExit

    48     GameState:= gsExit

    49     end

    49     end

    50 else

    50 else

    51     ParseCommand('chat team', true);

    51     ParseCommand('chat team', true);

    52 end;

    59 end;

    53 

    60 

    54 procedure chCheckProto(var s: shortstring);

    61 procedure chCheckProto(var s: shortstring);

    55 var i, c: LongInt;

    62 var i, c: LongInt;

    56 begin

    63 begin

   589     RegisterVariable('grave'   , vtCommand, @chGrave        , false);

   596     RegisterVariable('grave'   , vtCommand, @chGrave        , false);

   590     RegisterVariable('hat'     , vtCommand, @chSetHat       , false);

   597     RegisterVariable('hat'     , vtCommand, @chSetHat       , false);

   591     RegisterVariable('quit'    , vtCommand, @chQuit         , true );

   598     RegisterVariable('quit'    , vtCommand, @chQuit         , true );

   592     RegisterVariable('forcequit', vtCommand, @chForceQuit   , true );

   599     RegisterVariable('forcequit', vtCommand, @chForceQuit   , true );

   593     RegisterVariable('confirm' , vtCommand, @chConfirm      , true );

   600     RegisterVariable('confirm' , vtCommand, @chConfirm      , true );

   594     RegisterVariable('+speedup', vtCommand, @chSpeedup_p    , true );

   602     RegisterVariable('+speedup', vtCommand, @chSpeedup_p    , true );

   595     RegisterVariable('-speedup', vtCommand, @chSpeedup_m    , true );

   603     RegisterVariable('-speedup', vtCommand, @chSpeedup_m    , true );

   596     RegisterVariable('zoomin'  , vtCommand, @chZoomIn       , true );

   604     RegisterVariable('zoomin'  , vtCommand, @chZoomIn       , true );

   597     RegisterVariable('zoomout' , vtCommand, @chZoomOut      , true );

   605     RegisterVariable('zoomout' , vtCommand, @chZoomOut      , true );

   598     RegisterVariable('zoomreset',vtCommand, @chZoomReset    , true );

   606     RegisterVariable('zoomreset',vtCommand, @chZoomReset    , true );