Bonjour,
J'ai repris du service depuis 10 ans d'absence du circuit ! A l'époque, et je crois que c'était avec l'aide des utilisateurs du fofo nous avions crée ce script :
Ce script fonctionnait parfaitement !
Aujourd'hui en revanche... c'est plus compliqué ! Je n'ai aucun message d'erreur en part line, mais rien ne s'effectue sur le salon, aucun message ni de changement de mode...
Merci pour vos lumières...
J'ai repris du service depuis 10 ans d'absence du circuit ! A l'époque, et je crois que c'était avec l'aide des utilisateurs du fofo nous avions crée ce script :
tcl
# Minute de fermeture de salon
set CC(min) "15"
# Heure de fermeture du salon
set CC(ferme) "17"
# Heure d'ouverture du salon
set CC(ouvre) "17"
# Minute d'ouverture du salon
set CC(mouvre) "17"
# Heure d'avertissement de fermeture
set CC(afh) "17"
# Minute d'avertissement de fermeture
set CC(amn) "14"
# 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 {min hour day month year} {
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 {min hour day month year} {
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 {min hour day month year} {
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}
}
Ce script fonctionnait parfaitement !
Aujourd'hui en revanche... c'est plus compliqué ! Je n'ai aucun message d'erreur en part line, mais rien ne s'effectue sur le salon, aucun message ni de changement de mode...
Merci pour vos lumières...