rendered paste bodyalias renlog.init { hadd -m renlog lastread $lines(C:\Westwood\Renegade\Servers\RenStation\FDS\ $+ renlog_ $+ $asctime(m-dd-yyyy) $+ .txt) | .timer -m 0 10 renlog }
alias renlog.stop { timers off | hfree -s renlog }
alias renlog {
var %a = $hget(renlog,lastread), %b = $lines(C:\Westwood\Renegade\Servers\RenStation\FDS\ $+ renlog_ $+ $asctime(m-dd-yyyy) $+ .txt)
if (%a == %b) { halt }
else {
var %c = 1
while (%c <= $calc(%b - %a)) {
tokenize 32 $replace($read(C:\Westwood\Renegade\Servers\RenStation\FDS\ $+ renlog_ $+ $asctime(m-dd-yyyy) $+ .txt,n,$calc(%a + %c)),$chr(15),$chr(32),$chr(9),$chr(32))
if (!$1-) {
write -c playerinfo.txt
}
if ($regex($gettok($1-,2-,32),^[0-9].*GDI|NOD.*00[0-9].[0-9]{2}.[0-9]{2}$)) {
write playerinfo.txt $gettok($1-,2-,32)
}
if ($regex($gettok($1-,2-,32),^Player.*joined|left the game$)) { ; }
inc %c
}
}
hadd -m renlog lastread $lines(C:\Westwood\Renegade\Servers\RenStation\FDS\ $+ renlog_ $+ $asctime(m-dd-yyyy) $+ .txt)
}
alias pinfo {
if ($1) {
var %a = $numtok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),32), %b = $calc(%a - 8)
if ($prop == id) return $gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),1,32)
if ($prop == name) return $gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),$+(2,-,$calc(2 + %b)),32)
if ($prop == score) return $gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txtt,w,$+(*,$strip($remove($1-,:)),*)),$calc(3 + %b),32)
if ($prop == team) return $gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),$calc(4 + %b),32)
if ($prop == ping) return $gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),$calc(5 + %b),32)
if ($prop == ip) return $gettok($gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),$calc(6 + %b),32),1,59)
if ($prop == kbs) return $gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),$calc(7 + %b),32)
if ($prop == time) return $gettok($read(C:\Westwood\Renegade\Servers\RenStation\Mirc\playerinfo.txt,w,$+(*,$strip($remove($1-,:)),*)),$calc(8 + %b),32)
else return $null
}
else return $null
}