hedgewars/uCommandHandlers.pas
changeset 5679 505c6448069b
parent 5555 38e3d9347910
child 5725 e27100a0e2d0
child 6001 24b3a7ba3884
child 6088 47d1b04003d1
equal deleted inserted replaced
5678:35aa435d19f9 5679:505c6448069b
   448 flagMakeCapture:= true
   448 flagMakeCapture:= true
   449 end;
   449 end;
   450 
   450 
   451 procedure chSetMap(var s: shortstring);
   451 procedure chSetMap(var s: shortstring);
   452 begin
   452 begin
   453 if isDeveloperMode and (s <> '') then
   453 if isDeveloperMode then
   454 begin
   454 begin
   455 UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
   455 UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
   456 Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
   456 Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
   457 InitStepsFlags:= InitStepsFlags or cifMap
   457 InitStepsFlags:= InitStepsFlags or cifMap
   458 end
   458 end