egghelp.org community :: View topic

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

bot set ban

egghelp.org community Forum Index -> Script Requests

View previous topic :: View next topic

Author

Message

fls
Voice

Joined: 17 Oct 2007
Posts: 35

Posted: Thu Feb 14, 2008 9:54 pm Post subject: bot set ban

Hey guys, Is there a script for this listed? IF a user been kick by any op 3 times and the bot will auto set ban on tat user within a period of time let say 10mins. can the period of time be change/updated too? can the bot auto unban after a period of time too? OP level will be excuse for this ban Regard

TCL_no_TK
Owner

Joined: 25 Aug 2006
Posts: 509
Location: England, Yorkshire

Posted: Thu Apr 10, 2008 2:28 pm Post subject:

Untested, may do some testing later on.

Code:

#header
# kicklimit.tcl version 1.0 by TCL_no_TK <ispmailsucks@googlemail.com>

#description
# Allows you to set limits on how many times users (from a host) may be kicked
# from the channel, per channel limiting/enabling/ban messages.

#info
# Usage:
# .chanset <#channel> +kicklimit -- enables
# .chanset <#channel> -kicklimit -- disables
# .chanset <#channel> kicklimit-kicks 3 -- sets the max kicks for a host to 3
# .chanset <#channel> kicklimit-reason "You have been banned from #channel for being kicked 3 times!" -- sets the ban reason for that channel.
# .chanset <#channel> kicklimit-bantime 2d4h -- sets the bantime for the channel to 2 days and 4 hours.
# <time> format <X>[d]<X>[h]
# <minets> format @<number-of-minets>
#

#notes
# The exempt options for channel ops, halfops and voices use the 'wasop' fuction
# and may not provide the correct fuction it is used for in this script. *take a chance*

#settings
# use a channel ban, when adding a ban on host
# that reaches its kick limit for any channels set +kicklimit
# 0/1 = no/yes
set kicklimit(channelban) "0"

# (same as above) only will add channel ban on the bot; 0 (disable) 1 (enable)
set kicklimit(botban) "1"

# exempt flags '[global]-|-[channel]'
set kicklimit(exempt-flags) "bolvf|olvf"

# exempt channel ops; 0 (disable) 1 (enable)
set kicklimit(exempt-ops) "1"

# exempt channel halfops; 0 (disable) 1 (enable)
set kicklimit(exempt-hops) "1"

# exempt channel voices; 0 (disable) 1 (enable)
set kicklimit(exempt-vops) "1"

# set the maximum length of the ircd's kick message's
set kicklimit(max-kicklength) "255"

#code
proc kick:kicklimit {nick host handle channel target reason} {
global kicklimit
if {(![isbotnick $target]) && (![validuser [nick2hand $target]]) && ([kicklimit:swa "$target" "$channel"])} {
kicklimit:host "$target" "[getchanhost $target]" "$channel"
return
}
if {(![isbotnick $target]) && ([validuser [nick2hand $target]]) && ([kicklimit:dmef "$target" "$channel"]) && ([kicklimit:swa "$target" "$channel"])} {
kicklimit:host "$target" "[getchanhost $target]" "$channel"
return
}
}

proc kicklimit:swa {target channel} {
global kicklimit
if {($::kicklimit(exempt-ops) != "") && ($::kicklimit(exempt-ops) == "1") && ([wasop $target $channel])} {
set swa "0"
}
if {($::kicklimit(exempt-hops) != "") && ($::kicklimit(exempt-hops) == "1") && ([washalfop $target $channel])} {
set swa "0"
}
if {($::kicklimit(exempt-vops) != "") && ($::kicklimit(exempt-vops) == "1") && ([wasvoice $target $channel])} {
set swa "0"
}
if {(![info exists swa])} {set swa "1"}; return $swa
}

proc kicklimit:dmef {target channel} {
global kicklimit
if {($::kicklimit(exempt-flags) != "")} {
set flags $::kicklimit(exempts-flags)
if {[matchattr [nick2hand $target] $flags $channel]} {
return 0
} else {
return 1
}
}; return 0
}

proc kicklimit:host {nick host channel} {
global kicklimit
if {(![string match -nocase "*@*" "$host"])} {set khost "$nick!*@*"} else {set khost "*!*@[lindex [split $host "@"] 1]"}
if {([channel get $channel kicklimit] == "-")} {return}
if {($::kicklimit($channel:$khost) != "")} {
set kicklimit($channel:$khost) "1"
return
}
if {([channel get $channel kicklimit-kicks] != "") && ($::kicklimit($channel:$khost) < [channel get $channel kicklimit-kicks])} {
set kicklimit($channel:$khost) [expr $::kicklimit($channel:$khost) +1]
return
}
if {([channel get $channel kicklimit-kicks] != "") && ($::kicklimit($channel:$khost) == [channel get $channel kicklimit-kicks])} {
kicklimit:punish "$nick" "$host" "$channel"
return
}
if {([channel get $channel kicklimit-kicks] != "") && ($::kicklimit($channel:$khost) > [channel get $channel kicklimit-kicks])} {
set kicklimit($channel:$khost) "0"
return
}
}

proc kicklimit:punish {nick host channel} {
global kicklimit
set bhost [kicklimit:checkhost "$nick" "$host"]
if {($::kicklimit(channelban) != "") && ($::kicklimit(channelban) == "1")} {
kicklimit:chanban "$nick" "$bhost" "$channel"
return
}
if {($::kicklimit(botban) != "") && ($::kicklimit(botban) == "1")} {
kicklimit:botban "$nick" "$bhost" "$channel"
return
}
}

proc kicklimit:chanban {nick host channel} {
global kicklimit
if {($::kicklimit(max-kicklength) == "")} {
set kmml "255"
} else {
set kmml $::kicklimit(max-kicklength)
}
if {([channel get $channel kicklimit-reason] == "")} {
set kreason [kicklimit:trimchars "Kick limit for your host has expired." "$kmml"]
} else {
set kreason [kicklimit:trimchars "[channel get $channel kicklimit-reason]" "$kmml"]
}
if {([channel get $channel kicklimit-bantime] == "")} {
set bantime "15"
}
if {([channel get $channel kicklimit-bantime] != "")} {
set btime [channel get $channel kicklimit-bantime]
if {([string match "@*" "$btime"])} {
set bantime [lindex [split $btime "@"] 1]
} else {
set bantime [kicklimit:mc:bantime "$btime"]
}
}
putquick "MODE $channel :+b $host"
putquick "KICK $channel $nick :$kreason"
timer $bantime {putserv "MODE $channel :-b $host"}
return
}

proc kicklimit:botban {nick host channel} {
global kicklimit
if {($::kicklimit(max-kicklength) == "")} {
set kmml "255"
} else {
set kmml $::kicklimit(max-kicklength)
}
if {([channel get $channel kicklimit-reason] == "")} {
set kreason [kicklimit:trimchars "Kick limit for your host has expired." "$kmml"]
} else {
set kreason [kicklimit:trimchars "[channel get $channel kicklimit-reason]" "$kmml"]
}
if {([channel get $channel kicklimit-bantime] == "")} {
set bantime "15"
}
if {([channel get $channel kicklimit-bantime] != "")} {
set btime [channel get $channel kicklimit-bantime]
if {([string match "@*" "$btime"])} {
set bantime [lindex [split $btime "@"] 1]m
} else {
set bantime [kicklimit:mc:bantime "$btime"]m
}
}
newchanban $channel $host "kicklimit.tcl" "$kreason" "$bantime" none
if {([isban $host $channel])} {return} else {return}
}

proc kicklimit:checkhost {nick host} {
if {(![onchan $nick])} {return "$host"}
if {(![string match "*@*.*" "$host"])} {
set new_host "*!*@[lindex [split [getchanhost $nick] "@"] 1]"
if {([string match -nocase "$host" "$new_host"])} {
return "$host"
} else {
return "$new_host"
}
}
set new_host "*!*@[lindex [split [getchanhost $nick] "@"] 1]"
if {([string match -nocase "$host" "$new_host"])} {
return "$host"
} else {
return "$new_host"
}
}

proc kicklimit:mc:bantime {time} {
if {$time == ""} {return 0}
if {![regexp -- {^([0-9]*[dhm])([0-9]*[dhm])?([0-9]*[dhm])?$} $time]} {
return 0
} else {
set e $time
if {![regexp -- {([0-9]*)m} $e -> min] || ($min == "")} {set min 0}
if {![regexp -- {([0-9]*)h} $e -> hour] || ($hour == "")} {set hour 0}
if {![regexp -- {([0-9]*)d} $e -> day] || ($day == "")} {set day 0}
set expire [expr ($min*60)+($hour*3600)+($day*86400)]
}; return [expr ($expire/60)]
}

proc kicklimit:trimchars {chars index} {return [join [lrange "[split "$chars" {}]" 0 $index] {}]}

#binds
bind kick - "* * *" kick:kicklimit

#channel options
setudef flag kicklimit
setudef str kicklimit-kicks
setudef str kicklimit-reason
setudef str kicklimit-bantime

#end
putlog "loaded kicklimit.tcl version 1.0 by TCL_no_TK"
return

Feel free to point out errors/bugs and i'll fix them, its rough as always.
btw, the script will allow channelban's and botbans to enabled dont wanna change this Razz

just call it a "special" feature Rolling Eyes

The script will reset a hosts kick limit if it detects it has gone over the allowed channel limit... (this wont affect channels having differant limits) but if you wish to disable it remove the following line of code (what this will do is auto ban any host that has been kicked more than the allowed limit for the channel, not allowed them to reuse up 3 more limits)

Code:

if {([channel get $channel kicklimit-kicks] != "") && ($::kicklimit($channel:$khost) > [channel get $channel kicklimit-kicks])} {
set kicklimit($channel:$khost) "0"
return
}

from kicklimit:host proc. The bantime code from MC_8 Smile

Thx MC_8

P.S sorry for the late reply.
_________________
TCL the misunderstood

fls
Voice

Joined: 17 Oct 2007
Posts: 35

Posted: Sat Apr 12, 2008 9:07 am Post subject:

Hi mate, appreciate. tks u

Display posts from previous:

	egghelp.org community Forum Index -> Script Requests	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum