hedgewars/uFLGameConfig.pas
branchqmlfrontend
changeset 11432 97e3e62ea5f9
parent 11431 80a9b14bb8d3
child 11433 bca9afcc3a72
equal deleted inserted replaced
11431:80a9b14bb8d3 11432:97e3e62ea5f9
   334 procedure netSetSeed(seed: shortstring);
   334 procedure netSetSeed(seed: shortstring);
   335 begin
   335 begin
   336     if seed <> currentConfig.seed then
   336     if seed <> currentConfig.seed then
   337     begin
   337     begin
   338         currentConfig.seed:= seed;
   338         currentConfig.seed:= seed;
   339         sendUI(mtSeed, @seed[1], length(seed))
   339         sendUI(mtSeed, @seed[1], length(seed));
       
   340 
       
   341         getPreview()
   340     end
   342     end
   341 end;
   343 end;
   342 
   344 
   343 procedure netSetTheme(themeName: shortstring);
   345 procedure netSetTheme(themeName: shortstring);
   344 begin
   346 begin