+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Création d'un service tcl (/showthread.php?tid=1477)
Création d'un service tcl - Lavoi - 16/12/2013
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"]}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"
}
}
}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.
RE: Création d'un service tcl - BaGrift - 27/02/2014
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"
RE: Création d'un service tcl - KeeViiNou - 27/02/2014
Merci je vais tester ça et je vais te dire ce que cela donne
RE: Création d'un service tcl - aliasangelius - 27/02/2014
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"
RE: Création d'un service tcl - BaGrift - 27/02/2014
(27/02/2014, 21:19)KeeViiNou a écrit : Merci je vais tester ça et je vais te dire ce que cela donne
Derien avec plaisir n’hésite pas si ta besoin !