transformation du script mirc en script tcl
#1
bonjours je m adresse a vous car je voudrais tranformer un script mirc en script tcl voi ci le script je sais il est long et qu il pourait etre beaucoup plus cours mais bon c est pas grave :o

Code :
on *:join:#test: {notice $nick Bonjour $nick $+ ,Pour pouvoir rentrer sur le salon il me faut ton âge (tape la commande /msg vins "age" ) ! tchat-tendance ne sera pas responsable si vous êtes mineur et que vous rentrez sur le salon !!  
on 1:text:18*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste | /sapart $nick #test  
}
on 1:text:19*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste | /sapart $nick #test  
}
on 1:text:20*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:21*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:22*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:23*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:24*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:25*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:26*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:27*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:28*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:29*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:30*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:31*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:32*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:33*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:34*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:35*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:36*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:37*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:38*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:39*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test
}
on 1:text:40*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:41*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:42*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:43*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:44*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:45*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:46*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:47*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:48*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:49*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:50*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:51*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:52*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:53*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:54*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:55*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:56*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:57*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:58*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:59*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:60*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:61*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:62*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:63*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:64*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:65*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:66*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:67*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:68*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:69*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:70*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:71*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:72*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:73*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:74*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:75*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:76*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:77*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:78*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:79*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:80*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:81*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:82*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:83*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:84*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:85*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:86*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:87*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:88*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:89*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:90*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:91*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:92*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:93*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:94*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:95*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:96*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:97*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:98*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:99*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:100*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:101*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:102*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:103*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:104*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:105*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:106*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:107*:?:{ msg  $chan $nick  merci a toi tu as l age requis pour rentrer sur le salon #sexe  | /sajoin $nick #teste  | /sapart $nick #test  
}
on 1:text:10*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:9*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:8*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:7*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:6*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:5*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:4*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:3*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:2*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:1*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:11*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:12*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test
}
on 1:text:13*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test
}
on 1:text:14*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test
}
on 1:text:15*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test  
}
on 1:text:16*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test
}
on 1:text:17*:?:{ msg  $chan $nick  tu n as pas l age requis pour rejoindre le salon ! l age requis est 18 ans !  | /sapart $nick #test
}

ps: remplacer test par sex et teste par sexe merci :p
Répondre Avertir
#2
Bonsoir VINS !

Tout d'abord, je vais te demander un gros effort pour ton orthographe, ici, on essaye d'écrire correctement. Saches aussi qu'il existe des balistes [ c o d e ] ... [ / c o d e ] (en attaché) pour mettre son code car franchement, c'est illisible ce que tu donnes.

Voila quelque chose que j'ai bricolé :

TCL
bind join - #salon proc:join
bind msg - * msg:all
 
proc proc:join {nick host hand chan} {
 
   puthelp "NOTICE $nick :Bonjour $nick,Pour pouvoir rentrer sur le salon il me faut ton âge (tape la commande /msg vins \"age\" ) ! tchat-tendance ne sera pas responsable si vous êtes mineur et que vous rentrez sur le salon !!"
 
   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 "NOTICE $nick :Tu n'as pas l'âge requis pour rejoindre le salon !!"
         puthelp "NOTICE $nick :L' âge requis est 18 ans"
         puthelp "SAPART $nick #salon"
         return 0
      } else {
         puthelp "NOTICE $nick :Bienvenue sur #salon"
         return 0
}
 
proc isnum {string} {
  if {([string compare $string ""]) && (![regexp \[^0-9\] $string])} then {return 1}
  return 0
}



Voila ton bonheur ci-dessus, j'espère pour toi que tu sauras l'adapter à ce que tu veux, et sache que ton eggdrop doit être IRCOP pour que la source ci-dessus fonctionne.

Note : Je n'ai pas testé le script tcl, mais c'est surtout pour te montrer le principe, j'ai pas pour habitude de mâcher le travail à quelqu'un, mais bon courage.
Répondre Avertir
#3
Pourquoi un SAPART? un kick fait très bien l'affaire.
Répondre
#4
Info supplémentaire...
Plutôt que de créer une fonction "isnum", il est possible de tester:
TCL
[string is integer -strict $age]


Répondre
#5
DaV34 a écrit :Voila ton bonheur ci-dessus, j'espère pour toi que tu sauras l'adapter à ce que tu veux, et sache que ton eggdrop doit être IRCOP pour que la source ci-dessus fonctionne.

Pourquoi IRCOP ? je comprend pas, ça serait plus simple si l'egg doit etre op minimum ...
Répondre Avertir
#6
Pour le SAPART, reservé aux IRCop ...
CrazyCat a écrit :La prochaine fois, essaye d'imaginer que j'ai un cerveau ...
Répondre Avertir
#7
oui vous avez raison ! mais je sais pas faire des codes tcl ps: ton script tcl que tu ma donner marche pas :s
Répondre Avertir
#8
soit plus explicite stp ...
CrazyCat a écrit :La prochaine fois, essaye d'imaginer que j'ai un cerveau ...
Répondre Avertir
#9
enfaite je veux un script tcl qui quand on arrive sur le salon sex pose une question "Bonjour $nick,Pour pouvoir rentrer sur le salon il me faut ton âge (tape la commande /msg nom du bot age " ensuite si tu repond plus de 18 ans tu es sajoin sur le salon sexe ! mais si tu repond un age inferieur a 18 tu es sapart du salon sex ! (le salon sexe et cache et protege par un clef ) donc oblige de repondre a la question !
Répondre Avertir
#10
ps : salon sex et different du salon sexe salon sex est juste la pour l envoie de la notice du bot !
Répondre Avertir
#11
je n es recu aucun message d erreur mais sur le salon sex je recois aucune notice de mon eggdrop .
Répondre Avertir
#12
ok je n'avais pas fait attention.

Peux tu mettre ton code tel que tu l'a mis dans ton egg ?
CrazyCat a écrit :La prochaine fois, essaye d'imaginer que j'ai un cerveau ...
Répondre Avertir
#13
TCL
bind join - #sex proc:join
bind msg - * msg:all
 
proc proc:join {nick host hand chan} {
 
   puthelp "NOTICE $nick Bonjour $nick,Pour pouvoir rentrer sur le salon il me faut ton âge (tape la commande /msg AGent-de-police \"age\" ) !"
   puthelp "NOTICE $nick TchaT-TenDanCe ne sera pas responsable si vous êtes mineur et que vous entrez sur le salon !!"
 
   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 "NOTICE $nick :Tu n'as pas l'âge requis pour rejoindre le salon !!"
         puthelp "NOTICE $nick :L' âge requis est de 18 ans minimum"
         puthelp "SAPART $nick #sex"
         return 0
      } else {
         puthelp "NOTICE $nick :Bienvenue sur #sexe"
         return 0
      }
   }
}
 
proc isnum {string} {
  if {([string compare $string ""]) && (![regexp \[^0-9\] $string])} then {return 1}
  return 0
}


Répondre Avertir
#14
ben ya pas besoin de SAPART vu ce qu'il demande
Répondre Avertir
#15
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 !
TCL
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
}


Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté