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 : 733
» Dernier membre : did29270
» Sujets du forum : 1,551
» Messages du forum : 11,647

Statistiques complètes

Derniers sujets
rapido tcl
Forum : Scripts TCL
Dernier message : BdS
Il y a 4 heures
» Réponses : 5
» Affichages : 71
Youtube
Forum : Scripts TCL
Dernier message : CrazyCat
Hier, 09:07
» Réponses : 13
» Affichages : 650
Topic Warden (version act...
Forum : Releases et support
Dernier message : MenzAgitat
03/08/2020, 14:51
» Réponses : 22
» Affichages : 14,825
rien de d'important
Forum : Discussions libres
Dernier message : CrazyCat
02/08/2020, 01:11
» Réponses : 1
» Affichages : 119
Problèmes sur un script t...
Forum : Scripts TCL
Dernier message : Pioupiou
01/08/2020, 14:40
» Réponses : 2
» Affichages : 138
Link qui ne fonctionne pl...
Forum : Eggdrop
Dernier message : uto
25/07/2020, 12:05
» Réponses : 2
» Affichages : 889
TCL annonce
Forum : Scripts TCL
Dernier message : CrazyCat
25/07/2020, 00:53
» Réponses : 7
» Affichages : 332
Multi eggdrops
Forum : Eggdrop
Dernier message : Pioupiou
24/07/2020, 23:44
» Réponses : 5
» Affichages : 203
Duck Hunt (version actue...
Forum : Releases et support
Dernier message : CrazyCat
10/07/2020, 13:33
» Réponses : 34
» Affichages : 15,970
ChanRelay 3 (version 3.14...
Forum : Releases et support
Dernier message : CrazyCat
23/06/2020, 16:14
» Réponses : 23
» Affichages : 15,485

 
  rapido tcl
Posté par : Pioupiou - Hier, 01:24 - Forum : Scripts TCL - Réponses (5)

Bonsoir à tous, je suis à la recherche du jeu rapido qui consiste à écrire le mot le plus rapidement possible. J'ai cherché sur le site des scripts mais je ne l'ai pas trouvé si quelqu'un peut bien m'aider ça serait génial. Merci d'avance et bonne soirée !


  Youtube
Posté par : pheeric - 03/08/2020, 00:08 - Forum : Scripts TCL - Réponses (13)

Bonsoir

J'avais remonté un bug sur Youtube.tcl il y a quelques temps, puis tout était revenu en ordre..

Là depuis 1 mois (je n'ai pu m'en occuper avant) j'ai le même bug  lors du post d'un lien sur un chan.
Message d'erreurs en PL :

[23:55:15] Tcl error [public_youtubedl]: can't read "res1": no such variable
je tape : .set errorInfo
set errorInfo:
[23:55:18] <RadioDJ> Currently: can't read "res1": no such variable
[23:55:18] <RadioDJ> Currently:     while executing
[23:55:18] <RadioDJ> Currently: "regsub -all {<div class="watch-view-count">} $res1 "" res1"
[23:55:18] <RadioDJ> Currently:     (procedure "public_youtubedl" line 20)
[23:55:18] <RadioDJ> Currently:     invoked from within
[23:55:18] <RadioDJ> Currently: "public_youtubedl $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Ligne 20 :

Code :
if {([info exists token]) && ([::http::status $token] == "ok")} {

Pour info le code tcl correspondant :
Code :
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"
       }
       }
       }
     

Si quelqu'un a une idée je suis preneur merci et bonnes vacs a ceux qui y sont :)


  Problèmes sur un script tcl eva
Posté par : Pioupiou - 31/07/2020, 00:04 - Forum : Scripts TCL - Réponses (2)

Bien le bonsoir à tous, j'ai un soucis avec un script tcl service eva. certaines commandes comme voiceall, devoiceall, opall, deopall, chankill, changline ne fonctionnent pas je vous met le code ci dessus:

tcl
"opall" {
 set eva(cmd) "opall"
 if {[string index $value1 0]!="#"} { putdcc $eva(idx) ":$eva(pseudo) NOTICE $vuser :\002Commande Opall :\002 /msg $eva(pseudo) opall #salon"; return 0 }
 putdcc $eva(idx) ":$eva(pseudo) WHO $value1"
 if {[eva:console 1]=="ok" && $value2!=[string tolower $eva(salon)]} { putdcc $eva(idx) ":$eva(pseudo) PRIVMSG $eva(salon) : $eva(console_com)Opall $eva(console_deco):$eva(console_txt) $value1 par $user" }
 }
 "deopall" {
 set eva(cmd) "deopall"
 if {[string index $value1 0]!="#"} { putdcc $eva(idx) ":$eva(pseudo) NOTICE $vuser :\002Commande Deopall :\002 /msg $eva(pseudo) deopall #salon"; return 0 }
 putdcc $eva(idx) ":$eva(pseudo) WHO $value1"
 if {[eva:console 1]=="ok" && $value2!=[string tolower $eva(salon)]} { putdcc $eva(idx) ":$eva(pseudo) PRIVMSG $eva(salon) : $eva(console_com)Deopall $eva(console_deco):$eva(console_txt) $value1 par $user" }
 }


quand je tape une commande j'ai ça:
[20:44:37] ‹&Eva›TchaT-RooM Opall :#accueil par Pony
mais rien ne se passe. J'espere que quelqu'un pourra m'aider, Bonne fin de soirée à tous.


  Link qui ne fonctionne plus
Posté par : uto - 24/07/2020, 17:26 - Forum : Eggdrop - Réponses (2)

Bonjour,
Je n'arrive plus à faire fonctionner le link entre eggdrops 1.8 :
Configuration de BotA:
listen 3362 bots
listen 3333 users
En pl de BotA :
.+bot BotB ip 3401/3333
Configuration de BotB:
listen 3333 users
listen 3401 bots
En pl de BotB:
.+bot BotA ip 3362/3333
.link BotB    # Renvoie :  Got STARTTLS from BotA. Replying... Password required for connection to BotA. Timeout.

Aucun des botnet nick ne dépasse 9 caractères. J'ai fait tout un tas d'essais qui n'ont pas résolu le problème.


  Multi eggdrops
Posté par : Pioupiou - 24/07/2020, 02:41 - Forum : Eggdrop - Réponses (5)

Bonsoir, j'ai plusieurs plusieurs dossiers de windrops sur mon pc windows quand j'en lance un il fonctionne mais si j'essaie de connecter un autre bot sur un autre dossier je reçois une erreur:
4 [main] eggdrop 1940 child_info_fork::abort: C:\Windrop\cygcrypto-1.0.0.dll: Loaded to different address: parent(0x740000) != child(0x800000)
j'aimerai avoir plusieurs bots sur mon pc comment dois-je faire svp ? merci d'avance.


Question TCL annonce
Posté par : KeeViiNou - 18/07/2020, 19:02 - Forum : Scripts TCL - Réponses (7)

Bonjour,

Je souhaite créer un tcl d'annonce où un utilisateur puisse renseigner un message et que ce message soit dit par l'eggdrop toutes les X minutes.
J'ai commencé à faire ça :

tcl
set fichier "/home/shell/scripts/annonce.txt"
set canal "#salon"
set fi [open $fichier "r"]
set phrases [split [read -nonewline $fi] "\n"]
close $fi
bind time - "*0 * * * *" randlecture
bind time - "*30 * * * *" randlecture
proc randlecture {mm hh dd mo yy} {
   set laphrase [lindex $::phrases [rand [llength $::phrases]]]
   putserv "PRIVMSG $::canal :$laphrase"
}
 
bind pub - "!addpub" add:news
proc add:news {n ht hd ch a} {
set news [lrange $a 0 end]
if {$ch == "#Radio_US-Route66"} {
	if {$news == ""} {putspeed "notice $n :Syntaxe => !addpub < message >"; return}
	if {![file exists "scripts/annonce.txt"]} {set files [open "scripts/annonce.txt" a+]; close $files}
	# enregistrement de la news #
	set num [expr {int(rand() * 37)}]
	set files [open "scripts/annonce.txt" a+]
	puts $files "$num $n $news"
	close $files
	putspeed "notice $n :News enregistré et validé"
} else {
	putspeed "notice $n :Erreur Salon"
} }


Le tcl se lance, mais quand je souhaite renseigner un message, rien dans le fichier...


Question ouverture d'un fichier
Posté par : KeeViiNou - 21/06/2020, 10:03 - Forum : Scripts TCL - Réponses (1)

Bonjour,

Je vous soumet un souci que je rencontre avec un codage. Je souhaite faire lire au bot un message enregistrer sur un fichier.

Citation :set fichier "shell/scripts/news.txt"

set canal "#canal

set fi [open $fichier "r"]

set phrases [split [read -nonewline $fi] "\n"]

close $fi



bind time - "*0 * * * *" randlecture

bind time - "*30 * * * *" randlecture

proc randlecture {mm hh dd mo yy} {

set laphrase [lindex $::phrases [rand [llength $::phrases]]]

putserv "PRIVMSG $::canal :$laphrase"

}

j'ai pour message en PL

Citation : while executing
"open $fichier "r""


  Eggdrop et Unreal5.0.4
Posté par : ShowDowN - 07/06/2020, 21:23 - Forum : Eggdrop - Réponses (10)

Bonjour à vous

Voilà même si je sais que ce n'est pas recommandé, je voulais remettre mon eggdrop (un OpMyBot) en IRCOP sur mon serveur.

Pour cela, comme sur unreal 3.2, j'utilisais une TCL (ident.tcl)

Cependant, mon eggdrop arrive à se auth sur nickserv mais n'arrive pas à se oper. Il a pourtant son acces de renseigné sur Unrealircd.conf.
Je sais que le oper fonctionne car quand j'utilise le pseudo OpMyBot de mon script, j'arrive a me mettre ircop. Cependant, mon eggdrop n'y arrive pas et mon serveur lui retourne cela :

<< OperServ Denied access to OperServ from OpMyBoT!Service@**.***.***.** (non-oper) >>

Voici mon ident.tcl 


Code :
# Variables globales - informations du bot #
set nsnick "OpMyBoT"
set nspass "****"

# Identification Ns

bind notc - * ident_ns    
proc ident_ns { nick uhost handle arg dest } {
global botnick nsnick altnick nspass
if { ([string match "*Si vous ne changez pas*je changerai votre pseudo.*" $arg]) && ($nick == "NickServ") } {
if { ($botnick == $nsnick) || ($botnick == $altnick) } { putquick "PRIVMSG nickserv :identify hello" }
}
}

bind notc - * oper    
proc oper { nick uhost handle arg dest } {
if { ([string match "*Votre vhost*est activée.*" $arg]) && ($nick == "HostServ") } {
putserv "oper OpMyBot"
putserv "os set superadmin on"
}
}

bind raw - "001" identify

proc identify { from keyword text } {
putquick "identify Mael15082013"
putquick "oper OpMyBot *****"
putquick "os set superadmin on"
putquick "hs on"
}


Information TCL de fermture
Posté par : KeeViiNou - 06/06/2020, 14:33 - Forum : Scripts TCL - Réponses (1)

Bonjour,

voici un codage de tcl, que vous m'aviez aidé à créer à l'époque. J'ai tenté de le mettre en service mais malheureusement plus de s'effectue. Aucun message d'erreur en PL et surtout aucune fermeture de salon. Avez-vous une idée du problème ?

Merci d'avance.

Code :
# Minute de fermeture de salon

set CC(min) "07"



# Heure de fermeture du salon

set CC(ferme) "17"



# Heure d'ouverture du salon

set CC(ouvre) "17"



# Minute d'ouverture du salon

set CC(mouvre) "05"



# Heure d'avertissement de fermeture

set CC(afh)   "17"



# Minute d'avertissement de fermeture

set CC(amn)   "05"



# Mode de fermeture de salon

set CC(mode) "+iRm"



# Message d'avertissement de fermeture

set CC(af)   "Fermeture du salon dans 05minute.. veuillez quitter ce salon !"



# Message de fermeture

set CC(close) "Fermeture du salon !"



# Message d'ouverture



set CC(ouvert) "Ouverture du salon ! Bon t'chat à tous ! ;)"





if {![file exists "scripts/chan.db"]} { set file_chan [open "host.db" a+]; close $file_chan }



bind time - "$CC(amn) $CC(afh) * * *" time:averto

proc time:averto {min hour day month year} {

global CC

catch {open scripts/chan.db r} salle

while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(af)" } }

catch {close $salle}

}



bind time - "$CC(min) $CC(ferme) * * *" time:close

proc time:close {min hour day month year} {

global CC

catch {open scripts/chan.db r} salle

while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(close)"; puts "MODE $salon +$CC(mode)"; foreach users [chanlist $salon] { puts "KICK $salon $user :$CC(ouvert)"} } }

catch {close $salle}

}



bind time - "$CC(mouvre) $CC(ouvre) * * *" time:ouvre

proc time:ouvre {min hour day month year} {

global CC

catch {open scripts/chan.db r} salle

while {![eof $salle]} { gets $salle salon; if {$salon!=""} { puts "PRIVMSG $salon :$CC(ouvert)"; puts "MODE $salon -$CC(mode)" } }

catch {close $salle}

}


  "::http::register https 443 ::tls::socket"
Posté par : Kossiwa - 03/06/2020, 22:37 - Forum : Scripts TCL - Réponses (12)

Bonjour a tous,

Je suis nouveau dans le monde des eggdrops et le langage de programmation Tcl.
Version de mon eggdrop : Eggdrop v1.8.4
J'ai configure l'eggdrop avec un peu de mal mais il fonctionne bien que je n'est acces a la party line uniquement par telnet, impossible d'y accede par dcc.
Cela pour l'instant ne me derange pas plus que ca.
Par contre j'ai recupere un script imdb.tcs qui lorsque je lance mon eggdrop le fait planter avec l'erreur suivante

invalid command name "::http::register"
    while executing
"::http::register https 443 ::tls::socket"

Voici la partie du code qui pose probleme (c'est visiblement la gestion du tls)

#################################################################
# DO NOT MODIFY BELOW HERE UNLESS YOU KNOW WHAT YOU ARE DOING!  #
#################################################################
if { $IMDB_ALTERNATIVE == 0 } { package require http 2.3 }

set packages(tls) [catch {package require tls}]; # https


::http::register https 443 ::tls::socket

J'ai fait quelques recherches sur internet mais sans succes
Merci d'avance pour votre aide.