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 "bluray" "\00347BluRay\0037"; <------- PAS SURE Si CORRECT**

 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 } {
        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};
        } else {
            if { ${::sECHO::seADD} == ${::sECHO::seADD} <------- WEiRD** } { ::sECHO::execADD ${chan} ${arg} }
        }
    } else {
        set seMSG	[format "uAUTH * YoOoOooOooo tes pas iDENTiFiER."]
        putnow "privmsg ${chan} ${seMSG}";
    }
}

proc ::sECHO::execADD { chan arg } {
    set seArls [lindex ${arg} 0]
    set seAsec [lindex ${arg} 1]
    if { ${seAsec} == "" } {
        set seMSG	[format "\002sECHO\002 * !addpre release section"]
        putnow "privmsg ${chan} ${seMSG}";
        return 0;
    } else {
        set seArls   [string map -nocase [list ${::sECHO::seFiLTER} <------- PAS SURE Si CORRECT** ] ${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.";