17/12/2013, 12:19
Tu n'avais pas mis le code complet, et là ton erreur est plus que flagrante.
Voici la procédure pub:wdntwcmd corrigée:
Je te laisse voir les différences avec ce que tu faisais, et poser les questions si tu ne comprends pas tes erreurs
Voici la procédure pub:wdntwcmd corrigée:
tcl
proc pub:wdntwcmd {nick host hand chan arg} {
global wdntw botnick
set donnees [string_filter [string map {" " %} [join $arg]]]
# on transforme les espaces en %
if { [llength [split $arg]] == 0 } {
putserv "NOTICE $nick : Merci de préciser ta recherche. Exemple : !sound *artistes ou titres*"
return 0
}
if ![matchattr $nick $wdntw(ignflags) $chan] {
if {[wdntw:flood $nick $host]} {
return 0
}
}
set res [infos $donnees]
if { [llength $res] > 0 } {
foreach {artiste titre nom urlmenu} $res {
set minartistes [string_filter $artiste]
set mintitres [string_filter $titre]
#putlog "Résultat : [join $res]";
putlog "$artiste - $titres : http://www.wdntw.com/$urlmenu/$minartistes/$mintitres";
}
} else {
putserv "NOTICE $nick : Désolé mais ce son n'existe pas dans ma base de données.";
}
}
Je te laisse voir les différences avec ce que tu faisais, et poser les questions si tu ne comprends pas tes erreurs