SHOW:
|
|
- or go back to the newest paste.
| 1 | ###################################################### | |
| 2 | # System.ECHO.v1.1.WiNDROP.TCL-RaW # | |
| 3 | ###################################################### | |
| 4 | # Ligne :: 20 - 40 - 56 # | |
| 5 | ###################################################### | |
| 6 | ||
| 7 | ## CONFiGURATiON DU SCRiPTS | |
| 8 | setudef flag ECHO | |
| 9 | namespace eval sECHO {
| |
| 10 | variable seVER "1.1"; | |
| 11 | ||
| 12 | - | variable seADD "!addpre"; |
| 12 | + | variable seADD "!addpre"; |
| 13 | - | variable seGN "!gn"; |
| 13 | + | variable seGN "!gn"; |
| 14 | - | variable seiNFO "!info"; |
| 14 | + | variable seiNFO "!info"; |
| 15 | - | variable seMNUKE "!modnuke"; |
| 15 | + | variable seMNUKE "!modnuke"; |
| 16 | - | variable seNUKE "!nuke"; |
| 16 | + | variable seNUKE "!nuke"; |
| 17 | - | variable seP2P "!addp2p"; |
| 17 | + | variable seP2P "!addp2p"; |
| 18 | - | variable seUNNUKE "!unnuke"; |
| 18 | + | variable seUNNUKE "!unnuke"; |
| 19 | ||
| 20 | - | variable seFiLTER "bluray" "\00347BluRay\0037"; <------- PAS SURE Si CORRECT** |
| 20 | + | variable seFiLTER [list \ |
| 21 | "bluray" "\00347BluRay\0037" \ | |
| 22 | - | variable chADD "#tRyzoPRED"; |
| 22 | + | "mp3" "\00348mp3\003" \ |
| 23 | - | variable chFiLTER "#tRyzoFiLTER"; |
| 23 | + | ]; |
| 24 | - | variable chiNFO "#tRyzoSPAM"; |
| 24 | + | |
| 25 | - | variable chNUKE "#tRyzoNUKE"; |
| 25 | + | variable chADD "#tRyzoPRED"; |
| 26 | - | variable chP2P "#tRyzoP2PRE"; |
| 26 | + | variable chFiLTER "#tRyzoFiLTER"; |
| 27 | variable chiNFO "#tRyzoSPAM"; | |
| 28 | variable chNUKE "#tRyzoNUKE"; | |
| 29 | variable chP2P "#tRyzoP2PRE"; | |
| 30 | } | |
| 31 | ||
| 32 | ## CMD DiSPO | |
| 33 | - | proc ::sECHO::exec { nick uhost hand chan arg} {
|
| 33 | + | |
| 34 | - | if { [getuser ${nick} XTRA uauth] == 1 } {
|
| 34 | + | |
| 35 | - | if { ![channel get ${chan} ECHO] } {
|
| 35 | + | |
| 36 | - | set seMSG [format "L'utilisateur %s a tenter une *CMD* sur %s, mais le salon n'a pas les *flags*" ${nick} ${chan}]
|
| 36 | + | proc ::sECHO::exec { nick uhost hand chan arg } {
|
| 37 | - | putlog ${seMSG}
|
| 37 | + | if { [getuser ${nick} XTRA uauth] != 1 } { putnow "privmsg ${chan} [format "uAUTH * YoOoOooOooo tes pas iDENTiFiER."]"; return }
|
| 38 | - | return -code error ${seMSG};
|
| 38 | + | if { ![channel get ${chan} ECHO] } {
|
| 39 | - | } else {
|
| 39 | + | set seMSG [format "L'utilisateur %s a tenter une *CMD* sur %s, mais le salon n'a pas les *flags*" ${nick} ${chan}]
|
| 40 | - | if { ${::sECHO::seADD} == ${::sECHO::seADD} <------- WEiRD** } { ::sECHO::execADD ${chan} ${arg} }
|
| 40 | + | putlog ${seMSG}
|
| 41 | - | } |
| 41 | + | return -code error ${seMSG};
|
| 42 | - | } else {
|
| 42 | + | } |
| 43 | - | set seMSG [format "uAUTH * YoOoOooOooo tes pas iDENTiFiER."] |
| 43 | + | :sECHO::execADD ${chan} ${arg}
|
| 44 | - | putnow "privmsg ${chan} ${seMSG}";
|
| 44 | + | |
| 45 | - | } |
| 45 | + | |
| 46 | proc ::sECHO::execADD { chan arg } {
| |
| 47 | set seArls [lindex ${arg} 0]
| |
| 48 | set seAsec [lindex ${arg} 1]
| |
| 49 | if { ${seAsec} == "" } { putnow "privmsg ${chan} [format "\002sECHO\002 * !addpre release section"]"; return 0; }
| |
| 50 | set seArls [string map -nocase "${::sECHO::seFiLTER}" ${seArls}]
| |
| 51 | - | if { ${seAsec} == "" } {
|
| 51 | + | putnow "privmsg ${::sECHO::chADD} -ADDPRE- ${seArls} ${seAsec}";
|
| 52 | - | set seMSG [format "\002sECHO\002 * !addpre release section"] |
| 52 | + | |
| 53 | - | putnow "privmsg ${chan} ${seMSG}";
|
| 53 | + | |
| 54 | - | return 0; |
| 54 | + | |
| 55 | - | } else {
|
| 55 | + | |
| 56 | - | set seArls [string map -nocase [list ${::sECHO::seFiLTER} <------- PAS SURE Si CORRECT** ] ${seArls}]
|
| 56 | + | |
| 57 | - | putnow "privmsg ${::sECHO::chADD} -ADDPRE- ${seArls} ${seAsec}";
|
| 57 | + |
