Fermeture automatique d'un salon a une heure prédéfinie

[snoopy]

bonsoir je viens de te codé sa en 5 min j'ai pas testé mais sa doit marché du premier coup
protection des flag mno
annonce x temps avant fermeture du salon
auto ouverture du salon apres x temps
j'espere que sa pourra t'aidé

tclcopier

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