Communauté sur les Eggdrops - Community about Eggdrops
blockage.... - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: blockage.... (/showthread.php?tid=670)



blockage.... - Babytigrou16 - 15/05/2010

Hello j'ai un ti probléme... j'ai un TCL que on ma filer et il avait quelque erreurs.... la je trouve pu d'erreur mais la remote TCL ne ce fait pas... j'ai pas de message d'erreur et sa fait rien quand je tape !secour où autre commandes :/ une idée ? voici le code


tcl
bind pub - !secours procsos
bind pub - !secour procsos
proc procsos {nick host hand chan arg} {
global nosos vhostnetadmin sossalon
global countsossalon salonsecours nososoff saloni
   set arg [string tolower $arg]
   set timenow [ctime [unixtime] ]
   set saloni [lindex $arg 1]
   set arg1 [lindex $arg 0]
   set arg2 [lindex $arg 0]
   set liste [lindex $arg 1]
   regsub -all {|||} $arg "" arg
   foreach salonsecoursok $salonsecours {
   if {[string match -nocase $salonsecoursok $chan]} {
   foreach admin $vhostnetadmin {
   if {[string match -nocase $admin $host]} {
   if { ($arg2 == "off") && ($liste == "all") } {
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00304 désactivé\00312 sur tous les salons off par\00306 $nick\00301 !"
   set sossalon($liste) "Tout"
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   set nososoff 1
   incr nososoff
   return 0
   }
   if { ($arg2 == "on") && ($liste == "all") } {
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00303 réactivé\00312 sur tous les salons off par\00306 $nick\00301 ."
   unset sossalon($liste)
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   unset nososoff
   return 0
   }
   if { ($arg2 == "off") && ($liste == "list") } {
    if {[array exists countsossalon]} {
        unset countsossalon
    }
    foreach run [array names sossalon] {
        foreach r $sossalon($run) {
            if {[info exists countsossalon($r)]} {
                incr countsossalon($r)
            } else { 
              set countsossalon($r) 1
            }
        }
    }
    putfast "PRIVMSG $chan :\00312Liste des salons\00304 désactivée\00312 pour les\00304 SOS \00301:"
    foreach cousossalon [lsort -dictionary [array names countsossalon]] {
        putquick "privmsg $chan :\00312$cousossalon\00301 est\00304 désactivé\00301 ."
     } 
    putfast "PRIVMSG $chan :\00304Fin \00312Liste \00301."
  }
  foreach connus $saloni {
   if { ($arg1 == "off") && ($salon != "") && [string match -nocase $connus $salon] } {
    if {[array exists countsossalon]} {
        unset countsossalon
    }
    foreach run [array names sossalon] {
        foreach r $sossalon($run) {
            if {[info exists countsossalon($r)]} {
                incr countsossalon($r)
            } else {
                set countsossalon($r) 1
            }
        }
    }
    foreach cousossalon [lsort -dictionary [array names countsossalon]] {
      if {[string match -nocase $cousossalon $salon]} {
      putfast "NOTICE $nick :\00312Commande\00301 !sos/attaque\00304 déjà désactivé\00301 sur\00312 $salon \00301!"
      return 0
      } 
    } 
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00304 désactivé\00312 sur $salon par\00306 $nick\00301 !"
   set sossalon($salon) "$salon"
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   set nosos 1
   incr nosos
   return 0
   }
   set listsalon " [array names sossalon] "
   if { ($arg1 == "on") && ($salon != "") && [string match -nocase $connus $salon] && [string match -nocase "* $connus *" $listsalon] } {
   putfast "PRIVMSG #admin :\00312Commande\00301 !sos/attaque\00303 réactivé\00312 sur $salon par\00306 $nick\00301 ."
   unset sossalon($connus)
   set datasossalon [open "./sossalon.db" "w"]
   puts $datasossalon [list array set sossalon [array get sossalon]]
   close $datasossalon
   unset nosos
   return 0
      } elseif { ($arg1 == "on") && ($salon != "") && [string match -nocase $connus $salon] && ![string match -nocase "* $connus *" $listsalon] } {
      putfast "PRIVMSG $chan :\00312Commande\00301 !sos/attaque\00303 déjà réactivé\00301 sur\00312 $salon \00301."
      return 0
      }
     }
    }
   }
  }
 }
}



j'ai oublier voici les vHost au cas ou

set vhostnetadmin {
*@NetAdmin.zet-land.org
*@ChefAdmin.zet-land.org
*@TechAdmin.zet-land.org

}


RE: blockage.... - heretoc - 15/05/2010

Pour commencer declare les variables :
nosos sossalon countsossalon salonsecours nososoff saloni

Ensuite pour finir retire tous les codes de couleurs, a chaque fois on te le dit a chaque fois tu fait la meme ...
Ces comme utiliser des tcl qui t'apartienne pas, tu essaye sans vouloir les comprendres...
Dommage.


RE: blockage.... - Okk2 - 03/06/2010

Bonsoir.

Les codes tcl de chat-land sont pas les meilleurs moyen d'apprendre à develloper et encore plus quand on ne les connait pas autant evitez de les mettre, ca mene à l'erreur.


RE: blockage.... - heretoc - 04/06/2010

Quote:Les codes tcl de chat-land sont pas les meilleurs moyen d'apprendre à develloper et encore plus quand on ne les connait pas autant evitez de les mettre

Okk2 c'est comme utiliser les tcl des autres modifier juste le nom des variables et dire qu'ont la créer :)
Mais le soucis n'est pas la, si personne lui a repondu ces qu'il a posté le 08/08/2009 exactement le meme code et on lui a fait les memes remarques on a meme essayer de l'aider mais il est tétue.

PS : fait attention aux codes couleurs sinon le grand mechant loup risque de pas aimer.


RE: blockage.... - Okk2 - 04/06/2010

Tu m'excuseras mais ce sos la je l'ai pas vu car j'ai pa chercher à le voir. Et c'est en meme temps logique que les codes ce ressemblent. Ouais désolé pour les codes couleurs.

Cordialement


RE: blockage.... - heretoc - 04/06/2010

Je n'est pas dit sa pour toi ne t'inquiette pas :)
C'etait une petite comparaison entre les gens qui utilisent les codes des autres ou ceux qui changent l'auteur rien d'autre ^^


RE: blockage.... - Okk2 - 05/06/2010

Ah vii t'inquiete pas merci bcp :x