Moderation Vhost

[spoiler]set host {
*VotreSite.fr
}
set vhostniv0 {
*VotreSite.fr
*Test.VotreSite.fr
*Animations.VotreSite.fr
*OpLocal.VotreSite.fr
*Helper.VotreSite.fr
*Gamers.VotreSite.fr
*AnimSup.VotreSite.fr
*OpGlobal.VotreSite.fr
*CoAdmin.VotreSite.fr
*Codeur.VotreSite.fr
*IRCOp.VotreSite.fr
*NetAdmin.VotreSite.fr
*TechAdmin.VotreSite.fr
*ServiceRoot.VotreSite.fr
*NetworkAdmin.VotreSite.fr
}
set vhostniv1 {
*Test.VotreSite.fr
}

set vhostniv2 {
*Animations.VotreSite.fr
*OpLocal.VotreSite.fr
*Helper.VotreSite.fr
*Gamers.VotreSite.fr
*Opzone.VotreSite.fr

}
set vhostniv3 {
*AnimPlus.VotreSite.fr
*AdminZone.VotreSite.fr
}
set vhostniv4 {
*OpGlobal.VotreSite.fr
*Chefzone.VotreSite.fr
}
set vhostniv5 {
*CoAdmin.VotreSite.fr
}
set vhostniv6 {
*Codeur.VotreSite.fr
*IRCOp.VotreSite.fr
*ChefAdmin.VotreSite.fr

}
set vhostniv7 {
*NetAdmin.Discutlive.fr
*TechAdmin.VotreSite.fr
*ServiceRoot.VotreSite.fr
*NetworkAdmin.VotreSite.fr
}

set vhostniv8 {
*NetAdmin.VotreSite.fr
*TechAdmin.VotreSite.fr
*ServiceRoot.DiVotreSite.fr
*NetworkAdmin.VotreSite.fr
}

###############################################
########### JOIN SALON DE STAFF ###############
###############################################

bind join - "*" mejoin
proc mejoin {nick host hand arg} {
global vhostniv0 mejoin
foreach vhost $vhostniv0 {
if [string match -nocase $vhost $host] {
putquick "SAJOIN $nick #Staff"
}
}
}



###############################################
########### Commandes d'aide ###############
###############################################

bind pub - !aide aide
proc aide { nick host hand channel arg } {
global vhostniv0 aide
foreach vhost $vhostniv0 {
if [string match -nocase $vhost $host] {
putquick "NOTICE $nick 12Kicks Rapides:1 !comp 6|1 !poli 6|1 !pub 6|1 !repet 6|1 !flood 6|1 !pseudo 6|1 !sexe 6|1 !abus 6|1 !fr 6|1 !raciste"
putquick "NOTICE $nick 12Kickbans Rapides:1 !kpub 6|1 !kflood 6|1 !kpseudo 6|1 !kpoli 6|1 !kabus 6|1 !krepet 6|1 !ksexe 6|1 !kfr 6|1 !kcomp"
putquick "NOTICE $nick 12!sos : Envoyer un SOS sur un salon"
putquick "NOTICE $nick 12!staff : Vous fait rejoindre le salon #staff"
putquick "NOTICE $nick 12!bug : Signialez un bug sur un salon aux helpers"
putquick "NOTICE $nick 12!badn pseudo : Change le pseudo de quelqu'un en badnick***(Badnick)"
putquick "NOTICE $nick 12!clone : Bloque le salon afin de pouvoir maitriser l'attaque de clone"
putquick "NOTICE $nick 12!arret : A faire après une attaque de clone"
}
}
}

bind pub - !chef chef
proc chef { nick host hand channel arg } {
global vhostniv5 vhostniv6 vhostniv7 chef
foreach vhost $vhostniv7 {
if [string match -nocase $vhost $host] {
putquick "NOTICE $nick 12!nick pseudo newpseudo: Change le pseudonyme de la personne."
putquick "NOTICE $nick 12!kill pseudo: Coupe la connection au serveur d'une personne"
putquick "NOTICE $nick 12!gline pseudo: Bannis du serveur une personne"
putquick "NOTICE $nick 12!ungline *@host: Retire le banissement de la personne"
putquick "NOTICE $nick 12!shun pseudo: Coupe la parole a la personne"
putquick "NOTICE $nick 12!unshun pseudo: Retire le shun de la personne"
putquick "NOTICE $nick 12!sap pseudo #salon : Sapart le pseudo dans le salon choisi"
putquick "NOTICE $nick 12!saj pseudo #salon : Sajoin le pseudo dans le salon choisi"
}
}
}

##############################################
##### Commandes AnimSup OpSup ChanAdmin #####
##############################################

bind pub - !h halfop
proc halfop { nick host hand channel arg } {

global vhostniv3 halfop
foreach vhost $vhostniv3 {
if [string match -nocase $vhost $host] {
putquick "MODE $channel h $nick"
}
}
}

bind pub - !dh dehalfop
proc dehalfop { nick host hand channel arg } {

global vhostniv3 dehalfop
foreach vhost $vhostniv3 {
if [string match -nocase $vhost $host] {
putquick "MODE $channel -h $nick"
}
}
}

bind pub - !o op
proc op { nick host hand channel arg } {

global vhostniv4 op
foreach vhost $vhostniv4 {
if [string match -nocase $vhost $host] {
putquick "MODE $channel o $nick"
}
}
}

bind pub - !do deop
proc deop { nick host hand channel arg } {

global vhostniv4 deop
foreach vhost $vhostniv4 {
if [string match -nocase $vhost $host] {
putquick "MODE $channel -o $nick"
}
}
}

bind pub - !a protect
proc protect { nick host hand channel arg } {

global vhostniv5 protect
foreach vhost $vhostniv5 {
if [string match -nocase $vhost $host] {
putquick "MODE $channel a $nick"
}
}
}

bind pub - !da deprotect
proc deprotect { nick host hand channel arg } {

global vhostniv5 deprotect
foreach vhost $vhostniv5 {
if [string match -nocase $vhost $host] {
putquick "MODE $channel -a $nick"
}
}
}


#################################
#### VOICE SOS VIP BUG ####
#################################


bind pub - !sos sos
proc sos {nick uhost handle chan args} {

putquick "NOTICE $nick :6Votre SOS a été envoyé au staff du serveur"
putquick "NOTICE #Staff :4SOS4:1212 $nick 145>> 4Bordel 1sur12 $chan !! 5Merci aux Anim et superieur d'allez voir."
putquick "PRIVMSG #Staff :4SOS4:1212 $nick 145>> 4Bordel 1sur12 $chan !! 5Merci aux Anim et superieur d'allez voir."
}

bind pub - !clone clone
proc clone { nick host hand chan arg } {

global vhostniv0 clone
foreach vhost $vhostniv0 {
if [string match -nocase $vhost $host] {
putserv "MODE $chan CNRTVsm"
}
}
}

bind pub - !arret arret
proc arret { nick host hand chan arg } {

global vhostniv0 arret
foreach vhost $vhostniv0 {
if [string match -nocase $vhost $host] {
putserv "MODE $chan -CNRTVsm"
}
}
}

bind pub - !v voice
proc arret { nick host hand chan arg } {

global vhostniv0 arret
foreach vhost $vhostniv2 {
if [string match -nocase $vhost $host] {
putserv "MODE $chan v $vnick"
}
}
}

bind pub - !dv devoice
proc arret { nick host hand chan arg } {

global vhostniv0 arret
foreach vhost $vhostniv1 {
if [string match -nocase $vhost $host] {
putserv "MODE $chan -v $vnick"
}
}
}

bind pub - ! h h
proc arret { nick host hand chan arg } {
global vhostniv7 arret
foreach vhost $vhostniv7 {
if [string match -nocase $vhost $host] {
putserv "Samode $chan h $vnick"
}
}
}

bind pub - !-h -h
proc arret { nick host hand chan arg } {
global vhostniv7 arret
foreach vhost $vhostniv7 {
if [string match -nocase $vhost $host] {
putserv "Samode $chan -h $vnick"
}
}
}

bind pub - !staff staff
proc arret { nick host hand chan arg } {

global vhostniv7 arret
foreach vhost $vhostniv7 {
if [string match -nocase $vhost $host] {
putserv "Sajoin $nick $chan"
}
}
}



##########################
##### KICK KICKBAN #####
##########################



bind pub - !k k
proc k {nick uhost handle chan arg} {

if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $arg 0]!=""} {
set vnick [lindex $arg 0]
putquick "KICK $chan $vnick :1 $nick : 3 [lrange $arg 1 end] (4Profitez en pour relire les régles du serveur : /rules3)"
return
} else {
puthelp "NOTICE"
return
}
}


bind pub - !kb kb
proc kb {nick uhost handle chan arg} {

if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $arg 0]!=""} {
set vnick [lindex $arg 0]
if {![onchan $vnick $chan]} { putquick "PRIVMSG $chan :$vnick n'est pas sur $chan"; return 0}
set vhost [lindex [split [getchanhost $vnick $chan] "@"] 1]
putquick "MODE $chan bb $vnick $vhost"
putquick "KICK $chan $vnick 12/4!12\\ 12$nick: 4Tu es banni du salon. 3[lrange $arg 1 end] (4Profitez en pour relire les régles du serveur : /rules3)"
newchanban $chan $vnick $::botnick "kb" 300
newchanban $chan $vhost $::botnick "kb" 300
return
} else {
puthelp "NOTICE"
return
}
}


##########################
##### KICK KICKBAN #####
##########################

bind pub - !kfr kfr
proc kfr {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
if {![onchan $vnick $chan]} { putquick "PRIVMSG $chan :$vnick n'est pas sur $chan"; return 0}
set vhost [lindex [split [getchanhost $vnick $chan] "@"] 1]
putquick "MODE $chan bb $vnick $vhost"
putquick "KICK $chan $vnick 12/4!12\\ 12$nick: 4Tu es banni du salon. On parle français sur ce salon ! [Profitez en pour relire les régles du serveur : http://www.DetenteNet.com/convenances.html]"
return
} else {
puthelp "NOTICE"
return
}
}

bind pub - !fr fr
proc fr {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
putquick "KICK $chan $vnick 1 $nick : 5Merci de parler français sur ce salon ! [Profitez en pour relire les régles du serveur : http://www.DetenteNet.com/convenances.html]"
return
} else {
puthelp "NOTICE"
return
}
}

bind pub - !script script
proc script {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
putquick "KICK $chan $vnick 1 $nick : 5Votre script est trop voyant, vous devez être plus discret ! [Profitez en pour relire les régles du serveur : http://www.DetenteNet.com/convenances.html]"
return
} else {
puthelp "NOTICE"
return
}
}

bind pub - !krepet krepet
proc krepet {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
if {![onchan $vnick $chan]} { putquick "PRIVMSG $chan :$vnick n'est pas sur $chan"; return 0}
set vhost [lindex [split [getchanhost $vnick $chan] "@"] 1]
putquick "MODE $chan bb $vnick $vhost"
putquick "KICK $chan $vnick 12/4!12\\ 12$nick: 4Tu es banni du salon. Cessez de vous répeter on est pas sourd ! [Profitez en pour relire les régles du serveur : http://www.DetenteNet.com/convenances.html]"
return
} else {
puthelp "NOTICE"
return
}
}

bind pub - !repet repet
proc repet {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
putquick "KICK $chan $vnick 1 $nick : 5Cessez de vous répeter on est pas sourd ! [Profitez en pour relire les régles du serveur : http://www.DetenteNet.com/convenances.html]"
return
} else {
puthelp "NOTICE"
return
}
}

bind pub - !pseudo pseudo
proc pseudo {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
putquick "KICK $chan $vnick 1 $nick : 5Votre pseudonyme est incorrect, merci de le changer 1( /nick nouveau_pseudo ) ! [Profitez en pour relire les régles du serveur : http://www.DetenteNet.com/convenances.html]"
return
} else {
puthelp "NOTICE"
return
}
}


bind pub - !kpseudo kpseudo
proc kpseudo {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "NOTICE"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
if {![onchan $vnick $chan]} { putquick "NOTICE"; return 0}
set vhost [lindex [split [getchanhost $vnick $chan] "@"] 1]
putquick "MODE $chan bb $vnick $vhost"
putquick "KICK $chan $vnick 12/4!12\\ 12$nick: 4Tu es banni du salon. Votre pseudo n'est pas correct : /nick