bind join - #sexe proc:join
bind msg - * msg:all
 
proc proc:join {nick host hand chan} {
 global botnick
   puthelp "PRIVMSG $nick Bonjour $nick,pour pouvoir rentrer sur le salon il faut que tu me donne ton age"
   puthelp "PRIVMSG $nick Pour cela tape la commande </msg $botnick age ton_age> exemple </msg $botnick age 45>"
   puthelp "PRIVMSG $nick Si vous ettes mineurs et que vous passer cette securiter le tchat ne sera pas tenue responsable de sa."
   return 0
}
 
proc msg:all {nick host hand text} {
 
   set arg [split $arg]
   set age [lindex $arg 0]
 
   if {[isnum $age]} {
      if {$age < 18} {
         puthelp "PRIVMSG $nick :Tu n'as pas l'âge requis pour rejoindre le salon"
         puthelp "mode #sexe +b $nick"
		 puthelp "mode #sexe +b $host"
		 puthelp "mode #sexe-bon +b $nick"
		 puthelp "mode #sexe-bon +b $host"
         puthelp "SAPART $nick #sexe"
         return 0
      } else {
         puthelp "PRIVMSG $nick :Votre âge est correcte"
		 puthelp "SAPART $nick #sexe"
		 puthelp "SAJOIN $nick #sexe-bon"
         return 0
      }
   }
}
 
proc isnum {string} {
  if {([string compare $string ""]) && (![regexp "\[0-1\]\[0-7\]\$" $string])} then {return 1}
  return 0
}

bind join - "#sexe *" proc:join

bind join - {#ircb_eggs*} join:ageWarning
bind msgm - * msg:ageWarning
 
proc join:ageWarning {nick uhost hand chan text} {
global botnick
# Si c'est le bot, on ignore
if {$nick eq $botnick} {
putquick [concat PRIVMSG $chan :\[$chan\] Salut..]
 
}
 
proc msg:ageWarning {nick uhost hand text} {
 
# On verifie l'entré
 
if {![regexp -nocase {ai .+?([0-9+]).+? ans} -> age]} {
 
# On vérifie l'age
 
if {$age >= 18} {
 
# Invite de l,user sur #-18ans
 
putquick [concat INVITE $nick #-18ans]

# Envoie de notice au Op
 
putquick [concat NOTICE @#ircb_eggs :$nick déclare avoir - de 18 ans.]
 
}
}
}

contact