670 end; |
670 end; |
671 |
671 |
672 procedure chTemplateFilter(var s: shortstring); |
672 procedure chTemplateFilter(var s: shortstring); |
673 begin |
673 begin |
674 cTemplateFilter:= StrToInt(s) |
674 cTemplateFilter:= StrToInt(s) |
|
675 end; |
|
676 |
|
677 procedure chFeatureSize(var s: shortstring); |
|
678 begin |
|
679 cFeatureSize:= StrToInt(s) |
675 end; |
680 end; |
676 |
681 |
677 procedure chInactDelay(var s: shortstring); |
682 procedure chInactDelay(var s: shortstring); |
678 begin |
683 begin |
679 cInactDelay:= StrToInt(s) |
684 cInactDelay:= StrToInt(s) |
812 RegisterVariable('theme' , @chSetTheme , false); |
817 RegisterVariable('theme' , @chSetTheme , false); |
813 RegisterVariable('seed' , @chSetSeed , false); |
818 RegisterVariable('seed' , @chSetSeed , false); |
814 RegisterVariable('template_filter', @chTemplateFilter, false); |
819 RegisterVariable('template_filter', @chTemplateFilter, false); |
815 RegisterVariable('mapgen' , @chMapGen , false); |
820 RegisterVariable('mapgen' , @chMapGen , false); |
816 RegisterVariable('maze_size',@chTemplateFilter, false); |
821 RegisterVariable('maze_size',@chTemplateFilter, false); |
|
822 RegisterVariable('feature_size',@chFeatureSize, false); |
817 RegisterVariable('delay' , @chInactDelay , false); |
823 RegisterVariable('delay' , @chInactDelay , false); |
818 RegisterVariable('ready' , @chReadyDelay , false); |
824 RegisterVariable('ready' , @chReadyDelay , false); |
819 RegisterVariable('casefreq', @chCaseFactor , false); |
825 RegisterVariable('casefreq', @chCaseFactor , false); |
820 RegisterVariable('healthprob', @chHealthCaseProb, false); |
826 RegisterVariable('healthprob', @chHealthCaseProb, false); |
821 RegisterVariable('hcaseamount', @chHealthCaseAmount, false); |
827 RegisterVariable('hcaseamount', @chHealthCaseAmount, false); |