Code:
bind pub N !chansetup pub:chansetupp
bind pub N !chanhelp pub:chanhelp
proc pub:chansetupp {nick uhost hand chan arg} {
set arg1 [lindex $arg 0]
set arg2 [lindex $arg 1]
set chan1 $chan
if {($arg2 == "OFF") || ($arg2 == "ON")} {
if {($arg1 == "enforcebans") && ($arg2 == "ON")} { set en "ON"; setuser X XTRA VALOARE-EN-$chan1 $en; channel set $chan1 +enforcebans; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "enforcebans") && ($arg2 == "OFF")} { set en "OFF"; setuser X XTRA VALOARE-EN-$chan1 $en; channel set $chan1 +enforcebans; putserv "NOTICE $nick :$arg1 este OFF" }
if {($arg1 == "dynamicbans") && ($arg2 == "ON")} { set dy "ON"; setuser X XTRA VALOARE-DY-$chan1 $dy; channel set $chan1 +dynamicbans; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "dynamicbans") && ($arg2 == "OFF")} { set dy "OFF"; setuser X XTRA VALOARE-DY-$chan1 $dy; channel set $chan1 +dynamicbans; putserv "NOTICE $nick :$arg1 este OFF" }
if {($arg1 == "userbans") && ($arg2 == "ON")} { set ub "ON"; setuser X XTRA VALOARE-UB-$chan1 $ub; channel set $chan1 +userbans; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "userbans") && ($arg2 == "OFF")} { set ub "OFF"; setuser X XTRA VALOARE-UB-$chan1 $ub; channel set $chan1 +userbans; putserv "NOTICE $nick :$arg1 este OFF" }
if {($arg1 == "autoop") && ($arg2 == "ON")} { set ao "ON"; setuser X XTRA VALOARE-AO-$chan1 $ao; channel set $chan1 +autoop; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "autoop") && ($arg2 == "OFF")} { set ao "OFF"; setuser X XTRA VALOARE-AO-$chan1 $ao; channel set $chan1 +autoop; putserv "NOTICE $nick :$arg1 este OFF" }
if {($arg1 == "autohalfop") && ($arg2 == "ON")} { set ah "ON"; setuser X XTRA VALOARE-AH-$chan1 $ah; channel set $chan1 +autohalfop; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "autohalfop") && ($arg2 == "OFF")} { set ah "OFF"; setuser X XTRA VALOARE-AH-$chan1 $ah; channel set $chan1 +autohalfop; putserv "NOTICE $nick :$arg1 este OFF" }
if {($arg1 == "bitch") && ($arg2 == "ON")} { set bi "ON"; setuser X XTRA VALOARE-BI-$chan1 $bi; channel set $chan1 +bitch; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "bitch") && ($arg2 == "OFF")} { set bi "OFF"; setuser X XTRA VALOARE-BI-$chan1 $bi; channel set $chan1 +bitch; putserv "NOTICE $nick :$arg1 este OFF" }
if {($arg1 == "protectops") && ($arg2 == "ON")} { set po "ON"; setuser X XTRA VALOARE-PO-$chan1 $po; channel set $chan1 +protectops; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "protectops") && ($arg2 == "OFF")} { set po "OFF"; setuser X XTRA VALOARE-PO-$chan1 $po; channel set $chan1 +protectops; putserv "NOTICE $nick :$arg1 este OFF" }
if {($arg1 == "anticuloare") && ($arg2 == "ON")} { set sl "ON"; setuser X XTRA VALOARE-SL-$chan1 $sl; channel set $chan1 +anticolour; putserv "NOTICE $nick :$arg1 este ON" }
if {($arg1 == "anticuloare") && ($arg2 == "OFF")} { set sl "OFF"; setuser X XTRA VALOARE-SL-$chan1 $sl; channel set $chan1 +anticolour; putserv "NOTICE $nick :$arg1 este OFF" }
if {$arg1 == ""} { putserv "NOTICE $nick :Folositi: !chansetup variabila ON sau OFF . Pentru a vedea setarile facute !chanhelp" }
} { putserv "NOTICE $nick :Argumentul 2 |$arg2| Nu este valid" }
}
proc pub:chanhelp {nick uhost hand chan arg} {
set chan1 $chan
set en [getuser X XTRA VALOARE-EN-$chan1]
set dy [getuser X XTRA VALOARE-DY-$chan1]
set ub [getuser X XTRA VALOARE-UB-$chan1]
set ao [getuser X XTRA VALOARE-AO-$chan1]
set ah [getuser X XTRA VALOARE-AH-$chan1]
set bi [getuser X XTRA VALOARE-BI-$chan1]
set po [getuser X XTRA VALOARE-PO-$chan1]
set sl [getuser X XTRA VALOARE-SL-$chan1]
putserv "NOTICE $nick :Setarile pentru canal $chan: enforcebans:$en dynamicbans:$dy userbans:$ub autoop:$ao autohalfop:$ah bitch:$bi protectops:$po anticuloare:$sl"
}
As avea nevoie de niste inbunatatiri pentru acest script si de niste sugestii daca se poate !Toate parerile sunt bine venite