transformation du script mirc en script tcl

[Marc]

Aucune réponse du robot !
Est-ce normale j'ai tout essayer !

Voici le tcl maintenant après quelque changement ! #ircb_eggs étant le canal de teste et #rencontres étant le canal futur où le robot serras accueuiilit !

tclcopier

bind join - * proc:join
bind msg - * msg:all
 
proc proc:join {nick uhost hand chan arg} {
 
   putquick "NOTICE $nick :Bonjour $nick, sache que ce canal est réservé as un publique d'un certain âge (+ de 18ans) !"
}
 
proc msg:all {nick host hand text arg} {
 
   set arg [split $arg]
   set age [lindex $arg 0]
 
   if {[isnum $age]} {
      if {$age < 18} {
         puthelp "NOTICE $nick :Tu n'as pas l'âge requis pour rejoindre le salon !!"
         puthelp "NOTICE $nick :L' âge requis est 18 ans"
         puthelp "kick #ircb_eggs $nick Admission interdite (Canal réservé au personne de + de 18ans."
         return 0
      } else {
         puthelp "NOTICE $nick :Bienvenue sur #salon"
         return 0
}
 
proc isnum {string} {
  if {([string compare $string ""]) && (![regexp &#92;[^0-9\] $string])} then {return 1}
  return 0
}