854 procedure chAirMines(var s: shortstring);

   854 procedure chAirMines(var s: shortstring);

   855 begin

   855 begin

   856 cAirMines:= StrToInt(s)

   856 cAirMines:= StrToInt(s)

   857 end;

   857 end;

   858 

   858 

   859 procedure chExplosives(var s: shortstring);

   864 procedure chExplosives(var s: shortstring);

   860 begin

   865 begin

   861 cExplosives:= StrToInt(s)

   866 cExplosives:= StrToInt(s)

   862 end;

   867 end;

   863 

   868 

   978     RegisterVariable('ropepct' , @chRopePercent   , false);

   983     RegisterVariable('ropepct' , @chRopePercent   , false);

   979     RegisterVariable('getawaytime' , @chGetAwayTime , false);

   984     RegisterVariable('getawaytime' , @chGetAwayTime , false);

   980     RegisterVariable('minedudpct',@chMineDudPercent, false);

   985     RegisterVariable('minedudpct',@chMineDudPercent, false);

   981     RegisterVariable('minesnum', @chLandMines     , false);

   986     RegisterVariable('minesnum', @chLandMines     , false);

   982     RegisterVariable('airmines', @chAirMines      , false);

   987     RegisterVariable('airmines', @chAirMines      , false);

   983     RegisterVariable('explosives',@chExplosives    , false);

   989     RegisterVariable('explosives',@chExplosives    , false);

   984     RegisterVariable('gmflags' , @chGameFlags      , false);

   990     RegisterVariable('gmflags' , @chGameFlags      , false);

   985     RegisterVariable('turntime', @chHedgehogTurnTime, false);

   991     RegisterVariable('turntime', @chHedgehogTurnTime, false);

   986     RegisterVariable('minestime',@chMinesTime     , false);

   992     RegisterVariable('minestime',@chMinesTime     , false);

   987     RegisterVariable('quit'    , @chQuit         , true );

   993     RegisterVariable('quit'    , @chQuit         , true );