hedgewars/uConsole.pas
changeset 2428 6800f8aa0184
parent 2379 d62b1f224982
child 2578 ec8e69b23097
--- a/hedgewars/uConsole.pas	Mon Oct 12 13:56:07 2009 +0000
+++ b/hedgewars/uConsole.pas	Mon Oct 12 16:44:30 2009 +0000
@@ -244,6 +244,7 @@
 RegisterVariable('damagepct', vtLongInt, @cDamagePercent, false);
 RegisterVariable('landadds', vtLongInt, @cLandAdditions , false);
 RegisterVariable('gmflags' , vtLongInt, @GameFlags      , false);
+RegisterVariable('trflags' , vtLongInt, @TrainingFlags  , false);
 RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false);
 RegisterVariable('minestime', vtLongInt, @cMinesTime, false);
 RegisterVariable('fort'    , vtCommand, @chFort         , false);
@@ -297,6 +298,14 @@
 RegisterVariable('-voldown', vtCommand, @chVol_p        , true );
 RegisterVariable('findhh'  , vtCommand, @chFindhh       , true );
 RegisterVariable('pause'   , vtCommand, @chPause        , true );
+RegisterVariable('+cur_u'   , vtCommand, @chCurU_p      , true );
+RegisterVariable('-cur_u'   , vtCommand, @chCurU_m      , true );
+RegisterVariable('+cur_d'   , vtCommand, @chCurD_p      , true );
+RegisterVariable('-cur_d'   , vtCommand, @chCurD_m      , true );
+RegisterVariable('+cur_l'   , vtCommand, @chCurL_p      , true );
+RegisterVariable('-cur_l'   , vtCommand, @chCurL_m      , true );
+RegisterVariable('+cur_r'   , vtCommand, @chCurR_p      , true );
+RegisterVariable('-cur_r'   , vtCommand, @chCurR_m      , true );
 
 finalization
 FreeVariablesList