Bienvenue, Visiteur
Vous devez vous enregistrer avant de pouvoir poster.

Nom d'utilisateur
  

Mot de passe
  





Rechercher dans les forums



(Recherche avancée)

Statistiques du Forum
» Membres : 684
» Dernier membre : skudfm
» Sujets du forum : 1,482
» Messages du forum : 11,233

Statistiques complètes

Derniers sujets
Motus (version actuelle :...
Forum : Releases et support
Dernier message : pheeric
12/08/2018, 15:44
» Réponses : 447
» Affichages : 278,619
Voice-auto SQL
Forum : Scripts TCL
Dernier message : aliasangelius
21/07/2018, 08:05
» Réponses : 0
» Affichages : 127
DicoReverso (version actu...
Forum : Releases et support
Dernier message : MenzAgitat
16/07/2018, 11:43
» Réponses : 2
» Affichages : 2,398
ajout d'une fonction sur ...
Forum : Scripts TCL
Dernier message : aliasangelius
09/07/2018, 12:22
» Réponses : 13
» Affichages : 243
Duck Hunt (version actue...
Forum : Releases et support
Dernier message : EnPassant
04/07/2018, 16:20
» Réponses : 26
» Affichages : 6,562
eggdrop 1.6.x et uno
Forum : Scripts TCL
Dernier message : Loki
13/04/2018, 08:15
» Réponses : 42
» Affichages : 2,140
temps de réponse ai.tcl
Forum : Scripts TCL
Dernier message : CrazyCat
30/01/2018, 12:16
» Réponses : 3
» Affichages : 465
Putlog en couleurs
Forum : Bouts de Scripts
Dernier message : CrazyCat
15/01/2018, 18:06
» Réponses : 3
» Affichages : 1,143
Autorise
Forum : Scripts TCL
Dernier message : aliasangelius
10/01/2018, 13:28
» Réponses : 15
» Affichages : 2,500
Demande script Planning
Forum : Scripts TCL
Dernier message : CrazyCat
10/01/2018, 00:54
» Réponses : 7
» Affichages : 830

 
  Voice-auto SQL
Posté par : aliasangelius - 21/07/2018, 08:05 - Forum : Scripts TCL - Pas de réponse

Bonjour,

Code TCL de voice automatique multi-salon en SQL.
Ce code demande que vous ayez biensûr une base SQL.

Il vous suffira juste de la créer, un exemple de comment et une table SQL au lien suivant : https://wiki.eggdrop.fr/Package:MySQLTcl
Dans le code la table doit se nommer : voiceauto

Avec une colonne pseudo et une autre salon, Si tout bug ou autre hésitez pas à fournir au maximum les détails !

https://scripts.eggdrop.fr/details-Voice-auto-s240.html


  ajout d'une fonction sur un auto voice on join
Posté par : Alucard`68 - 05/07/2018, 13:09 - Forum : Scripts TCL - Réponses (13)

Bonjour à tous,

Alors voila j'ai fait un petit code d'autovoice sur le join au salon.

tcl
bind join - "*" join:avjoin
 
proc join:avjoin { nick uhost hand chan } {
 global botnick
 if {$nick == $botnick} {return 0} {
   putserv "mode $chan +v $nick"
   return 0
 }
}


Se code est fonctionnel. j'aimerais rajouter une liste de pseudo qui n'auront pas l'autovoice (les personnes ayant un statut sur le salon) j'ai donc tenté ainsi
tcl
set exemptnick "nick nick1 etc..."
 
bind join - "*" join:avjoin
 
proc join:avjoin { nick uhost hand chan } {
 global botnick exemptnick
 if {$nick == $botnick} {return 0}
 if {$nick == $exemptnick} {return 0} {
   putserv "mode $chan +v $nick"
   return 0
 }
}


Celui ci fonctionne partiellement si dans le "set exemptnick" je met un pseudo ça fonctionne par contre si je rajoute un 2ème pseudo ça ne fonctionne plus. j'avoue ne pas savoir comment faire pour résoudre se problème.
Je n'ai aucun message d'erreur en PL avec le bot.
Et dans un 2eme temps j'aimerais aussi rajouter une option pour que l'autovoice ne soit actif que sur certain salon mais la je ne sais pas comme m'y prendre.

Merci de votre aide future.

Cordialement.

Alucard.


  temps de réponse ai.tcl
Posté par : samsam - 24/01/2018, 11:58 - Forum : Scripts TCL - Réponses (3)

Bonjour,
quelqu'un serait il faire un code pour que le bot quand il répond à son nick prenne un temps de frappe des lignes de texte

et les affiche après un certain délai qui varie selon leur longueur pour plus de réalisme.
Actuellement dans ai.conf il n'y a que ces 2 données :

# temps en secondes pendant lesquels le bot réagit un peu plus après avoir causé (par defaut, 15 secondes, veut dire que pendant 15 secondes
# après que le bot ait parlé, si une personne dit "oui" ou une reaction qu'il connait, le bot le prendra pour lui
# 0 = disable ce mode
set ai(converstime) 15

# flood conversation, on continue la conversation jusqu'a un certain point... si on a $ai(conversflood) paroles en $ai(converstime)
# alors on cesse de repousser le temps que dure la "conversation"
#touchez pas a ca, ca vaut mieux
set ai(conversflood) 25


En vous remerciant



Pièces jointes
.rar   AI.rar (Taille : 6 Ko / Téléchargements : 4)

  Demande script Planning
Posté par : deejay-wilo - 07/01/2018, 01:39 - Forum : Scripts TCL - Réponses (7)

Bonjour,

Je suis à la recherche d'un tcl qui fait des plannings de ce type

avec une commande "!pl" nous avons le résultat ci-dessous.

[00:35:36] •Notice• ‹Bot-R› Animation prévu
[00:35:36] •Notice• ‹Bot-R› 1 Dimanche 07/01/2018 18h à 20h StopOuEncore AVEC: Pseudo
[00:35:37] •Notice• ‹Bot-R› 2 Mercredi 10/01/2018 DE 20 à 22 heures Play List Chanel_26 + Musiques Variées AVEC: Pseudo
[00:35:37] •Notice• ‹Bot-R› 3 Dimanche 07/01/2018 De 10 à 12 heures La Matinale AVEC: Pseudo
[00:35:38] •Notice• ‹Bot-R› 4 Dimanche 07/01/2018 De 15 à 17 heures Road Sixty Six AVEC: Pseudo
[00:35:40] •Notice• ‹Bot› 5 Dimanche 07/01/18 17h00 - 18h00 ballades africaines


Et pour ajouter un event on fait !addpl et le nom de la programmation

Avez vous cela dans vous archive s'il vous plait ?

Je vous remercie d avance.


Smile Youtube.tcl par aliasangelius
Posté par : pheeric - 28/12/2017, 19:12 - Forum : Scripts TCL - Réponses (8)

Bonjour a tous

J'avais  un soucis avec le zurl.tcl un peu comem T3ns
J'ai DL celui posté par aliasangelius, et nikel.

Par contre me suis aperçu que lors d'un post d'un User, via ce lien alors que d'autres fonctionnent:
https://www.youtube.com/watch?v=vzAvnEV8Ctg

J'ai ce message en PL qui s'affiche (et rien sur le salon ou le lien youtube est lancé):

Tcl error [public_youtubedl]: can't read "res1": no such variable

Voila ou cela me renvoie dans le tcl posté par aliasangelius
PS: Les packages http et tls sont bien installés.

Merci  à vous  pour une info

tcl
set youtubedl(pattern) {https://.*youtube.*/watch\?(.*)v=([A-Za-z0-9_\-]+)}
set youtubedl(pattern1) {https://youtu.be/([A-Za-z0-9_\-]+)}
 
namespace eval youtubedl {
}
 
package require http
package require tls
 
bind pubm - * public_youtubedl
proc public_youtubedl {nick userhost handle channel args} {
    global youtubedl botnick
    set args [stripcode $args]
    if {[regexp -nocase -- $youtubedl(pattern) $args match fluff video_id] || [regexp -nocase -- $youtubedl(pattern1) $args match video_id]} {
        set useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
        ::http::register https 443 [list tls::socket -tls1 1]
        set url "https://www.youtube.com/watch?v=$video_id"
        ::http::config -useragent $useragent
        catch { set token [::http::geturl "$url" -timeout 30000] }
        if {([info exists token]) && ([::http::status $token] == "ok")} {
        set retok [::http::data $token]
        if {[string match "*<title>YouTube</title>*" $retok] } { return }
        set res ""
        regexp {<title>(.+?)</title>} $retok res
        regsub -all {<title>} $res "" res
        regsub -all {</title>} $res "" res
        regsub -all -- "- YouTube" $res "" res
        set result [youtubedl::string_filter $res]
        regexp {<div class="watch-view-count">(.+?)</div>} $retok res1
        regsub -all {<div class="watch-view-count">} $res1 "" res1
        regsub -all {</div>} $res1 "" res1
        regsub -all " " $res1 "," res1
        set result1 [youtubedl::string_filter $res1]
        regexp {<meta itemprop="duration" content="(.+?)">} $retok res2
        regsub -all {<meta itemprop="duration" content=\"} $res2 "" res2
        regsub -all {\">} $res2 "" res2
        regsub -all {PT} $res2 "" res2
        regsub -all {M} $res2 " minutes " res2
        regsub -all {S} $res2 " secondes" res2
        http::cleanup $token
        http::unregister https
        puthelp "privmsg $channel :\002\You\0034Tube\003 Titre\002 :$result \002Vues\002 :$res1 \002Durée\002 :$res2"
        }
        }
        }
        
        
        proc youtubedl::string_filter { str } {
    set str [string map -nocase {
        "&agrave;"          "à"     "&agrave;"          "à"     "&aacute;"          "á"     "&acirc;"           "â"
        "&atilde;"          "ã"     "&auml;"            "ä"     "&aring;"           "Ã¥"     "&aelig;"           "æ"
        "&ccedil;"          "ç"     "&egrave;"          "è"     "&eacute;"          "é"     "&ecirc;"           "ê"
        "&euml;"            "ë"     "&igrave;"          "ì"     "&iacute;"          "í"     "&icirc;"           "î"
        "&iuml;"            "ï"     "&eth;"             "ð"     "&ntilde;"          "ñ"     "&ograve;"          "ò"
        "&oacute;"          "ó"     "&ocirc;"           "ô"     "&otilde;"          "õ"     "&ouml;"            "ö"
        "&divide;"          "÷"     "&oslash;"          "ø"     "&ugrave;"          "ù"     "&uacute;"          "ú"
        "&ucirc;"           "û"     "&uuml;"            "ü"     "&yacute;"          "ý"     "&thorn;"           "þ"
        "&yuml;"            "ÿ"     "&quot;"            "\""    "&amp;rsquo;"       "'"     "&euro;"            "€"
        "&amp;eacute;"      "é"     &amp;agrave;        "à"     &amp;egrave;        "è"
        "&oelig;"           "Å“"     "&Yuml;"            "Ÿ"     "&nbsp;"            " "     "&iexcl;"           "¡"
        "&cent;"            "¢"     "&pound;"           "£"     "&amp;amp;"         "&"     "&yen;"             "Â¥"
        "&brvbar;"          "¦"     "&brkbar;"          "¦"     "&sect;"            "§"     "&uml;"             "¨"
        "&die;"             "¨"     "&copy;"            "©"     "&ordf;"            "ª"     "&laquo;"           "«"
        "&not;"             "¬"     "&shy;"             "­-"    "&reg;"             "®"     "&macr;"            "¯"
        "&hibar;"           "¯"     "&deg;"             "°"     "&plusmn;"          "±"     "&sup2;"            "²"
        "&sup3;"            "³"     "&acute;"           "´"     "&micro;"           "µ"     "&para;"            "¶"
        "&middot;"          "·"     "&cedil;"           "¸"     "&sup1;"            "¹"     "&ordm;"            "º"
        "&raquo;"           "»"     "&frac14;"          "¼"     "&frac12;"          "½"     "&frac34;"          "¾"
        "&iquest;"          "¿"     "&Agrave;"          "À"     "&Aacute;"          "Á"     "&Acirc;"           "Â"
        "&Atilde;"          "Ã"     "&Auml;"            "Ä"     "&Aring;"           "Ã…"     "&AElig;"           "Æ"
        "&Ccedil;"          "Ç"     "&Egrave;"          "È"     "&Eacute;"          "É"     "&Ecirc;"           "Ê"
        "&Euml;"            "Ë"     "&Igrave;"          "ÃŒ"     "&Iacute;"          "Í"     "&Icirc;"           "ÃŽ"
        "&Iuml;"            "Ï"     "&ETH;"             "Ð"     "&Dstrok;"          "Ð"     "&Ntilde;"          "Ñ"
        "&Ograve;"          "Ã’"     "&Oacute;"          "Ó"     "&Ocirc;"           "Ô"     "&Otilde;"          "Õ"
        "&Ouml;"            "Ö"     "&times;"           "×"     "&Oslash;"          "Ø"     "&Ugrave;"          "Ù"
        "&Uacute;"          "Ú"     "&Ucirc;"           "Û"     "&Uuml;"            "Ãœ"     "&Yacute;"          "Ý"
        "&THORN;"           "Þ"     "&szlig;"           "ß"     "\r"                ""      "\t"                ""
        "'"            "\'"    "'"             "\'"    "&gt;"              ">"     "&lt;"              "<"
        """             "\'"    "&"             "&"     "#91;"              "\("    "\"             "\/"
        "]"             ")"     "{"            "("     "}"            ")"     "£"            "£"
        "¨"            "¨"     "©"            "©"     "«"            "«"     "­"            "­"
        "®"            "®"     "´"            "´"     "·"            "·"     "¹"            "¹"
        "»"            "»"     "¼"            "¼"     "½"            "½"     "¾"            "¾"
        "À"            "À"     "Á"            "Á"     "Â"            "Â"     "Ã"            "Ã"
        "Ä"            "Ä"     "Å"            "Ã…"     "Æ"            "Æ"     "Ç"            "Ç"
        "È"            "È"     "É"            "É"     "Ê"            "Ê"     "Ë"            "Ë"
        "Ì"            "ÃŒ"     "Í"            "Í"     "Î"            "ÃŽ"     "Ï"            "Ï"
        "Ð"            "Ð"     "Ñ"            "Ñ"     "Ò"            "Ã’"     "Ó"            "Ó"
        "Ô"            "Ô"     "Õ"            "Õ"     "Ö"            "Ö"     "×"            "×"
        "Ø"            "Ø"     "Ù"            "Ù"     "Ú"            "Ú"     "Û"            "Û"
        "Ü"            "Ãœ"     "Ý"            "Ý"     "Þ"            "Þ"     "ß"            "ß"
        "à"            "à"     "á"            "á"     "â"            "â"     "ã"            "ã"
        "ä"            "ä"     "å"            "Ã¥"     "æ"            "æ"     "ç"            "ç"
        "è"            "è"     "é"            "é"     "ê"            "ê"     "ë"            "ë"
        "ì"            "ì"     "í"            "í"     "î"            "î"     "ï"            "ï"
        "ð"            "ð"     "ñ"            "ñ"     "ò"            "ò"     "ó"            "ó"
        "ô"            "ô"     "õ"            "õ"     "ö"            "ö"     "÷"            "÷"
        "ø"            "ø"     "ù"            "ù"     "ú"            "ú"     "û"            "û"
        "ü"            "ü"     "ý"            "ý"     "þ"            "þ"     "&amp;"             "&"
        
    } $str]
    regsub -all "<br />" $str " " str
    return "${str}"
}
 
 
proc stripcode {str} {
    return [regsub -all -- {(\d{1,2})?(,\d{1,2})?} $str ""]
}



  Problème avec le script autolog
Posté par : T3nS - 06/12/2017, 15:14 - Forum : Scripts TCL - Réponses (2)

Bonjour,

J'ai un soucis avec le script de l'autolog. Pour faire simple il ne sauvegarde tout simplement pas les logs.
Alors est-ce que c'est moi qui est fait une erreur ? Ou pas je ne sais pas.

Voilà le script de configuration :

tcl
# autolog.tcl v1.24 (29 November 2012)
# copyright (c) 2000 by slennox <[email protected]>
# slennox's eggdrop page - http://www.egghelp.org/
# Edited by CrazyCat <[email protected]>
#
# When you want to make your bot keep a logfile for a new channel, you have
# to manually add a new 'logfile' command to the bot's config file. This
# can be a problem if your bot frequently joins new channels and you want
# to keep a log for each. This script automatically enables a logfile for
# each channel the bot joins, so that you don't need to enable it manually.
# The idea for this script came from Zsolt.
#
#
# v1.24 - Corrected some small bugs, essentially "return 0" wich made
#         stop the reinitialisation of logfiles
#         Deleted the send function
#         Added a hook on .-chan command
# v1.23 - Readded trailing backslash in $autolog_path added by myself and
#         removed by Abraham I think, because every good OS don't worrys
#         about multiple slashes in path, so logspath///#channel.log would
#         be the same as logspath//#channel.log or logspath/#channel.log
#         (try it Abraham) *g*
# v1.22 - Removed trailing backslash in $autolog_path added by strolchi.
#         Becouse if user will enter _correctly_ sendfile patch, as in
#         example provided in this script, with backslash at end, then
#         it would give in result incorrectly set path with double backslash.
#         i.e.: Logfile #3: logspath//#channel.log on #channel (log. modes
#         goes here)
# v1.21 - Corrected small omnission related with default values of variables
#         used in that script, it was done in ver. 1.12, but becouse strolchi
#         takes as a base ver. 1.11 - it was done again. (Abraham)
# v1.2  - Added start/continue of autologing after a rehash by strolchi
#       - Added support for missing trailing backslash in $autolog_path
#         by strolchi
# v1.11 - Added support for user defined directory for log-files by Abraham
# v1.1  - Added a trigger for sending log file by hd2000 ([email protected])
#         ScriptCorner - http://scriptcorner.cjb.net
# v1.0  - Initial release.
 
# Set the modes for new logfiles. These determine what type of things are
# logged (e.g. 'k' for kicks, bans, and mode changes). These modes are
# explained in the logfile section of eggdrop.conf.dist.
set autolog_modes "sjpk"
 
# Specify how the logfiles should be named. There are two variables you can
# use here:
#  %chan for the channel name
#  %stripchan for the channel name with leading #+&! character removed
set autolog_file "%stripchan.log"
 
# The script will create a new logfile for every channel the bot joins for
# which no logfile is already specified. If you have some channels you
# don't want the script to create a log for, specify them here in the
# format "#chan1 #chan2 #etc".
set autolog_exempt "#rencontres #dialogues"
 
# Set the next line as the path where log files should be stored
# and downloaded from
# example : set autolog_path "/home/acratus"
set autolog_path "/home/logs"
 
# Don't edit below unless you know what you're doing.
 
proc autolog_join {nick uhost hand chan} {
    if {$nick == $::botnick} {
        set stlchan [string tolower $chan]
        if {$::autolog_exempt != "" && [lsearch -exact [string tolower [split $::autolog_exempt]] $stlchan] != -1} {return 0}
        foreach curfile [logfile] {
            if {[string tolower [lindex $curfile 1]] == $stlchan} {return 0}
        }
        regsub -all -- "%chan" $::autolog_file $chan file
        regsub -all -- "%stripchan" $file [string trim $chan "#+&!"] file
        logfile $::autolog_modes $chan "$::autolog_path/$file"
    }
    return 0
}
 
proc autolog_evnt {type} {
    foreach chan [channels] {
        set stlchan [string tolower $chan]
        if {$::autolog_exempt != "" && [lsearch -exact [string tolower [split $::autolog_exempt]] $stlchan] != -1} {continue}
        foreach curfile [logfile] {
            if {[string tolower [lindex $curfile 1]] == $stlchan} {continue}
            regsub -all -- "%chan" $::autolog_file $chan file
            regsub -all -- "%stripchan" $file [string trim $chan "#+&!"] file
            logfile $::autolog_modes $chan "$::autolog_path/$file"
        }
    }
    return 0
}
 
proc autolog_remove {handle idx text} {
   set chan [string tolower [lindex [split $text] 0]]
   if {![validchan $chan]} {
      putlog "Sorry, I'm not on $chan"
      return 0
   }
   foreach curfile [logfile] {
      if {[string tolower [lindex $curfile 1]] == $chan} {
         logfile "" "" [lindex $curfile 2]
      }
   }
   channel remove $chan
   return 0
}
 
bind join - * autolog_join
bind evnt - rehash autolog_evnt
bind dcc - "-chan" autolog_remove
putlog "Loaded autolog.tcl v1.24 by slennox et al"





J'ai bien créer le repértoire logs dans home mais rien n'y est enregistré.

Merci d'avance pour votre aide.

T3nS


  Activation Action Replier
Posté par : dsa - 27/11/2017, 20:01 - Forum : Scripts TCL - Réponses (5)

hello
j'ai installer un eggdrop 1.8.2 mais dans le .conf je met
source scripts/nomduscript.tcl

quand je passe en PL pour activer le script avec
.chanset #nomduchan +nomduscript

j'ai ceci:

Error trying to set +Action_Replier.tcl for #portail-dsa, invalid mode.

quel mode dois-je changer?

merci pour votre aide


  Souci de connexion party-line
Posté par : dsa - 17/11/2017, 09:29 - Forum : Eggdrop - Réponses (18)

bonjour,
je reviens vers vous après une absence forcer Sad
je rencontre un soucis, je n'arrive plus a a joindre la PL.
j'ai meme enlever eggdrop et réinstaller sur mirc je tape
/msg nondemoneggdrop chat
/msg nomdemoneggdrop pass monpass
/ctcp nomdemoneggdrop chat

la fenêtre s'ouvre mais il me refuse l’accès après avoir entrer mon pseudo, pourquoi?

DCC Chat session
-
Client: Master (91.191.147.137)
Time: Fri Nov 17 08:26:56 2017
-
Acknowledging chat request...
DCC Chat connection established
-
[08:27:10] <Master> ÿû
[08:27:10] <Master>
[08:27:10] <Master>
[08:27:10] <Master> Master  (Eggdrop v1.6.21 © 1997 Robey Pointer © 2011 Eggheads)
[08:27:10] <Master>
[08:27:10] <Master> Entrez votre surnom.
[08:27:13] (vortex) vortex
[08:27:13] <Master> You don't have access.
-
DCC session closed

j'ai voulus passer au 1.8.2 mais je rame avec la config.

avez vous une idee du refus d'acces?


  Problème DCC TelNet
Posté par : T3nS - 30/10/2017, 17:31 - Forum : Eggdrop - Réponses (2)

Bonjour,

Je ne sais pas pourquoi mais sur mon eggdrop 1.8.2 je ne peux rester longtemps connecter en DCC ou en telnet. Après un court moment d'inactivité (1 ou 2minutes) la connexion DCC ou Telnet est perdue. Ce qui fait que je dois à chaque fois me reconnecter et ça m'empêche également de surveiller les erreurs éventuelles.

J'espère que vous aurez une solution. Merci d'avance.

Cordialement


  msg d'infos entre 2 bots
Posté par : Maxwell - 09/10/2017, 12:58 - Forum : Scripts TCL - Réponses (2)

Bonjour

Je retravaille mon petit botnet, j'aimerai afficher sur un salon de mon serveur les msgs reçus par les différents egg , qu'ils soit sur mon serveur ou ailleurs, genre (op kick msg pv etc)

Je me base sur Spy.tcl # Author : MeTroiD - #v1per on Quakenet

Je me mélange un peu je crois avec le bind bot, il doit etre sur le hub ou le leaf svp ?

Si je fais .tcl islinked monHub en partyline du Leaf j'ai bien un 1 en réponse donc le le Leaf le voit (logiquement)

Comme j'ai lu qu'il fallait que le bot de réception donc le Hub soit à l'ecoute, et là je cale

puis je avoir une piste svp
merci