problème très stupide

[or10n]

bonsoir tout le monde bon voilà je vais faire très cours cela fait un moment que je n'es plus utilise les utimer sous tcl et voila mon petit souci
je voudrais simplement que le bind reponde a la une commande comme suite

tclcopier

bind pub - !test test_utimer
 
proc test_utimer {
# pour principe on récupère le nick de la personne souhaiter
set n [lindex $arg 0]
# lancement du msg
putserv "privmsg #aide : $n un test apres 10secondes"
# le utimer
utimer 10 test_utimer; 
}

voila en gros je voudrais que le tcl une fois la commande tape envoie le msg a la personne 10secondes après donc mais je sais pas je dois avoir oublier un gros détail la car cela ne fonctionne pas ^^'
merci a vous

[fedora]

bonjour,

peut etre un truc dans ce genre là:

tclcopier

set SalonAide "#aide"
 
bind pub - !test test_utimer
proc test_utimer { nick host hand chan arg } {
global botnick 
if {$arg != ""} {
utimer 10 [list TimerMsg $chan $nick]
return 0
}
}
 
proc TimerMsg {chan nick} {
if {![botisop $chan]} { return 0 }
if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
putserv "privmsg $::SalonAide : $nick ceci est  un test après 10secondes"
}
return 0
}

Ceci n'est qu'un Exemple donc à Testé


Cordialement

[CrazyCat]

Le problème a été résolu sur #eggdrop, mais merci de ta participation fedora :)

[or10n]

merci fedora pour ton aide, apres avoir test vos deux code différent selon les idées,
CrazyCat effectivement rien a dir sur tes codes comme d'habitude sauf que on a oublie la fonction pour ajouter un mot ou un nick dans la commande et la encore ce matin je trouve pas après avoir retourne sa dans tout les sens, fedora merci pour ton code également je viens de tester seul souci aucune réaction de la part du bot ni sur channel ni dans la pl :s mais je garde sa sous le coude merci.


Après avoir remodelé un peux a la bourrin une procédure de CrazyCat
je suis arrive a la chose suivante mais très suspecte donc voici le code

tclcopier

bind pub - !pwet pwet:pub
 
proc pwet:pub {nick uhost hand chan arg } { 
set n [lindex $arg 0]
utimer 5 { putserv "privmsg #staff :hum on test la var $n" }
return 0
}

Donc voici le code quand je tape donc la commande
!pwet exemple en pl le bot me répond ceci

<RaMSeS> [12:58] Tcl error in script for 'timer7':
<RaMSeS> [12:58] can't read "n": no such variable

on dirais qui vire sa propre variable avant de l'utiliser :s une idée svp ?

[fedora]

reprend mon système de utimer j'pense que sa devrais l'faire :)

[or10n]

j'ai test ton code fedora mais aucune reaction du bot ni sur le chan ni en party line :/

[fedora]

j'ai tester le code et il fonctionne

|17:49:05| fedora: !test
|17:49:17| @bOten: fedora ceci est un test après 10secondes

tclcopier

set SalonAide "#aide"
 
bind pub - !test test_utimer
proc test_utimer { nick host hand chan arg } {
global botnick
if {$arg == ""} {
utimer 10 [list TimerMsg $chan $nick]
return 0
}
}
 
proc TimerMsg {chan nick} {
if {![botisop $chan]} { return 0 }
if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
putserv "privmsg $::SalonAide : $nick ceci est  un test après 10secondes"
}
return 0
}

en faite j'ai juste modifier

tclcopier

if {$arg != ""} {

par

tclcopier

if {$arg == ""} {

n'oublie pas de rehash ou restart ton bot :)

cordialement

[or10n]

okay effectivement comment sa il fonctionne direct, mon seul dernier gros souci est pour ajouter un "mot" a la suite du bind je m'explique exemple on tape !test 123
le bot lui répond toujours 10secondes après : ceci est un test après 10secondes > 123
en faite je ne vois pas du tout comment arrive a le faire la car si je rajoute une demande de set var la variable auras bien été set mais je ne pourrais pas la récupère sur la procédure suivante la TimerMsg car si exemple j'ajoute

tclcopier

set mot [lindex $arg 0]

je ne pourrais reprendre la var dite "mot" donc voila mon souci ^^'

[fedora]

tclcopier

set SalonAide "#aide"
 
bind pub - !test test_utimer
proc test_utimer { nick host hand chan arg } {
global botnick
if {$arg == ""} {
utimer 10 [list TimerMsg $chan $nick]
}
 if {$arg != ""} {
 utimer 10 [list TimeMsg $chan $arg]
return 0
   }
 }
proc TimerMsg {chan nick} {
if {![botisop $chan]} { return 0 }
if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
putserv "privmsg $::SalonAide : $nick ceci est  un test après 10secondes"
}
return 0
}
 
proc TimeMsg {chan arg} {
if {![botisop $chan]} { return 0 } 
putserv "privmsg $::SalonAide : ceci est  un test après 10 secondes $arg"
return 0
}

ce qui te donne ceci :

|19:46:58| fedora: !test
|19:47:08| @bOten: fedora ceci est un test après 10secondes
|19:47:12| fedora: !test 123
|19:47:24| @bOten: ceci est un test après 10 secondes 123

[or10n]

superbe \0/ merci beaucoup a vous deux.
fedora ton code rox tout simplement merci :)

[fedora]

bah écoute ravie que cela te convienne (je suis comme toi débutant en TCL et j'apprends par le via de ce forum), je sais pas si il "rox" car il est optimisable. j'ai fait sa vite fait.fin bon le principal c'est que sa te convienne.

cordialement