… | |
… | |
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? |
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 |
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 |
23 | $::config->{randomize} = 0; # randomize placement of stones (BROKEN) |
24 | |
24 | |
25 | sub save_config { |
25 | sub save_config { |
26 | >k::save_state; |
26 | >k::save_state; |
27 | Storable::nstore($state, $staterc); |
27 | Storable::nstore($state, $staterc); |
28 | appwin::status("save_state", "layout saved"); |
28 | appwin::status("save_state", "layout saved"); |