Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #######################################
- # #
- # Jarvis & Aragorn Services #
- # By AngeDesOmbres #
- # #
- #######################################
- ###################
- # #
- # Configuration #
- # #
- ###################
- #-> Les Sets
- set modo_ver "2.4.5"
- set modo_author "AngeDesOmbres"
- set modo_date "02/01/2017"
- set modo_upgrade "31/02/2017"
- set cs "ChanServ"
- set hs "HostServ"
- set bs "BotServ"
- set chanlog "#Services"
- set chanstaff "#Staff"
- set chansos "#Plaintes"
- set active(chan) "#Sex #Entre-Couples #Charme #Entre-Mecs #1000Bornes #Enjoy-Hit #Motus #Pendu #Quizz #Uno #Aide #Services #Accueil #-18ans #Entre-Filles #Auvergne-Rhone-Alpes #Bourgogne-Franche-Comte #Bretagne #Bruxelles #Centre-Val-De-Loire #Corse #Grand-Est #Hauts-De-France #Ile-De-France #Luxembourg #Services #Normandie #Nouvelle-Aquitaine #Occitanie #PACA #Pays-De-La-Loire"
- set exempt(reason) "\002\0034!! ERROR 404 COMMAND NOT FOUND !! \0037Pseudo protégé \00312Commande NOT FOUND"
- set exempt(vhost) {
- EnjOy-Tchat.fr
- *@EnjOy-Tchat.fr
- *Root@EnjOy-Tchat.fr
- *@TechAdmin.EnjOy-TchaT.fr
- *@NetAdmin.EnjOy-Tchat.fr
- *@Admin.EnjOy-Tchat.fr
- *@CoAdmin.EnjOy-Tchat.fr
- *@IRCop.EnjOy-Tchat.fr
- *@ChanMaster.EnjOy-Tchat.fr
- *@Faucheur.EnjOy-Tchat.fr
- *@Moderateur.EnjOy-Tchat.fr
- *@Moderatrice.EnjOy-Tchat.fr
- *@Operateur.EnjOy-Tchat.fr
- *@Operatrice.EnjOy-Tchat.fr
- *@Moderation.Enjoy-TchaT.fr
- *@EnjOy-TchaT.fr
- *@Plaintes.EnjOy-TchaT.fr
- *@Games.EnjOy-TchaT.fr
- *@Helpeur.EnjOy-TchaT.fr
- *@News-Staff.EnjOy-TchaT.fr
- *@LineDesign.fr
- }
- set badwords {
- pute
- salope
- connard
- putain
- putin
- conasse
- connasse
- Connard
- Pute
- Salope
- salop
- Salop
- conard
- Conard
- encul*
- Encul*
- }
- # NE PAS TOUCHER SAUF SI VOUS CONNAISSEZ LE CODAGE TCL #
- ################
- # #
- # Modération #
- # #
- ################
- bind pub l !modo aidemodo
- bind pub l !kr kickraison
- bind pub l !kflood kickflood
- bind pub l !ksex kicksex
- bind pub l !kpropo kickpropo
- bind pub l !kinsulte kickinsulte
- bind pub l !knick kickpseudo
- bind pub l !kspam kickspam
- bind pub l !kscript kickscript
- bind pub l !br banraison
- bind pub l !bfood banflood
- bind pub l !bsex bansex
- bind pub l !bpropo banpropo
- bind pub l !binsulte baninsulte
- bind pub l !bnick banpseudo
- bind pub l !bspam banspam
- bind pub l !bscript banscript
- bind pub o !prison prison
- bind pub o !kl kill
- bind pub o !gl gline
- bind pub o !helpaxx helpaxx
- bind pub o !adv advoice
- bind pub o !adh admodo
- bind pub o !ado adop
- bind pub o !adp adprotect
- bind pub o !adi adinvite
- bind pub o !dlv dlvoice
- bind pub o !dlh dlmodo
- bind pub o !dlo dlop
- bind pub o !dlp dlprotect
- bind pub o !dli dlinvite
- bind pub m !gestion gestion
- bind pub m !officiel register:officiel
- bind pub m !offreg register:region
- bind pub m !bot bot:assign
- bind pub m !nobot bot:unassign
- bind pub m !topic topic:officiel
- bind pub m !topicreg topic:region
- bind pub m !entmsg entry:msg
- bind pub m !invstaff invit:staff
- bind pub m !helpsaj help:saj
- bind pub m !helpbot help:bot
- bind pubm -|- * bad:words
- bind mode -|- * mode:ban
- bind mode - * reop
- bind pubm - * pub:sos
- bind pubm - * pub:go
- bind join - "*" join:blacklist
- proc aidemodo { nick host hand channel arg } {
- if [matchattr $hand l] {
- puthelp "NOTICE $nick :\00312Voici les commandes d'aide à la modération à taper de la façon suivante \0037!commande pseudo \00312Exemple :\0034 !ksex Thor \00312 les commandes \0034!kl \00312et\0034 !gl \00312sont à taper de la manière suivante \0034!kl pseudo raison"
- puthelp "NOTICE $nick :\0034!kr pseudo raison \00312pour kick avec ta propre raison"
- puthelp "NOTICE $nick :\0034!kflood pseudo \00312pour kick pour flood"
- puthelp "NOTICE $nick :\0034!ksex pseudo \00312pour kick pour sexe"
- puthelp "NOTICE $nick :\0034!kpropo pseudo \00312pour kick pour propos"
- puthelp "NOTICE $nick :\0034!kinsulte pseudo \00312pour kick pour insulte"
- puthelp "NOTICE $nick :\0034!knick pseudo \00312pour kick pour pseudo"
- puthelp "NOTICE $nick :\0034!kspam pseudo \00312pour kick pour spam"
- puthelp "NOTICE $nick :\0034!kscript pseudo \00312pour kick pour effet de script"
- puthelp "NOTICE $nick :\0034!br pseudo raison \00312pour kick ban avec ta propre raison"
- puthelp "NOTICE $nick :\0034!bflood pseudo \00312pour kick ban pour flood"
- puthelp "NOTICE $nick :\0034!bsex pseudo \00312pour kick ban pour sexe"
- puthelp "NOTICE $nick :\0034!bpropo pseudo \00312pour kick ban pour propos"
- puthelp "NOTICE $nick :\0034!binsulte pseudo \00312pour kick ban pour insulte"
- puthelp "NOTICE $nick :\0034!bnick pseudo \00312pour kick ban pour pseudo"
- puthelp "NOTICE $nick :\0034!bspam pseudo \00312pour kick ban pour spam"
- puthelp "NOTICE $nick :\0034!bscript pseudo \00312pour kick ban pour effet de script"
- puthelp "NOTICE $nick :\0034!helpnews \00312Pour voir l'aide sur la gestion des news \0031(uniquement sur le salon #Staff)"
- }
- if [matchattr $hand o] {
- puthelp "NOTICE $nick :\0034!prison pseudo \00312pour envoyer un user en prison"
- puthelp "NOTICE $nick :\0034!kl pseudo raison \00312pour faire déconnecter un user du tchat"
- puthelp "NOTICE $nick :\0034!gl pseudo raison \00312Pour bannir un user du tchat"
- puthelp "NOTICE $nick :\0034!helpsaj \00312pour voir l'aide sur l'auto join des membres du staff"
- puthelp "NOTICE $nick :\0034!helpaxx \00312Pour voir l'aide sur la gestion des axx"
- }
- if [matchattr $hand m] {
- puthelp "NOTICE $nick :\0034!gestion \00312Pour voir l'aide sur la gestion des nouveaux salon officiels"
- puthelp "NOTICE $nick :\0034!helpbot \00312Pour voir l'aide sur la gestion des bots \0037Aragorn, Jarvis, Helpeur, Games, News-Staff & Plaintes"
- }
- }
- proc kickraison { nick host hand channel text } {
- global chanlog exempt
- set args [split $text]
- set victim [lindex $args 0]
- set reason [join [lrange $args 1 end]]
- if { ![onchan $victim $channel] } {
- putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $victim $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putkick $channel $victim $reason
- putserv "PRIVMSG $chanlog :\0034$victim \00312a été kick de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
- }
- }
- proc kickflood { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putkick $channel $arg "\00312Le flood est interdit sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour flood."
- }
- }
- proc kicksex { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putkick $channel $arg "\00312Les propos sexuels sont interdits sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour propos sexuels."
- }
- }
- proc kickpropo { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putkick $channel $arg "\00312Merci de modérer tes propos sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour propos."
- }
- }
- proc kickinsulte { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putkick $channel $arg "\00312Les insultes sont interdites sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour insulte."
- }
- }
- proc kickpseudo { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "mode $channel +b $arg"
- putkick $channel $arg "\00312Merci de changer ton pseudo pour pouvoir rejoindre les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour pseudo."
- }
- }
- proc kickspam { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putkick $channel $arg "\00312Le spam est interdit sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour spam."
- }
- }
- proc kickscript { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putkick $channel $arg "\00312merci de ne pas abuser des effets de script sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été kick de \0034$channel \00312par \0034$nick \00312pour effet de script."
- }
- }
- #################################
- ######## Les Ban ################
- #################################
- proc banraison { nick host hand channel text } {
- global cs chanlog exempt unban
- set args [split $text]
- set victim [lindex $args 0]
- set reason [join [lrange $args 1 end]]
- if { ![onchan $victim $channel] } {
- putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $victim $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "PRIVMSG $cs ban $channel $victim $reason"
- putserv "PRIVMSG $chanlog :\0034$victim \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
- timer $unban(time) [list putserv "mode $channel -b $victim"]
- }
- }
- proc banflood { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "PRIVMSG $cs ban $channel $arg \00312Le flood est interdit sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour flood."
- }
- }
- proc bansex { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "PRIVMSG $cs ban $channel $arg \00312Les propos sexuel sont interdits sur les salons officiels ! Sauf sur \0034#Sex"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour flood."
- }
- }
- proc banpropo { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "PRIVMSG $cs ban $channel $arg \00312Merci de modérer tes propos sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour propos."
- }
- }
- proc baninsulte { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "PRIVMSG $cs ban $channel $arg \00312Les insultes sont interdites sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour insulte."
- }
- }
- proc banpseudo { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "PRIVMSG $cs ban $channel $arg \00312Merci de changer ton pseudo pour pouvoir rejoindre les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour pseudo."
- }
- }
- proc banspam { nick host hand channel arg } {
- global cs chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "PRIVMSG $cs ban $channel $arg \00312Le spam est interdit sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour spam."
- }
- }
- proc banscript { nick host hand channel arg } {
- global cs chanlog vhostexempt exemptreason
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $vhostexempt {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exemptreason"
- } else {
- putserv "PRIVMSG $cs ban $channel $arg \00312Trop d'abus d'effet de script sur les salons officiels !"
- putserv "PRIVMSG $chanlog :\0034$arg \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour effet de script."
- }
- }
- proc prison { nick host hand channel arg } {
- global chanlog exempt
- if { ![onchan $arg $channel] } {
- putserv "PRIVMSG $channel :\0034$arg \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $arg $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putquick "SAJOIN $arg #4,0,#Prison"
- putquick "SHUN $arg 5m En prison"
- putquick "NOTICE $arg :\00312Te voici en prison pour 5 minutes !!"
- putquick "PRIVMSG $chanlog :\0034$nick \00312à envoyé\0037 $arg \00312en prison pour 5 minutes"
- }
- }
- proc kill { nick host hand channel text } {
- global chanlog exempt
- set args [split $text]
- set victim [lindex $args 0]
- set reason [join [lrange $args 1 end]]
- if { ![onchan $victim $channel] } {
- putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $victim $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "kill $victim $reason"
- putserv "PRIVMSG $chanlog :\0034$victim \00312à été déconnecté du serveur pour la raison :\0037 $reason"
- }
- }
- proc gline { nick host hand channel text } {
- global chanlog exempt
- set args [split $text]
- set victim [lindex $args 0]
- set reason [join [lrange $args 1 end]]
- if { ![onchan $victim $channel] } {
- putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
- return 0
- }
- set vichost [getchanhost $victim $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- putserv "NOTICE $nick :$exempt(reason)"
- } else {
- putserv "gline $victim 3600 $reason"
- putserv "PRIVMSG $chanlog :\0034$victim \00312à été déconnecté du serveur pour la raison :\0037 $reason"
- }
- }
- ###################
- # #
- # Anti BadWords #
- # #
- ###################
- proc bad:words {nick host hand channel text} {
- global badwords exempt
- set bad ""
- foreach element $badwords {
- foreach element1 $text {
- if {$element1 == $element} {
- set bad "$element"
- break
- }
- }
- }
- if {$bad != ""} {
- set vichost [getchanhost $nick $channel]
- set protec 0
- foreach vhost $exempt(vhost) {
- if { [string match -nocase $vhost $vichost] } {
- set protec 1
- }
- }
- if { $protec == 1 } {
- return 0
- } else {
- putkick $channel $nick "\00312Merci de surveiller votre language !!"
- }
- }
- }
- #######################
- # #
- # Reban Automatique #
- # #
- #######################
- proc mode:ban { nick host hand chan mode victim } {
- if { $chan == "#Charme" } {
- if { $mode == "-b" } {
- pushmode $chan +b ~r:10_*_*
- pushmode $chan +b ~r:11_*_*
- pushmode $chan +b ~r:12_*_*
- pushmode $chan +b ~r:13_*_*
- pushmode $chan +b ~r:14_*_*
- pushmode $chan +b ~r:15_*_*
- pushmode $chan +b ~r:16_*_*
- pushmode $chan +b ~r:17_*_*
- pushmode $chan +b ~c:#-18ans
- }
- flushmode $chan
- }
- if { $chan == "#-18ans" } {
- if { $mode == "-b" } {
- pushmode $chan +b ~r:18_*_*
- pushmode $chan +b ~r:19_*_*
- pushmode $chan +b ~r:20_*_*
- pushmode $chan +b ~r:21_*_*
- pushmode $chan +b ~r:22_*_*
- pushmode $chan +b ~r:23_*_*
- pushmode $chan +b ~r:24_*_*
- pushmode $chan +b ~r:25_*_*
- pushmode $chan +b ~r:26_*_*
- pushmode $chan +b ~r:27_*_*
- pushmode $chan +b ~r:28_*_*
- pushmode $chan +b ~r:29_*_*
- pushmode $chan +b ~r:30_*_*
- pushmode $chan +b ~r:31_*_*
- pushmode $chan +b ~r:32_*_*
- pushmode $chan +b ~r:33_*_*
- pushmode $chan +b ~r:34_*_*
- pushmode $chan +b ~r:35_*_*
- pushmode $chan +b ~r:36_*_*
- pushmode $chan +b ~r:37_*_*
- pushmode $chan +b ~r:38_*_*
- pushmode $chan +b ~r:39_*_*
- pushmode $chan +b ~r:40_*_*
- pushmode $chan +b ~r:41_*_*
- pushmode $chan +b ~r:42_*_*
- pushmode $chan +b ~r:43_*_*
- pushmode $chan +b ~r:44_*_*
- pushmode $chan +b ~r:45_*_*
- pushmode $chan +b ~r:46_*_*
- pushmode $chan +b ~r:47_*_*
- pushmode $chan +b ~r:48_*_*
- pushmode $chan +b ~r:49_*_*
- pushmode $chan +b ~c:#Charme
- }
- flushmode $chan
- }
- if { $chan == "#Entre-Mecs" } {
- if { $mode == "-b" } {
- pushmode $chan +b ~r:*_F_*
- pushmode $chan +b ~c:#Entre-Filles
- }
- flushmode $chan
- }
- if { $chan == "#Entre-Filles" } {
- if { $mode == "-b" } {
- pushmode $chan +b ~r:*_H_*
- pushmode $chan +b ~c:#Entre-Mecs"
- }
- flushmode $chan
- }
- }
- ######################
- # #
- # Gestion des bots #
- # #
- ######################
- proc help:bot { nick host hand channel arg } {
- if [matchattr $hand m] {
- puthelp "NOTICE $nick :\00312Voici les commandes d'aide sur la gestion de bots \0036Aragorn, Jarvis, Helpeur, Games, News-Staff & Plaintes\00312."
- puthelp "NOTICE $nick :\0034/msg <Nom Du Bot> rehash \00312Pour rehash le bot."
- puthelp "NOTICE $nick :\0034/msg <Nom Du Bot> restart \00312Pour restart le bot"
- puthelp "NOTICE $nick :\0034/msg <Nom Du Bot> die \00312Pour die le bot"
- }
- }
- #####################
- # #
- # Gestion Des Axx #
- # #
- #####################
- proc helpaxx {nick host hand channel arg } {
- if [matchattr $hand o] {
- puthelp "NOTICE $nick :\00312Aide pour la gestion des Axx. Commande à taper avec un pseudo a la suite. \0035Exemple ; \0034!ado Thor"
- puthelp "NOTICE $nick :\0034!adv \00312ajout d'un axx d'animateur."
- puthelp "NOTICE $nick :\0034!adh \00312ajout d'un axx de modérateur."
- puthelp "NOTICE $nick :\0034!ado \00312ajout d'un axx d'opérateur."
- puthelp "NOTICE $nick :\0034!adp \00312ajout d'un axx de chan admin."
- puthelp "NOTICE $nick :\0034!adi \00312ajout d'une invitation permanante."
- puthelp "NOTICE $nick :\0034!dlv \00312Suppresion d'un axx d'animateur."
- puthelp "NOTICE $nick :\0034!dlh \00312Suppresion d'un axx de modérateur."
- puthelp "NOTICE $nick :\0034!dlo \00312Suppresion d'un axx d'opérateur."
- puthelp "NOTICE $nick :\0034!dlp \00312Suppresion d'un axx de chan admin."
- puthelp "NOTICE $nick :\0034!dli \00312Suppresion d'une invitation permanante."
- puthelp "NOTICE $nick :\00312Fin des commandes d'aide à la gestion des Axx."
- }
- }
- proc advoice { nick host hand channel arg } {
- global chanlog cs
- putserv "PRIVMSG $cs access $channel add $arg 3"
- putserv "NOTICE $arg :\00312L'axx permanant d'animateur a bien été ajouté.\0034 $arg \00312Merci de taper \0037!voice \00312sur le salon\0037 $channel"
- putserv "PRIVMSG $chanlog :\00312L'axx permanant d'animateur a bien été ajouté à\0034 $arg \00312par \0034$nick \00312pour le salon\0037 $channel"
- }
- proc dlvoice { nick host hand channel arg } {
- global chanlog cs hs
- putserv "PRIVMSG $cs access $channel del $arg"
- putserv "PRIVMSG $hs del $arg"
- putserv "PRIVMSG $chanlog :\00312L'axx permanant d'animateur a bien été supprimé à\0034 $arg \00312par \0034$nick \00312pour le salon\0037 $channel"
- }
- proc admodo { nick host hand channel arg } {
- global chanlog chanstaff cs
- putserv "PRIVMSG $cs access $channel add $arg 4"
- putserv "NOTICE $arg :\00312L'axx permanant de modérateur a bien été ajouté.\0034 $arg \00312Merci de taper \0037!halfop sur le salon\0037 $channel"
- putserv "NOTICE $arg :\00312Merci de rejoindre le salon\0034 $chanstaff"
- putserv "PRIVMSG $chanlog :\00312L'axx permanant de modérateur et l'invitation permanante sur $chanstaff ont bien été créés à\0034 $arg \00312par \0034$nick \00312sur le salon\0037 $channel"
- }
- proc dlmodo { nick host hand channel arg } {
- global chanlog chanstaff cs hs
- putserv "PRIVMSG $cs access $channel del $arg"
- putserv "PRIVMSG $hs del $arg"
- putserv "mode $channel +b $arg"
- putserv "sapart $arg $chanstaff"
- putserv "PRIVMSG $chanlog :\00312L'axx permanant de modérateur a bien été suppirmé à\0034 $arg \00312par \0034$nick \00312pour le salon\0037 $channel"
- }
- proc adop { nick host hand channel arg } {
- global chanlog chanstaff cs
- putserv "PRIVMSG $cs access $channel add $arg 5"
- putserv "NOTICE $arg :\00312L'axx permanant d'opérateur a bien été ajouté. \0034 $arg \00312Merci de taper \0037!op sur le salon\0037 $channel"
- putserv "NOTICE $arg :\00312Merci de rejoindre le salon\0034 $chanstaff"
- putserv "PRIVMSG $chanlog :\00312L'axx permanant d'opérateur et l'invitation permanante ont bien été créés à\0034 $arg \00312par \0034$nick \00312sur le salon\0037 $channel"
- }
- proc dlop { nick host hand channel arg } {
- global chanlog chanstaff cs hs
- putserv "PRIVMSG $cs access $channel del $arg"
- putserv "PRIVMSG $hs del $arg"
- putserv "mode $channel +b $arg"
- putserv "sapart $arg $chanstaff"
- putserv "PRIVMSG $chanlog :\00312L'axx permanent d'opétateur a bien été supprimé à\0034 $arg \00312par \0034$nick \00312sur le salon\0037 $channel"
- }
- proc adprotect { nick host hand channel arg } {
- global chanlog chanstaff cs hs
- putserv "PRIVMSG $cs access $channel add $arg 10"
- putserv "PRIVMSG $hs set $arg ChanMaster.EnjOy-Tchat.fr"
- putserv "NOTICE $arg :\00312L'axx permanant de Chan-Master a bien été ajouté. \0034 $arg \00312Merci de taper \0037!protect sur le salon\0037 $channel"
- putserv "NOTICE $arg :\00312Merci de taper \0034hs on \0012Avant de rejoindre le salon\0034 $chanstaff"
- putserv "PRIVMSG $chanlog :\00312L'axx permanant de Chan-Master et l'invitation permanante sur \0034$chanstaff \00312ont bien été créées à\0034 $arg \00312par \0034$nick \00312sur le salon\0037 $channel"
- }
- proc dlprotect { nick host hand channel arg } {
- global chanlog chanstaff cs hs
- putserv "PRIVMSG $cs access $channel del $arg"
- putserv "PRIVMSG $hs del $arg"
- putserv "mode $channel +b $arg"
- putserv "sapart $arg $chanstaff"
- putserv "PRIVMSG $chanlog :\00312L'axx permanent de Chan-Master de salon a bien été supprimé à\0034 $arg \00312par \0034$nick \00312sur le salon\0037 $channel"
- }
- proc adinvite { nick host hand channel arg } {
- global chanlog
- pushmode $channel +I $arg
- putserv "NOTICE $arg :\00312L'invite permanante a bien été ajouté. \0034 $arg \00312Merci de taper \0037/join $channel"
- putserv "PRIVMSG $chanlog :\00312L'invite permanante a bien été ajouté à\0034 $arg \00312par \0034$nick \00312sur le salon\0037 $channel"
- }
- proc dlinvite { nick host hand channel arg } {
- global chanlog cs
- pushmode $channel -I $arg
- putserv "PRIVMSG $chanlog :\00312L'invite permanente a bien été supprimé à\0034 $arg \00312par \0034$nick \00312sur le salon\0037 $channel"
- putkick $channel $arg "\00312Ton invitation permanante à été supprimé sur le salon \0037$channel"
- }
- ##################################
- # #
- # Gestion des salons officiels #
- # #
- ##################################
- proc gestion { nick host hand channel arg } {
- puthelp "NOTICE $nick :\00312Voici les commandes d'aide à la gestion des topics officiel. \0031(suffit de juste taper la commande sans rien d'autre)"
- puthelp "NOTICE $nick :\0034!officiel \00312Pour enregistrer un salon Officiel"
- puthelp "NOTICE $nick :\0034!offreg \00312Pour enregistrer un salon Officiel-Region"
- puthelp "NOTICE $nick :\0034!bot \00312Pour assign les bots Bob Swagy Fun et LimitServ sur un salon Officiel"
- puthelp "NOTICE $nick :\0034!nobot \00312Pour unassign les bots Bob Swagy Fun et LimitServ d'un salon Officiel"
- puthelp "NOTICE $nick :\0034!topic \00312Met en place le topic pour les salons \0037Officiel"
- puthelp "NOTICE $nick :\0034!topicreg \00312Met en place le topic pour les salons \0037Officiel-Region"
- puthelp "NOTICE $nick :\0034!entmsg \00312Met en place le message d'entrer sur les salons \0037 Officiel \00312et \0037Officiel-Region"
- }
- proc register:officiel { nick host hand channel arg } {
- global cs bs botnick
- putserv "mode $channel +o $botnick"
- putserv "PRIVMSG $cs register $channel avoiravecsniper Salon officiel du réseau EnjOy-TchaT"
- putserv "PRIVMSG $cs topic $channel \002\0034{Officiel} \002\00312Bienvenue sur\0036 $channel \00312Salon Officiel \00313(\00307No flood, No spam, No sexe\00313)\00312 - Tapez /list pour voir la liste des canaux. \0031Tapez \0037!jokes \0031pour voir les commandes d'animations."
- puthelp "PRIVMSG $cs set $channel entrymsg \0036En cas de problème sur le salon tapez \0037!sos \0036En cas de problème avec un tchateur la commande \0037/plainte pseudo raison \0036est à votre disposition."
- putserv "PRIVMSG $cs set $channel topiclock on"
- putserv "PRIVMSG $bs assign $channel Discussions"
- putserv "PRIVMSG LimitServ assign $channel"
- putserv "PRIVMSG Bob assign $channel"
- putserv "PRIVMSG Fun assign $channel"
- putserv "PRIVMSG $cs op $channel Bob"
- putserv "sajoin SwagY $channel"
- putserv "PRIVMSG $cs set $channel xop off"
- }
- proc register:region { nick host hand channel arg } {
- global cs bs botnick
- putserv "mode $channel +o $botnick"
- putserv "PRIVMSG $cs register $channel avoiravecsniper Salon officiel region du réseau EnjOy-TchaT"
- putserv "PRIVMSG $cs topic $channel \002\0034{Officiel-Région} \002\00312Bienvenue sur\0036 $channel \00312Salon Officiel \00313(\00307No flood, No spam, No sexe\00313)\00312 - Tapez /list pour voir la liste des canaux. \0031Tapez \0037!jokes \0031pour voir les commandes d'animations."
- puthelp "PRIVMSG $cs set $channel entrymsg \0036En cas de problème sur le salon tapez \0037!sos \0036En cas de problème avec un tchateur la commande \0037/plainte pseudo raison \0036est à votre disposition."
- putserv "PRIVMSG $cs set $channel topiclock on"
- putserv "PRIVMSG $bs assign $channel Discussions"
- putserv "PRIVMSG LimitServ assign $channel"
- putserv "PRIVMSG Bob assign $channel"
- putserv "PRIVMSG Fun assign $channel"
- putserv "PRIVMSG $cs op $channel Bob"
- putserv "sajoin SwagY $channel"
- putserv "PRIVMSG $cs set $channel xop off"
- }
- proc bot:assign { nick host hand channel arg } {
- putserv "PRIVMSG LimitServ assign $channel"
- putserv "PRIVMSG Bob assign $channel"
- putserv "PRIVMSG Fun assign $channel"
- putserv "sajoin SwagY $channel"
- }
- proc bot:unassign { nick host hand channel arg } {
- putserv "PRIVMSG LimitServ unassign $channel"
- putserv "PRIVMSG Bob unassign $channel"
- putserv "PRIVMSG Fun unassign $channel"
- putserv "sapart SwagY $channel"
- }
- proc topic:officiel { nick host hand channel arg } {
- global cs
- putserv "PRIVMSG $cs set $channel topiclock off"
- putserv "PRIVMSG $cs topic $channel \002\0034{Officiel} \002\00312Bienvenue sur\0036 $channel \00312Salon Officiel \00313(\00307No flood, No spam, No sexe\00313)\00312 - Tapez /list pour voir la liste des canaux. \0031Tapez \0037!jokes \0031pour voir les commandes d'animations."
- putserv "PRIVMSG $cs set $channel topiclock on"
- }
- proc topic:region { nick host hand channel arg } {
- global cs
- putserv "PRIVMSG $cs set $channel topiclock off"
- putserv "PRIVMSG $cs topic $channel \002\0034{Officiel-Région} \002\00312Bienvenue sur\0036 $channel \00312Salon Officiel \00313(\00307No flood, No spam, No sexe\00313)\00312 - Tapez /list pour voir la liste des canaux. \0031Tapez \0037!jokes \0031pour voir les commandes d'animations."
- putserv "PRIVMSG $cs set $channel topiclock on"
- }
- proc entry:msg { nick host hand channel arg } {
- global cs
- putserv "PRIVMSG $cs set $channel entrymsg \0036En cas de problème sur le salon tapez \0037!sos \0036En cas de problème avec un tchateur la commande \0037/plainte pseudo raison \0036est à votre disposition."
- }
- proc invit:staff { nick host hand channel arg } {
- pushmode $chan $channel +I @Moderateur.EnjOy-TchaT.fr
- pushmode $chan $channel +I @Moderatrice.EnjOy-TchaT.fr
- pushmode $chan $channel +I @Operateur.EnjOy-TchaT.fr
- pushmode $chan $channel +I @Operatrice.EnjOy-TchaT.fr
- pushmode $chan $channel +I @Services.EnjOy-Tchat.fr
- pushmode $chan $channel +I @ChanMaster.EnjOy-Tchat.fr
- pushmode $chan $channel +I @IRCop.EnjOy-Tchat.fr
- pushmode $chan $channel +I @CoAdmin.EnjOy-Tchat.fr
- pushmode $chan $channel +I @Admin.EnjOy-Tchat.fr
- pushmode $chan $channel +I @NetAdmin.EnjOy-Tchat.fr
- pushmode $chan $channel +I @TechAdmin.EnjOy-Tchat.fr
- pushmode $chan $channel +I Root@EnjOy-Tchat.fr
- }
- #######################
- # #
- # Auto Sajoin Staff #
- # #
- #######################
- proc help:saj { nick uhost handle chan arg } {
- puthelp "NOTICE $nick :\0036Voici les commandes d'aide de l'auto sajoin des membres du staff."
- puthelp "NOTICE $nick :\0034!addsaj \00312pour ajouter un sajoin auto. \0036Exemple :\0037!addsaj pseudo #Salon,#Salon1,#Salon2,#Salon3"
- puthelp "NOTICE $nick :\0034!delsaj \00312pour enlever un sajoin auto. \0036Exemple :\0037!delsaj pseudo #Salon,#Salon1,#Salon2,#Salon3"
- puthelp "NOTICE $nick :\0034!sajlist \00312pour voir la liste de tout les sajoin auto."
- }
- namespace eval ::sj {
- variable data [list]
- variable vhostkill {
- EnjOy-Tchat.fr
- TechAdmin.EnjOy-Tchat.fr
- NetAdmin.EnjOy-Tchat.fr
- Admin.EnjOy-Tchat.fr
- CoAdmin.EnjOy-Tchat.fr
- IRCop.EnjOy-Tchat.fr
- ChanMaster.EnjOy-Tchat.fr
- }
- bind pub - !addsaj [namespace current]::add_saj
- bind pub - !delsaj [namespace current]::del_saj
- bind pub - !sajlist [namespace current]::list_saj
- bind join - * [namespace current]::auto_saj
- bind evnt - save [namespace current]::save_file
- variable sajdb "/var/www/clients/client3/web17/home/tchat_discutenjoy_Ange/shell/Commun/db/sajoin.txt"
- if ![file exists $sajdb] {
- catch {open $sajdb w} a
- catch {close $a}
- } else {
- set a [open $sajdb]
- set data [split [read $a] \n]
- close $a
- }
- proc save_file {type} {
- variable data
- variable sajdb
- if {$data!=""} {
- set a [open $sajdb w]
- puts $a [join $data \n]
- close $a
- }
- }
- }
- proc ::sj::add_saj {nick host hand chan text} {
- global chanlog
- variable vhostkill
- variable data
- if {[lsearch -nocase $vhostkill [lindex [split $host @] 1]]==-1} return
- set victim [lindex $text 0]
- set vchan [lindex $text 1]
- if {[lsearch -nocase $data "$vchan $victim"]!=-1} {putserv "NOTICE $nick :\0034$victim\00312 a déjà un autojoin sur \0037$vchan.";return}
- lappend data "$vchan $victim"
- putserv "NOTICE $nick :\00312Autojoin ajouté."
- putserv "PRIVMSG $chanlog :\00312L'autojoin pour \0034$victim \00312à bien été ajouté par \0037$nick"
- }
- proc ::sj::del_saj {nick host hand chan text} {
- global chanlog
- variable vhostkill
- variable data
- if {[lsearch -nocase $vhostkill [lindex [split $host @] 1]]==-1} return
- set victim [lindex $text 0]
- set vchan [lindex $text 1]
- if {[set a [lsearch -nocase $data "$vchan $victim"]]==-1} {putserv "NOTICE $nick :\0034$victim\00312 n'a pas d'autojoin sur \0037$vchan.";return}
- set data [lreplace $data $a $a]
- putserv "NOTICE $nick :\00312Autojoin supprimé."
- putserv "PRIVMSG $chanlog :\00312L'autojoin pour \0034$victim \00312à bien été supprimé par \0037$nick"
- }
- proc ::sj::list_saj {nick host hand chan text} {
- variable vhostkill
- variable data
- if {[lsearch -nocase $vhostkill [lindex [split $host @] 1]]==-1} return
- set c [lindex $text 0]
- if {$data==""} {putserv "NOTICE $nick :\00312Auccun autojoin enregistré.";return}
- putserv "NOTICE $nick :Liste des autojoins:"
- set d [lsort -dict $data]
- foreach a $d {
- if {$c==""} {
- if {[llength $a]==2} {putquick "NOTICE $nick :$a"}
- } else {
- if {[llength $a]==2 && [string equal -nocase $c [lindex $a 0]]} {putquick "NOTICE $nick :$a"}
- }
- }
- }
- proc ::sj::auto_saj {nick host hand chan} {
- variable data
- foreach d $data {
- if [string equal -nocase [lindex $d 1] $nick] {
- utimer 5 [list putserv "SAJOIN $nick [lindex $d 0]"]
- }
- }
- }
- ###############
- # #
- # ReOp Auto #
- # #
- ###############
- proc reop {nick uhost hand chan mode {target ""}} {
- global botnick chanlog
- if { [string tolower $target] != [string tolower $botnick] } {
- return 0
- }
- if {$mode == "-o"} {
- putserv "mode $chan +o $botnick"
- putserv "PRIVMSG $chan :\00312Merci de ne pas m'enlever de mon statut \0037$nick \00312!!"
- putserv "PRIVMSG $chanlog :\0034ReOp \00312sur \0036$chan \00312suite au deop de \0037$nick"
- }
- }
- ###########
- # #
- # S.O.S #
- # #
- ###########
- proc pub:sos { nick uhost hand chan arg } {
- global chanlog chansos
- set arg [stripcodes bcruag $arg]
- set commande [lindex $arg 0]
- switch -- $commande {
- "!sos" {
- putserv "NOTICE $nick :\00312Votre SOS a été envoyé au service Abus"
- putserv "PRIVMSG $chansos :\0036SOS \00312par \0034$nick \00312sur le salon \0037$chan \00312tape !gosos pour prendre en charge le SOS"
- putserv "NOTICE $chansos :\0036SOS \00312par \0034$nick \00312sur le salon \0037$chan"
- putserv "PRIVMSG $chanlog :\0034SOS \00312par \0037$nick \00312sur le salon \0037$chan"
- }
- }
- }
- proc pub:go { nick uhost hand chan arg } {
- global chanlog chansos
- set arg [stripcodes bcruag $arg]
- set commande [lindex $arg 0]
- switch -- $commande {
- "!gosos" {
- putserv "PRIVMSG $chansos :\0037$nick \00312prend en charge le \0034SOS"
- putserv "PRIVMSG $chanlog :\00312Prise en charge du \0034SOS \00312par \0037$nick"
- }
- }
- }
- ###############
- # #
- # Auto Kill #
- # #
- ###############
- proc join:blacklist { nick uhost hand chan } {
- if {$nick == "Capuccine1"} {
- putserv "kill $nick Connection non sécurisé (Proxy http)"
- return 0
- }
- if {$uhost == "28.199.74.86.rev.sfr.net"} {
- putserv "kill $nick Connection non sécurisé (Proxy http)"
- return 0
- }
- }
- putlog "\00312Jarvis & Aragorn Services Version\0037 $modo_ver \00312By\0034 $modo_author \00312fait le\0036 $modo_date \00312upgrade le\0034 $modo_upgrade \00312has been loaded"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement