hedgewars/uCommandHandlers.pas
changeset 5352 7f57d0c7816a
parent 5247 bf6d4bc531d2
child 5385 a864a0aeed96
child 5523 9ac5acc4f3e5
equal deleted inserted replaced
5349:ce527b35d063 5352:7f57d0c7816a
   443 flagMakeCapture:= true
   443 flagMakeCapture:= true
   444 end;
   444 end;
   445 
   445 
   446 procedure chSetMap(var s: shortstring);
   446 procedure chSetMap(var s: shortstring);
   447 begin
   447 begin
   448 if isDeveloperMode then
   448 if isDeveloperMode and (s <> '') then
   449 begin
   449 begin
   450 UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
   450 UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
   451 Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
   451 Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
   452 InitStepsFlags:= InitStepsFlags or cifMap
   452 InitStepsFlags:= InitStepsFlags or cifMap
   453 end
   453 end