[TCL] Problème Multichan & dédicace
#2
Déjà, je vois des erreurs dans les procédures "titre":
TCL
proc stream:pub:titre {nick uhost handle channel data} {
   set ::page "http://www.r-n-g.fr/website_sources/shoutcast.inc.php"
   set ::oups [http::geturl $::page ]
   set ::titre [http::data $::oups ]
   set ::titre [split $::titre]
   set ::titre2 [ debuf $::titre ]
   if { $::titre2 != $::basetitre } {
      foreach a [channels] {
         if {[string equal -nocase $channel $a]} {
            set ::basetitre $::titre2
            putquick "NOTICE $nick :\0033..::: \0034$::anim \0033:::..\0033 \0032Vous Propose d'écouter: \0033..::: \0034 $::titre2 \0033:::..\0032"
         } else {
            return $::titre2
         }
         utimer 15 [list untel 1]
      }
   }
}


Donc la, tu boucles sur tous les canaux de l'eggdrop et si l'utilisateur est sur l'un des canaux (ce qui semble évident), on lui envoie une notice. Sinon la procédure fait un return (à rien) du titre.
Et tu as un timer qui appelle une proc inconnue (untel ?)
TCL
proc stream:msg:titre {nick uhost channel handle data} {
set ::page "http://www.r-n-g.fr/website_sources/shoutcast.inc.php"
set ::oups [http::geturl $::page ]
set ::titre [http::data $::oups ]
set ::titre [split $::titre]
set ::titre2 [ debuf $::titre ]
if { $::titre2 != $::basetitre } {
foreach a $::salon {
if {[string equal -nocase $channel $a]} {
set ::basetitre $::titre2
putquick "NOTICE $nick :\0033..::: \0034$::anim \0033:::..\0033 \0032Vous Propose d'écouter: \0033..::: \0034 $::titre2 \0033:::..\0032"
      } else {
return $::titre2
   }
   utimer 15 [list untel 1]
      }
   }
}


Même chose qu'au dessus, sauf que tu t'es trompé dans les arguments de la fonction, channel ne peut pas être présent dans une commande par message. Donc la procédure doit te faire une belle erreur dès son appel.
Répondre


Messages dans ce sujet
RE: [TCL] Problème Multichan & dédicace - par CrazyCat - 09/01/2011, 11:34

Atteindre :


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