[tcl] autojoin de robot automatique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 207 fois - Téléchargée 16 fois

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

Ajouter un commentaire

Commentaires

uaip
Messages postés
1470
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
7 février 2011
-
Salut,
Sans les fautes d'orthographe, ça serait déjà un peu mieux.
pingyan
Messages postés
30
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
9 novembre 2010
-
salut,
je ne voie pas l'intérêt d'un auto join en tcl, dans le sens ou yen a pas besoin du tout. Mais soit
uaip
Messages postés
1470
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
7 février 2011
-
Salut,
Cherche bien, tu en trouveras :)
Ce n'est pas parce-que toi tu ne t'en sers pas que ce n'est pas utilisé. Mais soit.
ennery
Messages postés
39
Date d'inscription
mercredi 15 janvier 2003
Statut
Membre
Dernière intervention
27 octobre 2008
-
bind pub - !autojoin joinsalon

putquick "NOTICE $nick : \0032Syntax !!\0033 !join \[add/del/list\] #Salon"

c'est !autojoin ou !join ?
ennery
Messages postés
39
Date d'inscription
mercredi 15 janvier 2003
Statut
Membre
Dernière intervention
27 octobre 2008
-
je sais pas si le code est débutant ... mais sa structure y ressemble

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.