… | |
… | |
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 | |