[ Exercices corrigés de TCL ]

[ Sommaire ]

• Exercice 1
• Exercice 2
• Corrigé de l'exercice 1
• Corrigé de l'exercice 2

[ Exercice 1 ]

Exercice proposé par Lucas Nussbaum

Ce premier exercice vous permettra de créer un script très simple.

Avec ce script, le bot doit :

• Dire "bonjour nickname" sur le channel quand nickname entre sur le channel.
• Envoyer une notice à nickname quand il rentre sur le channel, en disant "Salut, je suis nick du bot, le bot de nom du channel. Pour avoir plus d'infos sur moi, tape !eggfrrocks sur nom du channel !"
• Lorsque nickname tape !eggfrrocks (le nom de la commande peut être changé ;) ), le bot doit lui envoyer un message privé (en query, private, pv, etc ...), c'est-à-dire un PRIVMSG, avec pour texte "Désolé, mon maître n'a pas encore fait l'exercice 2 :("

A vos claviers !

[ Exercice 2 ]

Exercice proposé par Seven

Qui n'a jamais rêvé de lire une ligne au hasard dans un fichier texte ?
Qui n'a jamais rêvé de ces mondes souterrains, de ces mers lointaines peuplées de légendes, où d'une richesse soudaine qui se conquerrait au détour d'un chemin de la Cordillère des Andes ?
Euhh non aucun rapport...

Enfin bref comment lire dans un fichier texte ?
Et comment lire une ligne au hasard et l'afficher sur le channel ?
A quoi ca peut bien servir, aucune idée, on verra plus tard...
Let's go...

Faites un script qui, lorsqu'un utilisateur tape !pouet sur un channel, fait dire au bot une phrase au hasard trouvée dans un fichier texte.

[ Corrigé de l'exercice 1 ]

Si vous n'avez pas réussi à faire ce script facile, vous devriez relire l'initiation au TCL.
Comme c'est peut-être votre premier script, nous allons le corriger pas à pas.

Dire "bonjour nickname" sur le channel quand nickname entre sur le channel.

Pour détecter l'entrée de quelqu'un sur le channel, il faut utiliser un bind. Les binds sont décrits dans le fichier doc/tcl-commands.doc (à ouvrir avec le bloc-notes sous Windows). Un survol de ce fichier vous fera le plus grand bien, histoire de savoir ce dont l'eggdrop est capable !
Voici ce qu'on trouve sur le bind JOIN dans ce fichier :

    (8)  JOIN (stackable)
         bind join <flags> <mask> <proc>
         procname <nick> <user@host> <handle> <channel>
         
         Description: triggered by someone joining the channel. The mask in
           the bind is matched against "#channel nick!user@host" and can 
           contain wildcards.
         Module: irc

Pour exécuter une procédure lorsque quelqu'un arrive sur un channel, il faut donc écrire :
bind join - * join:exo1
proc join:exo1 { nick uhost hand chan } {
   code de la procédure
}
Si le but est de détecter les JOINs sur #test, et pas sur les autres channels :
bind join - "#test *" join:exo1
proc join:exo1 { nick uhost hand chan } {
   code de la procédure
}

Ensuite, il faut envoyer un message sur le channel. Pour envoyer un message au serveur, il faut utiliser puthelp, putserv ou putquick. La différence entre ces trois commandes est la file d'attente où est mis le message. putquick envoie dans la file la plus prioritaire, tandis que puthelp envoie dans la file la moins prioritaire.
Pour envoyer un message :
putserv "PRIVMSG $chan :texte"
Attention, il ne faut pas oublier le ":".

Notre script devient donc :
bind join - "#test *" join:exo1
proc join:exo1 { nick uhost hand chan } {
   putserv "PRIVMSG $chan :Bonjour $nick"
}

Envoyer une notice à nickname quand il rentre sur le channel, en disant "Salut, je suis nick du bot, le bot de nom du channel. Pour avoir plus d'infos sur moi, tape !eggfrrocks sur nom du channel !"

Cette partie du problème est peu différente de la précédente. Pour afficher le nick du bot, il faut utiliser la variable botnick, sans oublier de la mettre en global dans la procédure :
bind join - "#test *" join2:exo1
proc join2:exo1 { nick uhost hand chan } {
   global botnick    putserv "NOTICE $nick :Salut, je suis $botnick, le bot de $chan. Pour avoir plus d'infos sur moi, tape !eggfrrocks sur $chan !"
}

Mais il est bien sûr possible de combiner cette procédure avec la précédente :
bind join - "#test *" join:exo1
proc join:exo1 { nick uhost hand chan } {
   global botnick
   putserv "PRIVMSG $chan :Bonjour $nick"
   putserv "NOTICE $nick :Salut, je suis $botnick, le bot de $chan. Pour avoir plus d'infos sur moi, tape !eggfrrocks sur $chan !"
}

Lorsque nickname tape !eggfrrocks (le nom de la commande peut être changé ;) ), le bot doit lui envoyer un message privé (en query, private, pv, etc ...), c'est-à-dire un PRIVMSG, avec pour texte "Désolé, mon maître n'a pas encore fait l'exercice 2 :("

La seule différence avec la partie précédente est l'utilisation d'un bind différent. Ici, il faut utiliser le bind PUB. On fait aussi un test pour vérifier le channel sur lequel a été utilisée la commande.
bind pub - !eggfrrocks pub:exo1
proc pub:exo1 { nick uhost hand chan text } {
   if ![string compare [string tolower $chan] "#test"] {
      putserv "PRIVMSG $nick :Désolé, mon maître n'a pas encore fait l'exercice 2 :("
   }
}