;########################################
;# Simple Multi-catcher by twilightNoir #
;########################################
;#
;# Feel free to modify this file, distribute this file, lure lolis with this file, et cetera.
;# By using this script, you understand that I cannot be held accountable for any illegal actions.
;# If you do modify it for the better, do send me a copy. xD
;# 
;# Version 1.02b Basic functionality.
;#
;# What it does: Whenever a bot announces a pack or a topic is changed, this script catches it and
;# echoes the information to the active window. It also outputs to 2 separate windows, so if you have a 
;# crapload of windows, you can see an overview from one.
;#
;# Known issues: Dupe announces on different chans are caught separately, does not catch short announces,
;# and does not alphabetize.
;#
;# Usage: Automatic. Unzip to your mIRC directory and type /load -rs catcher.mrc
;#
;# Coming soon: Interactive windows.
;#
;# Contact: MSN: zgrummons@gmail.com | AIM: zgrummons@gmail.com | e-mail: zgrummons@gmail.com | #news@irc.rizon.net
;#
;########################################

on *:topic:#: {
  if (!$window(@Topics)) { 
    window -bnlk0 -t17 @Topics 
    aline -h @Topics Channel: $chr(9) Users: $chr(9) Topic:
    set %clist $chan(0)
    write -c topiclist.txt
    while (%clist) {
      dec %clist
      if ($calc($line(@Topics,0) % 2 == 1)) { aline @Topics 4 $chan($calc($chan(0) - %clist)) $+ : $chr(9) 9 $nick($chan($calc($chan(0) - %clist)),0) $chr(9)  $chan($calc($chan(0) - %clist)).topic }   
      else { aline @Topics 5 $chan($calc($chan(0) - %clist)) $+ : $chr(9) 3 $nick($chan($calc($chan(0) - %clist)),0) $chr(9)  $chan($calc($chan(0) - %clist)).topic }
      write topiclist.txt $chan($calc($chan(0) - %clist)) -----
    }
    aline @topics ----- $chr(9) ----- $chr(9) -----
    aline @topics New channels: $chr(9) Users: $chr(9) Topic:
  }
  echo -a 7[+] 14Topic change 7[+] [14 $+ $time $+ 7] -3 $network -4 $chan by14 $nick - $1-
  if ($read(topiclist.txt,s,$chan) == $null) {
    write topiclist.txt $chan -----
    if ($calc($line(@Topics,0) % 2 == 1)) { aline -h @topics 4 $chan $+ : $chr(9) 9 $nick($chan,0) $chr(9)  $1- }   
    else { aline -h @topics 5 $chan $+ : $chr(9) 3 $nick($chan,0) $chr(9)  $1- }
  }
  else {
    if ($calc($line(@Topics,0) % 2 == 1)) { rline -h @topics $calc($readn + 1) 4 $chan $+ : $chr(9) 9 $nick($chan,0) $chr(9)  $1- }   
    else { rline -h @topics $calc($readn + 1) 5 $chan $+ : $chr(9) 3 $nick($chan,0) $chr(9)  $1- }
  }
  halt
}

on *:text:*[*]*-*msg*xdcc send*:#: {
  if (!$window(@XDCC)) {
    window -bnlk0 -t20,30 @XDCC
    aline -h @XDCC Nickname: $chr(9) Pack No. $chr(9) Contents:
    write -c xdcc.txt
  }
  echo -a 7[+] 14XDCC 7[+] -3 $network -4 $nick -7 $chan - $1-
  tokenize 93 $1-
  set %rawmsg $2-
  if ($3 != $null) { set %rawmsg $2 $+ ] $+ $3- }
  if ($4 != $null) { set %rawmsg $2 $+ ] $+ $3 $+ ] $+ $4- }
  if ($5 != $null) { set %rawmsg $2 $+ ] $+ $3 $+ ] $+ $4 $+ ] $+ $5- }
  if ($6 != $null) { set %rawmsg $2 $+ ] $+ $3 $+ ] $+ $4 $+ ] $+ $5 $+ ] $+ $6- }
  if ($7 != $null) { set %rawmsg $2 $+ ] $+ $3 $+ ] $+ $4 $+ ] $+ $5 $+ ] $+ $6 $+ ] $+ $7- }
  tokenize 32 %rawmsg 
  if ($7 != $null) { set %pack $7 | set %file $1 }
  if ($8 != $null) { set %pack $8 | set %file $1-2 }
  if ($9 != $null) { set %pack $9 | set %file $1-3 }
  if ($10 != $null) { set %pack $10 | set %file $1-4 }
  if ($11 != $null) { set %pack $11 | set %file $1-5 }
  if ($12 != $null) { set %pack $12 | set %file $1-6 }
  if ($13 != $null) { set %pack $13 | set %file $1-7 }
  if ($calc($line(@XDCC,0) % 2 == 1)) { aline -h @XDCC 5 $nick $chr(9) 3 %pack $chr(9) 14 %file }
  else { aline -h @XDCC 4 $nick $chr(9) 9 %pack $chr(9) 15 %file }
  unset %rawmsg
  halt
}