Alias -l fSize if ($1 == $null) { return 0 bytes } | if ($1 < 1024) { return $round($1,0) bytes } | if ($1 < 1000000) { return $round($calc($1 /1024),2) KB } | if ($1 < $calc(10^9)) { return $round($calc($1 /1024^2),2) MB } | if ($1 < $calc(10^12)) { return $round($calc($1 /1024^3),2) GB } | if ($1 < $calc(10^15)) { return $round($calc($1 /1024^4),2) TB }
Alias getCol {
  if ($1 == 1) { return 07 }
  elseif ($1 == 2) { return 03 }
  else { return 10 }
}

on 1:text:!code:#: {
  var %loop.files = $script(0)
  if (%loop.files > 0) {
    var %loop.sc = 0, %loop.ttl.l = 0, %loop.ttl.s = 0
    while (%loop.sc < %loop.files) {
      inc %loop.sc
      var %loop.s = $remove($script(%loop.sc),$mircdir)
      var %loop.l = $lines(%loop.s)
      var %loop.c = $file(%loop.s).size
      inc %loop.ttl.l %loop.l
      inc %loop.ttl.s %loop.c
    }
    msg $chan $+($getCol(1),[CODE]:,$getCol) Modules: $+($getCol(2),%loop.files,$getCol,$chr(59)) Lines: $+($getCol(2),%loop.ttl.l,$getCol,$chr(59)) Size: $+($getCol(2),$fSize(%loop.ttl.s),$getCol)
  }
}

on 1:text:!online:#: {
  var %loop.users = $chat(0)
  var %val.total = $findfile(players\,*.ini,0)
  if (%loop.users > 0) {
    var %loop.ui = 0, %loop.i = 0
    while (%loop.ui < %loop.users) {
      inc %loop.ui
      var %loop.nick = $chat(%loop.ui)
      var %loop.status = $chat(%loop.ui).status
      ;      var %loop.status = $replace(,waiting,Acknowledging chat request...,active,Online)
      if (%loop.status == waiting) { inc %loop.i }
      if (%loop.users < 30) { var %loop.usersl = %loop.usersl $getCol(2) $+ %loop.nick $+ $getCol $+ $chr(44) }
    }
    if (%loop.users < 30) { var %loop.usersl = $+($left(%loop.usersl,-1),$chr(59)) }
    dec %loop.users %loop.i
    var %val.totalp = $round($calc((%loop.users / %val.total) * 100),0)
    msg $chan $+($getCol(1),[ONLINE]:,$getCol) Online users: $&
      $+($getCol(2),%loop.users,$getCol) / $+($getCol(2),%val.total,$getCol) $+($chr(40),$getCol(2),%,%val.totalp,$getCol,$chr(41),$chr(59)) $&
    Inactive sessions: $+($getCol(2),%loop.i,$getCol,$chr(59)) $iif(%loop.users < 30,Users: %loop.usersl,$null)  }
  else {
    msg $chan $+($getCol(1),[ONLINE]:,$getCol) There are no users online!
  }
}
alias state {
  if $chat($1) != $null { return Yes }
  else { return No }
}
on 1:text:!whois *:#: {
  if $2 == $me { msg $chan $+($getCol(1),[PLAYER INFO]:,$getCol) $+($getCol(2),$+ $me $+ ,$getCol) is $&
      level $+($getCol(2),42530,$getCol) $&
      (Gang: $+($getCol(2),WAR SERVERS,$getCol) $+ , $&
      Wins: $+($getCol(2),92324525441,$getCol) $+ , $&
      Losses: $+($getCol(2),0,$getCol) $+ , $&
      Car: $+($getCol(2),SpaceShip,$getCol) $+ , $&
      Network: $+($getCol(2),RyanNet,$getCol) $&
      Online: $+($getcol(2),Yes,$getcol) $+ )
    halt
  }
  var %pnick = $2, %ufile = $+(players\,%pnick,.ini)
  if ($isfile(%ufile)) {
    var %pnick = $ini(%ufile,1)
    var %pnick.net = $getinfo2(%pnick,lastnet)
    var %pnick.level = $getinfo2(%pnick,level)
    var %pnick.gang = $iif($getinfo2(%pnick,gang) == yes,$getinfo2(%pnick,gangname),None)
    if (%pnick.gang != None) { var %pnick.gang = $readini($+(gangs\,%pnick.gang,.ini),gang,name) }
    var %pnick.car = $iif($getinfo2(%pnick,car),$getinfo2(%pnick,car),None)
    var %pnick.wins = $getinfo2(%pnick,wins)
    if (%pnick.wins == $null) { var %pnick.wins = 0 }
    var %pnick.losses = $getinfo2(%pnick,loss)
    if (%pnick.losses == $null) { var %pnick.losses = 0 }
    msg $chan $+($getCol(1),[PLAYER INFO]:,$getCol) $+($getCol(2),%pnick,$getCol) is $&
      level $+($getCol(2),%pnick.level,$getCol) $&
      (Gang: $+($getCol(2),%pnick.gang,$getCol) $+ , $&
      Wins: $+($getCol(2),%pnick.wins,$getCol) $+ , $&
      Losses: $+($getCol(2),%pnick.losses,$getCol) $+ , $&
      Car: $+($getCol(2),%pnick.car,$getCol) $+ , $&
      Network: $+($getCol(2),%pnick.net,$getCol) $&
      Online: $+($getcol(2),$state($2) ) $+ 10)
  }
  else {
    msg $chan $+($getCol(1),[PLAYER INFO]:,$getCol) There is no such user $+(",$getCol(2),%pnick,$getCol,",$chr(44)) maybe you spelt it wrong $nick $+ ?
  }
}