793 end;

   793 end;

   794 

   794 

   795 procedure chCampVar(var s:shortstring);

   795 procedure chCampVar(var s:shortstring);

   796 begin

   796 begin

   797   CampaignVariable := s;

   797   CampaignVariable := s;

   798 end;

   803 end;

   799 

   804 

   800 procedure initModule;

   805 procedure initModule;

   801 begin

   806 begin

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

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

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

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

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

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

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

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

   883     RegisterVariable('campvar' , @chCampVar      , true );

   888     RegisterVariable('campvar' , @chCampVar      , true );

   884     RegisterVariable('record'  , @chRecord       , true );

   889     RegisterVariable('record'  , @chRecord       , true );

   885 end;

   891 end;

   886 

   892 

   887 procedure freeModule;

   893 procedure freeModule;

   888 begin

   894 begin

   889 end;

   895 end;