All pastes #101728 Raw Edit

Someone

public text v1 · immutable
#101728 ·published 2006-07-27 03:18 UTC
rendered paste body
alias 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
}