| … | |
… | |
| 16 | |
16 | |
| 17 | $state->{version} = $stateversion; |
17 | $state->{version} = $stateversion; |
| 18 | |
18 | |
| 19 | $::config = $state->{config} ||= {}; |
19 | $::config = $state->{config} ||= {}; |
| 20 | |
20 | |
| 21 | $::config->{speed} = 0; #d# optimize for speed or memory? (0,1) |
21 | $::config->{speed} = 0; #d# optimize for speed or memory? (0,1) |
| 22 | $::config->{conserve_memory} = 0; # try to conserve memory at the expense of speed (0,1,2) |
22 | $::config->{conserve_memory} = 0; # try to conserve memory at the expense of speed (0,1,2) |
| 23 | $::config->{randomize} = 0; # randomize placement of stones (BROKEN) |
23 | $::config->{randomize} = 0; # randomize placement of stones (BROKEN) |
| 24 | $::config->{suppress_userpic} = 0; # for omitting the userpic in the game window |
24 | $::config->{suppress_userpic} = 0; # for omitting the userpic in the game window |
| 25 | |
25 | |
| 26 | sub save_config { |
26 | sub save_config { |
| 27 | >k::save_state; |
27 | >k::save_state; |
| 28 | Storable::nstore ($state, $staterc); |
28 | Storable::nstore ($state, $staterc); |
