115     Delete(s, 1, 1);

   115     Delete(s, 1, 1);

   116 if s[byte(s[0])]='"' then

   116 if s[byte(s[0])]='"' then

   117     Delete(s, byte(s[0]), 1);

   117     Delete(s, byte(s[0]), 1);

   118 cScriptName:= s;

   118 cScriptName:= s;

   119 ScriptLoad(s)

   119 ScriptLoad(s)

   120 end;

   125 end;

   121 

   126 

   122 procedure chCurU_p(var s: shortstring);

   127 procedure chCurU_p(var s: shortstring);

   123 begin

   128 begin

   124 s:= s; // avoid compiler hint

   129 s:= s; // avoid compiler hint

   794     RegisterVariable('slot'    , @chSlot         , false);

   799     RegisterVariable('slot'    , @chSlot         , false);

   795     RegisterVariable('setweap' , @chSetWeapon    , false, true);

   800     RegisterVariable('setweap' , @chSetWeapon    , false, true);

   796 //////// End top by freq analysis

   801 //////// End top by freq analysis

   797     RegisterVariable('gencmd'  , @chGenCmd       , false);

   802     RegisterVariable('gencmd'  , @chGenCmd       , false);

   798     RegisterVariable('script'  , @chScript       , false);

   803     RegisterVariable('script'  , @chScript       , false);

   799     RegisterVariable('proto'   , @chCheckProto   , true );

   805     RegisterVariable('proto'   , @chCheckProto   , true );

   800     RegisterVariable('spectate', @chFastUntilLag   , false);

   806     RegisterVariable('spectate', @chFastUntilLag   , false);

   801     RegisterVariable('capture' , @chCapture      , true );

   807     RegisterVariable('capture' , @chCapture      , true );

   802     RegisterVariable('rotmask' , @chRotateMask   , true );

   808     RegisterVariable('rotmask' , @chRotateMask   , true );

   803     RegisterVariable('rdriven' , @chTeamLocal    , false);

   809     RegisterVariable('rdriven' , @chTeamLocal    , false);