777 end;

   777 end;

   778 

   778 

   779 procedure chWorldEdge(var s: shortstring);

   779 procedure chWorldEdge(var s: shortstring);

   780 begin

   780 begin

   781 WorldEdge:= TWorldEdge(StrToInt(s))

   781 WorldEdge:= TWorldEdge(StrToInt(s))

   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_r'  , @chCurR_p       , true );

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

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

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

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

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

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

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

   866     RegisterVariable('worldedge',@chWorldEdge    , false);

   871     RegisterVariable('worldedge',@chWorldEdge    , false);

   867 end;

   873 end;

   868 

   874 

   869 procedure freeModule;

   875 procedure freeModule;

   870 begin

   876 begin

   871 end;

   877 end;