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 : 692
» Dernier membre : NuX
» Sujets du forum : 1,486
» Messages du forum : 11,252

Statistiques complètes

Derniers sujets
Eggdrop 1.8.4 RC2
Forum : Eggdrop
Dernier message : CrazyCat
14/12/2018, 09:16
» Réponses : 0
» Affichages : 39
Mise à jour anope
Forum : Services IRC
Dernier message : NuX
03/12/2018, 19:35
» Réponses : 4
» Affichages : 72
horoscope.tcl
Forum : Scripts TCL
Dernier message : CrazyCat
09/11/2018, 17:32
» Réponses : 7
» Affichages : 208
[Script] VDM fetcher
Forum : Releases et support
Dernier message : pheeric
04/11/2018, 23:24
» Réponses : 28
» Affichages : 8,772
Un groupe GitLab pour les...
Forum : Annonces
Dernier message : cestlemien
24/10/2018, 12:04
» Réponses : 1
» Affichages : 155
Problème bot eggdrop
Forum : Eggdrop
Dernier message : CrazyCat
28/09/2018, 07:01
» Réponses : 23
» Affichages : 6,419
Motus (version actuelle :...
Forum : Releases et support
Dernier message : pheeric
12/08/2018, 15:44
» Réponses : 447
» Affichages : 292,144
Voice-auto SQL
Forum : Scripts TCL
Dernier message : aliasangelius
21/07/2018, 08:05
» Réponses : 0
» Affichages : 430
DicoReverso (version actu...
Forum : Releases et support
Dernier message : MenzAgitat
16/07/2018, 11:43
» Réponses : 2
» Affichages : 3,022
ajout d'une fonction sur ...
Forum : Scripts TCL
Dernier message : aliasangelius
09/07/2018, 12:22
» Réponses : 13
» Affichages : 727

 
  Eggdrop 1.8.4 RC2
Posté par : CrazyCat - 14/12/2018, 09:16 - Forum : Eggdrop - Pas de réponse

11 mois après la sortie d'eggdrop 1.8.3, eggheads annonce la sortie de la première version candidate (RC1) d'eggdrop 1.8.4. Les modifications majeures de cette version incluent:

  • Beaucoup de travail sur le système de compilation pour les systèmes peu communs (SunOS, DragonFly, etc), et un système de compilation plus convivial
  • Ajout et amélioration des avertissements SSL / TLS pour faciliter le dépannage
  • Augmentation de la limite d'expiration de ban de 1 à 5 ans et ajout d'un nouveau champ \%y au +ban
  • Gros travail sur les liens TLS entre bots
  • Amélioration et clarification de la documentation sur les botnet TLS
  • Les empreintes TLS sont persistantes sur le botnet après une reconnexion du lien
  • Suppression de beaucoup de petits bugs persistants

Mise à jour : RC2
Un bug a été découvert et corrigé dans le nouveau système de génération de nombre aléatoire.

Version originale et téléchargement


  Mise à jour anope
Posté par : NuX - 02/12/2018, 03:06 - Forum : Services IRC - Réponses (4)

Bonsoir,

J'aimerais poser une question concernant la mise à jour du service anope, j'ai actuellement installé la version 2.0.5 et j'aimerais faire la mise à jour sur la 2.0.6, mais j'ai peur de faire une mauvaise manipulation et perdre toutes mes données.

Quelqu'un peut indiquer précisément la méthodologie à suivre si possible pour éviter les casses ?

Merci.


  horoscope.tcl
Posté par : pheeric - 08/11/2018, 22:58 - Forum : Scripts TCL - Réponses (7)

Bonjour

J'ai installé le tcl téléchargé sur le site, horoscope.tcl
On a installé le package TLS 1.6.7 (le 1.6.5 se trouve pas)

Après avoir recompilé l'egg relancé et fait le .chanset #salon +horo, j'ai ça en PL lors de la commande (par exemple) :

!horo verseau
[20:50:01] Tcl error [::horofr::horopub]: couldn't open "./databases/horo.verseau.4.db": no such file or directory

je dois faire un fichier database.db ? ou il se crée tout seul, si oui je ne l'ai pas trouvé.

Une idée ?

Merci a vous et bonne soirée


Information Un groupe GitLab pour les scripts
Posté par : CrazyCat - 24/10/2018, 11:39 - Forum : Annonces - Réponses (1)

Bonjour à tous,

J'ai décidé de faire un peu de ménage dans mes scripts et de les gérer avec un système fiable et collaboratif, à savoir GitLab.
Ceci ne remplacera en aucun cas la section "Scripts" d'eggdrop.fr, c'est vraiment un espace de travail partagé pour que les personnes qui veulent corriger des bugs ou proposer des modifications.

Si vous avez aussi des scripts que vous voulez rendre collaboratifs, rejoignez le groupe tcl-scripts.

Pour information: vous pouvez rendre un projet privé au sein du groupe, ce qui vous permet de le cacher aux yeux des personnes que vous n'avez pas invité à participer.


  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 : 5)

  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 <slennox@egghelp.org>
# slennox's eggdrop page - http://www.egghelp.org/
# Edited by CrazyCat <crazycat@c-p-f.org>
#
# 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 (winstonlim@visto.com)
#         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