hedgewars/uCommandHandlers.pas
changeset 14749 533ac9774279
parent 14681 bd43e703608b
child 14895 d4a19bf6687e
equal deleted inserted replaced
14748:2ad6f0555e61 14749:533ac9774279
   935 begin
   935 begin
   936   s:= s; // avoid compiler hint
   936   s:= s; // avoid compiler hint
   937   isShowMission:= false;
   937   isShowMission:= false;
   938   if (not isForceMission) then
   938   if (not isForceMission) then
   939     HideMission();
   939     HideMission();
       
   940 end;
       
   941 
       
   942 procedure chGearInfo(var s: shortstring);
       
   943 begin
       
   944   s:= s; // avoid compiler hint
       
   945   isShowGearInfo:= not isShowGearInfo;
   940 end;
   946 end;
   941 
   947 
   942 procedure initModule;
   948 procedure initModule;
   943 begin
   949 begin
   944 //////// Begin top sorted by freq analysis not including chatmsg
   950 //////// Begin top sorted by freq analysis not including chatmsg
  1029     RegisterVariable('record'  , @chRecord       , true );
  1035     RegisterVariable('record'  , @chRecord       , true );
  1030     RegisterVariable('worldedge',@chWorldEdge    , false);
  1036     RegisterVariable('worldedge',@chWorldEdge    , false);
  1031     RegisterVariable('advmapgen',@chAdvancedMapGenMode, false);
  1037     RegisterVariable('advmapgen',@chAdvancedMapGenMode, false);
  1032     RegisterVariable('+mission', @chShowMission_p, true);
  1038     RegisterVariable('+mission', @chShowMission_p, true);
  1033     RegisterVariable('-mission', @chShowMission_m, true);
  1039     RegisterVariable('-mission', @chShowMission_m, true);
       
  1040     RegisterVariable('gearinfo', @chGearInfo     , true );
  1034     RegisterVariable('timer_u' , @chTimerU       , true );
  1041     RegisterVariable('timer_u' , @chTimerU       , true );
  1035 end;
  1042 end;
  1036 
  1043 
  1037 procedure freeModule;
  1044 procedure freeModule;
  1038 begin
  1045 begin