mirror of
https://github.com/tbamud/tbamud.git
synced 2025-09-21 21:40:49 +02:00
30a82beeeb
Changed zedit clear level restrictions to dump you back at main zedit menu ins tead of in the level menu. Changed zone level restriction to level recommendation so players would not be blocked from zones. Changed Zcheck to level 31. [Nov 19 2009] - Rumble Fixed list obj max/min from room to obj. (thanks Elervan) [Nov 13 2009] - Rumble Removed con_app 2nd apply type shock that was for "resurrection?" This was not used in 3.1. [Nov 12 2009] - Rumble Fixed overflow in prefedit.c. (thanks Xiu) [Nov 01 2009] - Rumble Renamed autorun log entries from autoscript killed to terminated so it wouldn' t go into the log/rip file.
136 lines
4.6 KiB
Perl
136 lines
4.6 KiB
Perl
#!perl
|
|
|
|
##############################################################################
|
|
# Portions of this script are Copyright 1998 by dean takemori.
|
|
#
|
|
# This is a MacPerl script which attempts to impliment autorun functionality
|
|
# for MacOS. It's a bit of a bastardisation of MacPerl and "standard" unix
|
|
# style perl. I won't claim that it's pretty. Parts of it come from the
|
|
# Autorun perl script for unix that is distributed with CircleMUD and it is
|
|
# therefore subject to the following.
|
|
|
|
# Copyright (c)1995 Vi'Rage Studios
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2, or (at your option)
|
|
# any later version.
|
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
# csh original by Fred C. Merkel, PERL conversion by D. Hall
|
|
|
|
# .fastboot sleep for only 5 seconds, instead of the default 20
|
|
# .killscript script will exit, and mud will not reboot
|
|
# .pause pause (sleep 1 minute intervals) until .pause it removed
|
|
##############################################################################
|
|
|
|
use 5.004;
|
|
use Mac::MoreFiles;
|
|
use Mac::Processes;
|
|
|
|
# launchContinue() must be set or MacPerl will quit after LaunchApplication().
|
|
# The creator code "dtCM" is registered with Apple Computer for CircleMUD.
|
|
# However, if you have multiple copies of Circle on disk (a production MUD
|
|
# and a testing MUD for example), you may wish to specify by FULL PATH,
|
|
# which application to run.
|
|
|
|
$spec = $Application{'dtCM'};
|
|
#$spec = "volume:apps:myapp";
|
|
|
|
my($app);
|
|
$app = new LaunchParam(
|
|
'launchControlFlags' => launchContinue(),
|
|
'launchAppSpec' => $spec
|
|
) or die ($^E);
|
|
|
|
my($psn, $spec_found);
|
|
while (1)
|
|
{
|
|
LaunchApplication($app) or die($^E);
|
|
do
|
|
{
|
|
# Now, every 60 seconds, scan the running processes for one whose
|
|
# AppSpec matches the one we set up earlier.
|
|
sleep(60);
|
|
$spec_found = 0;
|
|
foreach $psn (keys(%Process))
|
|
{
|
|
if ( $spec eq $Process{$psn}->processAppSpec() )
|
|
{
|
|
$spec_found = 1;
|
|
break; # out of the foreach
|
|
}
|
|
}
|
|
} while ($spec_found == 1);
|
|
|
|
# If we're here, then the App is no longer running.
|
|
# First we open everything
|
|
open (SYSLOG, ":syslog") or die($^E);
|
|
open (DELETE, ">>:log:delete");
|
|
open (DTRAPS, ">>:log:dtraps");
|
|
open (DEATHS, ">>:log:deaths");
|
|
open (REBOOT, ">>:log:reboots");
|
|
open (LEVELS, ">>:log:levels");
|
|
open (NORENT, ">>:log:norent");
|
|
open (USAGE, ">>:log:usage");
|
|
open (NEWPLR, ">>:log:newplrs");
|
|
open (SYSERR, ">>:log:errors");
|
|
open (GODCMD, ">>:log:godcmds");
|
|
open (BADPWS, ">>:log:badpws");
|
|
|
|
# Then we stash everything
|
|
while (<SYSLOG>)
|
|
{
|
|
print DELETE if /self-delete/;
|
|
print DTRAPS if /death trap/;
|
|
print DEATHS if /killed/;
|
|
print REBOOT if /Running/;
|
|
print LEVELS if /advanced/;
|
|
print NORENT if /equipment lost/;
|
|
print USAGE if /usage/;
|
|
print NEWPLR if /new player/;
|
|
print SYSERR if /SYSERR/;
|
|
print GODCMD if /\(GC\)/;
|
|
print BADPWs if /Bad PW/;
|
|
}
|
|
close (SYSLOG);
|
|
|
|
# Rotate SYSLOG files
|
|
if (-e ":log:syslog.6") { unlink (":log:syslog.6"); }
|
|
if (-e ":log:syslog.6") { rename (":log:syslog.5", ":log:syslog.6"); }
|
|
if (-e ":log:syslog.6") { rename (":log:syslog.4", ":log:syslog.5"); }
|
|
if (-e ":log:syslog.6") { rename (":log:syslog.3", ":log:syslog.4"); }
|
|
if (-e ":log:syslog.6") { rename (":log:syslog.2", ":log:syslog.3"); }
|
|
if (-e ":log:syslog.6") { rename (":log:syslog.1", ":log:syslog.2"); }
|
|
rename (":syslog" , ":log:syslog.1");
|
|
|
|
# should we stay dead?
|
|
if (-r ".killscript")
|
|
{
|
|
unlink(".killscript");
|
|
open (SYSLOG, ">>:log:syslog.1");
|
|
print (SYSLOG "autoscript terminated ", localtime()); #seconds since epoch
|
|
exit;
|
|
}
|
|
|
|
# or just play dead?
|
|
while (-r ".pause")
|
|
{ sleep(60); }
|
|
|
|
# or reboot as soon as possible?
|
|
if (-r ".fastboot")
|
|
{
|
|
unlink(".fastboot");
|
|
sleep(5);
|
|
}
|
|
else
|
|
{ sleep(20); }
|
|
}
|