hedgewars/uCommandHandlers.pas
changeset 6828 6a5d33bff0b0
parent 6818 136aa9c8c593
child 6898 344b0dbd9690
equal deleted inserted replaced
6827:a0e152e68337 6828:6a5d33bff0b0
   521         UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
   521         UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
   522         Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
   522         Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
   523         end;
   523         end;
   524     InitStepsFlags:= InitStepsFlags or cifMap
   524     InitStepsFlags:= InitStepsFlags or cifMap
   525     end;
   525     end;
   526 
   526 cMapName:= s;
   527 ScriptLoad('Maps/' + s + '/map.lua')
   527 ScriptLoad('Maps/' + s + '/map.lua')
   528 end;
   528 end;
   529 
   529 
   530 procedure chSetTheme(var s: shortstring);
   530 procedure chSetTheme(var s: shortstring);
   531 begin
   531 begin