################################## ## cours & quiz & etc sur #Cours bind dcc - quiz dcc_quiz proc dcc_quiz {hand idx args} { set args [lindex $args 0] if ![matchattr $hand o|fv #Cours] { aux_poubelles $hand $idx $args return 0 } if {[getchan $idx] != 1000} { putdcc $idx "Cette commande ne fonctionnera que si tu te trouves dans le .chat cours" return 0 } if {$args == ""} { putdcc $idx "Les commandes disponibles sont:" putdcc $idx " .quiz go (Lancer manuellement un quiz)" putdcc $idx " .quiz stop (Arrêter un quiz actif)" putdcc $idx " .quiz +auto (Activer les quiz automatisés)" putdcc $idx " .quiz -auto (Désactiver les quiz automatisés)" putdcc $idx " .quiz load (Lire le nouveau fichier de QUIZ)" putdcc $idx " .quiz fichier " putdcc $idx " (Cette dernière commande est réservée au responsable)" putdcc $idx "Attention, pour savoir si la commande a eu un effet, aller sur .chat cours" return 0 } if {([matchattr $hand T] | [string match *questions.txt* [getuser $hand xtra fichiers]]) & ([string tolower [lindex $args 0]] == "fichier")} { set nick [lindex $args 1] putdcc $idx "D'accord, je tente d'envoyer le fichier des questions du quiz à $nick" dccsend "questions.txt" $nick return 1 } putbot ProfBot "quiz $args" return 1 } bind dcc - cours dcc_cours proc dcc_cours {hand idx args} { set args [lindex $args 0] if ![matchattr $hand o|fv #Cours] { aux_poubelles $hand $idx $args return 0 } if {[getchan $idx] != 1000} { putdcc $idx "Cette commande ne fonctionnera que si tu te trouves dans le .chat cours" return 0 } if {$args == ""} { putdcc $idx "Les commandes disponibles sont:" putdcc $idx " .cours go (Lancer manuellement un cours)" putdcc $idx " .cours pause (Mettre en pause un cours actif)" putdcc $idx " .cours stop (Arrêter un cours actif)" putdcc $idx " .cours +auto (Activer les cours automatisés)" putdcc $idx " .cours -auto (Désactiver les cours automatisés)" putdcc $idx " .cours liste (Donne la liste des cours disponibles)" putdcc $idx " .cours horaire " putdcc $idx " (Cette dernière commande est réservée au responsable)" putdcc $idx "Attention, pour savoir si la commande a eu un effet, aller sur .chat cours" return 0 } if {[string tolower [lindex $args 0]] == "horaire"} { if ![matchattr $hand o|o #Cours] { putdcc $idx "Ts ts, opération illégale!" return 0 } } putbot ProfBot "cours $args" return 1 } ################ ### Relais ! ### ################ bind bot - cours bot_cours proc bot_cours {from command args} { dccputchan 1000 [lindex $args 0] } bind dcc - horaire dcc_horaire proc dcc_horaire {hand idx arg} { if {[getchan $idx] != 1000} { putdcc $idx "Cette commande ne fonctionnera que si tu te trouves dans le .chat cours" return 0 } putbot ProfBot "horaire [lindex $arg 0]" return 1 }