| View previous topic :: View next topic |
| Author |
Message |
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
 Posted: Thu Dec 21, 2006 10:52 pm Post subject: |
 |
|
Have stumbled across a "bug" regarding banned channels:
| Code: | | SuperWoman ap:bchans: {+ 30 w:kb 3 10} |
| Code: | | SuperWoman [21:36] AP: Warned alexis21sxy_grl on #webchat :Warning: You're on a bad chan #realsex, leave it or you'll be kicked from #webchat. You have 0 seconds to leave #realsex. |
Nothing happens except for that message every time the channel is scanned: In this case, every 10 minutes.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
 |
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Fri Dec 22, 2006 12:59 pm Post subject: |
|
|
| Alchera wrote: | Have stumbled across a "bug" regarding banned channels:
| Code: | | SuperWoman ap:bchans: {+ 30 w:kb 3 10} |
| Code: | | SuperWoman [21:36] AP: Warned alexis21sxy_grl on #webchat :Warning: You're on a bad chan #realsex, leave it or you'll be kicked from #webchat. You have 0 seconds to leave #realsex. |
Nothing happens except for that message every time the channel is scanned: In this case, every 10 minutes. |
You have apbchan(caw) set to 0, it needs to be greater than 0 and less than $pwait (60 seconds is a good setting).
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Fri Dec 22, 2006 7:46 pm Post subject: |
|
|
Woops. 
I completely missed that setting below where I was looking.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
demon
Voice
Joined: 14 Dec 2006
Posts: 12
|
| Posted: Fri Dec 22, 2006 8:24 pm Post subject: |
|
|
havent used the xchannel tcl but if that works is the best thing i have ever seen in that kind of scripts! always to check for spam, onjoin msgs etc need a second bot for sure.. now life is better - thank you demond..
If there are idiots that use that feature for other perposes it is their fault.. that dont mean that we will not code any more..
Again thanks demond for that great idea!! |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sat Dec 23, 2006 12:46 pm Post subject: |
|
|
Ok, I've uploaded the new AllProtection4.6b6 with all reported bugs fixed. These bugs include:
- Most protections not working due to a bug in the vcg proc
- Settings being reset after restart due to a bug in the vcg proc
- Channel specific (not global) lists weren't being saved to the aplists file
- Aplogs date was saving current date instead of yesterdays date (for set logkbs(do) 2)
- Other logical bugs which I probably forgot.
Enjoy, until the next release.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Sat Dec 23, 2006 10:02 pm Post subject: |
|
|
The problem of adding a channel drone exempt and it not being saved to the file has reappeared.
I checked where the problem was first discovered but as that was fixed I cannot fathom what is causing it this time.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sat Dec 23, 2006 10:08 pm Post subject: |
|
|
I've fixed it and uploaded the script again; apparently we didn't really fix it last night 
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Tue Jan 02, 2007 8:46 pm Post subject: |
|
|
AllProtection4.6b7 released including the following changes:
- Throttle sends to server. This prevents the bot from sending multiple identical commands at the same time to the server.
- Bad words/ads are now also detected in notices, parts & quits.
- Ability to choose CTCP requests for bad CTCP replies (previously only bad version).
- Ability to ban thru X (or other services depending on network) when banlist is full.
- Enhanced following offences technique.
- Now all flood types have a punishment method (no exceptions anymore).
- Added AntiSpamBot with ability to msg users on join and reply on certain private messages (configurable and include protection).
- Several enhancements made over the code overall.
This is currently loaded on my bot, working 100% for me... Try it 
Enjoy.
Edit: Updated link.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts
Last edited by Sir_Fz on Thu Feb 22, 2007 10:39 pm; edited 2 times in total |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Fri Jan 05, 2007 6:04 am Post subject: illegal channel option: ap:level |
|
|
| Quote: | Alchera .ap:reset #Ballarat
Ballarat [04:42] Tcl error [::AllProtection::cmd reset]: illegal channel option: ap:level
Ballarat illegal channel option: 75 |
I did a quick fix as I had the script loaded in a number of bots.
Add
... after ...
| Code: | | proc cmd {cmd hand idx arg} { |
Scroll down to the "reset" function and add this line
| Code: | | if {[lindex $u 0] == "ap:level" && !$banthruX(do)} {continue} |
... after ...
| Code: | | foreach u ${ap:udefs} { |
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Fri Jan 05, 2007 6:35 am Post subject: |
|
|
Ok.. I have come across another 'bug'; I was unable to determine the cause of this.
| Quote: | Alchera .ap:disable #ballarat
Wendouree [05:25] Tcl error [::AllProtection::cmd disable]: Unknown channel setting. |
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Fri Jan 05, 2007 8:06 pm Post subject: |
|
|
Replace
| Code: | "disable" {
set OZ {ap:repeatc ap:clones ap:echans}
set NV {ap:adv ap:swear ap:bnicks ap:drones ap:bidents ap:bchans}
set CC {ap:codes ap:partmsgc}
foreach c $chans {
if {[validchan $c]} {
foreach u ${ap:udefs} {
set rest [join [lrange [split [channel get $c [set ud [lindex $u 0]]]] 1 end]]
if {[lsearch -exact $OZ [lindex $u 0]] != -1} {
channel set $c $ud "0 $rest"
} elseif {[lsearch -exact $NV $ud] != -1} {
channel set $c $ud "- $rest"
} elseif {[lsearch -exact $CC $ud] != -1} {
channel set $c $ud "r:0 b:0 u:0 c:0 [join [lrange [split [channel get $c $ud]] 4 end]]"
} elseif {$ud == "ap:limit"} { channel set $c $ud 0 } {
channel set $c $ud "0:0 $rest"
}
}
putdcc $idx "\002AP\002: Succesfully disabled all AP protections on $c."
} { putdcc $idx "\002AP\002: $c is an invalid channel (not in my chanlist)." }
}
} |
with
| Code: | "disable" {
set OZ {ap:repeatc ap:clones ap:echans}
set NV {ap:adv ap:swear ap:bnicks ap:drones ap:bidents ap:bchans ap:bctcrs}
set CC {ap:codes ap:partmsgc}
foreach c $chans {
if {[validchan $c]} {
foreach u ${ap:udefs} {
if {[set ud [lindex $u 0]] == "ap:level" && !$banthruX(do)} {continue}
set rest [join [lrange [split [channel get $c $ud]] 1 end]]
if {[lsearch -exact $OZ [lindex $u 0]] != -1} {
channel set $c $ud "0 $rest"
} elseif {[lsearch -exact $NV $ud] != -1} {
channel set $c $ud "- $rest"
} elseif {[lsearch -exact $CC $ud] != -1} {
channel set $c $ud "r:0 b:0 u:0 c:0 [join [lrange [split [channel get $c $ud]] 4 end]]"
} elseif {[regexp {ap:(limit|antispam)} $ud]} { channel set $c $ud 0 } {
channel set $c $ud "0:0 $rest"
}
}
putdcc $idx "\002AP\002: Succesfully disabled all AP protections on $c."
} { putdcc $idx "\002AP\002: $c is an invalid channel (not in my chanlist)." }
}
} |
This of course should be done after applying the fixes suggested by Alchera above.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sun Jan 07, 2007 9:02 am Post subject: |
|
|
Alright, I have fixed the bugs reported for AllProtection4.6b7. Get the new file AllProtection4.6b7. these bugs include ap:reset and ap:disable commands causing error and the bad channel protection not working (now fixed).
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts
Last edited by Sir_Fz on Thu Feb 22, 2007 10:39 pm; edited 1 time in total |
|
| Back to top |
|
|
blacklines
Voice
Joined: 08 Jan 2007
Posts: 1
|
| Posted: Mon Jan 08, 2007 5:55 am Post subject: |
|
|
Can you add punishment methods akick?
putserv "ChanServ :akick $chan add $maskban $kickreason"
putserv "Chanserv :akick $chan enforce"
putserv "Chanserv :akick $chan del $maskban" |
|
| Back to top |
|
|
IRCNick
Halfop
Joined: 12 Oct 2005
Posts: 64
Location: Germany
|
| Posted: Wed Jan 10, 2007 9:56 pm Post subject: |
|
|
Hi. I'm using allprotection4.6b7.tcl and I have this problem when I try to reset the ap settings to default
| Code: | [02:52] <me> .ap:reset #channel
[02:52] <bot> [02:51] Tcl error [::AllProtection::cmd reset]: illegal channel option: ap:level
[02:52] <bot> illegal channel option: 75
[02:52] <me> .set errorInfo
[02:52] <me> [02:51] #me# set errorInfo
[02:52] <bot> Currently: illegal channel option: ap:level
[02:52] <bot> Currently: illegal channel option: 75
[02:52] <bot> Currently:
[02:52] <bot> Currently: while executing
[02:52] <bot> Currently: "channel set $c [lindex $u 0] [lindex $u 1]"
[02:52] <bot> Currently: ("foreach" body line 3)
[02:52] <bot> Currently: invoked from within
[02:52] <bot> Currently: "foreach u ${ap:udefs} {
[02:52] <bot> Currently: if {$u == "ap:level" && !$banthruX(do)} {continue}
[02:52] <bot> Currently: channel set $c [lindex $u 0] [lindex $u 1]
[02:52] <bot> Currently: }"
[02:52] <bot> Currently: ("foreach" body line 3)
[02:52] <bot> Currently: invoked from within
[02:52] <bot> Currently: "foreach c $chans {
[02:52] <bot> Currently: if {[validchan $c]} {
[02:52] <bot> Currently: foreach u ${ap:udefs} {
[02:52] <bot> Currently: if {$u == "ap:level" && !$banthruX(do)} {continue}
[02:52] <bot> Currently: channel set $c [..."
[02:52] <bot> Currently: ("reset" arm line 2)
[02:52] <bot> Currently: invoked from within
[02:52] <bot> Currently: "switch -- $cmd {
[02:52] <bot> Currently: "add" {
[02:52] <bot> Currently: if {$ti == 0} {
[02:52] <bot> Currently: if {[validchan $c]} {
[02:52] <bot> Currently: if {![info exists aptv($c)]} {
[02:52] <bot> Currently: set aptv($c) $l
[02:52] <bot> Currently: set unfound $l
[02:52] <bot> Currently: ..."
[02:52] <bot> Currently: (procedure "::AllProtection::cmd" line 33)
[02:52] <bot> Currently: invoked from within
[02:52] <bot> Currently: "::AllProtection::cmd reset $_dcc1 $_dcc2 $_dcc3" |
and
| Code: | [02:59] <me> .ap:disable #channel
[02:59] <bot> [02:58] Tcl error [::AllProtection::cmd disable]: Unknown channel setting. |
and yes I'm using the newest version of the tcl from this post |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Wed Jan 10, 2007 11:36 pm Post subject: |
|
|
Download the newer (3rd of Jan) file above.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
