botlending forum  

Go Back   botlending forum > Eggdrop & TCL > a&a light script
anitake, paronia, strict tcl anitake, paronia, strict tcl
Register ProjectsBlogs FAQ Members List Calendar Search Today's Posts Mark Forums Read

a&a light script a&a light script support, suggestions & discussions

Reply
Page 1 of 2 1 2 >
 
LinkBack Thread Tools Display Modes
Old 31-07-2006, 01:43   #1 (permalink)
Junior Member
 
Robby_14's Avatar
 
Join Date: Jul 2006
Posts: 7
Rep Power: 0
Robby_14 is an unknown quantity at this point
Default anitake, paronia, strict tcl
As dori sa imi pun si eu la eggdropi un astfel de tcl pentru a nu mai da atatea comenzi cand vreau sa protejez un cana. Daca as da dupa ce pun tcl-ul -anitake se refac setarile care au fost initial?
Robby_14 is offline   Reply With Quote
Old 31-07-2006, 12:03   #2 (permalink)
Junior Member
 
Join Date: Dec 2005
Posts: 71
Rep Power: 0
krimson will become famous soon enough
Default
Asta e tot procesul de chanset. Il gasesti in a&a_22_a_local_n.tcl.

Code:
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
    Code:
    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"
    Code:
    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
krimson is offline   Reply With Quote
Old 13-08-2006, 00:10   #3 (permalink)
Junior Member
 
Robby_14's Avatar
 
Join Date: Jul 2006
Posts: 7
Rep Power: 0
Robby_14 is an unknown quantity at this point
Cool
Pana acum totul a fost ok acum cand dau .chanset +anitake seteaza din cate observ dar nu anaunta si cand dau .chanset +strict merge toto ok. La paranoia la fel ca la anitake dar aici seteaza +strict dar nu seteaza +anitake si nici nu anunta.


iar a&a_22_a_local_n.tcl asa

Code:
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 {
             [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]} { channel set $chan chanmode +tn revenge-mode 0 flood-chan 0:00 flood-ctcp 0:00 flood-join 0:00 flood-kick 0:00 flood-deop 0:00 flood-nick 0:00 ban-time 120 -enforcebans -dynamicbans +protectops +protectfriends -dontkickops -revenge -cycle -bitch -autoop -op -antitake } 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 } 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"
}
Help pls

Ultimele erori sint astea:

Code:
33. ERROR (Jul 31 11:14): via <Robby_14>>, Robby_14!robby14@robby15.users.undernet.org #BSCegg-Teste pub >>> pub:chanset >>> chanset -anitake >>> invalid command name "<<AICI"
34. ERROR (Jul 31 11:15): via <Robby_14>>, Robby_14!robby14@robby15.users.undernet.org #BSCegg-Teste pub >>> pub:chanset >>> chanset -paranoia >>> invalid command name "<<AICI"
Dar au fost reparate. Deci nu da erori dar nu merge.
Eu cred ca e ceva gresit cum am pus eu scriptul pe egg.

Dar daca ma uit mai bine in DCC cand scriu pe canal zice asa :

la +strict merge ok:

Code:
[08:18] <<Robby_14>> Robby_14!~Robby_14@robby15.users.undernet.org #testu CHANSET +strict
Dar la +anitake seteaza +anitake dar in DCC zice asa si in plus pe canal nu da notice

Code:
[08:19] <<Robby_14>> Robby_14!~Robby_14@robby15.users.undernet.org #testu CHANSET illegal channel option: +antitake
Si la paranoi la fel ca la anitake deci paranoia nu merge pt ca nu merge anitake:

Code:
[08:20] <<Robby_14>> Robby_14!~Robby_14@robby15.users.undernet.org #testu CHANSET illegal channel option: +antitake
Eu cred ca ar trebui bagat in a&a_01_a_core.tcl.
gresesc?
Last edited by UniversaliA; 13-08-2006 at 16:52. Reason: merged 2 posts
Robby_14 is offline   Reply With Quote
Old 13-08-2006, 15:23   #4 (permalink)
Junior Member
 
Join Date: Dec 2005
Posts: 71
Rep Power: 0
krimson will become famous soon enough
Default
eu vad in script la tine 'anitake' in loc de 'antitake'
Quote:
Originally Posted by Robby_14
[string equal $mode +paranoia]} { pub:chanset $hand $chan "+anitake" $x $mix ; pub:chanset $hand $chan "+strict" $x $mix } elseif {
[string equal $mode -paranoia]} { pub:chanset $hand $chan "-anitake" $x $mix ; pub:chanset $hand $chan "-strict" $x $mix } elseif {
pai este o problema ca ai modificat
Code:
[string equal $mode +anitake]} { 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 -anitake]} { channel set $chan chanmode +tn revenge-mode 0 flood-chan 0:00 flood-ctcp 0:00 flood-join 0:00 flood-kick 0:00 flood-deop 0:00 flood-nick 0:00 ban-time 120 -enforcebans -dynamicbans +protectops +protectfriends -dontkickops -revenge -cycle -bitch -autoop -op -antitake } elseif {
vezi ce am subliniat cu rosu... asta e problema ta
Last edited by UniversaliA; 13-08-2006 at 16:51. Reason: merged 2 posts
krimson is offline   Reply With Quote
Old 10-10-2006, 03:18   #5 (permalink)
Junior Member
 
Join Date: Oct 2006
Posts: 5
Rep Power: 0
Sorin is an unknown quantity at this point
Default
am facut cum scria ca tre sa fac doar ca nu a iesit.
Primesc asta in consola:

[02:11] <<SORIN>> S0RIN!~eu@*.undernet.org #nochan CHANSET wrong # args: extra words after "else" clause in "if" command.

acestea sunt liniile modificate in a&a_22_a_local_n.tcl:


[string match {[-+]locked} $mode] && [check:N:gl $hand] } {channel set $chan $mode } else {a:help $x chanset ; return "FAILED: wrong options ($mode $opti)"} 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]} { channel set $chan chanmode +tn-ik revenge-mode 1 flood-chan 6:2 flood-ctcp 12:10 flood-join 4:10 flood-kick 5:2 flood-deop 3:1 flood-nick 5:10 ban-time 0 +enforcebans +dynamicbans +protectops +protectfriends +dontkickops -revenge +cycle -bitch -autoop -op -antitake } 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 }

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


unde gresesc?
multumesc
Sorin is offline   Reply With Quote
Old 10-10-2006, 03:25   #6 (permalink)
Junior Member
 
KShadow's Avatar
 
Join Date: Sep 2006
Age: 19
Posts: 21
Rep Power: 0
KShadow is an unknown quantity at this point
Send a message via AIM to KShadow Send a message via Yahoo to KShadow
Default
In local_22_a_local_n.tcl cauta procesul

Code:
	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)"}
si inlocuieste-l cu:

Code:
	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 {
	       [string equal $mode +antitake]} { channel set $chan chanmode +tn-ik revenge-mode 2 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 -autoop -op +antitake} elseif {
             [string equal $mode -antitake]} { channel set $chan chanmode +tn revenge-mode 0 flood-chan 0:00 flood-ctcp 0:00 flood-join 0:00 flood-kick 0:00 flood-deop 0:00 flood-nick 0:00 ban-time 120 -enforcebans -dynamicbans -protectops -protectfriends -dontkickops -revenge -cycle -autoop -op -antitake } 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 } 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|take)|limit|secure|voice|op|enforcetopic|paranoia|strict)$} $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)"}
iar in settings.conf adauga

Code:
setupdef paranoia
setupdef antitake
setupdef strict
O sa mearga 100 %
__________________
Ombladon Rulez !!
KShadow is offline   Reply With Quote
Old 10-10-2006, 18:00   #7 (permalink)
Junior Member
 
Join Date: Dec 2005
Posts: 71
Rep Power: 0
krimson will become famous soon enough
Default
@KShadow: setudef, nu setupdef
krimson is offline   Reply With Quote
Old 10-10-2006, 19:27   #8 (permalink)
Junior Member
 
Join Date: Oct 2006
Posts: 5
Rep Power: 0
Sorin is an unknown quantity at this point
Default
Am copiat codul dat de KShadow dar tot nu merge.imi da asta pe canal:
[18:24] <@DuSu`Dus> MotoMafia HELP: SETUP CHANNEL SETTINGS, valid settings you can find in chaninfo http://ma.lasi.rece.la.ce.zici.infochanset

iar in consola:

[18:24] <<S0RIN>> MotoMafia!~umts@UMTS.users.undernet.org # CHANSET FAILED: wrong options (+antitake )

in settings.conf am cele 3 linii cu :

setudef flag antitake
setudef flag strict
setudef flag paranoia
Va multumesc pt raspunsurile rapide.
Sorin is offline   Reply With Quote
Old 10-10-2006, 19:40   #9 (permalink)
Junior Member
 
Join Date: Dec 2005
Posts: 71
Rep Power: 0
krimson will become famous soon enough
Default
ai dat rehash / restart inainte sa incerci comenzile?
krimson is offline   Reply With Quote
Old 10-10-2006, 20:07   #10 (permalink)
Junior Member
 
Join Date: Oct 2006
Posts: 5
Rep Power: 0
Sorin is an unknown quantity at this point
Default
bineinteles. era nepornit,am facut modificarile si l-am pornit.
nu se poate mai bine sa posteze cineva a&a_22_a_local_n.tcl functional aici?
iar multumesc
Sorin is offline   Reply With Quote
Reply
Page 1 of 2 1 2 >

Bookmarks

« Cum Adaug Un TCL | anticolour »

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump


All times are GMT +3. The time now is 19:30.

Contact Us - botlending - Archive - Top

Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Botlending terms of use & licensing