+ban / -ban

MeJseL · Post by **MeJseL** » Sat Nov 22, 2003 11:07 am

Any one have a +ban/-ban msg script? ... insted of using dcc/telenet .. that would be very nice

Post by **Sir_Fz** » Sat Nov 22, 2003 11:29 am

bind msg n +ban ban:user
bind msg n -ban unban:user
        
proc ban:user {nick uhost hand arg} {
if {[validchan [lindex [split $arg] 0]]} {
 newchanban [lindex [split $arg] 0] [lindex [split $arg] 1] $nick "[join [lrange [split $arg] 2 end]]"
} {
 newban [lindex [split $arg] 0] $nick "[join [lrange [split $arg] 1 end]]"
 }
}

proc ban:user {nick uhost hand arg} {
if {[validchan [lindex [split $arg] 0]]} {
 killchanban [lindex [split $arg] 0] [lindex [split $arg] 1]
} {
 killban [lindex [split $arg] 0]
 }
}

this will add permanent bans, you can't specify duration. If you want to specify duration, then use string isalpha to catch if the last word is digits.
if a channel is not specified then it will add a global ban.
(+ban [channel] <ban> <reason>)

MeJseL · Post by **MeJseL** » Sat Nov 22, 2003 11:44 am

hmm didnt work :/

Post by **caesar** » Sat Nov 22, 2003 1:17 pm

replace the second proc:

Code: Select all

proc ban:user {nick uhost hand arg} {

to

Code: Select all

proc unban:user {nick uhost hand arg} {

notice the un Sir_Fz

Post by **Sir_Fz** » Sat Nov 22, 2003 7:44 pm

Sorry, thats because I wrote the first proc, then pasted it, changed newchanban to killchanban and newban to killban

good notice caesar (I am the who has to pay attention now, hehe)

EEggy · Post by **EEggy** » Sun Nov 23, 2003 3:36 am

HI, how this will work, if i do /msg bot -ban, i mean whoever will type /msg bot -ban, it should check that person's nick/ip, and if its in the banlist, it should remove it.

thanks

Post by **Sir_Fz** » Sun Nov 23, 2003 6:12 am

EEggy easiest way is to let the bot use chanserv (or whatever services) to unban the user when he commands it to unban him.

EEggy · Post by **EEggy** » Sun Nov 23, 2003 12:10 pm

thanks, but i am trying to figure out, what changes i should do, so when the person will msg the bot /msg bot -ban , and it should check the person, who msged the bot, script should check his/her nick/ip, and if its ban, remove it...

Thanks

MeJseL · Post by **MeJseL** » Sun Nov 23, 2003 9:03 pm

hmm thx .. but can u add like if i typ just +ban .. then the bot notice like usage: +ban <channel> <host> <reason> and the same on -ban
and like if i add a ban the bot notice: banned: $host Reason: $reason ..
and the same on -ban ... that would be verry nice if u could do that

MeJseL · Post by **MeJseL** » Mon Nov 24, 2003 8:17 am

plz

Post by **caesar** » Mon Nov 24, 2003 11:17 am

After the proc add something like:

Code: Select all

if {[llength $arg] < 3} {
putserv "PRIVMSG $nick :Usage: +ban <channel> <host> <reason>"
}

same thing goes for the -ban..

MeJseL · Post by **MeJseL** » Tue Nov 25, 2003 12:06 am

ok thx, but if i set a ban i would like to know that thge bot responde with like notice nick banned: host reason: reason
and the same with unban

Post by **caesar** » Tue Nov 25, 2003 1:31 am

Actualy newban should be replaced by newchanban and the script should be changed in order to work this way..

MeJseL · Post by **MeJseL** » Tue Nov 25, 2003 2:57 am

work what way ?

Post by **Sir_Fz** » Tue Nov 25, 2003 8:38 am

caesar wrote:Actualy newban should be replaced by newchanban and the script should be changed in order to work this way..

The code says if first arg is a valid channel then the bot will add a newchanban else it will add a newban (global ban)

Mejsel, add after newchanban putserv "NOTICE $nick :Added new ban \002[lindex [split $arg] 1]\002 on \002[lindex [split $arg] 1]\002"

and after newban putserv "NOTICE $nick :Added global new ban \002[lindex [split $arg] 1]\002"

same thing after killban and killchan ban but change the message.