echo-scene

######################################################
#           System.ECHO.v1.1.WiNDROP.TCL-RaW         #
######################################################
# Ligne :: 20 - 40 - 56                              #
######################################################

## CONFiGURATiON DU SCRiPTS
setudef flag ECHO
namespace eval sECHO {
 variable seVER "1.1";

 variable seADD     "!addpre";
 variable seGN      "!gn";
 variable seiNFO    "!info";
 variable seMNUKE   "!modnuke";
 variable seNUKE    "!nuke";
 variable seP2P     "!addp2p";
 variable seUNNUKE  "!unnuke";

 variable seFiLTER  [list                                   \
                        "bluray"        "\00347BluRay\0037" \
                        "mp3"           "\00348mp3\003"     \
                    ];

 variable chADD     "#tRyzoPRED";
 variable chFiLTER  "#tRyzoFiLTER";
 variable chiNFO    "#tRyzoSPAM";
 variable chNUKE    "#tRyzoNUKE";
 variable chP2P     "#tRyzoP2PRE";
}

## CMD DiSPO
bind pub -|- "${::sECHO::seADD}" ::sECHO::exec

## CODE
proc ::sECHO::exec { nick uhost hand chan arg } {
    if { [getuser ${nick} XTRA uauth] != 1 } { putnow "privmsg ${chan} [format "uAUTH * YoOoOooOooo tes pas iDENTiFiER."]"; return }
    if { ![channel get ${chan} ECHO] } {
        set seMSG   [format "L'utilisateur %s a tenter une *CMD* sur %s, mais le salon n'a pas les *flags*" ${nick} ${chan}]
        putlog ${seMSG}
        return -code error ${seMSG};
    }
    :sECHO::execADD ${chan} ${arg}
}

proc ::sECHO::execADD { chan arg } {
    set seArls [lindex ${arg} 0]
    set seAsec [lindex ${arg} 1]
    if { ${seAsec} == "" } { putnow "privmsg ${chan} [format "\002sECHO\002 * !addpre release section"]"; return 0; }
    set seArls   [string map -nocase "${::sECHO::seFiLTER}" ${seArls}]
    putnow "privmsg ${::sECHO::chADD} -ADDPRE- ${seArls} ${seAsec}";
}

## COPYRiGHT TCL
package provide sECHO ${::sECHO::seVER};
putlog "-\002System ECHO\002 v${::sECHO::seVER}... chargement *TCL* avec \002SUCCESS\002.";