hedgewars/uCommandHandlers.pas
changeset 6088 47d1b04003d1
parent 5679 505c6448069b
child 6131 4e8816cf9459
equal deleted inserted replaced
6087:6e422ea250a1 6088:47d1b04003d1
   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 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;
       
   459 
       
   460 ScriptLoad(s)
   459 end;
   461 end;
   460 
   462 
   461 procedure chSetTheme(var s: shortstring);
   463 procedure chSetTheme(var s: shortstring);
   462 begin
   464 begin
   463 if isDeveloperMode then
   465 if isDeveloperMode then