and more like [-eggdrop-] addadmin/op/voice nick
and [-eggdrop-] rem or del/admin/op/voice nick
and [-eggdrop-] blackadd nick/host
and [-eggdrop-] blackdel nick/host/number
And could anyone make/help me make a blacklist and a massop/deop/voice/devoice script to trigger on $op/deop/voice/devoice *
# Configuration
# homechannel where they can request
set setting(home) "#v1per"
# users the channel needs atleast
set setting(needed) "20"
# deny request if there is no Q or L?
set setting(service) "1"
# the flags he wants
set setting(flags) "+ao"
# end of config
# don't touch this setting!
set setting(busy) 0
bind pub -|- !request request:pub
proc request:pub {nick host hand chan arg} {
global setting
# ignore the request because it isn't the request channel
if {![string equal $chan $setting(home)]} {
return 0
}
if {$setting(busy)} {
putquick "NOTICE $nick :There is currently already an request in progress."
return 0
}
set channel [lindex [split $arg] 0]
# tell him he needs to input a channel first
if {$channel == ""} {
putquick "NOTICE $nick :Please state the channel you wish to request for."
return 0
}
if {[validchan $channel]} {
return 0;
}
# activate the busy signal so no other requests can be done
bind RAW -|- 315 request:endofwho
set setting(busy) 1
set setting(chan) "$channel"
set setting(nick) "$nick"
channel add $channel
}
proc request:endofwho {from key arg} {
global setting
if {$setting(busy)} {
if {![onchan $setting(nick) $setting(chan)] || ![isop $setting(nick) $setting(chan)]} {
set setting(busy) 0
putquick "NOTICE $setting(nick) :You aren't on $setting(chan) or you're not opped. Request denied."
channel remove $setting(chan)
unbind RAW -|- 315 request:endofwho
return 0
}
if {$setting(service)} {
if {![onchan L $setting(chan)] && ![onchan Q $setting(chan)]} {
set setting(busy) 0
putquick "NOTICE $setting(nick) :Q or L was not found on $setting(chan). Request denied."
channel remove $setting(chan)
unbind RAW -|- 315 request:endofwho
return 0
}
}
if {[llength [chanlist $setting(chan)]] < $setting(needed)} {
set setting(busy) 0
putquick "NOTICE $setting(nick) :$setting(chan) has less than $setting(needed) users. Request denied."
channel remove $setting(chan)
unbind RAW -|- 315 request:endofwho
return 0
}
if {![validuser [nick2hand $setting(nick)]]} {
adduser $setting(nick) *!*@[lindex [split [getchanhost $setting(nick) $setting(chan)] @] 1]
}
chattr [nick2hand $setting(nick)] |+n $setting(chan)
putquick "NOTICE $setting(nick) :The request was succesfull. I will stay here. Please give me $setting(flags) on [request:service $setting(chan)]"
putquick "PRIVMSG $setting(home) :$setting(nick) requested me for $setting(chan). The channel has [llength [chanlist $setting(chan)]] users. And they have the service bot: [request:service $setting(chan)]. Request was accepted."
unset setting(chan); unset setting(nick)
set setting(busy) 0
unbind RAW -|- 315 request:endofwho
return 1
}
}
proc request:service {channel} {
if {[onchan L $channel]} {
return "L"
} elseif {[onchan Q $channel]} {
return "Q"
}
}
Can anyone mod it so it scans for clones etc, like sicherhiet and chanbot, and send a random bot etc. Thanks!!
You should recheck your configuration files carefully and any scripts you have loaded because eggdrop (under normal conditions) will not set what is effectively a ban on itself and should immediately remove such a ban if set by another user.
Add [SOLVED] to the thread title if your issue has been. Search | FAQ | RTM
Tosser^^ wrote:Also, can i make that $adduser bind this:
botnick adduser nick
so lets say, [-eggdrop-] adduser Tosser^^
then [-eggdrop-] chattr nick +/-flags
and more like [-eggdrop-] addadmin/op/voice nick
and [-eggdrop-] rem or del/admin/op/voice nick
and [-eggdrop-] blackadd nick/host
and [-eggdrop-] blackdel nick/host/number
And could anyone make/help me make a blacklist and a massop/deop/voice/devoice script to trigger on $op/deop/voice/devoice *
Thanks!!
You're requesting a commands script which already exists in the tcl archive and I already wrote one few weeks ago. If you don't want to use any of those scripts then I believe now you know enough to code what you're requesting, you're requesting a lot and I don't think anyone is going to write all that for you.
As for blacklist, I also wrote such a script few days ago. try it.
proc add:ban {nick host hand chan text} {
if {![matchattr $handle n|n $chan] && ![matchattr $handle m|m $chan] && ![matchattr $handle |o $chan]} {
putserv "NOTICE $nick :You Have No Access To This Command"
}
}
{
if {[matchattr $handle n|n $chan] || [matchattr $handle m|m $chan] || [matchattr $handle |o $chan]} {
set banned[host] [maskhost [getchanhost [lindex [split $text] 0] $chan]]
set banned[reason] [lindex [split text] 1]
if {$banned[reason] == "''"} {
set banned[reason] No Reason Added...
} else {
newchanban $chan $banned[host] $nick "Banned!! $banned[reason]
putquick "MODE $chan -o+b $nick $banned[host]"
putquick "KICK $chan $nick :Banned!! $banned{reason]"
}
}
}
Theres a error someone, i cant spot it, please check. Also, thanks for that blacklist script, its excellent, and also thanks for the [botnick] <command> [other] bind, Thanks!!