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

bind pub - !secours procsos
bind pub - !secour procsos
proc procsos {nick host hand chan arg} {
global nosos vhostnetadmin sossalon
global countsossalon salonsecours nososoff saloni

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

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