View difference between Paste ID: EcPsg9Pg and JTSJLxUH
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+