hedgewars/uConsole.pas
changeset 55 e09f7c952a40
parent 53 0e27949850e3
child 79 29b477319854
--- a/hedgewars/uConsole.pas	Fri Jan 20 19:02:50 2006 +0000
+++ b/hedgewars/uConsole.pas	Sat Jan 21 16:18:19 2006 +0000
@@ -48,7 +48,7 @@
 
 implementation
 {$J+}
-uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uSound, uWorld, uLand;
+uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uSound, uWorld, uLand, uRandom;
 const cLineWidth: integer = 0;
       cLinesCount = 256;
       
@@ -275,12 +275,13 @@
 RegisterVariable('capture' , vtCommand, @chCapture      );
 RegisterVariable('addteam' , vtCommand, @chAddTeam      );
 RegisterVariable('rdriven' , vtCommand, @chTeamLocal    );
-//RegisterVariable('gravity' , vtReal   , @cGravity       ); гравитация не должна быть доступна вообще
+RegisterVariable('map'     , vtCommand, @chSetMap       );
+RegisterVariable('theme'   , vtCommand, @chSetTheme     );
+RegisterVariable('seed'    , vtCommand, @chSetSeed      );
 RegisterVariable('c_height', vtInteger, @cConsoleHeight );
 RegisterVariable('gmflags' , vtInteger, @GameFlags      );
 RegisterVariable('turntime', vtInteger, @cHedgehogTurnTime);
 RegisterVariable('showfps' , vtBoolean, @cShowFPS       );
-RegisterVariable('sound'   , vtBoolean, @isSoundEnabled );
 RegisterVariable('name'    , vtCommand, @chName         );
 RegisterVariable('fort'    , vtCommand, @chFort         );
 RegisterVariable('grave'   , vtCommand, @chGrave        );