hedgewars/uCommandHandlers.pas
changeset 13464 08a3851aaf67
parent 13112 7b3bc9a4dfb9
child 13466 854caa3c9212
equal deleted inserted replaced
13463:32032120435c 13464:08a3851aaf67
   830 
   830 
   831 procedure chAdvancedMapGenMode(var s:shortstring);
   831 procedure chAdvancedMapGenMode(var s:shortstring);
   832 begin
   832 begin
   833   s:= s; // avoid compiler hint
   833   s:= s; // avoid compiler hint
   834   cAdvancedMapGenMode:= true;
   834   cAdvancedMapGenMode:= true;
       
   835 end;
       
   836 
       
   837 procedure chShowMission_p(var s: shortstring);
       
   838 begin
       
   839   s:= s; // avoid compiler hint
       
   840   isShowMission:= true;
       
   841 end;
       
   842 
       
   843 procedure chShowMission_m(var s: shortstring);
       
   844 begin
       
   845   s:= s; // avoid compiler hint
       
   846   isShowMission:= false;
       
   847   HideMission();
   835 end;
   848 end;
   836 
   849 
   837 procedure initModule;
   850 procedure initModule;
   838 begin
   851 begin
   839 //////// Begin top sorted by freq analysis not including chatmsg
   852 //////// Begin top sorted by freq analysis not including chatmsg
   920     RegisterVariable('-cur_r'  , @chCurR_m       , true );
   933     RegisterVariable('-cur_r'  , @chCurR_m       , true );
   921     RegisterVariable('campvar' , @chCampVar      , true );
   934     RegisterVariable('campvar' , @chCampVar      , true );
   922     RegisterVariable('record'  , @chRecord       , true );
   935     RegisterVariable('record'  , @chRecord       , true );
   923     RegisterVariable('worldedge',@chWorldEdge    , false);
   936     RegisterVariable('worldedge',@chWorldEdge    , false);
   924     RegisterVariable('advmapgen',@chAdvancedMapGenMode, false);
   937     RegisterVariable('advmapgen',@chAdvancedMapGenMode, false);
       
   938     RegisterVariable('+mission', @chShowMission_p, true);
       
   939     RegisterVariable('-mission', @chShowMission_m, true);
   925 end;
   940 end;
   926 
   941 
   927 procedure freeModule;
   942 procedure freeModule;
   928 begin
   943 begin
   929 end;
   944 end;