# Otherwise the scanner will NOT work.
# Tested and working. — Pektek
# Please respect the time and effort put into this.
# Just run it, sit down, and watch, Simo
Code:
namespace eval checkbadchan { # JOIN trigger bind join - * checkbadchan::checkbadchan:scan # Main scan procedure proc checkbadchan:scan {nick uhost hand chan} { # Skip bot, op, halfop if {[isbotnick $nick] || [matchattr $hand of|of $chan]} { return 0 } # Convert channel name to lowercase set lc [string tolower $chan] # Blacklisted channel keywords set regex {.*(sex|sexy|sexchat|seks|porno|porn|pornstar|gay|gey|[censored]|fck|fuk|dick|diq|cum|cumm|horny|bdsm|slut|whore|tits|milf).*} # If match found if {[regexp -nocase $regex $lc]} { putlog "BADCHAN → $nick joined $chan (MATCH)" # Create ban mask set hostmask "*!*@[lindex [split $uhost @] 1]" # Add ban if not already banned if {![ischanban $hostmask $chan]} { pushmode $chan +b $hostmask } # Send private message putserv "PRIVMSG $nick :Warning: Blacklisted channel detected -> $chan" # Kick user putserv "KICK $chan $nick :BLACKLISTED CHANNEL" return 0 } return 0 }}putlog "Loaded by Pektek"Respectfully, Pektek.
NOTE: What this TCL does (short & clear):
!add #channel → Adds the channel to the blacklist, saves it to .badchan and channels.conf.
Bot automatically JOINs the channel using OS RAW JOIN.
When the bot joins the channel, it takes +o, and after 2 seconds it scans everyone inside.
If the bot is in the channel, anyone who joins is banned + kicked after 5 seconds.
Even if the user is OP / founder / admin, they still get ban + kick.
Bot stays in the channel for 2 minutes, then sends PART and leaves.
After a bot restart, .badchan is loaded and the bot rejoins all blacklisted channels and continues working automatically.
Please move the bot you want to operate to an authorized channel and add it to the channel using !add #channel.
Just run it, sit down, and watch, Simo
Code:
namespace eval badchan { variable list {} variable file ".badchan" ################################################### # LOAD CHANNEL LIST (ON RESTART) ################################################### proc load_list {} { variable list variable file if {[file exists $file]} { set fp [open $file r] set data [split [read $fp] "\n"] close $fp foreach chan $data { if {$chan ne ""} { lappend list $chan } } putlog "BADCHAN → Loaded [llength $list] channels from file." } else { putlog "BADCHAN → .badchan file not found, creating new list." } } ################################################### # SAVE CHANNEL LIST TO FILE ################################################### proc save_list {} { variable list variable file set fp [open $file w] foreach chan $list { puts $fp $chan } close $fp putlog "BADCHAN -> Channel list saved to file." } ################################################### # APPEND CHANNEL TO channels.conf ################################################### proc save_conf {chan} { set fp [open "channels.conf" a] puts $fp "channel add $chan {\n auto-join 1\n}" close $fp putlog "BADCHAN -> $chan added to channels.conf." } ################################################### # COMMAND: !add #channel ################################################### bind pub n|n !add ::badchan::cmd_add proc cmd_add {nick uhost hand chan args} { variable list set target [string tolower [lindex $args 0]] if {$target eq "" || [string index $target 0] ne "#"} { putserv "PRIVMSG $chan :Usage: !add #channel" return } if {[lsearch -exact $list $target] != -1} { putserv "PRIVMSG $chan :$target is already in the blacklist." return } # Add to internal list + save lappend list $target save_list save_conf $target putserv "PRIVMSG $chan :$target has been added to the BADCHAN blacklist." putlog "BADCHAN → Added $target to blacklist." # Register channel in Eggdrop channel add $target channel set $target +auto-join channel set $target -inactive # RAW JOIN through OS (guaranteed join) utimer 2 "putserv \"PRIVMSG OS :RAW :$::botnick JOIN $target\"" putlog "BADCHAN → RAW JOIN sent for $target." } ################################################### # SCAN CHANNEL (If bot joins late) ################################################### proc scan_channel {chan} { set users [chanlist $chan] foreach u $users { if {![string equal -nocase $u $::botnick]} { set host [getchanhost $u $chan] ::badchan::punish $chan $u $host } } putlog "BADCHAN → Completed scan for $chan (all users punished)." } ################################################### # JOIN EVENT HANDLER ################################################### bind join - * ::badchan::on_join proc on_join {nick uhost hand chan} { variable list set chan [string tolower $chan] # If channel not in blacklist → do nothing if {[lsearch -exact $list $chan] == -1} return # BOT JOINS if {[string equal -nocase $nick $::botnick]} { # Bot gets OP utimer 1 "putserv \"MODE $chan +o $::botnick\"" putlog "BADCHAN -> Bot joined $chan and received +o." # Scan the channel (punish all users) utimer 2 [list ::badchan::scan_channel $chan] # Leave after 2 minutes utimer 120 "putserv \"PART $chan :Leaving…\"" return } # USER JOINS → punish after 5 seconds utimer 5 [list ::badchan::punish $chan $nick $uhost] } ################################################### # PUNISHMENT SYSTEM (BAN + KICK) ################################################### proc punish {chan nick uhost} { putlog "BADCHAN → Punishing $nick in $chan." # Ensure bot has OP if {![isop $::botnick $chan]} { putserv "MODE $chan +o $::botnick" after 300 } # Create ban mask set hostpart [lindex [split $uhost @] 1] set mask "*!*@$hostpart" # Ban + kick user putserv "MODE $chan +b $mask" putserv "KICK $chan $nick :Blacklisted channel." putlog "BADCHAN → $nick was banned and kicked from $chan." } ################################################### # AUTO-JOIN BLACKLISTED CHANNELS AFTER RESTART ################################################### bind evnt - init-server ::badchan::startup proc startup {type} { variable list ::badchan::load_list foreach chan $list { channel add $chan channel set $chan +auto-join channel set $chan -inactive # RAW JOIN through OS utimer 3 "putserv \"PRIVMSG OS :RAW :$::botnick JOIN $chan\"" putlog "BADCHAN → RAW JOIN sent for $chan after restart." } }}putlog "Loaded Badchan by pektek" If you want to prevent anyone from joining channels except their autojoin channels, the easiest way is to add the following code inside unrealircd.conf:
After adding this, save the file and run /rehash on the server, or execute ./unreal rehash in telnet.
From now on, no user will be able to join any channel manually.
This is the third version of this method.
Code:
deny channel {channel "#*";reason "Opening channels on the server is FORBIDDEN!";warn on;};allow channel { channel "#Connection";};allow channel { channel "#DJ";};allow channel { channel "#DJChat";};allow channel { channel "#Help";};allow channel { channel "#WordGame";};allow channel { channel "#Number";};No user will be able to randomly join any channels; they will be blocked.
These are only examples — the important point is that the channel names you define for autojoin must be the same as the channel names you write here.
This added command is valid and tested for the Unreal 3.2.x series. It has not been tested on other versions.
Statistics: Posted by pektek — Sat Dec 06, 2025 12:22 pm
]]>