[tcl] autojoin de robot automatique

Commenter

Contenu du snippet

script pour faire autojoin le robot automatique
set chans "#salon-secret" ===> #salon-secret ton salon secret
!autojoin add
!autojoin del
!autojoin list

Source / Exemple : 


bind pub - !autojoin joinsalon
			set chans "#salon-secret"
			proc joinsalon {nick uhost handle channel arg} {
			global botnick chans
			set cmd [lindex $arg 0]
			set salon [lindex $arg 1]
			if {[string match -nocase $chans $channel]} {
			if {[string index $salon 0]!="#" && $cmd!="list"} {
			putquick "NOTICE $nick : \0032Syntax !!\0033 !join \[add/del/list\] #Salon"
			return
			}
			}
			switch $cmd {
			"" {
			if {[string match -nocase $chans $channel]} {
			putquick "NOTICE $nick : \0032Syntax !!\003 !join \[add/del/list\] #Salon"
			}
			}
			"add" {
			if {[string match -nocase $chans $channel]} {
			if {[lsearch [channels] $salon]==-1} {
			channel add $salon
			savechannels
			putquick "privmsg $nick \0033 $salon \00312 ajouter a la liste des joins"
			} else {
			putquick "privmsg $nick \0033 $salon \00312 existe déja dans la liste des joins"
			}
			}
			}
			"del" {
			if {[string match -nocase $chans $channel]} {
			if {[lsearch [channels] $salon]!=-1} {
			channel remove $salon
			savechannels
			putquick "privmsg $nick \0033 $salon \0037 supprimer de la liste des joins"
			} else {
			putquick "privmsg $nick \0033 $salon \00312 n'existe pas dans la liste des joins"
			}
			}
			}
			"list" {
			if {[string match -nocase $chans $channel]} {
			set as 1
			foreach liste [channels] {
			putquick "privmsg $nick \0037=>\0032 $as \0037<= \0033 $liste"
			incr as 1
			}
			} else {putquick "privmsg $nick $uhost"}
			}
			default {
			if {[string match -nocase $chans $channel]} {
			putquick "NOTICE $nick : \0032Syntax !!\003 !join \[add/del/list\] #Salon"
			}
			}
			}
			}

Conclusion :


J attends Vos critiques , s.v.p donnez une note merci

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Atok)