Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ######################################################
- # 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.";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement