28         begin

    28         begin

    29         prevGState:= GameState;

    29         prevGState:= GameState;

    30         GameState:= gsConfirm

    30         GameState:= gsConfirm

    31         end else

    31         end else

    32         GameState:= prevGState

    32         GameState:= prevGState

    33 end;

    40 end;

    34 

    41 

    35 procedure chConfirm(var s: shortstring);

    42 procedure chConfirm(var s: shortstring);

    36 begin

    43 begin

    37 s:= s; // avoid compiler hint

    44 s:= s; // avoid compiler hint

   580     RegisterVariable('minestime',vtLongInt, @cMinesTime     , false);

   587     RegisterVariable('minestime',vtLongInt, @cMinesTime     , false);

   581     RegisterVariable('fort'    , vtCommand, @chFort         , false);

   588     RegisterVariable('fort'    , vtCommand, @chFort         , false);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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