hedgewars/uCommandHandlers.pas
branchhedgeroid
changeset 5385 a864a0aeed96
parent 5381 8f95038f3f75
parent 5352 7f57d0c7816a
child 5530 25d4118056e1
equal deleted inserted replaced
5383:cb217271f344 5385:a864a0aeed96
   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