Communauté francophone sur les Eggdrops / Support et discussions / Scripts TCL / [Résolu] Laisser un message pour un utilisateur

Poster une réponse  Créer un sujet 
Pages (2): « Première [1] 2 Suivante > Dernière »
[Résolu] Laisser un message pour un utilisateur
Auteur Message
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #1
[Résolu] Laisser un message pour un utilisateur

Bonsoir,

Je voulais savoir si il etait possible d'avoir un tcl qui permettrais de laisser un message à un utilisateur qui a un certain flag et que le bot lui dise qu'il a un message quand cette personne arrive sur le salon precis avec une commande !message, !lire, !effacer ???

J'ai trouvé le tcl message delivery system mais je pense qu'il faut avoir un server perso avec nickserv ou un truc du genre.

Merci de votre aide.

23/12/2011 20:25
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
alias_angelius
Tool Command Language
****


Messages : 275
Groupe : Registered
Inscription : Mar 2011
Statut : Hors ligne
Message : #2
RE: Laisser un message pour un utilisateur

Salut,

Non MDS ne dépend pas forcement de service.
De plus si tu regarde bien la configuration très doucement tu verra que tu peux très bien modifié les flag
Exemple : pour envoyer lire etc... tu peut très bien mettre o|o donc Opérateur globaux/Opérateur salon.

24/12/2011 09:10
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #3
RE: Laisser un message pour un utilisateur

Salut,

Oui j'ai vu les flags apparement ca fonctionnes bien sauf pour les pseudos non enregistré sur le bot.

Par exemple, brutus n'est pas sur le bot, quand je tape !msg brutus blablabla, ca me dit message pour brutus accepté.

J'ai modifié la ligne

Code :
# autorisations nécessaires pour pouvoir recevoir un message
    variable receivemsg_auth "o|o"


Donc brutus ne recoit pas de notice comme quoi il a un message en attente, mais le message a quand meme été enregistré lool.

Je ne vois pas comment faire pour que quand je tape !msg pseudo texte, ca aille verifier si le pseudo est bien dans la liste et que si il n'y est pas, que ca n'enregistre donc pas le message et que ca dise pseudo non enregistré par exemple.

Merci

24/12/2011 12:36
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
alias_angelius
Tool Command Language
****


Messages : 275
Groupe : Registered
Inscription : Mar 2011
Statut : Hors ligne
Message : #4
RE: Laisser un message pour un utilisateur

Heu faut regardez dans la configuration ou le code si ya pas un endroit ou il et mis que pour ajouter un message faut que la personne soit dans la listes des handles.
Sinon essayé de rajouter une proc/modifié la proc existant pour que sa fasse ça.

24/12/2011 13:00
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #5
RE: Laisser un message pour un utilisateur

J'ai regardé mais je trouve rien concernant tout ca.

peut etre un matchattr qu'il faudrait faire mais je ne saurais meme pas ou le placer dans le code lol.

Je join le tcl au cas ou quelqu'un pourrais regarder.

Merci d'avance


.tcl File  mds.tcl (Taille : 112.27 Ko / Téléchargements : 2)

24/12/2011 13:10
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
alias_angelius
Tool Command Language
****


Messages : 275
Groupe : Registered
Inscription : Mar 2011
Statut : Hors ligne
Message : #6
RE: Laisser un message pour un utilisateur

ça se trouve ici :

TCL :
###
### Un utilisateur veut envoyer un message
###
proc MDS::pub_sendmsg {nick host hand chan arg} {
   if { (![channel get $chan MDS]) || (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $chan] $hand "msg"])) } { return }
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 pub_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $chan \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $chan "pub" "send" $arg
}
proc MDS::priv_sendmsg {nick host hand arg} {
   if { (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $nick] $hand "msg"])) } { return }
   if { ![onchan $nick] } {
      puthelp "$MDS::delivery_mode $nick :\003[set MDS::num_sec_color]Vous devez vous trouver sur un chan où $::botnick est présent pour utiliser la messagerie.\003"
      return
   }
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 priv_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $nick "priv" "send" $arg
}


ici c'est lorsque tu tape !msg .... sur salon la première proc
la seconde c'est en /msg

Ce message a été modifié le: 24/12/2011 17:19 par alias_angelius.
24/12/2011 17:18
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #7
RE: Laisser un message pour un utilisateur

alias_angelius a écrit :
ça se trouve ici :

TCL :
###
### Un utilisateur veut envoyer un message
###
proc MDS::pub_sendmsg {nick host hand chan arg} {
   if { (![channel get $chan MDS]) || (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $chan] $hand "msg"])) } { return }
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 pub_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $chan \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $chan "pub" "send" $arg
}
proc MDS::priv_sendmsg {nick host hand arg} {
   if { (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $nick] $hand "msg"])) } { return }
   if { ![onchan $nick] } {
      puthelp "$MDS::delivery_mode $nick :\003[set MDS::num_sec_color]Vous devez vous trouver sur un chan où $::botnick est présent pour utiliser la messagerie.\003"
      return
   }
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 priv_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $nick "priv" "send" $arg
}


ici c'est lorsque tu tape !msg .... sur salon la première proc
la seconde c'est en /msg


Merci alias_angelius je regarderais quand je serais rentré chez moi.

Ce message a été modifié le: 25/12/2011 09:10 par loulou7593.
25/12/2011 09:07
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
alias_angelius
Tool Command Language
****


Messages : 275
Groupe : Registered
Inscription : Mar 2011
Statut : Hors ligne
Message : #8
RE: Laisser un message pour un utilisateur

De rien je pense regarder aussi lorsque je serait prêt beintôt quand j'aurais terminer un truc Smile

25/12/2011 13:59
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #9
RE: Laisser un message pour un utilisateur

Bonsoir,

J'ai tenté de rajouter cette ligne

TCL :
if {[matchattr $nick Z]} { puthelp "$MDS::delivery_mode $nick :\003[set MDS::num_sec_color]Le pseudo demandé n'est pas enregistré"
}


dans la partie
TCL :
###
### Un utilisateur veut envoyer un message
###
proc MDS::pub_sendmsg {nick host hand chan arg} {
   if { (![channel get $chan MDS]) || (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $chan] $hand "msg"])) } { return }
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 pub_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $chan \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $chan "pub" "send" $arg
}
proc MDS::priv_sendmsg {nick host hand arg} {
   if { (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $nick] $hand "msg"])) } { return }
   if { ![onchan $nick] } {
      puthelp "$MDS::delivery_mode $nick :\003[set MDS::num_sec_color]Vous devez vous trouver sur un chan où $::botnick est présent pour utiliser la messagerie.\003"
      return
   }
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 priv_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $nick "priv" "send" $arg
}


J'ai aussi mis $hand à la place de $nick mais apparement ca verifie juste l'expediteur de la commande pas le destinataire. Je trouve pas comment faire pour que ca verifie que le pseudo tapé soit bien dans la liste du bot.

Ce message a été modifié le: 27/12/2011 21:25 par loulou7593.
27/12/2011 21:24
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
alias_angelius
Tool Command Language
****


Messages : 275
Groupe : Registered
Inscription : Mar 2011
Statut : Hors ligne
Message : #10
RE: Laisser un message pour un utilisateur

ta modifié ou montre la modification

28/12/2011 09:42
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
alias_angelius
Tool Command Language
****


Messages : 275
Groupe : Registered
Inscription : Mar 2011
Statut : Hors ligne
Message : #11
RE: Laisser un message pour un utilisateur

Bon voilà après avoir tester 5 minutes :

TCL :
###
### Un utilisateur veut envoyer un message
###
proc MDS::pub_sendmsg {nick host hand chan arg} {
   if { (![channel get $chan MDS]) || (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $chan] "msg"])) } { return }
        if {![matchattr $nick Z]} { puthelp "$MDS::delivery_mode $nick :\003[set MDS::num_sec_color] Le pseudo demandé n'est pas enregistré"
}
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 pub_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $chan \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $chan "pub" "send" $arg
}


Voilà ce que ceci donne :

Citation :
[09:49:06] (+alias_angelius|alias_angelius) !msg
[09:49:06] [Privé] Identifia (Identifia@49107090.com)
[09:49:08] (@Identifia) Syntaxe : !msg <destinataire>[,destinataire,...] <message> | Envoie un message à quelqu'un. Le message lui sera délivré dès qu'il manifestera sa présence sur un chan où se trouve Identifia, c'est à dire dès qu'on sera certain d'avoir toute son attention.


Le Privé :

Citation :
[09:49:06] (Identifia) Le pseudo demandé n'est pas enregistré
28/12/2011 09:51
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #12
RE: Laisser un message pour un utilisateur

alias_angelius a écrit :
Bon voilà après avoir tester 5 minutes :

TCL :
###
### Un utilisateur veut envoyer un message
###
proc MDS::pub_sendmsg {nick host hand chan arg} {
   if { (![channel get $chan MDS]) || (($MDS::antiflood == 1) && ([MDS::antiflood [MDS::clean_data $chan] "msg"])) } { return }
        if {![matchattr $nick Z]} { puthelp "$MDS::delivery_mode $nick :\003[set MDS::num_sec_color] Le pseudo demandé n'est pas enregistré"
}
   if { $MDS::DEBUGMODE } { putlog "\00304\[$MDS::scriptname - DEBUG\]\003 pub_sendmsg : $nick \00307|\003 $host \00307|\003 $hand \00307|\003 $chan \00307|\003 $arg" }
   MDS::check_identity $nick $host $hand $chan "pub" "send" $arg
}


Voilà ce que ceci donne :

Citation :
[09:49:06] (+alias_angelius|alias_angelius) !msg
[09:49:06] [Privé] Identifia (Identifia@49107090.com)
[09:49:08] (@Identifia) Syntaxe : !msg <destinataire>[,destinataire,...] <message> | Envoie un message à quelqu'un. Le message lui sera délivré dès qu'il manifestera sa présence sur un chan où se trouve Identifia, c'est à dire dès qu'on sera certain d'avoir toute son attention.


Le Privé :

Citation :
[09:49:06] (Identifia) Le pseudo demandé n'est pas enregistré


Là c'est si toi tu tapes la commande et que tu as un flag Z que ca te reponds ca ??

28/12/2011 19:26
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
alias_angelius
Tool Command Language
****


Messages : 275
Groupe : Registered
Inscription : Mar 2011
Statut : Hors ligne
Message : #13
RE: Laisser un message pour un utilisateur

non c'est quand j'ai pas de flag Z que sa me répond ça
Ta tester ?

28/12/2011 19:45
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #14
RE: Laisser un message pour un utilisateur

Oui, mais en fait c'est pas ca, je me suis peut etre mal expliqué lool.

En fait c'est pour le destinataire du message que je veux que ca verifie.

genre !msg picsou ceci est un test.

Que ca verifie si picsou est bien dans la liste des users du bot.

Car sinon de bases j'ai modifié les flags pour ceux qui sont autorisés à envoyer un message.

Ce message a été modifié le: 28/12/2011 22:02 par loulou7593.
28/12/2011 22:02
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
djkenny
TCL pur powered!
****


Messages : 387
Groupe : Registered
Inscription : Dec 2007
Statut : Absent
Message : #15
RE: Laisser un message pour un utilisateur

TCL :
if {![validuser [lindex $arg 0]]} {
   putserv "PRIVMSG $nick :Ce pseudo n'est pas enregistré."
   return
}

C'est en reconnaissant ses erreurs que l'on progresse Wink

Ce message a été modifié le: 29/12/2011 06:14 par djkenny.
29/12/2011 06:14
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Poster une réponse  Créer un sujet 

Discussions probablement similaires...
Discussion: Auteur Réponses: Affichages: Dernier message
  Bot qui envoi un message perso qu'à moi [résolu] loulou7593 3 192 26/05/2009 22:05
Dernier message: loulou7593
  message d'erreur pour une tcl Ben37 4 253 20/01/2009 23:09
Dernier message: CrazyCat

Voir une version imprimable
Envoyer ce sujet à un ami
S'abonner au sujet | Ajouter le sujet aux favoris
Aller à :

Contact | Communauté francophone sur les Eggdrops | Retourner en haut | Retourner au contenu | Version bas-débit (Archivé) | Syndication RSS |