#another crappy TCL code by Wyzeman
#Stardate 2017 (WTF)
#bot anti flood identifyed as charnumbernumbernumber or X9999
#version 1.0
#Des solutions cheap pour les moyens du bord!
#                  aka
#Priceless solutions for low profile budget!


array set greetChan {
        0 #SauvonsIRC
#        1 #sector_x
#        2 #quebec
#        3 #tacomprislepatern
}
bind join * * onjoin



proc onjoin {nick host hand chan} {

        set nickmatch 0
        set identmatch 0
        global greetChan
        foreach {index gchan} [array get greetChan] {
                if { $chan == $gchan }  {
                        set ident [string range $host 0 [expr [string first @ $host 0] -1]]

                        if {[regexp {(^[c-cCarton]+[a-zA-Z0-9]+$)} $nick] }  {
                               set nickmatch 1
                        }
#pour le ident mais presentement je le connait pas, je sais pas sil en a un fixe ou semi fixe.
#                                if {[regexp {(^~)+([a-zA-Z]{1})+([0-9]{4})} $ident] && [string length $ident] <= 6} {
#                                        set identmatch 1
#                                }


                        if { $identmatch || $nickmatch} {
                                puthelp "PRIVMSG $chan :vivre le roi carton 49eme"
                        }
                }
        }
}