equal
deleted
inserted
replaced
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. |