Drift

;// Mine
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
  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 = $iif($isid,return,say)
  %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)

  ; DM 1
  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) }
  ; DM 2
  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) }
  ; DM 3
  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) }
  ; DM 4
  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) }

}
;// Some random stuff(i use in all my scripts)
alias brown { return $+($chr(3),05,$1-,$chr(3)) }
alias green { return $+($chr(3),03,$1-,$chr(3)) } 
alias orange { return $+($chr(3),07,$1-,$chr(3)) } 
alias red { return $+($chr(3),04,$1-,$chr(3)) }
alias navy { return $+($chr(3),02,$1-,$chr(3)) }
alias blue { return $+($chr(3),12,$1-,$chr(3)) }
alias grey { return $+($chr(3),14,$1-,$chr(3)) }
alias lime { return $+($chr(3),9,$1-,$chr(3)) }
alias teal { return $+($chr(3),10,$1-,$chr(3)) }
alias purple { return $+($chr(3),6,$1-,$chr(3)) }
alias magenta { return $+($chr(3),13,$1-,$chr(3)) }
alias bold { return $+($chr(2),$1-,$chr(2)) }
alias underline { return $+($chr(31),$1-,$chr(31)) }

;// just called it "wierd" coz i cant think of better name <.<


alias wierd {
  var %o = $strip($$1-), %x, %a = 1
  while $mid(%o,%a,1) {
    if ($v1 isalpha) { %x = %x $+ $iif($rand(1,2) == 1,$upper($mid(%o,%a,1)),$lower($mid(%o,%a,1))) }
    elseif ($v1 == $chr(32)) %x = $+(%x,$chr(32),)
    else %x = %x $+ $v1
    inc %a
  }
  $iif($isid,return,say) %x
}