76 lines
2.2 KiB
Batchfile
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
|