# Special Script for Frontiers (http://btmux.com) my $version="2005-10-21"; statusWindow->print(ansi('%cm%cu%chXperthud script for Frontier Lands%cn %cx%chVersion '.$version.'%cn%r')); addDelayed("Frontiers_AD",60,sub { XM::sendText('@force me=@doing %cb%chhttp://xpertmud.btmux.com/'."\n"); }); setWriteRegExps(qr/^$/, qr/^\#HUD|^MOTD/); addTrigger("STARTUP",qr/MOTD/,sub { parse("xperthud.pl"); parse("battlerecorder.pl"); delDelayed(qr/^IDLE$/); addDelayed("IDLE",25*60,sub { setDelayed(qr/^IDLE/,25*60); normalMode(); }); addDelayed("version_check",5,sub { XM::sendText("xpertmud_version $version\n"); }); delTrigger(qr/^STARTUP$/); delDelayed(qr/^Advertisment$/); shift; }); parse("completion.pl"); addTrigger("COMLETION",qr/\] (\w[\w\s]+\w):/,sub { addCompletionWord($1); shift; }); addTrigger("COMLETION",qr/^(\w[\w\s]+\w) says/,sub { addCompletionWord($1); shift; }); addTrigger("COMLETION",qr/^(\w[\w\s]+\w) has/,sub { addCompletionWord($1); shift; }); parse("damagelog.pl"); addTimer("BT_HOUSEKEEP",61,sub { my @vars=qw/ID AC SE UT MN X Y Z RN BR SP VS HD JH RTC BTC TN HT FL AG/; foreach my $c ($battleCore->getContacts) { my @v=@vars; my %con=map {(shift @v)=>$_} split /\|/, $battleCore->getContact($c); if ($con{AG}>60 and $con{FL}=~/D/) { $battleCore->deleteContact($c); } } },0); my $oldOwnID=""; addTimer("BT_AUTOCENTER",15,sub { my $oid=$battleCore->getOwnID(); if (defined $oid and $oid ne $oldOwnID) { $oldOwnID=$oid; $Map->centerMech($oid); } },0);