Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


un kick ban euhhh sadique
#1

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
Away


Messages In This Thread
un kick ban euhhh sadique - by caline012 - 29/11/2007, 11:36
RE: un kick ban euhhh sadique - by CrazyCat - 29/11/2007, 13:18
RE: un kick ban euhhh sadique - by caline012 - 29/11/2007, 14:08
RE: un kick ban euhhh sadique - by caline012 - 11/05/2008, 20:03
RE: un kick ban euhhh sadique - by DaV34 - 04/06/2008, 17:54

Forum Jump:


Users browsing this thread: 1 Guest(s)