In a little hurry for these? Who do you think we are? It seems you are living upto your name. As Alchera said, Get off your arse and try searching for what you need. Also read the f&*king rules before posting.Tosser^^ wrote:Hello, i need a request script like sicherheit and chanbot, where a random bot joins, it scans the channel for clones and other stuff. Also if anyone could make a vip script i will be really happy. Also, need some op/deop/ban/unban/topic/mode protection. I made some basic ones, but need better ones. In a little of a hurry for these. Please help, thanks!!
Code: Select all
bind mode - "* +o" op:protection
bind mode - "* -o" deop:protection
proc op:protection {nick uhost handle chan mode opnick} {
if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] || ![matchattr $handle f|f $chan]} {
set ban [maskhost $uhost]
putquick "MODE $chan -oo+b $nick $opnick $ban"
putquick "KICK $chan $nick :You Are Not Allowed To OP In $chan, Protected By #ShoVe"
putlog "$nick was kicked by $::botnick from $chan For OP'ing in $chan"
}
}
proc deop:protection {nick uhost handle chan mode opnick} {
if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] ![matchattr $handle f|f $chan]} {
set ban [maskhost $uhost]
putquick "MODE $chan -o+ob $nick $opnick $ban"
putquick "KICK $chan $nick :You Are Not Allowed To DEOP In $chan, Protected By #ShoVe"
putlog "$nick was kicked by $::botnick from $chan For DEOP'ing in $chan"
}
}
Code: Select all
newchanban <chan> <ban> <creator> "<reason>" [bantime] [options]
You're welcome. Can you be more clear about the $banlist thing ?Tosser^^ wrote:Thanks for that Sir_Fz
Do you know how to make a $userlist and/or a $banlist and maybe a $unban using host or number to unban someone. also maybe a $clear.
Thanks again!!
Code: Select all
if {![matchattr $handle n|n $chan] || ![matchattr $handle m|m $chan] || ![matchattr $handle o|o $chan] || ![matchattr $handle f|f $chan]} {
Code: Select all
if {![matchattr $handle n|n $chan] && ![matchattr $handle m|m $chan] && ![matchattr $handle o|o $chan] && ![matchattr $handle f|f $chan]} {
Code: Select all
bind topc - * topic:protection
Code: Select all
bind pub - {$banlist} list:bans
proc list:bans {nick uhost hand chan arg} {
foreach ban [banlist $chan] {
puthelp "NOTICE $nick :Host: [lindex $ban 0]"
puthelp "NOTICE $nick :Added By: [lindex $ban end]"
puthelp "NOTICE $nick :Reason: [lindex $ban 1]"
puthelp "NOTICE $nick :Ban Time: [expr {([lindex $ban 2] - [unixtime])/60.0)} minutes"
}
}