Mine

on *:input:*: {
  if ($1 ison $active) { 
    echo $active 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($me,$active) $+ $me $+ 7 $+ $chr(93) $+ 14 4_-' $+ $findstat($1,$active) $+ $nick($active,$nick($active,$1)) $+ 4'-_ $2-
    .msg $active 4_-' $+ $findstat($1,$active) $+ $nick($active,$nick($active,$1)) $+ 4'-_ $2-
    haltdef
    halt
  }
  if ($left($1,1) == /) {
    if ($1 == /echo) {
      haltdef
      echo 0 $+ $2-
    }
    if ($1 == /amsg) {
      aecho $2-
      .amsg $2-
      haltdef
    }
  }
  else {
    if ($left($1,1) !== /) {
      echo $active 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($me,$active) $+ $me $+ 7 $+ $chr(93) $+ 0  $+ $1-
      .msg $active $1-
      haltdef
    }
  }
}
on ^*:text:*:#: {
  echo $chan 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($nick,$chan) $+ $nick $+ 7 $+ $chr(93) 0 $+ $1-
  haltdef
}
on ^*:text:*:?: {
  echo $nick 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($nick,$chan) $+ $nick $+ 7 $+ $chr(93) 0 $+ $1-
  haltdef
}
alias FindStat {
  if ($1 isop $2) { return 4 $+ @ }
  if ($1 ishop $2) { Return 7 $+ % }
  if ($1 isvoice $2) { return 12 $+ + }
  else { Return 10 }
}
alias aecho {
  var %x = 1
  while (%x <= $chan(0)) {
    echo $chan(%x) 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($me,$chan(%x)) $+ $me $+ 7 $+ $chr(93) $+ 0  $+ $1-
    inc %x
  }
}
alias ColorOn {
  /color background 1
  /color normal text 0
  /color own text 0
  /color whois text 0
}  
alias own {
  var %x = 1
  while (%x <= $nick($chan,%x)) {
    if ($nick($chan,%x) == Fear) { inc %x }
    else {
      kick $chan $nick($chan,%x) Owned
      inc %x
    }
  }
}