un kick ban euhhh sadique

[caline012]

TCL

set commande(choix) "!"
 
bind pub - $commande(choix)grrr     pub:grrr
 
proc pub:grrr {nick host hand chan arg} {
    global commande botnick
    if { [isop $nickdubot $chan] } {
        set who [lindex $arg 0]
        if {$who == "" } {
            putserv "notice $nick :Non mais, met un pseudo espece de boulet !!"
        } else {
            if {![matchattr $hand o]} {
                putserv "notice $nick :Non mais,tu y croyais toi!!Faut pas rêver!!"
                return 0
            } else {
                set usermask [lindex [split [getchanhost $who $chan] "@"] 0]
                set ipmask [lindex [split [maskhost $who![getchanhost $who $chan]] "@"] 1]
                set nickidenthostermask $who![getchanhost $who $chan]
                set identhostmask [lindex [split $nickidenthostermask "!"] 1]
                set hostmask  [lindex [split $identhostmask "@"] 1]
                putserv "privmsg $chan :Hello $who"
                putserv "privmsg $chan :Je suis le bot de ce chan"
                putserv "privmsg $chan :On m a dit de m'occuper de toi"
                putserv "MODE $chan -qaohv $who $who $who $who $who"
                putserv "privmsg $chan :Alors, comme je suis obéissant"
                putserv "privmsg $chan :Alors, pour débuter, je pose deux bans"
                putserv "MODE $chan +bb $who *!*$usermask*@*"
                putserv "privmsg $chan :Oh et puis soyons fou, un troisieme "
                putserv "MODE $chan +b *!*@$hostmask"
                putserv "privmsg $chan :Et maintenant, je te kick"
                putserv "KICK $chan $who On m a demandé de t attaquer alors au revoir !!!!!!!"
            }
        }
    } else {
        putserv "notice $nick :desolé $nick, je ne suis pas actuellement op sur $chan"
    }
}

c'est sur jai fait des erreur mais bon jai l habitude lol