hedgewars/uConsts.pas
branchflibqtfrontend
changeset 8363 0b4ac686fc44
parent 8346 3443e0de2c9d
child 8444 75db7bb8dce8
child 8744 6c87486fd89b
--- a/hedgewars/uConsts.pas	Tue Dec 18 20:48:37 2012 +0400
+++ b/hedgewars/uConsts.pas	Fri Jan 04 21:44:40 2013 +0400
@@ -27,8 +27,6 @@
 
 const
     sfMax = 1000;
-    cDefaultParamNum = 17;
-    cVideorecParamNum = cDefaultParamNum + 7;
 
     // message constants
     errmsgCreateSurface   = 'Error creating SDL surface';
@@ -45,6 +43,9 @@
     msgFailedSize        = 'failed due to size';
     msgGettingConfig     = 'Getting game config...';
 
+    // camera movement multipliers
+    cameraKeyboardSpeed : ShortInt = 10;
+
     // color constants
     cWhiteColorChannels : TSDL_Color = (r:$FF; g:$FF; b:$FF; unused:$FF);
     cNearBlackColorChannels : TSDL_Color = (r:$00; g:$00; b:$10; unused:$FF);