# ------------------------------------------------------------------------------
# Program       : XDCC Script
# Date          : 03/16/94
# Version       : 3.2.0 final
# Written by    : Xabier Vazquez Gallardo [XaBi]
# System needed : Un*x computer with >= ircII2.2.9 client
# ------------------------------------------------------------------------------
# How to run this script?
# First of all you must edit this file and change the
# INITIAL SETTINGS (see below, after this comments)
# You can run this script by adding this line to your .ircrc
# load xdcc.irc
# You can run it too typing /load xdcc.irc on IRC 
# Remember that the script must be in your script directory or in your present
# directory. If this script isn't in those directories you'll need to type
# the full path of the script.
# ------------------------------------------------------------------------------
# If you:
# -have any bug report for me.
# -have any suggestion about XDCC
# -want lastest version of XDCC
# -want to subscribe to XDCC (FREE!!!!)
# -only want to talk to me :)
# E-Mail to:
# siavagaj@sisa02.si.ehu.es    checked 1/2 times per day
# sixconse@sisb00.si.ehu.es    checked 2/3 times per week
# an43404@anon.penet.fi        checked 2/3 times per week
# xabier@burka.demos.su        checked 1/2 times per week
# sixconse@axposf.pa.dec.com   checked 2/3 times per month
# ------------------------------------------------------------------------------
# New features :
# More bugs fixed
# New features in offer file: Wildcards allowed, easier configuration ...
# New command: PSEND that allows send ppl a PACK of files
# New command: LOAD  that allows to load an offer file
# New command: SAVE  that allows to create an offer file
# Command LOAD is now Intelligent and will try to fix any file error :)
# Wildcards allowed on all commands :)
# Full path support on all files
# Better commands, like LIST command ...
# Better help system
# Info about file sizes ....
# Ctcp support: now /CTCP XaBi XDCC LIST is the same as /MSG XaBi XDCC LIST
# Try /CTCP #channel XDCC LIST to get all files offered on channel :)
# Other bugs fixed.
# Report when pll ask you for a list of files offered.
# Etc etc
#
#             ****************************************************
#             * SORRY ABOUT MY ENGLISH, BUT IT'S MY 3th LANGUAGE *
#             ****************************************************

# +--------------------------------------------------------------------------+
# | INITIAL SETTINGS, change it as you need.                                 |
# +--------------------------------------------------------------------------+
@ AUTOGET   = [ON]
@ AUTOSEND  = [ON]
@ AUTOCLOSE = [OFF]
@ NOISE     = [ON]
@ CHANGEST  = [ON]
@ LOADFILE  = [OFF]
@ OFFERFILE = [/home/dchow/Scripts/offer.xdcc]
# +--------------------------------------------------------------------------+
# | Variable init. Internal Use, don't change it.                            |
# +--------------------------------------------------------------------------+
@ MYSEND          = [NO]
@ GETCOUNT        = 0
@ TOTPACK         = 0
@ XDCCVER         = [3.2.1 final (c) XaBi'94]
@ XDCCEMAIL       = [siavagaj@sisa02.si.ehu.es]
eval @ OLD_STATUS = STATUS_FORMAT
# +--------------------------------------------------------------------------+
# | Some important SETS                                                      |
# +--------------------------------------------------------------------------+
set novice off
set verbose_ctcp off
set exec_protection off
# +--------------------------------------------------------------------------+
# | Only two ON's for faster work                                            |
# +--------------------------------------------------------------------------+
on ^ctcp "% % DCC SEND % % % %" dccrequest $0 $4
on ^msg "% XDCC *" xdccmsg $0 $2-
on ^ctcp "* * XDCC *" xdccmsg $0 $3-
# +--------------------------------------------------------------------------+
# | Parse MSG's alias                                                        |
# +--------------------------------------------------------------------------+
alias xdccmsg {
      if (match($1 HELP LIST SEND VERSION))
         { $1COMMAND $0 $2- }
         { ^notice $0 Try /MSG $N XDCC HELP }
}
# +--------------------------------------------------------------------------+
# | People Help Command                                                      |
# +--------------------------------------------------------------------------+
alias HELPcommand {
      ^notice $0 /MSG $N XDCC HELP    to get this help.
      ^notice $0 /MSG $N XDCC LIST    to get the list of offered packs.
      ^notice $0 /MSG $N XDCC LIST #N to get more info on pack #N
      ^notice $0 /MSG $N XDCC SEND #N to send pack #N
      ^notice $0 /MSG $N XDCC VERSION to get XDCC version.
}
# +--------------------------------------------------------------------------+
# | People List Command                                                      |
# +--------------------------------------------------------------------------+
alias LISTcommand {
      if ([$1])
         { if ([$[1]1] == [#])
              { @ TEMP = [$1]
                @ NUM  = right(${@TEMP-index(# $1)+1} $1)
                if (NUM <= TOTPACK)
                   { xdccecho List of pack #$NUM request received from $0 
                     @ TEMPFILE = []
                     @ TEMPTOT  = 0
                     @ COUNT0   = 1
                     ^notice $0 Pack : $ARRAYDESC[$NUM]
                     ^notice $0 Length     File
                     while (COUNT0 <= ARRAYTOTF[$NUM])
                           { ^notice $0 $[10]ARRAYLENG[$NUM][$COUNT0] $X_FILE($ARRAYFILE[$NUM][$COUNT0])
                             @ TEMPTOT  = TEMPTOT + ARRAYLENG[$NUM][$COUNT0]
                             @ COUNT0   = COUNT0 + 1 }
                     ^notice $0 ---------- --------------------------------
                     ^notice $0 $[10]TEMPTOT $ARRAYTOTF[$NUM] file/es }
                   { ^notice $0 Pack $1 doesn't exist, try /MSG $N XDCC LIST } }
              { ^notice $0 /MSG $N XDCC LIST $1 is not a valid format.