777 end;

   777 end;

   778 

   778 

   779 procedure chFastUntilLag(var s: shortstring);

   779 procedure chFastUntilLag(var s: shortstring);

   780 begin

   780 begin

   781 fastUntilLag:= StrToInt(s) <> 0

   781 fastUntilLag:= StrToInt(s) <> 0

   782 end;

   787 end;

   783 

   788 

   784 procedure initModule;

   789 procedure initModule;

   785 begin

   790 begin

   786 //////// Begin top sorted by freq analysis not including chatmsg

   791 //////// Begin top sorted by freq analysis not including chatmsg

   862     RegisterVariable('-cur_d'  , @chCurD_m       , true );

   867     RegisterVariable('-cur_d'  , @chCurD_m       , true );

   863     RegisterVariable('+cur_l'  , @chCurL_p       , true );

   868     RegisterVariable('+cur_l'  , @chCurL_p       , true );

   864     RegisterVariable('-cur_l'  , @chCurL_m       , true );

   869     RegisterVariable('-cur_l'  , @chCurL_m       , true );

   865     RegisterVariable('+cur_r'  , @chCurR_p       , true );

   870     RegisterVariable('+cur_r'  , @chCurR_p       , true );

   866     RegisterVariable('-cur_r'  , @chCurR_m       , true );

   871     RegisterVariable('-cur_r'  , @chCurR_m       , true );

   867 end;

   873 end;

   868 

   874 

   869 procedure freeModule;

   875 procedure freeModule;

   870 begin

   876 begin

   871 end;

   877 end;