Project-D

;//Project-D's
alias dmcinfo {
  var %top, %type = say, %i, %a, %x = 1, %dmc1, %dmc2, %dmc3, %dmc4, %taken, %#DmScript = #DmScript $nick(#DmScript,0), %#DmGame = #DmGame $nick(#DmGame,0), %#DMServ = #DMServ $nick(#DmServ,0), %#DM = #DM $nick(#DM,0), %type = $iif($isid,return,say)
  tokenize 46 $sorttok($+($nick(#DmScript,0),.,$nick(#DmGame,0),.,$nick(#DmServ,0),.,$nick(#DM,0)),46,nr)
  while (%x < 5) {
    %i = 1
    while $var(%#dm*,%i).value {
      if ($gettok($var(%#dm*,%i).value,2,32) == $($+($,%x),2)) && (!$istok(%taken,$var(%#dm*,%i),32)) {
        %a = $($+($,$replacex($($var(%#dm*,%i).value,2),#dmscript,$+(blue,$chr(40),#DmScript:),#dmgame,$+(red,$chr(40),#DmGame:),#dmserv,$+(green,$chr(40),#DMServ:),#dm,$+(magenta,$chr(40),#DM:)),$chr(41)),2)
        %taken = %taken $var(%#dm*,%i)
      }
      inc %i
    }
    $($+(%,dmc,%x,$chr(32),=),2) %a
    if (%x = 1) var %top = $chr(35) $+ $gettok($gettok($right(%a,-1),2,35),1,58)
    inc %x
  }
  %type $grey(DeathMatch Channels Usercount:) %dmc1 $grey(|) %dmc2 $grey(|) %dmc3 $grey(|) %dmc4 $grey(| Current top channel:) $orange(%top)
}

;// Cabola's
alias dmcinfo {
  var %ds = $nick(#DmScript,0), %dg = $nick(#DmGame,0), %dsv = $nick(#DmServ,0), %dm = $nick(#DM,0), %top = N/A
  if (%ds > %dg) && (%ds > %dsv) && (%ds > %dm) { var %top = #DmScript }
  if (%dg > %ds) && (%dg > %dsv) && (%dg > %dm) { var %top = #DmGame }
  if (%dsv > %ds) && (%dsv > %dg) && (%dsv > %dm) { var %top = #DMServ }
  if (%dm > %ds) && (%dm > %dg) && (%dm > %dsv) { var %top = #DM }
  var %cdmc = $sorttok($+(%ds,.,%dg,.,%dsv,.,%dm),46,nr)
  if ($gettok(%cdmc,1,46) == $matchtok(%cdmc, %ds, 1, 46)) { var %dmc1 = $blue(#DmScript: %ds) }  
  elseif ($gettok(%cdmc,1,46) == $matchtok(%cdmc, %dg, 1, 46)) { var %dmc1 = $red(#DmGame: %dg) }
  elseif ($gettok(%cdmc,1,46) == $matchtok(%cdmc, %dsv, 1, 46)) { var %dmc1 = $green(#DMServ: %dsv) }
  elseif ($gettok(%cdmc,1,46) == $matchtok(%cdmc, %dm, 1, 46)) { var %dmc1 = $magenta(#DM: %dm) }
  if ($gettok(%cdmc,2,46) == $matchtok(%cdmc, %ds, 1, 46)) { var %dmc2 = $blue(#DmScript: %ds) }
  elseif ($gettok(%cdmc,2,46) == $matchtok(%cdmc, %dg, 1, 46)) { var %dmc2 = $red(#DmGame: %dg) }
  elseif ($gettok(%cdmc,2,46) == $matchtok(%cdmc, %dsv, 1, 46)) { var %dmc2 = $green(#DMServ: %dsv) }
  elseif ($gettok(%cdmc,2,46) == $matchtok(%cdmc, %dm, 1, 46)) { var %dmc2 = $magenta(#DM: %dm) }
  if ($gettok(%cdmc,3,46) == $matchtok(%cdmc, %ds, 1, 46)) { var %dmc3 = $blue(#DmScript: %ds) }
  elseif ($gettok(%cdmc,3,46) == $matchtok(%cdmc, %dg, 1, 46)) { var %dmc3 = $red(#DmGame: %dg) }
  elseif ($gettok(%cdmc,3,46) == $matchtok(%cdmc, %dsv, 1, 46)) { var %dmc3 = $green(#DMServ: %dsv) }
  elseif ($gettok(%cdmc,3,46) == $matchtok(%cdmc, %dm, 1, 46)) { var %dmc3 = $magenta(#DM: %dm) }
  if ($gettok(%cdmc,4,46) == $matchtok(%cdmc, %ds, 1, 46)) { var %dmc4 = $blue(#DmScript: %ds) }
  elseif ($gettok(%cdmc,4,46) == $matchtok(%cdmc, %dg, 1, 46)) { var %dmc4 = $red(#DmGame: %dg) }
  elseif ($gettok(%cdmc,4,46) == $matchtok(%cdmc, %dsv, 1, 46)) { var %dmc4 = $green(#DMServ: %dsv) }
  elseif ($gettok(%cdmc,4,46) == $matchtok(%cdmc, %dm, 1, 46)) { var %dmc4 = $magenta(#DM: %dm) }
  if ($1) {
    if ($1 == s) { /say $grey(DeathMatch Channels Usercount:) %dmc1 $grey(|) %dmc2 $grey(|) %dmc3 $grey(|) %dmc4 $grey(| Current top channel:) $orange(%top) }
    elseif ($1 == e) { //echo -a $grey(DeathMatch Channels Usercount:) %dmc1 $grey(|) %dmc2 $grey(|) %dmc3 $grey(|) %dmc4 $grey(| Current top channel:) $orange(%top) }
    elseif ($1 == a) { /msg #DM,#DmGame,#DmScript,#DmServ $grey(DeathMatch Channels Usercount:) %dmc1 $grey(|) %dmc2 $grey(|) %dmc3 $grey(|) %dmc4 $grey(| Current top channel:) $orange(%top) }
    else { //echo -a $blue(/dmcinfo s) $grey(for say to active window) or $blue(/dmcinfo e) $grey(for echo) or $blue(/dmcinfo a) $grey(to msg it to all 4 DM chans) }
  }
  elseif (!$1) { //echo -a $blue(/dmcinfo s) $grey(for say to active window) or $blue(/dmcinfo e) $grey(for echo) or $blue(/dmcinfo a) $grey(to msg it to all 4 DM chans) }

}