779 end;

   779 end;

   780 

   780 

   781 procedure chFastUntilLag(var s: shortstring);

   781 procedure chFastUntilLag(var s: shortstring);

   782 begin

   782 begin

   783 fastUntilLag:= StrToInt(s) <> 0

   783 fastUntilLag:= StrToInt(s) <> 0

   784 end;

   789 end;

   785 

   790 

   786 procedure initModule;

   791 procedure initModule;

   787 begin

   792 begin

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

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

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

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

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

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

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

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

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

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

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

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

   869 end;

   875 end;

   870 

   876 

   871 procedure freeModule;

   877 procedure freeModule;

   872 begin

   878 begin

   873 end;

   879 end;