Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Création d'un service tcl
#1
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.
#2
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 !


tcl
#################################
#		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"

Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#3
Merci je vais tester ça et je vais te dire ce que cela donne :)
#4
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"
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#5
(27/02/2014, 21:19)KeeViiNou Wrote: Merci je vais tester ça et je vais te dire ce que cela donne :)

Derien avec plaisir n’hésite pas si ta besoin !
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D


Possibly Related Threads…
Thread Author Replies Views Last Post
  Service Bot Kikouu 38 4,556 26/09/2020, 23:42
Last Post: Kikouu
  TCL Service fedora 10 5,633 15/12/2013, 00:32
Last Post: aliasangelius

Forum Jump:


Users browsing this thread: 1 Guest(s)