un kick ban euhhh sadique

[ours_en_pluche]

re

voici meme la version complete de ce code que j ai a la base realisé

tclcopier

set commande(choix) "!"
 
bind pub - $commande(choix)attaque     pub:attaque
 
proc pub:attaque {nick host hand chan arg} {
	global commande
	set who [lindex $arg 0]
	if {$who == "" } {
		putserv "notice $nick :Non mais, met un pseudo ispice de boulet !!"
		return 0	
	} else {	
		if {![matchattr $hand o]} {	
			putserv "privmsg $chan :Non mais,tu y croyais toi!!Faut pas réver!!"
			return 0	
		} else {
			if { ![botisop $chan] } {
				putserv "notice $nick :Désolé, je ne suis pas op sur ce chan"
				return 0
			} else {
				if { ![onchan $who $chan] } {		
					putserv "notice $nick :Désolé, mais la personne n est pas sur le chan"
					return 0
				} else {		
					set usermask [lindex [split [getchanhost $who $chan] "@"] 0]
					set ipmask [lindex [split [maskhost $who![getchanhost $who $chan]] "@"] 1]
					set nickidenthostermask $who![getchanhost $who $chan]
					set identhostmask [lindex [split $nickidenthostermask "!"] 1]
					set hostmask [lindex [split $identhostmask "@"] 1]		
					putserv "privmsg $chan :Hello $who"
					putserv "privmsg $chan :Je suis le bot de ce chan"
					putserv "privmsg $chan :On m a dit de m'occuper de toi"
					putserv "MODE $chan -qaohv $who $who $who $who $who"
					putserv "privmsg $chan :Alors, comme je suis obéissant"
					putserv "privmsg $chan :Alors, pour débuter, je pose deux bans"
					putserv "MODE $chan +bb $who *!*$usermask*@*"
					putserv "privmsg $chan :Oh et puis soyons fou, un troisieme :)))"
					putserv "MODE $chan +b *!*@$hostmask"
					putserv "privmsg $chan :Et maintenant, je te kick"
					putserv "KICK $chan $who On m a demandé de t attaquer alors au revoir !!!!!!!"
				}
			}
		}
	}
}

cordialement

ours_en_pluche