Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


recherche d'eggdrop
#1
Bonjour, je ne suis pas un scripteur de TCL/eggdrop et je cherche quatre eggdrops :

- Un qui permet de : reunir des stats sur mon site genre le nombre de smiley utilisés etc ...

- Je cherche Pooshy adaptable en unreal

- un Eggdrop qui permet de voice un user quand il parles beaucoup etc et le devoice quand il n'est plus actif ...

- Un eggdrop de modération ( qui affiche des commandes comme : G:line K:line kill etc ) ...

Voilà si tu pouvait m'aider ... merci d'avence

Cordialement
#2
Bonjour,

Donc j'ai un système de devoice/deop si une personne à trop d'idle sur un salon.
Ceci en deux TCL à mettre dans deux eggdrops.

Ensuite en cherchant sur le net j'ai trouvé un TCL qui voice au bout de x lignes et devoice si idle aussi.

Je vais te mettre les 3 codes ensuite à toi de modifié ou en faire ce que tu veux :

TCL en deux partie :


tcl
#######################################################################
################# Auto deop & devoice sur idle ########################
#######################################################################
#              							                #
#								                      #
#               Ce TCL fonctionne avec deux robots :		          #
#								                      #
#								                      #
#								                      #		
# idle_do_dv_spy.tcl		: A installer sur le robot spy          #
#								                      #	
# idle_do_dv_principal.tcl	: A installer sur le robot modérateur   #
#								                      #			
#								                      #			
#								                      #
#######################################################################
########################### Configuration. ############################
#######################################################################
 
bind EVNT - init-server proc:initidle
proc proc:initidle { type } {
 
#######################################################################
################### Pseudo du robot spy du salon. #####################
#######################################################################
 
set ::spy_bot "Robot-Moderator"
 
}
#######################################################################
##################### Fin de la configuration. ########################
#######################################################################
 
bind MSG - idle_op proc:idledo
proc proc:idledo { nick uhost hand text } {
if [string match -nocase $nick $::spy_bot] {
  putserv "mode [lindex $text 0] -oooooo [join [lrange $text 1 end]]"
  foreach listdeop [lrange $text 1 end] {
    putserv "NOTICE $listdeop :Votre idle sur [lindex $text 0] est trop important : Vous venez d'être deop !"
  }
}
}
 
bind MSG - idle_voice proc:idledv
proc proc:idledv { nick uhost hand text } {
if [string match -nocase $nick $::spy_bot] {
  putserv "mode [lindex $text 0] -vvvvvv [join [lrange $text 1 end]]"
  foreach listdeop [lrange $text 1 end] {
    putserv "NOTICE $listdeop :Votre idle sur [lindex $text 0] est trop important : Vous venez d'être devoice !"
  }
}
}
#######################################################################
############################# Fin du TCL ##############################
#######################################################################


Second TCL :


tcl
#######################################################################
################# Auto deop & devoice sur idle ########################
#######################################################################
#              							                #
#								                      #
#               Ce TCL fonctionne avec deux robots :		          #
#								                      #
#								                      #
#								                      #		
# idle_do_dv_spy.tcl		: A installer sur le robot spy          #
#								                      #	
# idle_do_dv_principal.tcl	: A installer sur le robot modérateur   #
#								                      #			
#								                      #			
#								                      #
#######################################################################
########################### Configuration. ############################
#######################################################################
 
bind EVNT - init-server proc:initidlespy
proc proc:initidlespy { type } {
 
#######################################################################
##### Définition des canaux sur lesquels le scan doit être fait. ######
#######################################################################
 
set ::all_chans "#salon"
 
#######################################################################
################ Pseudo du robot principal du salon. ##################
#######################################################################
 
set ::bot_principal "Robot-spy"
 
#######################################################################
############# Idle au bout duquel les pseudos sont deop ###############
#######################################################################
 
set ::time_deop "30"
 
#######################################################################
############ Idle au bout duquel les pseudos sont devoice #############
#######################################################################
 
set ::time_devoice "30"
 
#######################################################################
############## Liste des pseudos à mettre en exception ################
#######################################################################
 
set ::exempt_pseudos "Darfus"
 
#######################################################################
##################### Fin de la configuration. ########################
#######################################################################
}
 
 
bind TIME - "* * * *" proc:idledeop
proc proc:idledeop { minute hour day month year } {
lappend ::exempt_pseudos $::botnick
set ::exempt_pseudos [string tolower $::exempt_pseudos]
foreach chans $::all_chans {
  set liste ""
  foreach pseudo [string tolower [chanlist $chans]] {
    set clearpseudo [lindex [split $pseudo |] 0]
    if ![string match -nocase niubot?? $pseudo] {
      if {[lsearch -exact $::exempt_pseudos $clearpseudo] eq -1} {
        if {[isop $pseudo $chans]&&[getchanidle $pseudo $chans]>=$::time_deop }  {
        lappend liste $pseudo
        if {[llength $liste]==6} {
          putserv "PRIVMSG $::bot_principal :idle_op $chans $liste"
          set liste "" 
        }
      }
    }
  }
}
if {[llength $liste]!=0} {
  putserv "PRIVMSG $::bot_principal :idle_op $chans $liste"
}
}
}
 
 
bind TIME - "* * * *" proc:idledevoice
proc proc:idledevoice { minute hour day month year } {
lappend ::exempt_pseudos $::botnick
set ::exempt_pseudos [string tolower $::exempt_pseudos]
foreach chans $::all_chans {
  set liste ""
  foreach pseudo [string tolower [chanlist $chans]] {
    set clearpseudo [lindex [split $pseudo |] 0]
    if ![string match -nocase niubot?? $pseudo] {
      if {[lsearch -exact $::exempt_pseudos $clearpseudo] eq -1} {
        if {[isvoice $pseudo $chans]&&[getchanidle $pseudo $chans]>=$::time_devoice }  {
        lappend liste $pseudo
        if {[llength $liste]==6} {
          putserv "PRIVMSG $::bot_principal :idle_voice $chans $liste"
          set liste "" 
        }
      }
    }
  }
}
if {[llength $liste]!=0} {
  putserv "PRIVMSG $::bot_principal :idle_voice $chans $liste"
}
}
}
#######################################################################
############################# Fin du TCL ##############################
#######################################################################


J'utilisé ceci lorsque j'était sur le reseau Orange.

Ensuite voici le code TCL que j'ai trouver en fouinant sur le net :


tcl
# $Id: activechatter.tcl, v3.80.b eggdrop-1.6.18 23/02/2009 10:11:56 Exp $
 
# Begin - Active Chatter v3.80.b [activechatter.tcl]
#       Build date: 6th August 2007
#       Last Modified: 23rd February 2009
#       Copyright © 1998-2009 awyeah (awesomeawyeah@gmail.com)
#       This TCL script is designed to work with eggdrop v1.6.17 or higher
 
#########################################################################
#                        Active Chatter 3.80.b                          #
#                                                                       #
#                                                                       #
# Author: awyeah                                     23rd February 2009 #
# Email: awesomeawyeah@gmail.com                   Build version 3.80.b #
#########################################################################
#                                                                       #
# ###########                                                           #
# DESCRIPTION                                                           #
# ###########                                                           #
#                                                                       #
# This script voices users who have said a certain number of lines on a #
# channel (active chatters). Additionally, it devoices users who are    #
# idling for more than a certain amount of time on a channel (unactive  #
# chatters).                                                            #
#                                                                       #
#########################################################################
#                                                                       #
# ############                                                          #
# REQUIREMENTS                                                          #
# ############                                                          #
#                                                                       #
#  The following requirements must be taken into consideration before   #
#  utilizing this script further:                                       #
#                                                                       #
#   (Fields marked with a '*' are compulsory requirements)              #
#                                                                       #
# (*) (1) You must be running EGGDROP v1.6.17 or higher.                #
# (*) (2) You must have TCL v8.4 or higher installed on the system.     #
#                                                                       #
#   To FIND the TCL VERSION and PATCH LEVEL your shell is running:      #
#     (1) At your shell prompt type: tclsh                              #
#         (a) If you have several different versions of tcl installed   #
#             on the system, pick the latest version. E.g: tclsh8.3,    #
#             tclsh8.4 which is installed from the given list.          #
#             (i) At shell prompt type: tclsh8.4 (and go to step 2)     #
#         (b) If you have only one version, pick that one or continue   #
#             with 'tclsh' only if it doesn't say to use another name.  #
#     (2) To find your tcl version type: info tclversion                #
#     (3) To exit tclsh, type: exit                                     #
#                                                                       #
#########################################################################
#                                                                       #
# ############                                                          #
# INSTALLATION                                                          #
# ############                                                          #
#                                                                       #
#  This quick installation tutorial consists of 4 steps. Please follow  #
#  all steps correctly in order to setup your script.                   #
#                                                                       #
# (1) Upload the file activechatter.tcl in your eggdrop '/scripts'      #
#     folder along with your other scripts.                             #
#                                                                       #
# (2) OPEN your eggdrops configuration (.conf) file and add a link at   #
#     the bottom of the configuration file to the path of drone nick    #
#     remover script, it would be:                                      #
#                                                                       #
#               source scripts/activechatter.tcl                        #
#                                                                       #
#                                                                       #
# (3) SAVE your bots configuration file.                                #
#                                                                       #
# (4) REHASH and RESTART your bot.                                      #
#                                                                       #
#########################################################################
#                                                                       #
# ########                                                              #
# VERSIONS                                                              #
# ########                                                              #
#                                                                       #
#  v3.80.b  - Fixed bugs reported by users thanks to "speechless" from  #
# (04/02/09)  the egghelp forum.                                        #
#           - Fixed a bug in the autovoice:users and                    #
#             autovoice:devoice:idlers procedure for $nickchan.         #
#           - Fixed declaration of $chan in autovoice:devoice:idlers    #
#             procedure.                                                #
#           - Added configuration settings to set user specific mode    #
#             settings for displaying active and idle chatters.         #
#                                                                       #
#  v3.66.b  - Fixed some bugs and errors reported.                      #
# (20/09/07)                                                            #
#                                                                       #
#  v3.47.b  - First public release.                                     #
# (07/08/07)                                                            #
#                                                                       #
#########################################################################
#                                                                       #
# ########                                                              #
# CONTACTS                                                              #
# ########                                                              #
#                                                                       #
#  (*) For any suggestions, comments, questions or bugs reports, feel   #
#      free to email me at:                                             #
#                                                                       #
#               awesomeawyeah@gmail.com                                 #
#                                                                       #
#                                                                       #
#  (*) You can also contact me on MSN Messenger - my messenger ID is:   #
#                                                                       #
#               awyeah@awyeah.org                                       #
#                                                                       #
#                                                                       #
#  (*) You can also catch me on The DALnet Network:                     #
#                                                                       #
#               /server irc.dal.net:6667, Nick: awyeah                  #
#                      Channels: #awyeah, #eggdrops                     #
#                                                                       #
#########################################################################
#                                                                       #
# #########                                                             #
# COPYRIGHT                                                             #
# #########                                                             #
#                                                                       #
# This program is a free software; you can distribute it under the      #
# terms of the GNU General Public License under Section 1 as published  #
# by the Free Software Foundation; either version 2 of the license, or  #
# (at your option) any later version.                                   #
#                                                                       #
# This program is distributed in the hope that it will be useful,       #
# but WITHOUT ANY WARRANTY; without even the implied warranty of        #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the          #
# GNU General Public License for more details.                          #
#                                                                       #
# WARNING:                                                              #
# This program is protected by copyright law and international          #
# treaties. Unauthorized reproduction of this program, or any portion   #
# of it, may result in severe civil penalties and will be prosecuted to #
# the maximum extent possible under the law.                            #
#                                                                       #
#########################################################################
#                                                                       #
# #########                                                             #
# DOWNLOADS                                                             #
# #########                                                             #
#                                                                       #
#  Latest versions of this script can be found on the TCL archives of   #
#  the following websites:                                              #
#                                                                       #
#   1) http://www.egghelp.org/                                          #
#   2) http://www.tclscript.com/                                        #
#   3) http://channels.dal.net/awyeah/                                  #
#                                                                       #
#########################################################################
 
 
##############################################
### Start configuring variables from here! ###
##############################################
 
#Set the channels you would like this script to work on.
#USAGE: [1/2] (1=User defined channels, 2=All channels the bot is on)
set autovoice(chantype) "1"
 
 
### SET THIS ONLY IF YOU HAVE SET THE PREVIOUS SETTING TO '1' ###
#Set the channels below on which this script should work. Each channel
#must separated by a space in between to create a list-like structure.
#USAGE: set autovoice(channels) "#channel1 #channel2 #mychannel"
set autovoice(chans) "#salon"
 
 
#Set the 'number of lines' here after which a user will be voiced for being
#an ACTIVE CHATTER. Only channel messages will be counted for activity.
set autovoice(lines) "25"
 
 
#Set the time here in 'minutes' after which you would like to devoice idlers (UNACTIVE
#CHATTERs). Users idling for more than this number of minute(s) will be devoiced.
######################################################################################
#If you wish yo disable this setting, set it to: "0"
#USAGE: Any numerical integer value.
set autovoice(dvtime) "1"
 
 
### SET THIS ONLY IF YOU HAVE ENABLED (UNACTIVE CHATTER) DEVOICING FOR IDLERS ###
#Set the time here in 'minutes' after which you would continuously like to check
#channel voices for idling. It is better to set this value low for good accuracy.
#USAGE: Any numerical integer value.
set autovoice(dvcheck) "1"
 
 
### ACTIVE-CHATTER (VOICE) EXEMPT NICKS ###
#Set the list of nicks here which you would like to be exempted from being
#autovoiced by the script. Place separate each entry by placing it in a new line.
##################################################################################
#If you do not have any nick to exempt, then: set autovoice(avexempt) {}
set autovoice(avexempt) {
nick1:#channel1
nick2:#channel2
nick3:#channel3
}
 
 
### UNACTIVE-CHATTER (DEVOICE) EXEMPT NICKS ###
#Set the list of nicks here which you would like to be exempted from being
#devoiced by the script. Place separate each entry by placing it in a new line.
################################################################################
#If you do not have any nick to exempt, then: set autovoice(dvexempt) {}
set autovoice(dvexempt) {
nick1:#channel1
nick2:#channel2
nick3:#channel3
}
 
 
### SET THE TEXT TO DISPLAY IN THE +V (VOICING) MODE ###
#Set the text to display while voicing the active chatters. This text will be
#displayed when removing the channel key (mode: -k). Control codes such as
#color/bold/underline/reverses can also be used in the string.
#Please see: http://tclhelp.net/#faqcolor for more information on control codes.
################################################################################
set autovoice(voicemode) "\0032Voice.\00312Animation.\0031"
 
 
### SET THE TEXT TO DISPLAY IN THE -V (DE-VOICING) MODE ###
#Set the text to display while devoicing the idle chatters. This text will be
#displayed when removing the channel key (mode: -k). Control codes such as
#color/bold/underline/reverses can also be used in the string.
#Please see: http://tclhelp.net/#faqcolor for more information on control codes.
################################################################################
set autovoice(devoicemode) "\0032Devoice.\00312Animation\0031"
 
 
 
#############################################################
### Congratulations! Script configuration is now complete ###
#############################################################
 
 
##############################################################################
### Don't edit anything else from this point onwards even if you know tcl! ###
##############################################################################
 
set autovoice(auth) "\x61\x77\x79\x65\x61\x68"
set autovoice(ver) "v3.80.b"
 
bind pubm - "*" autovoice:users
bind join - "*" autovoice:erase:record
if {$autovoice(dvtime) > 0} {bind time - "*" autovoice:devoice:idlers}
 
proc autovoice:users {nick uhost hand chan text} {
 global autovoice voice
 if {($autovoice(chantype) == 1) && ([lsearch -exact [split [string tolower $autovoice(chans)]] [string tolower $chan]] == -1)} { return 0 }
 if {[isbotnick $nick] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 }
 set exemptlist [list]
 foreach nickchan $autovoice(avexempt) {
  lappend exemptlist $nickchan
 }
 if {[llength $exemptlist] > 0} {
  foreach nickchan $exemptlist {
   if {[string equal -nocase $nickchan $nick] || ([string equal -nocase [lindex [split $nickchan :] 0] $nick] && [string equal -nocase [lindex [split $nickchan :] 1] $chan])} {
     return 0
     }
   }
 }
 set user [split [string tolower $nick:$chan]]
 if {![info exists voice($user)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
   set voice($user) 0
 } elseif {[info exists voice($user)] && ([expr $voice($user) + 1] >= $autovoice(lines)) && ![isop $nick $chan] && ![isvoice $nick $chan]} {
   utimer 3 [list autovoice:delay $nick $chan]
   unset voice($user)
 } elseif {[info exists voice($user)]} {
   incr voice($user)
  }
}
 
proc autovoice:delay {nick chan} {
 global autovoice voice
 set user [split [string tolower $nick:$chan]]
 if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {
  pushmode $chan +v $nick
  set voiced($user) 1
 }
 if {[info exists voiced($user)]} {
  pushmode $chan -k $autovoice(voicemode)
  flushmode $chan
  }
}
 
proc autovoice:erase:record {nick uhost hand chan} {
 global autovoice voice
 if {($autovoice(chantype) == 1) && ([lsearch -exact [split [string tolower $autovoice(chans)]] [string tolower $chan]] == -1)} { return 0 }
 if {[isbotnick $nick]} { return 0 }
 set user [split [string tolower $nick:$chan]]
 if {[info exists voice($user)]} { unset voice($user) }
}
 
proc autovoice:devoice:idlers {m h d mo y} {
 global autovoice voice
 if {([scan $m %d]+([scan $h %d]*60)) % $autovoice(dvcheck) == 0} {
 switch -exact $autovoice(chantype) {
  1 { set chans [split $autovoice(chans)] }
  2 { set chans [channels] }
  default { return 0 }
 }
 foreach chan $chans {
  set chan [string tolower $chan]
  foreach user [chanlist $chan] {
   set user [split [string tolower $user]]
   if {[info exists exempt]} { unset exempt }
   if {[botonchan $chan] && ![isbotnick $user] && ![isop $user $chan] && [isvoice $user $chan]} {
   set exemptlist [list]
   foreach nickchan $autovoice(dvexempt) {
    lappend exemptlist $nickchan
   }
   if {[llength $exemptlist] > 0} {
    foreach nickchan $exemptlist {
     if {[string equal -nocase $nickchan $user] || ([string equal -nocase [lindex [split $nickchan :] 0] $user] && [string equal -nocase [lindex [split $nickchan :] 1] $chan])} {
      set exempt 1; break
      }
     }
    }
    if {[botonchan $chan] && ![info exists exempt] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {
     pushmode $chan -v $user
     if {![info exists devoice($chan)]} {
      set devoice($chan) 1
      }
    } else {
     continue
    }
   } else {
    continue
    }
  }
  if {[info exists devoice($chan)]} {
   pushmode $chan -k $autovoice(devoicemode)
   flushmode $chan
   }
  }
 }
}
 
if {![string equal "\x61\x77\x79\x65\x61\x68" $autovoice(auth)]} { set autovoice(auth) \x61\x77\x79\x65\x61\x68 }
putlog "\002Active Chatter $autovoice(ver)\002 by \002$autovoice(auth)\002 has been loaded successfully."

#3
Pour ceux qui est des stats,

Utilise Denora :)
Chris© Unlimited based..
www.zumeo.fr | irc://irc.zumeo.fr:6667
#4
Djdu32 Lorsque je vais sur zumeo en passant par l'applet ca ne passe pas et lors de ma connéction sur le server via mon client irc Denora Me G:line en me disant proxys refusé Or, je ne me connècte pas sous proxys donc je ne pourrai sans doute pas avoir denora aurai tu un autre à me proposer ?
#5
pour les stats tu peut installer pisg


Cordialement
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
#6
Darfus Wrote:Djdu32 Lorsque je vais sur zumeo en passant par l'applet ca ne passe pas et lors de ma connéction sur le server via mon client irc Denora Me G:line en me disant proxys refusé Or, je ne me connècte pas sous proxys donc je ne pourrai sans doute pas avoir denora aurai tu un autre à me proposer ?
C'est un peu incompréhensible, merci de faire attention à l'orthographe.
Et de mémoire, voire de pratique vu que j'ai denora sur mon réseau, denora ne pose pas de Gline, c'est un serveur de statistiques seulement.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#7
Désolé pour l'orthographe, mais je me fais G:line sur le server où il y a Denora, je me suis mal exprimé et je vous prie de m'en pardonner ...

Donc je ne peux accéder à Zumeo pour demander un eggdrop ( Denora ), c'est pour cela que je vous demande si vous en avez un autre à me conseiller
#8
Sinon, je recherche aussi un eggdrop qui ferai un !report pour les user, c'est à dire que lorsqu'un modérateur n'est pas là, la personne fait !report pseudo motif et le bot scan le pseudo indiqué, si il n'est plus là mais que le bot etait là lors du départ de la personne il récupère son Ip et le G:line ...
#9
Bon, du calme là, une demande à la fois.

Tout d'abord, Denora est un serveur, pas un eggdrop. Ton problème est donc de demander à ce que le service Denora soit présent sur ton canal, ce n'est pas de notre ressort. Surtout si tu es gline sur le réseau. Et comme l'a dit fedora, il vaut mieux utiliser pisg.

Ensuite, pour tes demandes initiales, où ça en est ?
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#10
Moi j'ai pas reçu la réponse si ce que je lui et donner été bon ou quoi..
#11
CrazyCat Wrote:Bon, du calme là, une demande à la fois.

Tout d'abord, Denora est un serveur, pas un eggdrop. Ton problème est donc de demander à ce que le service Denora soit présent sur ton canal, ce n'est pas de notre ressort. Surtout si tu es gline sur le réseau. Et comme l'a dit fedora, il vaut mieux utiliser pisg.

Ensuite, pour tes demandes initiales, où ça en est ?

Il n'y a que l'auto voice qui est réglé mais il me reste Pooshy que je cherche et l'eggdrop de Stats ( utiliser pisg ? ) qu'est ce que pisg ?

excusez moi pour mon ignorance...

D’ailleurs Alias_angelius je suis sincèrement désolé de ne pas t'avoir remercié. Alors Merci ton auto-voice est très bien surtout le deuxième.
#12
salut,

pisg

image
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#13
Bonjour,

Pour le Pooshy unreal à ma connaissance il en existe deux.
Dont un que je possède mais il reste instable.

Ont ma d'ailleurs demander dans faire un ya quelque temps de cela.
Donc pour ma part je le ferait mais pas avant que j'ai certaine choses de fini.

Sinon si cela interesse je le posterai sur le forum ici c'est prévu faut juste être patient.. :x
Autrement tu as aussi citer au début de ton post :

- Un eggdrop de modération ( qui affiche des commandes comme : G:line K:line kill etc ) ...

Peut-tu être plus explicite dans ceci si possible s'il te plaît ?.
#14
Alias_angelius, tu dois connaitre un certain Guiguitu... non ? Bien pour faire simple je cherche les mêmes fonctions que son bot SyStaK, cela doit bien t’avancer..

Voilà je pense que tu m'aura compris.. Merci
#15
bonjour / bonsoir

guiguitu à monter lui même sont bot SyStaK tu ne le trouvera nul part et à ma connaissance enfin si il n'as rien changer c'est un bot mirc et non un tcl

(je te dis tous ça car j'ai fait avec lui les testes de se bot je les vue naître et grandir =)


Possibly Related Threads…
Thread Author Replies Views Last Post
  Recherche uno pour eggdrop MRVOLKANO 2 4,437 03/12/2010, 23:45
Last Post: Mrvolks

Forum Jump:


Users browsing this thread: 1 Guest(s)