Communauté Eggdrop

Communauté Eggdrop > Eggdrop et TCL > Scripts TCL > SOS
Version complète : SOS
Vous consultez actuellement la version basse qualité d’un document. Voir la version complète avec le bon formatage.

Babytigrou16

08/08/2009, 07:48
Alors voila j'ai un pti probléme j'ai un ami qui ma donner un code TCL de SOS mais sa me dit < -01:40:48- <Nemesis> [07:40] Tcl error [procsos]: can't read "saloni": no such variable > Alors si vous avais une idées d'ou sa vien ... car j'ai meme changé la variable et sa rien changé :/ alors j'ignore quoi faire ... merci d'avance Razz

Coordialement Dragon061


tcl
bind pub - !secours procsos
bind pub - !secour procsos
proc procsos {nick host hand chan arg} {
global nosos vhostnetadmin sossalon countsossalon salonsecours nososoff saloni
   set arg [string tolower $arg]
   set timenow [ctime [unixtime] ]
   set salon [lindex $arg 1]
   set arg1 [lindex $arg 0]
   set arg2 [lindex $arg 0]
   set liste [lindex $arg 1]
   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 :Commande !sos/attaque désactivé sur tous les salons off par $nick !"
   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 :Commande !sos/attaque réactivé sur tous les salons off par $nick ."
   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 :Liste des salons désactivée pour les SOS :"
    foreach cousossalon [lsort -dictionary [array names countsossalon]] {
        putquick "privmsg $chan :$cousossalon est désactivé ."
     } 
    putfast "PRIVMSG $chan : Fin Liste ."
  }
  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 :Commande !sos/attaque déjà désactivé sur $salon !"
      return 0
      } 
    } 
   putfast "PRIVMSG #admin :Commande !sos/attaque désactivé sur $salon par $nick !"
   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 :Commande !sos/attaque réactivé  sur $salon par $nick ."
   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 :Commande !sos/attaque déjà réactivé1 sur $salon ."
      return 0
      }
     }
    }
   }
  }
 }
}
 
if {[file exists "./sossalon.db"]} {
source "./sossalon.db"
}


heretoc

08/08/2009, 12:33
bha deja prend pas des codes sans savoir comment ils marchent ... surtout que cela apartient au robot de chat land ...

BlackNight

09/08/2009, 02:07
y'a des caractères code couleur Mirc, tu va te faire sanctionner si tu les enlève pas Babytigrou, et je t'avais déjà dit ailleurs, de pas poster des codes sans l'autorisation de leur propriétaire.
Et je n'ai pas été le seul à le dire.

Babytigrou16

09/08/2009, 17:38
j'ai retiré les code couleurs ! Surprised mais la sa m'aide pas -_- ....

BlackNight

09/08/2009, 21:29
essai

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


Babytigrou16

09/08/2009, 22:34
non fonctionne toujour pas

-16:34:14- <Nemesis> [22:34] Tcl error [procsos]: can't read "saloni": no such variable

CrazyCat

09/08/2009, 22:37
Je ne vois nulle part de "set saloni ....."

BlackNight

09/08/2009, 22:38
ou est elle définir ta variable $saloni ?

Babytigrou16

10/08/2009, 03:05
ici

tcl
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
            }
        }
    }



Si tu regarde plus haut ... elle es seulement bien cacher Very Happy

BdS

10/08/2009, 10:08
Tu montres un morceau de code qui utilise la variable "saloni" ... mais ou est elle défini ? Que contient elle ?
Pareil que CrazyCat, je ne vois aucun "set saloni ...".

heretoc

10/08/2009, 17:53
Moi personellement je ne cherche plus, il prend les code d'un peut tous le monde et cherche meme pas a comprendre pourquoi sa marche pas ...

Babytigrou16

11/08/2009, 00:19
heretoc s'a tarrive de laisser les gens tranquil ? si oui alors fou moi la paix ^^ XD Et oui vous avais rasion voila Razz miciii ++

BlackNight

12/08/2009, 04:08
Voivi un petit SOS pour toi recodé vite fait.
Je vais VOLONTAIREMENT y placer des erreurs, pour que tu voye un peu comment ca fonctionne. Ce sont des erreurs toutes bêtes, mais qui t'obligeront a relire le tcl correctement.


tcl
set ::alertchan {
""chan1"
"#chan2"
"#chan3""
}
 
bind pub - !sos sos_alert
proc sos_alerte {nick uhost handle chan args} {
 putquick "NOTICE $nick :\002\00312Votre SOS a été envoyé au staff \003\002" 
 set ::chango $chan
  foreach chanalert $::alerteuhchan {
 putquick "LocOps :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003" 
 putquick "PRIVMSG $chanalert :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003" 
 putquick "NOTICE $chanalert :\002\00304SOS\002:\00312 $nick \00306>> \00304!SOS par $nick \00301sur\00312 $chan !!\003" 
}
}
 
bind pub - !gosos sos_join
proc sos_joint {nick host hand chan arg} {
foreach gochan $::alertchan {
 if [string match -nocase $gochan $chan]  {
 putquick "SAJOIN $nick $::chango"
 putquick "SAMODE $::chango +h $nick"
 putquick "PRIVMSG $chan :\002\00312$nick \00306prends en charge le \00304SOS \00306sur\00305 $::chango\003\002"
}
}
}


BlackNight

12/08/2009, 04:10
Désole pour le double post, fausse manip
Communauté Eggdrop > Eggdrop et TCL > Scripts TCL > SOS