21/09/2009, 09:46
Essaye d'ouvrir dans mes bind entre les {} rajoute min hour day month year
ex :
voila..
ex :
tcl
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}
}
voila..