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 : 672
» Dernier membre : SangSue-Elle
» Sujets du forum : 1,480
» Messages du forum : 11,190

Statistiques complètes

Derniers sujets
temps de réponse ai.tcl
Forum : Scripts TCL
Dernier message : CrazyCat
30/01/2018, 12:16
» Réponses : 3
» Affichages : 218
Putlog en couleurs
Forum : Bouts de Scripts
Dernier message : CrazyCat
15/01/2018, 18:06
» Réponses : 3
» Affichages : 936
Autorise
Forum : Scripts TCL
Dernier message : aliasangelius
10/01/2018, 13:28
» Réponses : 15
» Affichages : 2,205
Demande script Planning
Forum : Scripts TCL
Dernier message : CrazyCat
10/01/2018, 00:54
» Réponses : 7
» Affichages : 311
Youtube.tcl par aliasange...
Forum : Scripts TCL
Dernier message : cestlemien
02/01/2018, 17:25
» Réponses : 8
» Affichages : 257
Automatic Translator (ver...
Forum : Releases et support
Dernier message : templala
26/12/2017, 20:50
» Réponses : 6
» Affichages : 2,225
Problème avec le script a...
Forum : Scripts TCL
Dernier message : T3nS
06/12/2017, 16:08
» Réponses : 2
» Affichages : 181
Activation Action Replier
Forum : Scripts TCL
Dernier message : dsa
28/11/2017, 19:27
» Réponses : 5
» Affichages : 222
Souci de connexion party-...
Forum : Eggdrop
Dernier message : cestlemien
28/11/2017, 02:06
» Réponses : 18
» Affichages : 479
Changement programmé de s...
Forum : Bugs, corrections
Dernier message : CrazyCat
07/11/2017, 12:17
» Réponses : 0
» Affichages : 161

 
  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 <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


  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


Smile Probleme de lancement plugin.
Posté par : deejay-wilo - 06/10/2017, 10:53 - Forum : Scripts TCL - Réponses (4)

Bonjour a tous.

Nous avons procédé à l'installation  eggdrop v1.8.2,

J'ai voulu installé des plugins avec la derniere version de Eggdrop,

Et nous avons actuellement un soucis sur les plugins.

En effet, quand je lance mon eggdrop et bien il récupère bien le script du plugin mais il ne se lance pas.

Apres analyse de la log on voit qu'il demande la version 1.6.20 mais je suis bien au dessus la version demandée.

Voici l'extrait de la log

[10:41:53] 04[Interface MegaHAL - erreur] La version de votre Eggdrop est04 1.8.2 1080203; Interface MegaHAL ne fonctionnera correctement que sur les Eggdrops version 1.6.20 ou supérieure.

[10:41:53] 04[CleverEgg - ERREUR] La version de votre Eggdrop est04 1.8.2 1080203; CleverEgg ne fonctionnera correctement que sur les Eggdrops version 1.6.20 ou supérieure.


Avez vous une idée ?

Cordialement,


  eggdrop 1.6.x et uno
Posté par : dsa - 29/09/2017, 18:37 - Forum : Scripts TCL - Réponses (39)

bonjour,
je vient vers vous car je veux installer le jeux uno sur mon irc, quand je tape la commande pour lancer le jeux rien ne ce passe et je n'ai aucune erreurs en pl.
qu'est ce que je doit vérifier?
Est ce que le fichier tcl du uno nécessite un pid ?
merci pour votre aide.