hedgewars/uFLGameConfig.pas
branchqmlfrontend
changeset 11440 330c14f4ba69
parent 11438 1a6148b4de3b
child 11442 6b04a266feee
equal deleted inserted replaced
11439:dd1350a475d9 11440:330c14f4ba69
    25 procedure netSetMapGen(mapgen: LongInt);
    25 procedure netSetMapGen(mapgen: LongInt);
    26 procedure netSetMap(map: shortstring);
    26 procedure netSetMap(map: shortstring);
    27 procedure netSetMazeSize(mazesize: LongInt);
    27 procedure netSetMazeSize(mazesize: LongInt);
    28 procedure netSetTemplate(template: LongInt);
    28 procedure netSetTemplate(template: LongInt);
    29 procedure netSetAmmo(name: shortstring; definition: ansistring);
    29 procedure netSetAmmo(name: shortstring; definition: ansistring);
       
    30 procedure netSetScheme(scheme: TScheme);
    30 procedure updatePreviewIfNeeded;
    31 procedure updatePreviewIfNeeded;
    31 
    32 
    32 procedure sendConfig(config: PGameConfig);
    33 procedure sendConfig(config: PGameConfig);
    33 
    34 
    34 implementation
    35 implementation
   406 
   407 
   407     currentConfig.ammo:= ammo;
   408     currentConfig.ammo:= ammo;
   408     sendUI(mtAmmo, @name[1], length(name))
   409     sendUI(mtAmmo, @name[1], length(name))
   409 end;
   410 end;
   410 
   411 
       
   412 procedure netSetScheme(scheme: TScheme);
       
   413 begin
       
   414     currentConfig.scheme:= scheme;
       
   415     sendUI(mtScheme, @scheme.schemeName[1], length(scheme.schemeName))
       
   416 end;
       
   417 
   411 end.
   418 end.