set salonmx "#jeuxxxxx"
 
bind time - "00 19 * * *" ceciestuntest
 
proc ceciestuntest { min hour day month year } {
global salonmx
   foreach chan [string tolower $::salonmx] {
   if {$chan != ""} {
    putquick "PRIVMSG $chan : Fermeture du salon, veuillez le quitter et revenir aux heures d'ouverture Merci ( 10h00- 19h00 ) "
    putquick "MODE $chan +im"
      }
   }
}
 
bind time - "00 10 * * *" ceciestuntest2
 
proc ceciestuntest2 { min hour day month year } {
global salonmx
   foreach chan [string tolower $::salonmx] {
   if {$chan != ""} {
    putquick "PRIVMSG $chan : re-ouverture du salon"
    putquick "MODE $chan -im"
      }
   }
}

# Une liste des canaux
# Les {, } et \ doivent etre précédés d'un \ !!
variable timedChans_chanlist {#chan1 #chan2}

# On met les binds time en place
bind time -|- {00 19 * * *} ::timedChans_close 
bind time -|- {00 10 * * *} ::timedChans_open
 
proc ::timedChans_close {min hour args} {
putquick "PRIVMSG [join $::timedChans_chanlist ,] :Il est 19h, le canal va fermer. Nous esperons vous revoir demain."
foreach chan $::timedChans_chanlist { 
pushmode $chan +im
putserv "ChanServ CLEAR $chan USERS" }
putserv "JOIN [join $::timedChans_chanlist ,]"
}
 
proc ::timedChans_open {min hour args} {
timer 5 {::timeChans_announce} 
foreach chan $::timedChans_chanlist {
pushmode $chan -im
}
}
 
proc ::timedChans_announce {} {
putquick "PRIVMSG [join $::timedChans_chanlist ,] :Il est 10h, le canal est désormais ouvert !" }

## les personne ayant les flag mno ne sont pas kické ##

## salon a fermer ##
set AF(verif) "#test"
## moment de la fermeture apres l'annonce en minute ##
set AF(times) "5"
## nombre de temps que le salon est fermer en minute ##
set AF(timeouv) "120"
 
 
 
bind time - "55 19 * * *" fermeture
# Annonce de la fermeture # 
proc fermeture {min heure jour mois annee} { 
     global AF
     set curtime [clock seconds]
     set heure [clock format $curtime -format "%H:%M:%S"]	 
     foreach salon [channels] { 
     if {[string equal -nocase $salon $AF(verif)}{
putquick "PRIVMSG $salon : Il est $heure le salon va fermé est mettre les modes +im dans $AF(times) merci de votre compréhension....."
timer $AF(times) "ferme $salon"
     }
	 }
return 0 
}  

# fermeture du salon + kick des user sauf ayant flag (mno) #  
proc ferme {salon} { 	
     global AF 
     putquick "MODE $salon +im"	 
	 foreach user [chanlist $salon] {
      if {![matchattr $hand mno]} {	
putquick "KICK $salon $user : Salon Fermé"  
	 }
	 }
timer $AF(timeouv) "ouvre $salon"   
     return	 
}
	
# réouverture du salon #	
proc ouvre {salon} { 	
     global AF 
     putquick "MODE $salon -im"	 
	 return
}

set chanToClose "#tonchan"
set kickmin 5
set fermetureshour 20
 
bind - "00 $fermetureshour * * *" time:warningClose
bind - "$kickmin $fermeturesclose * * *" time:closing
 
proc time:warningClose {min hour day month year} { 
  global chanToClose
  putserv "PRIVMSG $chanToClose :Ce channel va fermer dans 5minutes, veuillez partir ou vous serez kické"
  putserv "MODE $chanToClose +im"
}
 
proc time:closing {min hour day month year} { 
  global chanToClose
  putserv "PRIVMSG $chanToClose :Kicking..."
  foreach toKick [chanlist chanToClose] {
    putserv "KICK $chan $toKick :Fermeture automatique du chan"
  }
}

proc time:closing {min hour day month year} { 
  global chanToClose
  putserv "PRIVMSG $chanToClose :Kicking..."
  foreach toKick [chanlist chanToClose] {
    putserv "KICK $chan $toKick :Fermeture automatique du chan"
  }
}

proc time:closing {min hour day month year} { 
  global chanToClose
  putserv "PRIVMSG $chanToClose :Kicking..."
  foreach toKick [chanlist chanToClose] {
    putserv "KICK $chanToClose $toKick :Fermeture automatique du chan"
  }
}

# Minute de fermeture de salon
set CC(min) "00"

# Heure de fermeture du salon
set CC(ferme) "22"

# Heure d'ouverture du salon
set CC(ouvre) "10"

# Minute d'ouverture du salon
set CC(mouvre) "00"

# Heure d'avertissement de fermeture
set CC(afh)   "21"

# Minute d'avertissement de fermeture
set CC(amn)   "55"

# Mode de fermeture de salon
set CC(mode) "+iRm"

# Message d'avertissement de fermeture
set CC(af)   "Fermeture du salon dans 05minute.. veuillez quitter ce salon !"

# Message de fermeture
set CC(close) "Fermeture du salon !" 

# Message d'ouverture
 
set CC(ouvert) "Ouverture du salon ! Bon t'chat à tous ! ;)"
 
 
if {![file exists "scripts/chan.db"]} { set file_chan [open "host.db" a+]; close $file_chan }
 
bind time - "$CC(amn) $CC(afh) * * *" time:averto
proc time:averto {} {
global CC
catch {open scripts/chan.db r} salle
while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(af)" } }
catch {close $salle}
}
 
bind time - "$CC(min) $CC(ferme) * * *" time:close
proc time:close {} {
global CC
catch {open scripts/chan.db r} salle
while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(close)"; puts "MODE $salon +$CC(mode)"; foreach users [chanlist $salon] { puts "KICK $salon $user :$CC(ouvert)"} } }
catch {close $salle}
}
 
bind time - "$CC(mouvre) $CC(ouvre) * * *" time:ouvre
proc time:ouvre {} {
global CC
catch {open scripts/chan.db r} salle
while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(ouvert)"; puts "MODE $salon -$CC(mode)" } }
catch {close $salle}
}