wmud/autorun.cmd
2012-03-03 21:35:30 +01:00

76 lines
2.2 KiB
Batchfile

/* REXX */
/* Note: This is an example Autorun REXX Script for use with OS/2 and
CircleMUD. You may use it as is, or as the basis for your own
script.
April 18, 1996 - David A. Carver */
/* CircleMUD autorun script
* Originally by Fred C. Merkel
* Copyright (c) 1993 The Trustees of The Johns Hopkins University
* All Rights Reserved
* See license.doc for more information
*
* If .fastboot exists, the script will sleep for only 5 seconds between
* reboot attempts. If .killscript exists, the script commit suicide (and
* remove .killscript). If pause exists, the script will repeatedly sleep for
* 60 seconds and will not restart the mud until pause is removed.
*/
'echo off'
PORT=4000
FLAGS=''
call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
call SysLoadFuncs
Do forever
call SysCls
say center('CrapWeasel MUD',79)
say center('AutoRun Procedure',79)
'del syslog'
Say "AutoRun starting game " || DATE()
"set EMXOPT=-h150"
"bin\circle " FLAGS PORT || " >> syslog"
say 'Extracting little log information'
'del log\*.* /n'
'fgrep -w "self-delete" syslog >> log/delete'
'fgrep -w "death trap" syslog >> log/dts'
'fgrep -w "killed" syslog >> log/rip'
'fgrep -w "Running" syslog >> log/restarts'
'fgrep -w "advanced" syslog >> log/levels'
'fgrep -w "equipment lost" syslog >> log/rentgone'
'fgrep -w "usage" syslog >> log/usage'
'fgrep -w "olc" syslog >> log/olc'
'fgrep -w "new player" syslog >> log/newplayers'
'fgrep -w "SYSERR" syslog >> log/errors'
'fgrep -w "(GC)" syslog >> log/godcmds'
'fgrep -w "Bad PW" syslog >> log/badpws'
'fgrep -w "has connected" syslog >> log/whocon'
Do while stream("pause","c","query exists")<>""
Say "Pausing..."
Call SysSleep(10)
end
if (stream("fastboot","c","query exists")="") then do
Say "Waiting 40 seconds to reboot"
Call SysSleep(40)
end
else do
"del fastboot"
Say "Waiting 5 seconds to reboot"
Call SysSleep(5)
end
if (stream("killscr","c","query exists")<>"") then do
Say "Exiting autorun"
"echo autoscript killed "DATE() ">> syslog"
"del killscr"
exit
end
end