| … | |
… | |
| 145 | unless ($RUNTIME || !-e $RUNTIMEFILE) { |
145 | unless ($RUNTIME || !-e $RUNTIMEFILE) { |
| 146 | open my $fh, "<", $RUNTIMEFILE |
146 | open my $fh, "<", $RUNTIMEFILE |
| 147 | or die "unable to read $RUNTIMEFILE file: $!"; |
147 | or die "unable to read $RUNTIMEFILE file: $!"; |
| 148 | $RUNTIME = <$fh> + 0.; |
148 | $RUNTIME = <$fh> + 0.; |
| 149 | } |
149 | } |
|
|
150 | |
|
|
151 | eval "sub TICK() { $TICK } 1" or die; |
| 150 | |
152 | |
| 151 | mkdir $_ |
153 | mkdir $_ |
| 152 | for $LOCALDIR, $TMPDIR, $UNIQUEDIR, $PLAYERDIR, $RANDOMDIR, $BDBDIR; |
154 | for $LOCALDIR, $TMPDIR, $UNIQUEDIR, $PLAYERDIR, $RANDOMDIR, $BDBDIR; |
| 153 | |
155 | |
| 154 | our $EMERGENCY_POSITION; |
156 | our $EMERGENCY_POSITION; |
| … | |
… | |
| 3925 | LOG llevInfo, "[ABT] [suppressed]\n"; |
3927 | LOG llevInfo, "[ABT] [suppressed]\n"; |
| 3926 | } |
3928 | } |
| 3927 | } |
3929 | } |
| 3928 | |
3930 | |
| 3929 | # load additional modules |
3931 | # load additional modules |
| 3930 | eval "use cf::$_" for @EXTRA_MODULES; |
3932 | require "cf/$_.pm" for @EXTRA_MODULES; |
| 3931 | |
3933 | |
| 3932 | END { cf::emergency_save } |
3934 | END { cf::emergency_save } |
| 3933 | |
3935 | |
| 3934 | 1 |
3936 | 1 |
| 3935 | |
3937 | |
