794 end;

   794 end;

   795 

   795 

   796 procedure chCampVar(var s:shortstring);

   796 procedure chCampVar(var s:shortstring);

   797 begin

   797 begin

   798   CampaignVariable := s;

   798   CampaignVariable := s;

   799 end;

   804 end;

   800 

   805 

   801 procedure initModule;

   806 procedure initModule;

   802 begin

   807 begin

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

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

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

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

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

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

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

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

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

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

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

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

   886 end;

   892 end;

   887 

   893 

   888 procedure freeModule;

   894 procedure freeModule;

   889 begin

   895 begin

   890 end;

   896 end;