TOP10 [ALiASES] (overlayer EDiT)

;**************************************************************************************************************************************
;*** ####### ####### ######        #     ###       #####  #######  #####  #######   ####### #     #
;***    #    #     # #     #      ##    #   #     #     # #       #     #    #    # #     # ##    #
;***    #    #     # #     #     # #   #     #    #       #       #          #    # #     # # #   #
;***    #    #     # ######        #   #     #     #####  #####   #          #    # #     # #  #  #
;***    #    #     # #             #   #     #          # #       #          #    # #     # #   # #
;***    #    #     # #             #    #   #     #     # #       #     #    #    # #     # #    ##
;***    #    ####### #           #####   ###       #####  #######  #####     #    # ####### #     #
;**************************************************************************************************************************************
;*** LIST *****************************************************************************************************************************
TOP10-LiST {
  ;************************************************************************************************************************************************************************************************************************************************************************
  set -u7 %TOP-REQ $iif(!TTOP isin $1,TODAY,$iif(TODAY isin $1-2,TODAY,TOTAL))
  ;************************************************************************************************************************************************************************************************************************************************************************
  ;*** !TOPJOiN / PART / QUiT
  if (JOiN isin $1-) || (PART isin $1-) || (QUiT isin $1-) { set -u7 %TOP-STATS $v1 }
  ;************************************************************************************************************************************************************************************************************************************************************************
  ;*** !TOPUNBAN
  elseif (UNBAN isin $1-) { set -u7 %TOP-STATS $+(UNBANN,$iif(eD isin $1-2,eD)) }
  ;************************************************************************************************************************************************************************************************************************************************************************
  ;*** !TOPBAN
  elseif (BAN isin $1-) { set -u7 %TOP-STATS $+(BANN,$iif(eD isin $1-2,eD)) }
  ;************************************************************************************************************************************************************************************************************************************************************************
  ;*** !TOPKiCK
  elseif (KiCKeD isin $1-) || (LAMERs isin $1-) { set -u7 %TOP-STATS rKiCK }
  ;************************************************************************************************************************************************************************************************************************************************************************
  ;*** !TOPKiCK
  elseif (KiCK isin $1-) { set -u7 %TOP-STATS KiCK }
  ;************************************************************************************************************************************************************************************************************************************************************************
  ;*** !TOPTEXT / WORD / LiNE / Characters
  else { set -u7 %TOP-STATS TEXT | set -u7 %TOP-STATS+ $iif(Line isin $1-2,Lines,$iif(Char isin $1-2,Characters,Words)) }
  ;************************************************************************************************************************************************************************************************************************************************************************
  $iif(!%TOP-LOCATiON,TOP-20-LOCATiON $strip($1-),$iif(!%TOP-iNFO,set %TOP-iNFO $iif(%TOP-STATS+,$v1,%TOP-STATS)))
  $iif(!%TOP-READ,set %TOP-READ $iif(%TOP-STATS+ != $null,$v1,%TOP-STATS))
  ;************************************************************************************************************************************************************************************************************************************************************************
  TOP-20 %TOP-iNFO
}
;***********************************************************************************
TOP-20-LOCATiON {
  if ($me ison $2) || (CHAN isin $2-) { set -u7 %TOP-LOCATiON+ $iif($me ison $2,$2,$chan) }
  elseif (NET isin $2-) { set -u7 %TOP-LOCATiON $network }
  elseif (TOTAL isin $2-) { set -u7 %TOP-LOCATiON TOTAL }
  else { set -u7 %TOP-LOCATiON $iif(%TOP-REQ,$v1,TODAY) }
}
;***********************************************************************************
;*** TOP20
TOP-20 { btrunc temp 0 | var %i = 1
  msg # Reading from $+(SRU\TOP10\0-,%TOP-LOCATiON,.ini) %TOP-READ
  ;*** LiNEs / TEXT - TOP10
  $iif(%TOP-LOCATiON+,set %TOP-LOCATiON $+($network,$v1))
  while ($ini($+(SRU\TOP10\0-,%TOP-LOCATiON,.ini),%TOP-READ,%i)) { if ($v1 != t.date) write temp $v1 $readini($+(SRU\TOP10\0-,%TOP-LOCATiON,.ini),n,%TOP-READ,$v1) | inc %i }
  filter -cteuff 2 32 temp temp | var %p = 1 | %top10 = ""
  while ($lines(temp) >= %p) && (%p <= 10) { %top10 = %top10 $($+(8#,%p,),2) $+(13,$replace($read(temp,%p),$chr(32),$+(,$chr(32),$chr(40),4)),,$chr(41),$chr(32),) | inc %p }
  ;*********************************************************
  $iif(!%TOP-iNFO,set %TOP-iNFO $iif(%TOP-STATS+,$v1,%TOP-STATS))
  $iif(!%top10,set %TOP-ERROR Holy bandwidth Robin... there's no 8TOP-10 yet 4ö.Ö)
  ;******* Messages
  .msg $iif(%!TOP-CHAN,$v1,$nick) $iif(%TOP-REQ != TOTAL,[ 8TODAYs ]-[,[ 8TOP-10 ]-[) $&
    $replacex(%TOP-STATS,JOiN,9JOiNERs ] $iif(!%top10,%TOP-ERROR,List of most common people to drop in),$&
    PART,4QUiTTERs ] $iif(!%top10,%TOP-ERROR,List of most common 4QUiTTERs),$&
    KiCK,4KiCKERs ] $iif(!%top10,%TOP-ERROR,List of people that have toshed most wankers),$&
    UNBAN,9UN4BANNERs ] $iif(!%top10,%TOP-ERROR,List of people that have un-banned most users),$&
    BANNeD,4BANNeD ] $iif(!%top10,%TOP-ERROR,List of wankers... the people most commonly being banned),$&
    BANN,4BANNERs ] $iif(!%top10,%TOP-ERROR,List of people that have banned most wankers),$&
    TEXT,8TOP-TEXTER(s) ] $iif(!%top10,%TOP-ERROR,People with most written %TOP-STATS+),$&
    $+($network,$chan),8TOP-TEXTER(s) ] $iif(!%top10,%TOP-ERROR,People with most written %TOP-STATS+),$&
    $network,8TOP-TEXTER(s) ] $iif(!%top10,%TOP-ERROR,People with most written %TOP-STATS+),$&
    $chan,8TOP-TEXTER(s) ] $iif(!%top10,%TOP-ERROR,People with most written %TOP-STATS+)) ->
  ;*********************************************************
  if (%!TOP-CHAN != $null) {
    if (!%FLOOD-TOP10) { $replacex(%top10,8#10,8#10,8#1,.msg %!TOP-CHAN 8#1) }
    else { $replacex(%top10,8#10,8#10,8#1,.notice $nick 8#1) }
    set -u660 %FLOOD-TOP10 $nick
  }
  ;*** UNSETTiNG
  unset %TOP* %!TOP-CHAN
}
;*** END TOP 10 SECTiON *************************************************************************************************************************************************************************************************************************************************
;***********************************************************************************************************************************************************************************************************************************************************************