Création d'un service tcl

[Lavoi]

Bonjour,

Voilà je me présente à vous pour avoir votre aide quand à la réalisation de mon service tcl.
Ce service va être multifonction mais étant donne que je suis pas un très très bon codeur j'espère que vous pourrer me donner un coup de main pour que je puisse terminer mon jolie tcl.


Voilà, j'aimerai savoir s'il est possible de faire en sorte que le robot reconnaisse des mots et qu'à la réconnaissance de ce mot il y est un action, soit un kick soit un ban soit une réponse.

J'aimerai aussi faire un système de log via ce service je sais qu'il faut utiliser un proc de ce genre

Code :

putspeed "notice $n : "
if {![file exists "scripts/news.dab"]}

mais le soucis c'est comment le mettre en place et est ce qu'il y a une possibilité de le mettre sur du fichier non pas .dab mais .html ?

Ensuite j'ai fais ce codage sur des vhost pour des sajoins :

Code :

bind join - "*" mejoin3
proc mejoin3 {nick host hand arg} {
global vhostnet
  foreach vvhostnet $vhostnet {
  if [string match -nocase $vvhostnet $host]  {
putserv "SAJOIN $nick #staff"
    }  
  }
}

Mais hélas le sajoin ne s'effectue pas... Je comprends pas trop pourquoi...

J'aimerai savoir s'il est possible de faire un codage pour que le bot puisse halfopé,opé,etc via un système d'enregistrement via le robot ( comme par exemple eva ou lea ) ? Est ce compliqué à faire comme codage ?

Et pour finir, j'aimerai savoir s'il est possible via tcl de mettre un sytème sur les asv, c'est à dire, un utilisateur arrive avec un asv incorrect ou imcomplet ou sans asv, alors le bot refuse sa connexion sur les salons?

Merci d'avance à vous.

[BaGrift]

Salut,

Pour tout ce qui opé,half et autre sur authentifcation sur le robot, Tu la fonctionne des flag.

Enssuite pour ton tcl de sajoin je tes fais un petit code a toi de le testé j'ai aucun egg pour le teste moi meme !

tclcopier

#################################
#		Script sajoin.tcl		#
#	 Tcl Creat By BaGrift		#
#			27/02/2014			#
#								#
####################################
#		Aurel-Tchat Network		   #
#	Server irc://irc.aurel-tchat.fr#
# Site-Web http://aurel-tchat.fr   #
# Forum http://forum.aurel-tchat.fr#
####################################

#####################################################################################
#	Attention Si vous toucher le code vous risquer de le faire planter				#
#		Merci de pas toucher si vous avez aucune connaissance dans le domaine du TCL#
#####################################################################################

# Ici tu mais les vhost que tu veux qui sois sajoin !
set vhoststaff {
  *@NetAdmin.Ton-reseau.fr
  *@Admin.Ton-Reseau.fr
  *@CoAdmin.Ton-Reseau.fr
}
 
 
bind join - "*" join
proc join {nick host hand arg} {
global vhoststaff staff
  foreach vhost $vhoststaff {
  if [string match -nocase $vhost $host]  {
putserv "SAJOIN $nick #staff"
    }  
  }
}
 
putlog "\002\0034Chargement.. \002\037\0031sajoin.tcl by BaGrift\037\0031"

[KeeViiNou]

Merci je vais tester ça et je vais te dire ce que cela donne :)

[aliasangelius]

Salut, je vais faire mon chieur.
Mais quelle et l'utilité de faire un sajoin ? Il serait pas plus juste que de faire une invitation, et comme sa la personne rejoins le salon.. surtout que forcer le join d'un salon a une personne c'est assez contraire a toutes fonctions

"Envoyé depuis mon GT-N7000 avec Tapatalk"

[BaGrift]

Merci je vais tester ça et je vais te dire ce que cela donne :)

Derien avec plaisir n’hésite pas si ta besoin !