[krimson]

Asta e tot procesul de chanset. Il gasesti in a&a_22_a_local_n.tcl.

proc pub:chanset {hand chan args x mix} {
	
	set mode   [string tolower [lindex $args 0]]
	set opti   [lindex $args 1]

	if {([regexp {^aop-delay|flood-(chan|deop|kick|join|nick|ctcp)$} $mode] && [regexp {^\d{1,2}\:\d{1,3}$} $opti]) || ([string equal $mode stopnethack-mode] && [string match {[0-6]} $opti]) || ([string equal $mode idle-kick] && [a:check -digit $opti]) || ([string equal -nocase $mode idle-deop] && [a:check -digit $opti])  || ([string equal $mode revenge-mode] && [string match {[0-3]} $opti]) || ([regexp {^(ban|exempt|invite)-time$} $mode] && [a:check -digit $opti])} {channel set $chan $mode $opti} elseif { 
	     [string equal $mode -inactive] && [channel get $chan suspended]} {a:tell $x 127 $chan ; return "FAILED: chan suspended ($chan)"} elseif {
	     [string equal $mode +suspended] && [check:m:gl $hand]} {channel set $chan +inactive +suspended} elseif {
	     [string equal $mode -suspended] && [check:m:gl $hand]} {channel set $chan -inactive -suspended} elseif {
	     [regexp {^[+-](auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)bans|inactive|protect(friends|ops)|secret|greet|seen|anti(pub|colour|bold|underline|notice|url|reverse|repeat|action)|limit|secure|voice|op|enforcetopic)$} $mode]} {channel set $chan $mode} elseif { 
     	     [regexp -- {^(rules|url|faq|fuck|news|desc|mail|slap|kiss)$} $mode]} {if { [string equal $opti none] || $opti == ""} {set opti ""; a:tell $x 136 "$chan $mode"; ::stats::channel -set $chan $mode $opti; return "$mode none"} {set opti [join [lrange $args 1 end]]; ::stats::channel -set $chan $mode $opti}} elseif {
	     [string equal $mode mode] || [string equal $mode modes] && [regexp {^[ntrimlkprs+-]+$} $opti]} {channel set $chan chanmode $opti} elseif {	
	     [string match {[-+]locked} $mode] && [check:N:gl $hand] } {channel set $chan $mode } else {a:help $x chanset ; return "FAILED: wrong options ($mode $opti)"}

	a:tell $x 126 "$chan $mode $opti"
	return "$mode $opti"
}

ca sa adaugi antitake, strict si paranoia, faci urmatoarele modificari:

1. adaugi urmatoarele linii in settings.conf, la Channel Flags
   

   setudef flag antitake
   setudef flag strict
   setudef flag paranoia

2. adaugi urmatoarele linii in procesul de chanset (vezi mai sus), imediat inainte de linia cu "a:tell"
   

   elseif {
   	     [string equal $mode +antitake]} { channel set $chan chanmode +tn-ik revenge-mode 1 flood-chan 7:20 flood-ctcp 2:20 flood-join 4:40 flood-kick 3:20 flood-deop 3:20 flood-nick 4:40 ban-time 0 +enforcebans +dynamicbans +protectops +protectfriends +dontkickops +revenge +cycle +bitch -autoop -op +antitake} elseif {
   	     [string equal $mode -antitake]} { <<AICI PUI SETARILE PE CARE VREI SA LE PUNA BOTUL CAND DAI -ANTITAKE (dupa modelul de mai sus)>> } elseif {
   	     [string equal $mode +strict]} { channel set $chan +antipub +anticolour +antibold +antireverse +antiunderline +antiurl +antinotice +antiaction +antirepeat +strict} elseif {
   	     [string equal $mode -strict]} { channel set $chan -antipub -anticolour -antibold -antireverse -antiunderline -antiurl -antinotice -antiaction -antirepeat -strict} elseif {
   	     [string equal $mode +paranoia]} { pub:chanset $hand $chan "+antitake" $x $mix ; pub:chanset $hand $chan "+strict" $x $mix } elseif {
   	     [string equal $mode -paranoia]} { pub:chanset $hand $chan "-antitake" $x $mix ; pub:chanset $hand $chan "-strict" $x $mix }

Ai grija doar sa pui primul "elseif" la sfarsitul liniei cu "[string match {[-+]locked} $mode]" si sa modifici setarile de la -antitake