Vous n'êtes pas identifié(e).

Top posteurs

Statistiques

Partenaires

  • eXolia Hosting
  • Eggdrop.fr

#1 Re : Réseaux et projets IRC » Réseau IRC - Watchat » 20/08/2020 16:44:34

Yop !

Serveur avec un bon accueil ! Et pour répondre aux commentaires ci-dessus, notamment envers une personne => Toujours priviligé la qualité à la quantité, garde ça en tête, c'est une très bonne leçon de vie. La frustration n'a pas forcément sa place dans un forum communautaire, alors que la bonne humeur oui ! big_smile

#4 Aides » Les statistiques du motus ne s'affiche pas » 03/09/2013 23:47:11

SaiTek
Réponses : 1

Bonsoir,

(Oui c'est encore moi ^^) cette fois-ci j'ai un problème, les statistiques du motus ne s'affiche pas ça reste sur des noms du genre %SERVERNAME%, et pourtant j'ai jouer deux parties du motus générer la page ensuite, mais non toujours pas, savez-vous d'où viens le problème ?


Merci une nouvelle fois

#6 Re : Aides » Utilitaire PHP (Pseudo connecté, et statistiques messages enregistre) » 31/08/2013 19:30:59

Bonjour Harakiri,

Je vais donc voir du côté de Thales, parce que justement, je ne souhaite pas inclure cela dans la partie "Statistiques général" mais plutôt dans leurs espace membres. Comme cela ils ont juste à mettre le pseudo de la personne et vois s'il est connecté ou pas, en ce qui concerne l'archivage des conversations sur une page web, avez-vous une idée ?

Merci beaucoup smile

#7 Re : Aides » Utilitaire PHP (Pseudo connecté, et statistiques messages enregistre) » 31/08/2013 17:43:53

Hello,

Probablement, mais justement, sans denora service (afin de l'intégrer à mon site, enfaite un truc comme le nickserv et chanserv php ^^) en ce qui concerne les pseudos smile

#8 Aides » Utilitaire PHP (Pseudo connecté, et statistiques messages enregistre) » 31/08/2013 17:10:19

SaiTek
Réponses : 6

Hellow,

Après plusieurs recherche sur internet, je n'ai pas trouver, je voudrait savoir si quelqu'un pourrait partager (si il  a bien sûr) un script php qui permet de savoir si un pseudo est connecter sur le serveur IRC, est un tcl qui archive les conversations sur les salons choisis et les mets sur le site.

Merci smile

#9 Re : Aides » Eggdrop se compile avec TCL8.4 alors que ça dois être TCL8.5 » 31/08/2013 17:08:35

Bonjour,

J'ai réussi, j'ai déinstaller tcl8.5 et tcl8.4, ainsi que le dossier de l'eggdrop, puis j'ai installer uniquement tcl8.5 tcl-dev et là ça fonctionne. Merci smile

#10 Re : Aides » Eggdrop se compile avec TCL8.4 alors que ça dois être TCL8.5 » 31/08/2013 09:03:10

Bonjour,

Ca ne fonctionne pas non plus quand je force l'utilisation, et quand je désinstalle tcl8.4 et que je réinstalle mon eggdrop, eh bien ça marche pas après le configure, il dis qu'il manque tcl8.4.

#12 Aides » Eggdrop se compile avec TCL8.4 alors que ça dois être TCL8.5 » 29/08/2013 15:40:43

SaiTek
Réponses : 3

Bonjour,

Suite à ce qui m'est arrivé depuis hier ... J'ai réinstaller mes eggdrops mais ils se compile en TCL8.4 alors que TCL8.5 a été installer avant que j'installe les  eggdrops, savez-vous d'où cela peut venir ?

Merci

#15 Re : Aides » [Résolu] NeoStats ne prends pas en compte la ligne "Protocol" » 22/08/2013 12:47:54

Par contre j'ai un petit problème

[12:30:50] [NOTICE irc.Twibook.net]: *** LocOps -- Link [@178.32.106.52.39645] denied, colliding server numeric

Pourtant la config est bien faites ...

#16 Re : Aides » [Résolu] NeoStats ne prends pas en compte la ligne "Protocol" » 22/08/2013 12:24:40

Le problème est résolu bizarrement, j'ai deux dossiers NeoStats oO, un qui se trouve dans

/serveur/securite/neostats

et l'autre qui se trouve dans

/home/moncompte/neostats

J'ai mis le fichier de config dans /home/moncompte/neostats et ça fonctionne ! big_smile

Merci pour votre aide (=

#17 Re : Aides » [Résolu] NeoStats ne prends pas en compte la ligne "Protocol" » 22/08/2013 12:16:16

Bonjour,

Le serveur, c'est Debian 7 64 bits, 2 go de ram, 1.66 Ghz.

Je n'ai eu aucune erreur lors de la compilation, puisque j'ai installer ce qu'il m'a demander, le perl-dev ...
Et j'utilise Notepad++ & WinSCP pour éditer la config.

#18 Re : Aides » [Résolu] NeoStats ne prends pas en compte la ligne "Protocol" » 22/08/2013 12:07:50

Non il n'y a pas de caractère invisible, et j'ai également essayé avec la config de Exolia, et toujours pareil

#19 Re : Aides » [Résolu] NeoStats ne prends pas en compte la ligne "Protocol" » 22/08/2013 11:25:36

Bonjour Damien,

Comme tu peux le voir par le biais de la configuration ci-dessus, oui, cette ligne est bien présente là où tu as dis.

#20 Re : Aides » [Résolu] NeoStats ne prends pas en compte la ligne "Protocol" » 22/08/2013 11:17:23

Bonjour,

Voici la configuration complète

Code: conf
 
##################################################
## Configuration file for NeoStats
## Created:  Thu, Aug 22 2013 - 07:43:54 UTC
## NeoStats Copyright (c) 1999-2008, Adam Rutter, Justin Hammond, Mark Hetherington
## Web: http://www.NeoStats.Net
## File Revision: 3.0
##################################################
 
##################################################
#Each of the options has an indicator as follows:
#    [REQUIRED]    - must be set or NeoStats will not run.
#    [RECOMMENDED] - optional but may cause problems if not set.
#    [OPTIONAL]    - optional and the feature will be disabled if not set.
#    [DISCOURAGED] - may cause undesirable side effects if enabled.
##################################################
 
#################################
# NeoStats Server Configuration #
#################################
 
ServerConfig {
# NAME = "<hostname>" [REQUIRED]
#    Specifies the name of the NeoStats Server as it will appear on 
#    the network. e.g. 
#      
#          SERVER_NAME = "stats.neostats.net"
#      
#    When NeoStats links, it will appear as stats.neostats.net.
  Name = "neostats.twibook.net"
 
# INFO = "<info line>" [REQUIRED]
#    Specify the description of the server that
#    appears when you do /links e.g.
#    
#        INFO "Network Auxiliary Services"
  Info = "NeoStats 3.0 IRC Services"
 
# SERVICECHANNEL="#<channel name>" [REQUIRED]
#    Specify the channel that all bots on NeoStats
#    will automatically join, and echo out any
#    important information e.g.
#    
#        SERVICECHANNEL="#services"
#        
#    Makes NeoStats, and all the other bots join #services channel on 
#    start-up/load.
  ServiceChannel = "#services"
 
# SERVER_NUMERIC = <numeric> [RECOMMENDED]
#    Specify the numeric of the server to send on connect.
#    This must be a value between 1 and 254, and must not be in use by
#    any other IRC server on the network.  
#    
#        SERVER_NUMERIC = 1
  ServerNumeric = 1
 
# BINDTO = <ip address or hostname> [OPTIONAL]
#    Make NeoStats bind to a particular IP Address. If not
#    specified NeoStats will attempt to find this address
#    itself. e.g. 
#    
#        BINDTO 203.203.123.12
#    
#    All outgoing connections from NeoStats will originate from this 
#    IP address
#    This IP address should not be localhost (127.0.0.1)
  BindTo = "******"
 
# PROTOCOL = "<protocol>" [REQUIRED]
#    Specifies the protocol module to use.
#    Valid protocol options are:
# 		unreal31 unreal32 ultimate2 ultimate3
#		hybrid7 bahamut14 bahamut18 plexus
#		ircup10 asuka nefarious
#       client
#
#          PROTOCOL = "unreal32"
#      
 protocol = "unreal32"
}
 
#################################
# NeoStats Option Configuration #
#################################
 
 
Options {
# RECONNECTTIME = <seconds> [RECOMMENDED]
#    If NeoStats server gets split from the network, how long to wait 
#    before attempting to reconnect to the network. A value of 0 will 
#    cause NeoStats to shutdown and not attempt to reconnect. e.g.
#    
#        RECONNECTTIME = 10    
#    
#    Specifies wait 10 seconds before trying to reconnect
#        
#        RECONNECT_TIME = 0
#    
#    Tells NeoStats to never reconnect to the network
#    
#    If not specified, NeoStats will default to 10 seconds.
  ReconnectTime = 10
 
# USEPRIVMSG = <true/false> [DISCOURAGED]
#    Specify if the bots should send all messages as privmsgs or as 
#    notices (Most Services use notice) e.g.
#     
#        USEPRIVMSG true
#    
#    If present or set to true, will send all messages as privmsgs (if commented out, 
#    it will send as Notices) *NOTE:* This option Violates IRC RFC, and 
#    can cause flooding problems on your network. Its NOT recommended. 
  UsePrivmsg = false
 
# OPERONLY = <true/false> [OPTIONAL]
#    Restrict NeoStats and StatServ to opers use only.
#    If not specified, users will have some access to NeoStats
#    and StatServ commands. e.g.
#    
#        OPERONLY=true 
#        
#    Only opers may use NeoStats and StatServ.
  OperOnly = false
 
# SERVERSETTIME=<INTERVAL> [OPTIONAL]
#    Cause NeoStats to sync server times at the given interval
#    INTERVAL is an integer representing the number of hours
#        
#    Examples
#        
#        SERVERSETTIME=24
#    
#    Cause NeoStats to sync server times every 24 hours
#    If not present, NeoStats will not sync times.
#    This option only works on servers that support this and
#    defaults to a sync interval of 24 hours. Enabling this
#    option will also cause NeoStats to sync servers when it
#    first joins the network.
  ServerSettime = 24
 
# DatabaseType = "<dbm>" [OPTIONAL]
#    Specifies the database manager module to use.
#    NeoStats will default to GDBM if this is not provided.
#    Valid options are:
#          gdbm
#          bdb (if found during configure)
#
#          DatabaseType = "gdbm"
#      
#
  DatabaseType = "gdbm"
 
# LOGFILENAMEFORMAT = "<format>" [OPTIONAL]
#    Defines the format for dated log files. This allows you to choose 
#    what date format is used for log file names when they are rotated at 
#    midnight. The option uses the parameters passed to strftime so you 
#    can use any options valid for that function. Common ones are:
#        %a  Abbreviated weekday name 
#        %A  Full weekday name 
#        %b  Abbreviated month name 
#        %B  Full month name 
#        %d  Day of month as decimal number (01 – 31) 
#        %m  Month as decimal number (01 – 12) 
#        %y  Year without century, as decimal number (00 – 99) 
#        %Y  Year with century, as decimal number 
#
#    Examples using 30 September 2003 as the date:
#    For NeoStats0930.log:
#        
#        LOGFILENAMEFORMAT="%m%d"
#    
#    For NeoStats20030930.log:
#    
#        LOGFILENAMEFORMAT="%Y%m%d"
#    
#    If not defined, the default is the original NeoStats log format of
#    "-%m-%d" i.e. NeoStats-09-30.log
  #LogFileNameFormat = "-%m-%d"
 
# ROOTNICK = "<nick>" [REQUIRED]
#    Specifies the nick of the NeoStats root bot
#    e.g. 
#      
#          ROOTNICK="NeoStats"
#      
#    When NeoStats links, it create a root bot with nick NeoStats
  RootNick = "NeoStats"
 
# SERVICESHOST = "<hostname>" [REQUIRED]
#    Specifies the default host of NeoStats service bots
#    e.g. 
#      
#          SERVICEHOST="stats.net"
#      
#    Service bots will now we user@stats.net
#    If not specified NeoStats will default to the server name
  ServicesHost = "twibook.net"
 
# NOLOAD = true [YOU MUST REMOVE THIS]
#    If this is in the neostats.conf your NeoStats WILL NOT START UP. To 
#    disable this simply comment this line out. e.g.
#        
#        NOLOAD = true  <- NeoStats will not load.
#        
#        #NOLOAD = true <- NeoStats will load.
#
#        NOLOAD = false <- Neostats will load.
  NOLOAD = true
}
 
##################################
# NeoStats Linking Configuration #
##################################
 
# This section defines the Server that NeoStats will
# attempt to link to. You must configure this server
# with the correct C/N and U lines for Neostats
 
Servers {
 
# IPADDRESS ="<ip address or hostname>" [REQUIRED]
#    Specifies the IP address to connect to. e.g.
#        
#        IPADDRESS="127.0.0.1"
#    
#    This will force stats to connect to 127.0.0.1
  IpAddress = "*****"
 
# PORT = <port number> [REQUIRED]
#    Specifies the port to connect to on the IRC Server e.g.
#    
#        PORT=6667        
#    
#    When connecting, NeoStats will connect to port 6667
  Port = 6667
 
# PASSWORD="<link password>" [REQUIRED]
#    Specifies the password used to connect. This must match your C/N 
#    lines in your IRCD configuration e.g.
#  
#      PASSWORD="linkpass"
#      
#    Send "linkpass" as the password to connect
  Password = "******"
}
 
 
########################################
# NeoStats Administrator Configuration #
########################################
 
 
ServiceRoot {
#MASK="<nick!ident@host>" [REQUIRED]
#    Who should get master access to manage NeoStats regardless of 
#    authentication systems. Only one entry allowed. e.g.
#    
#        MASK="fish!?Fish@*.neostats.net"
#        
#    Will give "fish" complete access to NeoStats if fish has 
#    umode +r and comes from the specified hostname and ident. 
  #Mask = "ircop!*@*"
}
 
 
#################################
# NeoStats Module Configuration #
#################################
 
Modules {
#####################################
# Module Configurations and Loading #
#####################################
 
# MODULENAME = {"<module name>", "<module name>", "<module_name>"} [OPTIONAL]
#    What modules to load at start-up. e.g. 
#        
#        MODULENAME = { "statserv" }
#    
#    Will load up StatServ only at boot
#    
#    To specify NeoStats to load multiple modules, place a comma after
#    each module and specify the next one e.g.
#
#        MODULENAME = { "statserv", "extauth" }
#
#    will load up both statserv and extauth modules
#    
#    We have provided example lines for convenience for 
#    official modules but you must download and install
#    external modules before trying to load them.
 
MODULENAME = {
# Update notification module, loaded by default
        "update",
 
# StatServ, maintain and report various networks statistics
	"statserv",
 
# HostServ, vhost services for users
	"hostserv",
 
# TextServ, text messaging service
	"textserv",
 
# ConnectServ, monitor connections to the network: user connections, oper 
# modes, server connections and nick changes.
	"connectserv",
 
# Operlog, operator command logging service
	"operlog",
 
# IRCdauth, authenticate users based on their user modes.
	"ircdauth",
 
# Extauth, authenticate users based on nick!user@host access lists
	"extauth",
 
# QuoteServ, Quote Message Service
	"quoteserv",
 
# LimitServ, Channel Limit Setting Service
	"limitserv",
 
# SecureServ. You must download and install SecureServ first.
#	"secureserv",
 
# BLSB. You must download and install BLSB first.
#	"blsb",
 
# OPSB. You must download and install OPSB first.
#	"opsb",
 
# LogServ. You must download and install LogServ first.
#	"logserv",
 
# TriviaServ. You must download and install TriviaServ first.
#	"triviaserv",
 
# WarServ. You must download and install WarServ first.
#	"warserv",
 
# GamesServ. You must download and install GameServ first.
#	"gamesserv",
 
# YahzteeServ. You must download and install YahzteeServ first.
#	"yahtzeeserv",
 
# FloodServ. You must download and install FloodServ first.
#	"floodserv",
 
# SeenServ. You must download and install SeenServ first.
#	"seenserv",
 
# ProfileServ. You must download and install ProfileServ first.
#	"profileserv",
 
}
}
 
#####################################
# NeoNetConfigurations and Loading  #
#####################################
 
# NeoNet is a protocol that links all NeoStats installations back to the main
# NeoStats sites, such as http://secure.irc-chat.net etc.
# This allows you to take advantage of some of the aditional features or modules
# that we support, such as updated definitions for SecureServ accounts, or 
# reporting options for OPSB.
 
# You must visit http://accounts.neostats.net/ to create your NeoNet account
# and select what aditional options you would like. (some might require 3rd
# party modules, such as SecureServ or OPSB). 
 
# If you have been using SecureServ on the 2.5 series, please visit
# http://accounts.neostats.net/migrate/ for information on how to 
# use your existing Secure.irc-chat.net account with NeoNet.
NeoNet {
 
# This is the username, as supplied on the NeoNet pages.
# It should be your IRC Network user account and not your 
# personal accounts. 
#        UserName = "somenet"
 
# This is your IRC Network User account password.
#        PassWord = "password"
 
# Leave the port at 2960 unless otherwise instructed.
#        Port = 2960
 
# This option handles how NeoNet connections are established. The available
# options are:
#	yes 	- Connect to NeoNet during startup
#	no 	- Never connect to NeoNet (Note, some features might not work if Connect
#	     	is set to No
#	demand 	- Only connect to NeoNet when there is a pending NeoNet Message
#	     	to be sent. 
	Connect = "yes"
}                                
 
###############################################################################
## End of Configuration                                                      ##
###############################################################################
 
 
 

#21 Aides » [Résolu] NeoStats ne prends pas en compte la ligne "Protocol" » 22/08/2013 09:59:46

SaiTek
Réponses : 15

Bonjour,

Je rencontre un nouveau problème, lors du lancement de NeoStats, j'ai cette erreur:

Starting NeoStats...

NeoStats 3.0.1 (Revision: 3332) linux-gnu Loading...
-----------------------------------------------
Copyright (c) 2000-2008
Justin Hammond (fish@neostats.net)
Mark Hetherington (m@neostats.net)
-----------------------------------------------

Reading the Config File. Please wait ...
neostats.conf:9: no such option 'PROTOCOL'
***************************************************
*                  Error!                         *
*                                                 *
*            Config Parse Error                   *
*                                                 *
*             NeoStats NOT Started                *
***************************************************

Et pourtant la ligne est bien présente dans la configuration

Code:
 PROTOCOL = "unreal32"

Merci pour votre aide

#22 Re : Aides » [Résolu] probleme formulaire lightirc » 21/08/2013 18:46:47

Si mes souvenirs sont bon, le formulaire le Tisma contiens du PHP, donc ça ne peut pas être un index.html ...

#23 Re : Eggdrop » [Résolu] Problème de lancement du Trivia... » 15/08/2013 20:07:35

Celui que j'utilise fonctionne bien, tiens:

Code: TCL
 
################################################################################
#VEUILLEZ adapter les arrangements a vos besoins avant de rehashing votre BOT! #
################################################################################
 
#  indiquer dans quel repertoire devra se trouver votre base de donnée contenant les questions/réponses.
set tgqdb "/home/myster/serveur/jeux/Quizz-IRC/scripts/Trivia/trivia.db"
 
#  indiquer quel séparateur distinguera les questions des réponses dans la base de données. Dans le cas présent il s'agit d'un |
set tgqdbsep "|"
 
#  ce paramètre permet de dire si les lignes de la base de donnée contenant les questions est de la forme :
#  . Réponse séparateur question (dans ce cas mettre la variable à 0)
#  ou
#  . Question séparateur réponse (dans ce cas metre la variable à 1)
set tgqdbquestionfirst 1
 
#  Ce paramètre permettra de définir dans quel répertoire se situe le fichier contenant les scores du jeu.
#  Si ce fichier existe pas il sera crée automatiquement.
set tgscf "/home/myster/serveur/jeux/Quizz-IRC/scripts/Trivia/trivia.scores"
 
#  Ce paramètre permet de définir comment vous serez averti en cas d'erreur dans une question :
#  . Mettre à 1 si vous désirez être averti par email (et si votre shell peut le faire)
#  ou
#  . Mettre à 0 si vous voulez que les erreurs soient stocker dans un fichier.
set tgerrmethod 1
 
#  C'est dans cette variable que vous mettrez dans quel répertoire
#  vous voulez stocker le fichier contenant les erreurs. (si tgerrmethod est à 0)
#  Si ce fichier n'existe pas il sera crée automatiquement.
set tgerrfil "/home/myster/serveur/jeux/Quizz-IRC/scripts/Trivia/trivia.errors"
 
#  Dans cette variable vous mettrez votre email. Ceci permettra au robot
#  d'envoyer un rapport sur les erreurs éventuelles. (si tgerrmethod est à 1)
set tgerremail "twibook.net@gmail.com"
 
#  Ici vous définirez ou est ce que le robot créera un fichier temporaire
#  contenant un rapport sur les envois des erreurs PAR EMAIL.
set tgerrmailtmp "/tmp"
 
#  Ici vous définirez le Répertoire + nom de la page Web que génèrera le robot !
#  En effet, le robot génère une page web en temps réèl avec les scores.
#  Si ce fichier n'existe pas il sera crée automatiquement.
set tghtmlfile "/home/myster/www/quizz-irc.html"
 
#  Cette variable permet de définir tout les combiens de temps la page HTML est rafraichi.
#  Mettre 0 pour désactivé la page HTML.
set tghtmlrefresh 20
 
#  Cette variable permet de définir quel style de fond sera utilisé sur la page web.
set tghtmlfont "verdana,helvetica,arial"
 
#  Cette variable permet de définir dans quel salon se déroulera le quizz.
set tgchan "#Quizz-IRC"
 
#  Cette variable permet de définir combien de point seront donnés à un utilisateur
#  qui donne une bonne réponse.
set tgpointsperanswer 4
 
#  Cette variable définit le nombre max d'indice fournit pas le robot lors d'une question.
set tgmaxhint 3
 
#  Cette variable permet de définir si le robot montrera la question à chaque conseil (1)
#  ou seulement à la première (0).
set tgalwaysshowq 1
 
#  Cette variable permet de montrer (1) ou pas (0), les questions en lettres majuscules.
set tgcapsquestion 0
 
#  Cette variable permet de montrer (1) ou pas (0), les réponses en lettres majuscules.
set tgcapsanswer 0
 
#  Cette variable permet de montrer (1) ou pas (0), les conseils en lettres majuscules.
set tgcapshint 0
 
#  Cette variable permet de définir à partir de combien de réponse une personne se retrouvera
#  dites dans une 'série de bonnes réponses' (Mettre à 0 pour désactiver).
set tgstreakmin 3
 
#  Cette variable permet de définir à partir de combien de questions sans réponse le quizz
#  sera stoppé. (Si vous mettez 0, le quizz ne se stoppera que lorsqu'une personne autorisée fera !stop).
set tgmaxmissed 5
 
#  Cette variable permet de définir quel caractère remplacera la réponse lorsque le quizz posera la question.
set tghintchar "*"
 
#  Cette variable permet de définir combien de temps (en seconde) s'écoulera entre chaque conseils.
set tgtimehint 30
 
#  Permet de définir le temps (en seconde) qui s'écoulera entre le moment ou une bonne réponse a été donnée
#  ou un saut de question ET la prochaine question.
set tgtimenext 10
 
#  Cette variable permet de définir ce que dira le robot lors d'une bonne réponse.
set tgcongrats [list "Bravo" "Super" "Très Bien" "C'est pas mal!" "Réussi" "Bonne réponse!" "Trouvé!" "Tu ne te serais pas dopé ?"]
 
#  Cette variable permet de définir ce que dira le robot lorsque personne n'aura répondu correctement à une question.
set tgnobodygotit [list "Personne n'a trouvé..." "Y'a quelqu'un ?" "On va essayer de trouver plus simple..." "Euh? je joue avec des CM2 ?" "Mdr vous êtes nuls!" "On va pas aller loin ainsi!"]
 
#  Cette variable permet de définir ce que dira le robot lorsque l'on gagne plusieurs fois d'affilé.
set tgmulti [list "veut atteindre le podium" "a t-il prit des cachets ?" "Wowww ca va bien ?" "qu'est-ce qui t'arrive ?" "ne veut pas finir dernier sa c'est sur !"]
 
 
#  Cette variable permet de définir ce que dira le robot lorsque personne n'aura répondu à une question et l'arrivée de la prochaine question.
set tgtrythenextone [list "Peut etre la prochaine" "Une autre ...." "Peut etre celle ci..." "Suivante..." "Une autre!!!Une autre!!!..."]
 
#  Cette variable permet de calculer en combien de temps a été donné une bonne réponse. Mettre à 1 pour activer, 0 pour désactiver.
set tgtimeanswer 1
 
#  Cette variable permet de définir si le robot donnera la réponse si personne la trouve. Mettre à 0 pour cacher la réponse, à 1 pour la montrer.
set tgshowanswer 1
 
#  Cette variable permet de définir si le robot anoncera le score de la personne donnant une bonne réponse (0)
#  ou alors les scores de tout les joueurs présents sur le salon (1).
set tgshowallscores 1
 
#  Cette variable permet d'activé le gras (1) ou non (0) dans ses phrases.
set tgusebold 1
 
#  Mettre à 1 si vous voulez que le robot envoie les messages privés en pv, ou à 0 pour qu'ils les envoient en notice.
set tgpriv2msg 0
 
#  Cette variable permet de définir sur quel mot réagira le robot pour vous aider... dans ce cas là,
#  si vous envoyez en message privé au robot 'Qaide' , il vous enverra un message d'aide.
set tgcmdhelp "Qaide"
 
#  Commande permettant de lancer le quizz.
set tgcmdstart "!start"
 
#  Flag requiert pour lancer le quizz.
set tgflagsstart "-|-"
 
#  Commande permettant de stopper le quizz.
set tgcmdstop "!stop"
 
#  Flag requiert pour stopper le quizz.
set tgflagsstop "o|o"
 
#  Commande permettant de donné un indice à une question.
set tgcmdhint "!indice"
 
#  Flag requiert pour effectuer la commande pour obtenir un indice.
set tgflagshint "-|-"
 
#  Temps en seconde entre lequel la commande !indice est désactivé lorsque celle-ci est utilisée.
set tgtempnohint 10
 
#  Commande permettant de sauter une question.
set tgcmdskip "!saut"
 
#  Flag requiert pour pouvoir effectuer un saut de question.
set tgflagsskip "o|o"
 
#  Commande permettant de voir le Top10 !
set tgcmdtop10 "!top10"
 
#  Flag requiert pour pouvoir utiliser le top10.
set tgflagstop10 "-|-"
 
#  Commande permettant de mettre à zéro les scores (/msg botnick reset)
set tgcmdreset "reset"
 
#  Flag requiert pour pouvoir utiliser la commande reset.
set tgflagsreset "m|m"
 
#  Mettre à 1 pour utiliser le reset avec un pass (/msg quizz reset votre-pass),
#  à 0 sans pass (/msg quizz reset).
set tgresetreqpw 0
 
#  Cette commande permet de définir la commande pour voir les scores ( /msg botnick score ).
set tgcmdlookup "score"
 
#  Cette commande permet de définir la commande pour ciblé un score (/msg botnick place pseudo).
set tgcmdtarget "place"
 
#  Cette commande permet de définir la commande pour repporter une erreur (/msg botnick erreur).
set tgcmderror "erreur"
 
#  Cette commande permet de définir la commande pour connaitre les règles du salon (/msg botnick règles).
set tgcmdrules "règles"
 
#  cette variable permet de définir les règles du salon.
set tgrules "Aucune publicité, aucun blasphème, aucun harcelement des utilisateurs, aucuns scripts actifs et aucun flood.  Violez ces règles et vous vous verrez banni. Bon jeu :-)"
 
#  Nombre de minutes entre lequel la commande de report d'erreur est désactivée.
set tgerrremindtime 60
 
#  COULEURS
#  Voilà les codes couleurs utilisé sur Mirc:
#  00:blanc        01:noir        02:blue foncé   03:vert foncé
#  04:rouge        05:marron      06:pourpre      07:orange
#  08:jaune        09:vert clair  10:turquoise    11:cyan
#  12:bleu clair   13:magenta     14:gris foncé   15:vert clair
#
#  Il faut toujours spécifié le code couleurs avec 2 chiffres "01"
#  et non un seul "1".
#  Pour spécifié un fond mettre d'abord la couleur de texte,
#  une virgule et la couleur de fond exemple "00,04" (texte blanc
#  sur fond rouge).
#  Pour désactivé la couleur utilise "".
 
set tgcolourstart "03"        ;#Début du jeu.
set tgcolourstop "04"        ;#Fin du jeu.
set tgcolourskip "10"        ;#Question sauté.
set tgcolourerr "04"        ;#Quand report d'une erreur.
set tgcolourmiss "10"        ;#Personne n'a répondu à la question.
set tgcolourqhead "04"        ;#Titre de la question.
set tgcolourqbody "12"        ;#Couleur du texte de la question.
set tgcolourhint "03"        ;#Couleur de l'indice.
set tgcolourstrk "12"        ;#Personne dans une 'une série de bonne réponse'.
set tgcolourscr1 "04"        ;#Couleur de la personne en 1ere place.
set tgcolourscr2 "12"        ;#Couleur de la personne en 2nd place.
set tgcolourscr3 "03"        ;#Couleur de la personne en 3eme place.
set tgcolourrset "04"        ;#Quand les scores sont mises à 0.
set tgcolourstend "12"        ;#Fin d'une 'série de bonne réponse'.
set tgcolourmisc1 "06"        ;#Couleur diverse 1.
set tgcolourmisc2 "04"        ;#Couleur diverse 2.
 
 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
#                                                                         #
#   l'édition faite au delà de ce point est faite à votre propre risque!  #
#                                                                         #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
#Contrôles divers et initialisations des variables
set tgver "1.3.4"
set tgrel "release"
 
proc no_accent {code_text} {
   regsub -all é $code_text "e" code_text
   regsub -all è $code_text "e" code_text
   regsub -all ê $code_text "e" code_text
   regsub -all ï $code_text "i" code_text
   regsub -all ï $code_text "i" code_text
   regsub -all ù $code_text "u" code_text
   regsub -all ô $code_text "o" code_text
   regsub -all ç $code_text "c" code_text
   regsub -all à $code_text "a" code_text
   regsub -all â $code_text "a" code_text
   return $code_text
}
 
if {[info tclversion]<8.2} {
    putlog "\002[file tail [info script]]\002 chargement échoué: Pour utiliser ce script, votre eggdrop doit être compilé avec tcl 8.2 ou supérieur (recommandé: version stable)."
    return
}
if {$tgtimeanswer==1&&[info tclversion]<8.3} {
    putlog "\002[file tail [info script]]\002 warning: la synchronisation des réponses a été automatiquement neutralisée. Cette commande requiert tcl 8.3 ou supérieur."
    set tgtimeanswer 0
}
if {![info exists alltools_loaded]||$allt_version<205} {
    putlog "\002[file tail [info script]]\002 chargement échoué: charger alltools.tcl v1.14 ou supérieur (disponible avec un eggdrop 1.6.13 ou supérieur) avant d'essayer de charger ce tcl."
    return
}
if {[utimerexists tghtml]!=""} {killutimer $tghtmlrefreshtimer}
if {$tghtmlrefresh>0} {
    set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]
}
if {![file exists $tgqdb]} {
    putlog "\002[file tail [info script]]\002 chargement échoué: $tgqdb n'existe pas."
    return
}
if {[llength [split $tgchan]]!=1} {
    putlog "\002[file tail [info script]]\002 chargement échoué: trop de canaux indiqués."
    return
}
if {![info exists tgplaying]} {
    set ctcp-version "${ctcp-version} (avec trivia.tcl $tgver ($tgrel) par www.eggdrop.za.net)"
    set tgplaying 0
}
if {![info exists tghintnum]} {set tghintnum 0}
if {![info exists tgmissed]} {set tgmissed 0}
 
#Binds
bind pubm $tgflagsstart "$tgchan %$tgcmdstart" tgstart
bind pubm $tgflagsstop "$tgchan %$tgcmdstop" tgstop
proc tgbindhintcmd {} {
    global tgflagshint tgcmdhint
    bind pubm $tgflagshint "$::tgchan %$tgcmdhint" tgforcehint
}
proc tgunbindhintcmd {} {
    global tgflagshint tgcmdhint
    unbind pubm $tgflagshint "$::tgchan %$tgcmdhint" tgforcehint
}
tgbindhintcmd
bind pubm $tgflagsskip "$tgchan %$tgcmdskip" tgskip
bind pubm $tgflagstop10 "$tgchan %$tgcmdtop10" tgshowtop10
bind join -|- "$tgchan *" tgjoinmsg
bind msg - $tgcmdhelp tggivehelp
bind msg - $tgcmdlookup tgscorelookup
bind msg - $tgcmdtarget tgtargetlookup
bind msg - $tgcmderror tgerror
bind msg - $tgcmdrules tgrulesmsg
bind msg $tgflagsreset "$tgcmdreset" tgresetscores
bind kick - "$tgchan $botnick" tgbotgotkicked
bind evnt - disconnect-server tgbotgotdisconnected
 
#lancé le jeu s'il n'est pas en marche.
proc tgstart {nick host hand chan text} {
    global tgplaying tgstreak tgchan tgerrremindtime tgerrremindtimer tgmissed
    if {[strlwr $tgchan]==[strlwr $chan]} {
        if {$tgplaying==0} {
            tggamemsg "[tgcolstart]Quizz démarré par $nick!"
            tgnextq
            set tgplaying 1
            set tgstreak 0
            set tgmissed 0
            set tgerrremindtimer [timer $tgerrremindtime tgerrremind]
        }
    }
}
 
#arrête le jeu s'il fonctionne.
proc tgstop {nick host hand chan text} {
    global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin
    global tgerrremindtimer tgrebindhinttimer
    if {[strlwr $tgchan]==[strlwr $chan]} {
        if {$tgplaying==1} {
            tggamemsg "[tgcolstop]Quizz arreté par $nick!"
            if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
            set tgstreak 0
            set tgplaying 0
            catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
            if {[utimerexists tghint]!=""} {killutimer $tghinttimer}
            if {[utimerexists tgnextq]!=""} {killutimer $tgnextqtimer}
            if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}
            if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}
        }
    }
}
 
#donne un indice s'il y a actuellement une question à répondre.
proc tgforcehint {nick host hand chan text} {
    global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin
    global tgtempnohint tgmaxhintcurrent tghintnum tgrebindhinttimer tgtempnohint
    if {[strlwr $tgchan]==[strlwr $chan]} {
        if {$tgplaying==1&&[utimerexists tghint]!=""} {
            killutimer $tghinttimer
            tghint
            tgunbindhintcmd
            if {$tghintnum<$tgmaxhintcurrent} {
                set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd]
            }
        }
    }
}
 
#saute la question courante si on le demande.
proc tgskip {nick host hand chan text} {
    global tghinttimer tgnextqtimer tgplaying tgchan tgcurrentanswer tgstreak
    global tgstreakmin tgtimenext tgrebindhinttimer
    if {[strlwr $tgchan]==[strlwr $chan]} {
        if {$tgplaying==1&&[utimerexists tghint]!=""} {
            tggamemsg "[tgcolskip]Saut vers la prochaine question par [tgcolmisc2]$nick[tgcolskip] "
            if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin&&[strlwr [lindex [split $tgstreak ,] 0]]==[strlwr $nick]} {
                tgstreakend
                set tgstreak 0
            }
            catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
            killutimer $tghinttimer
            if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}
            set tgnextqtimer [utimer $tgtimenext tgnextq]
        }
    }
}
 
#rappelle sur le canal comment rapporter des erreurs dans les questions/réponses
proc tgerrremind {} {
    global tgerrremindtimer tgerrremindtime botnick tgcmderror
    tggamemsg "[tgcolerr]Pour reporter les erreurs dans les questions/réponses, taper /msg $botnick $tgcmderror <numéro> \[description\]"
    set tgerrremindtimer [timer $tgerrremindtime tgerrremind]
}
 
#Arrete le quizz si le bot est kické
proc tgbotgotkicked {nick host hand chan targ text} {
    tgquietstop
}
#Arrete le quizz si le bot est déconnecté
proc tgbotgotdisconnected {disconnect-server} {
    tgquietstop
}
 
#arrête le jeu si plus sur le canal.
proc tgquietstop {} {
    global tgplaying tgstreak tgchan tgcurrentanswer tghinttimer tgnextqtimer tgerrremindtimer
    global tgrebindhinttimer
    if {$tgplaying==1} {
        set tgstreak 0
        set tgplaying 0
        catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
        if {[utimerexists tghint]!=""} {killutimer $tghinttimer}
        if {[utimerexists tgnextq]!=""} {killutimer $tgnextqtimer}
        if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}
        if {[utimerexists tgrebindhinttimer]!=""} {killtimer $tgrebindhinttimer}
    }
}
 
#lit la base de données de question.
proc tgreadqdb {} {
    global tgqdb tgquestionstotal tgquestionslist
    set tgquestionstotal 0
    set tgquestionslist ""
    set qfile [open $tgqdb r]
    set tgquestionslist [split [read -nonewline $qfile] "\n"]
    set tgquestionstotal [llength $tgquestionslist]
    close $qfile
}
 
#selectionne la prochaine question.
proc tgnextq {} {
    global tgqdb tgcurrentquestion tgcurrentanswer tgquestionnumber
    global tgquestionstotal tghintnum tgchan tgquestionslist tgqdbsep tgqdbquestionfirst
    global tgcapsquestion tgcapsanswer
    tgreadqdb
    set tgcurrentquestion ""
    set tgcurrentanswer ""
    while {$tgcurrentquestion == ""} {
        set tgquestionnumber [rand [llength $tgquestionslist]]            
        set tgquestionselected [lindex $tgquestionslist $tgquestionnumber]
        set tgcurrentquestion [lindex [split $tgquestionselected $tgqdbsep] [expr $tgqdbquestionfirst^1]]
        if {$tgcapsquestion==1} {
            set tgcurrentquestion [strupr $tgcurrentquestion]
        }
        set tgcurrentanswer [string trim [lindex [split $tgquestionselected $tgqdbsep] $tgqdbquestionfirst]]
        if {$tgcapsanswer==1} {
            set tgcurrentanswer [strupr $tgcurrentanswer]
        }
    }
    unset tghintnum
    tghint
    bind pubm -|- "$tgchan *" tgcheckanswer
    return
}
 
#Mise en place des indices.
proc tghint {} {
    global tgmaxhint tghintnum tgcurrentanswer tghinttimer tgchan
    global tgtimehint tghintchar tgquestionnumber tgquestionstotal
    global tgcurrentquestion tghintcharsused tgnextqtimer tgtimenext tgstreak tgstreakmin
    global tgnobodygotit tgtrythenextone tgmissed tgmaxmissed tgcmdstart tgshowanswer
    global tgtimestart tgtimeanswer tgalwaysshowq tgmaxhintcurrent tgtempnohint tgcapshint
#    if {[catch {incr tghintnum}]!=0} {}
	if {![info exists tghintnum]} {
        set tghintnum 0
        regsub -all -- "\[^A-Za-z0-9\]" [no_accent $tgcurrentanswer] "" _hintchars
        set tgmaxhintcurrent [expr [strlen $_hintchars]<=$tgmaxhint?[expr [strlen $_hintchars]-1]:$tgmaxhint]
        catch {tgunbindhintcmd}
        if {$tgmaxhintcurrent>0} {
            set tgrebindhinttimer [utimer $tgtempnohint tgbindhintcmd]
        }
    } else { incr tghintnum }
    if {$tghintnum >= [expr $tgmaxhintcurrent+1]} {
        incr tgmissed
        set _msg ""
        append _msg "[tgcolmiss][lindex $tgnobodygotit [rand [llength $tgnobodygotit]]]"
        if {$tgshowanswer==1} {
            append _msg " La réponse est [tgcolmisc2]$tgcurrentanswer[tgcolmiss]."
        }
        if {$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {
            append _msg " Cela fait $tgmissed questions sans réponse ! Le quizz est automatiquement arrêté. pour le relancer, taper $tgcmdstart"
            tgquietstop
        } else {
            append _msg " [lindex $tgtrythenextone [rand [llength $tgtrythenextone]]]"
        }
        tggamemsg "[tgcolmiss]$_msg"
        if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
        set tgstreak 0
        catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
        if {$tgmaxmissed==0||$tgmissed<$tgmaxmissed} {
            set tgnextqtimer [utimer $tgtimenext tgnextq]
        }
        return
    } elseif {$tghintnum == 0} {
        set i 0
        set _hint {}
        set tghintcharsused {}
        foreach word [split $tgcurrentanswer] {
            regsub -all -- "\[A-Za-z0-9\]" [no_accent $word] $tghintchar _current
            lappend _hint $_current
        }
        if {$tgtimeanswer==1} {
            set tgtimestart [clock clicks -milliseconds]
        }
    } elseif {$tghintnum == 1} {
        set i 0
        set _hint {}
        while {$i<[llength [split $tgcurrentanswer]]} {
            set _word [lindex [split $tgcurrentanswer] $i]
            set j 0
            set _newword {}
            while {$j<[strlen $_word]} {
                if {$j==0} {
                    append _newword [stridx $_word $j]
                    lappend tghintcharsused $i,$j
                } else {
                    if {[string is alnum [stridx $_word $j]]} {
                        append _newword $tghintchar
                    } else {
                        append _newword [stridx $_word $j]
                        lappend tghintcharsused $i,$j
                    }
                }
                incr j
            }
            lappend _hint $_newword
            incr i
        }
        } else {
            set i 0
            set _hint {}
            while {$i<[llength [split $tgcurrentanswer]]} {
                set _word [lindex [split $tgcurrentanswer] $i]
                set j 0
                set _newword {}
                set _selected [rand [strlen $_word]]
                regsub -all -- "\[^A-Za-z0-9\]" [no_accent $_word] "" _wordalnum
                if {[strlen $_wordalnum]>=$tghintnum} {
                    while {[lsearch $tghintcharsused $i,$_selected]!=-1||[string is alnum [stridx $_word $_selected]]==0} {
                     set _selected [rand [strlen $_word]]
                    }
                }
                lappend tghintcharsused $i,$_selected
                while {$j<[strlen $_word]} {
                    if {[lsearch $tghintcharsused $i,$j]!=-1||[string is alnum [stridx $_word $j]]==0} {
                        append _newword [stridx $_word $j]
                    } else {
                        if {[string is alnum [stridx $_word $j]]} {
                            append _newword $tghintchar
                        }
                }
                incr j
            }
            lappend _hint $_newword
            incr i
        }
    }
    if {$tgcapshint==1} {
        set _hint [strupr $_hint]
    }
    tggamemsg "[tgcolqhead]===== Question [expr $tgquestionnumber+1]/$tgquestionstotal [expr $tghintnum?"(Indice $tghintnum/$tgmaxhintcurrent)":""] ====="
    if {$tgalwaysshowq==1||$tghintnum==0} {
        tggamemsg "[tgcolqbody]$tgcurrentquestion"
    }
    tggamemsg "[tgcolhint]Aide: [join $_hint]"
    set tghinttimer [utimer $tgtimehint tghint]
}
 
#déclenché quand quelqu'un emploie la commande !top10
proc tgshowtop10 {nick host hand chan text} {
    global tgscores tgchan tgscorestotal
    if {[strlwr $chan]==[strlwr $tgchan]} {
        tggetscores
        if {$tgscorestotal>0} {
            if {$tgscorestotal>9} {
                set _max 9
            } else {
                set _max [expr $tgscorestotal-1]
            }
            set i 0
            while {$i<=$_max} {
                set _item [lindex $tgscores $i]
                set _nick [join [lindex [split $_item ,] 2]]
                set _score [join [lindex [split $_item ,] 0]]
                if {$i==0} {
                    append _scores "[tgcolscr1]$_nick $_score"
                } elseif {$i==1} {
                    append _scores ", [tgcolscr2]$_nick $_score"
                } elseif {$i==2} {
                    append _scores ", [tgcolscr3]$_nick $_score"
                } else {
                    append _scores ", [tgcolmisc1]$_nick $_score"
                }
                incr i
            }
            tggamemsg "[tgcolmisc1]Top 10: $_scores"
        } else {
            tggamemsg "[tgcolmisc1]Pas de score pour l'instant."
        }
    }
}
 
#vérifie si n'importe qui a indiqué la réponse correcte sur le canal.
proc tgcheckanswer {nick host hand chan text} {
    global tgcurrentanswer
    putlog [tgstripcodes $text]
    if {[strlwr [no_accent $tgcurrentanswer]] == [tgstripcodes [strlwr [string trim [no_accent $text]]]]} {
        tgcorrectanswer $nick
    }
}
 
#déclenché quand quelqu'un dit la réponse correcte.
proc tgcorrectanswer {nick} {
    global tgcurrentanswer tghinttimer tgtimenext tgchan tgnextqtimer tgstreak tgstreakmin
    global tgscoresbyname tgranksbyname tgranksbynum tgcongrats tgscorestotal tgmissed
    global tgtimestart tgshowallscores tgrealnames tgscoresbyrank tgtimeanswer tgmulti
    tggetscores
    if {![info exists tgranksbyname([strlwr $nick])]} {
        set _oldrank 0
    } else {
        set _oldrank $tgranksbyname([strlwr $nick])
    }
    tgincrscore $nick
    tggetscores
    set _newrank $tgranksbyname([strlwr $nick])
    set _timetoanswer ""
    if {$tgtimeanswer==1} {
        set _timetoanswer [expr [expr [clock clicks -milliseconds]-$tgtimestart]/1000.00]
    }
    set _msg "[tgcolmisc1][lindex $tgcongrats [rand [llength $tgcongrats]]] [tgcolmisc2]$nick[tgcolmisc1]! La réponse était [tgcolmisc2]$tgcurrentanswer[tgcolmisc1].[expr $tgtimeanswer==1?" Tu l'as trouvé en [tgcolmisc2]$_timetoanswer[tgcolmisc1] seconds.":""]"
    if {$_newrank<$_oldrank} {
        if {$_newrank==1} {
            append _msg " Tu es maintenant en 1er position!"
        } else {
            if {$tgshowallscores==0} {
                append _msg " Tu as changé de place!"
            } else {
                append _msg " Tu est maintenant classé [tgcolmisc2][ordnumber $tgranksbyname([strlwr $nick])][tgcolmisc1] sur [tgcolmisc2]$tgscorestotal[tgcolmisc1], derrière [tgcolmisc2]$tgrealnames($tgranksbynum([expr $_newrank-1]))[tgcolmisc1] avec [tgcolmisc2]$tgscoresbyrank([expr $_newrank-1])[tgcolmisc1]."
            }
        }
    }
    tggamemsg "$_msg"
    if {$tgstreak!=0} {
        if {[lindex [split $tgstreak ,] 0]==[strlwr $nick]} {
            set tgstreak [strlwr $nick],[expr [lindex [split $tgstreak ,] 1]+1]
            if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} {
                tggamemsg "[tgcolstrk][tgcolmisc2]$nick[tgcolstrk] [lindex $tgmulti [rand [llength $tgmulti]]] [tgcolmisc2][lindex [split $tgstreak ,] 1] [tgcolstrk]réponses consécutives!"
            }
        } else {
            if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
            set tgstreak [strlwr $nick],1
        }
    } else {
        set tgstreak [strlwr $nick],1
    }
    set tgmissed 0
    tgshowscores $nick
    catch {unbind pubm -|- "$tgchan *" tgcheckanswer}
    killutimer $tghinttimer
    set tgnextqtimer [utimer $tgtimenext tgnextq]
}
 
#lire les scores à partir du fichier, les classés  et les entreposé dans la variable.
proc tggetscores {} {
    global tgscf tgscorestotal tgscores tgscoresbyname tgranksbyname tgranksbynum
    global tgrealnames tgscoresbyrank
    if {[file exists $tgscf]&&[file size $tgscf]>2} {
        set _sfile [open $tgscf r]
        set tgscores [lsort -dict -decreasing [split [gets $_sfile]]]
        close $_sfile
        set tgscorestotal [llength $tgscores]
    } else {
        set tgscores ""
        set tgscorestotal 0
    }
    if {[info exists tgscoresbyname]} {unset tgscoresbyname}
    if {[info exists tgranksbyname]} {unset tgranksbyname}
    if {[info exists tgrealnames]} {unset tgrealnames}
    if {[info exists tgranksbynum]} {unset tgranksbynum}
    set i 0
    while {$i<[llength $tgscores]} {
        set _item [lindex $tgscores $i]
        set _nick [lindex [split $_item ,] 2]
        set _lwrnick [lindex [split $_item ,] 3]
        set _score [lindex [split $_item ,] 0]
        set tgscoresbyname($_lwrnick) $_score
        set tgrealnames($_lwrnick) $_nick
        set tgranksbyname($_lwrnick) [expr $i+1]
        set tgranksbynum([expr $i+1]) $_lwrnick
        set tgscoresbyrank([expr $i+1]) $_score
        incr i
    }
    return
}
 
#incrément les points de la personne points.
proc tgincrscore {who} {
    global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbyname tghintnum
    tggetscores
    if {$tgscorestotal>0} {
        set i 0
        if {![info exists tgscoresbyname([strlwr $who])]} {
	        append _newscores "[expr $tgpointsperanswer-$tghintnum],[expr 1000000000000.0/[unixtime]],$who,[strlwr $who] "
            #append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who] "
        }
        while {$i<[llength $tgscores]} {
            set _item [lindex $tgscores $i]
            set _nick [lindex [split $_item ,] 2]
            set _time [lindex [split $_item ,] 1]
            set _score [lindex [split $_item ,] 0]
            if {[strlwr $who]==[strlwr $_nick]} {
	            append _newscores "[expr $_score+$tgpointsperanswer-$tghintnum],[expr 1000000000000.0/[unixtime]],$who,[strlwr $who][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"
                #append _newscores "[expr $_score+$tgpointsperanswer],[expr 1000000000000.0/[unixtime]],$who,[strlwr $who][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"
            } else {
                append _newscores "$_score,$_time,$_nick,[strlwr $_nick][expr [expr [llength $tgscores]-$i]==1?"":"\ "]"
            }
            incr i
        }
    } else {
	    append _newscores "[expr $tgpointsperanswer-$tghintnum],[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"
        #append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"
    }
    set _sfile [open $tgscf w]
    puts $_sfile "$_newscores"
    close $_sfile
    return
}
 
#montre les points courants sur le canal.
proc tgshowscores {nick} {
    global tgscores tgchan tgscorestotal tgshowallscores tgranksbyname tgranksbynum
    global tgscoresbyname tgrealnames tgscoresbyrank
    tggetscores
    set i 0
    if {$tgshowallscores} {
        while {$i<[llength $tgscores]} {
            set _item [lindex $tgscores $i]
            set _nick [lindex [split $_item ,] 2]
            set _score [lindex [split $_item ,] 0]
            if {$i==0} {
                append _scores "[tgcolscr1]$_nick $_score"
            } elseif {$i==1} {
                append _scores ", [tgcolscr2]$_nick $_score"
            } elseif {$i==2} {
                append _scores ", [tgcolscr3]$_nick $_score"
            } elseif {[onchan $_nick $tgchan]} {
                append _scores ", [tgcolmisc1]$_nick $_score"
            }
            incr i
        }
        tggamemsg "[tgcolmisc1]Les scores: $_scores"
    } else {
        if {$tgranksbyname([strlwr $nick])==1} {
            set _tgt "."
        } else {
            set _tgt ", derrière [tgcolmisc2]$tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] avec [tgcolmisc2]$tgscoresbyrank([expr $tgranksbyname([strlwr $nick])-1])[tgcolmisc1]."
        }
        tggamemsg "[tgcolmisc2]$nick [tgcolmisc1]a maintenant [tgcolmisc2]$tgscoresbyname([strlwr $nick]) [tgcolmisc1][expr $tgscoresbyname([strlwr $nick])==1?"point":"points"] et est classé [tgcolmisc2][ordnumber $tgranksbyname([strlwr $nick])] [tgcolmisc1]sur [tgcolmisc2]$tgscorestotal[tgcolmisc1]$_tgt"
    }
}
 
#remettre à zéro les scores.
proc tgresetscores {nick host hand text} {
    global tgscf tgscorestotal tgscores tgplaying tgresetreqpw
    if {($tgresetreqpw==1 && [passwdok $hand $text]) || $tgresetreqpw==0} {
        if {[file exists $tgscf]&&[file size $tgscf]>2} {
            set _sfile [open $tgscf w]
            puts $_sfile ""
            close $_sfile
            set tgscores ""
            set tgscorestotal 0
        }
        tggamemsg "[tgcolrset]===== Mise à zéro du classement par $nick! ====="
    }
}
 
#déclenché quand une série dis de 'bonne réponse' est fini.
proc tgstreakend {} {
        global tgstreak tgrealnames
        tggamemsg "[tgcolstend]Dommage pour [tgcolmisc2]$tgrealnames([lindex [split $tgstreak ,] 0])[tgcolstend] qui avait l'air en forme !"
        return
}
 
#déclenché quand quelqu'un join le chan.
proc tgjoinmsg {nick host hand chan} {
    global botnick tgplaying tgcmdhelp tgcmdstart tgflagsstart tgcmdstop tgflagsstop tgchan
    if {$nick != $botnick} {
        set _msg ""
        append _msg "Le quizz est actuellement"
        if {$tgplaying==1} {
            append _msg " \002activé\002."
        } else {
            append _msg " \002désactivé\002."
        }
        if {[matchattr $hand $tgflagsstart $tgchan]&&$tgplaying==0} {
            append _msg " Pour démarrer le jeu , taper \002$tgcmdstart\002 sur $tgchan."
        }
        if {[matchattr $hand $tgflagsstop $tgchan]&&$tgplaying==1} {
            append _msg " Pour stopper le jeu , taper \002$tgcmdstop\002 sur $tgchan."
        }
        append _msg " Taper \002/MSG $botnick [strupr $tgcmdhelp]\002 Pour voir l'aide. Bon jeu à toi ! :-)"
        puthelp "[tgpriv] $nick :$_msg"
    }
 
}
 
#déclenché quand quelqu'un /msgs le BOT avec la commande de consultation de points.
proc tgscorelookup {nick host hand text} {
    global tgscoresbyname tgranksbyname tgscorestotal tgrealnames
    if {$text==""} { set text $nick } else { set text [lindex [split $text] 0] }
    tggetscores
    if {![info exists tgscoresbyname([strlwr $text])]} {
        if {[strlwr $text]==[strlwr $nick]} {
            set _who "[tgcolmisc1]Tu as"
        } else {
            set _who "[tgcolmisc2]$text [tgcolmisc1]est"
        }
        puthelp "[tgpriv] $nick :[tgbold]$_who [tgcolmisc1]visiblement pas classé."
    } else {
        if {[strlwr $text]==[strlwr $nick]} {
            set _who "[tgcolmisc1]Tu as"
        } else {
            set _who "[tgcolmisc2]$tgrealnames([strlwr $text]) [tgcolmisc1]a"
        }
        puthelp "[tgpriv] $nick :[tgbold]$_who [tgcolmisc2]$tgscoresbyname([strlwr $text])[tgcolmisc1] points, classé [tgcolmisc2][ordnumber $tgranksbyname([strlwr $text])] [tgcolmisc1]sur [tgcolmisc2]$tgscorestotal[tgcolmisc1]."
    }
 
}
 
#déclenché quand quelqu'un /msgs le BOT avec la commande de consultation de cible.
proc tgtargetlookup {nick host hand text} {
    global tgscoresbyname tgranksbyname tgscorestotal tgranksbynum tgrealnames
    tggetscores
    if {![info exists tgscoresbyname([strlwr $nick])]} {
        puthelp "[tgpriv] $nick :[tgbold][tgcolmisc1]Tu n'es pas dans le classement."
    } elseif {$tgranksbyname([strlwr $nick])==1} {
        puthelp "[tgpriv] $nick :[tgbold][tgcolmisc1]Tu es à la [tgcolmisc2]1ère[tgcolmisc1] place!"
    } else {
        puthelp "[tgpriv] $nick :[tgbold][tgcolmisc1]Tu as [tgcolmisc2]$tgscoresbyname([strlwr $nick])[tgcolmisc1] points. Devant toi se trouve [tgcolmisc2]$tgrealnames($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1])) [tgcolmisc1]avec [tgcolmisc2]$tgscoresbyname($tgranksbynum([expr $tgranksbyname([strlwr $nick])-1]))[tgcolmisc1] points, placé [tgcolmisc2][ordnumber [expr $tgranksbyname([strlwr $nick])-1]] [tgcolmisc1]sur [tgcolmisc2]$tgscorestotal[tgcolmisc1]."
    }
 
}
 
#déclenché quand quelqu'un /msgs le BOT avec la commande de reportage d'erreur.
proc tgerror {nick host hand text} {
    global tgquestionstotal tgquestionslist tgerrmethod tgerrfil tgerremail tgerrmailtmp
    if {$text==""||![string is int [lindex [split $text] 0]]} {
        puthelp "[tgpriv] $nick :[tgbold][tgcolmisc1]Tu dois spécifier un numéro de question."
        return
    }
    tgreadqdb
    set _qnum [lindex [split $text] 0]
    if {$_qnum>$tgquestionstotal} {
        puthelp "[tgpriv] $nick :[tgbold][tgcolmisc1]Cette question n'existe pas."
        return
    }
    set _qques [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 1]
    set _qans [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 0]
    set _desc [join [lrange [split $text] 1 end]]
    if {$_desc==""} { set _desc "Aucune autre information donnée pour cette erreur." }
    if {$tgerrmethod==1} {
        set _fname $tgerrmailtmp/trivia[rand 100000].tmp
        set _file [open $_fname w]
    } else {
        set _file [open $tgerrfil a]
    }
    puts $_file ""
    puts $_file "Rapport d'erreur généré le [strftime %A,\ %d\ %B\ %Y\ @\ %H:%M:%S]"
    puts $_file "Reporter par:\t$nick!$host"
    puts $_file "Question n°:\t$_qnum"
    puts $_file "Question:\t\t$_qans"
    puts $_file "Réponse:\t\t$_qques"
    puts $_file "Commentaire:\t$_desc"
    puts $_file "------------------------------"
    close $_file
    if {$tgerrmethod==1} {
        exec mail -s "trivia.tcl erreur reportée par $nick" $tgerremail < $_fname
        file delete $_fname
        puthelp "[tgpriv] $nick :[tgbold][tgcolmisc1]Merci! Votre report d'erreur a été envoyé par e-mail à l'owner."
    } else {
        puthelp "[tgpriv] $nick :[tgbold][tgcolmisc1]Merci! Votre report d'erreur a été enregistré, il sera regardé dès que possible."
    }
 
}
 
#déclenché quand quelqu'un /msg le BOT avec la commande pour voir les règles.
proc tgrulesmsg {nick host hand text} {
    global tgrules
    puthelp "[tgpriv] $nick :Voici les règles à respecter: $tgrules"
}
 
#déclenché quand quelqu'un /msg le BOT avec la commande d'aide.
proc tggivehelp {nick host hand {text ""}} {
    global botnick tgcmdlookup tgcmdhelp tgcmdstart tgcmdstop tgchan tgflagsstop
    global tgcmdstop tgflagshint tgcmdhint tgflagsskip tgcmdskip tgflagsreset tgcmdreset
    global tgcmdtarget tgcmderror tgcmdrules tgflagsstart
    if {$text==""} {
        puthelp "[tgpriv] $nick :Vous avez acceè aux /MSG commands:"
        puthelp "[tgpriv] $nick :taper, /MSG $botnick <command>"
        puthelp "[tgpriv] $nick :  \002[strupr $tgcmdrules]\002"
        puthelp "[tgpriv] $nick :   -- Listes des règles du canal."
        puthelp "[tgpriv] $nick :  \002[strupr $tgcmdlookup]\002 \[nick\]"
        puthelp "[tgpriv] $nick :   -- Voir le rang et les points de \[nick\], si spécifié,"
        puthelp "[tgpriv] $nick :    autrement, voir votre propres rang et points."
        puthelp "[tgpriv] $nick :  \002[strupr $tgcmdtarget]\002"
        puthelp "[tgpriv] $nick :   -- Voir votre rang et le rang et les points de la personne "
        puthelp "[tgpriv] $nick :    qui est devant vous."
        puthelp "[tgpriv] $nick :  \002[strupr $tgcmderror]\002 <numéro> \[description\]"
        puthelp "[tgpriv] $nick :   -- Rapporter les erreurs sur la question <numéro>"
        puthelp "[tgpriv] $nick :    La description doit être complète et claire afin de résoudre ce problème rapidement et facilement."
        if {[matchattr $hand $tgflagsreset $tgchan]} {
            puthelp "[tgpriv] $nick :  \002[strupr $tgcmdreset]\002"
            puthelp "[tgpriv] $nick :   -- Remet le classement a zéro."
        }
        puthelp "[tgpriv] $nick :Pour avoir la liste des commandes chan, /MSG $botnick [strupr $tgcmdhelp] PUBCMDS"
    }
        if {[strlwr $text]=="pubcmds"} {
        puthelp "[tgpriv] $nick :Vous avez accès aux commandes suivantes:"
        if {[matchattr $hand $tgflagsstart $tgchan]} {
            puthelp "[tgpriv] $nick :  \002$tgcmdstart\002 -- Démarrer le Quizz."
        }
        if {[matchattr $hand $tgflagsstop $tgchan]} {
            puthelp "[tgpriv] $nick :  \002$tgcmdstop\002 -- Stopper le Quizz."
        }
        if {[matchattr $hand $tgflagshint $tgchan]} {
            puthelp "[tgpriv] $nick :  \002$tgcmdhint\002 -- Donner un indice."
        }
        if {[matchattr $hand $tgflagsskip $tgchan]} {
            puthelp "[tgpriv] $nick :  \002$tgcmdskip\002 -- Passer à la question suivantes."
        }
        puthelp "[tgpriv] $nick :Pour avoir la liste des /MSG commands, /MSG $botnick [strupr $tgcmdhelp]"
 
    }
}
# Renvoie le texte sans codes de couleur, "bold", etc. de commande.
# C'est dépouillé en bas de la version du proc dans MC_8's mc.moretools.tcl.
proc tgstripcodes {text} {
    regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $text "" text
    set text "[string map -nocase [list \002 "" \017 "" \026 "" \037 ""] $text]"
    return $text
}
 
proc tggamemsg {what} {
    global tgchan
    putquick "PRIVMSG $tgchan :[tgbold]$what"
}
 
proc tgbold {} {
    global tgusebold
    if {$tgusebold==1} { return "\002" }
}
proc tgcolstart {} {
    global tgcolourstart
    if {$tgcolourstart!=""} { return "\003$tgcolourstart" }
}
proc tgcolstop {} {
    global tgcolourstop
    if {$tgcolourstop!=""} { return "\003$tgcolourstop" }
}
proc tgcolskip {} {
    global tgcolourskip
    if {$tgcolourskip!=""} { return "\003$tgcolourskip" }
}
proc tgcolerr {} {
    global tgcolourerr
    if {$tgcolourerr!=""} { return "\003$tgcolourerr" }
}
proc tgcolmiss {} {
    global tgcolourmiss
    if {$tgcolourmiss!=""} { return "\003$tgcolourmiss" }
}
proc tgcolqhead {} {
    global tgcolourqhead
    if {$tgcolourqhead!=""} { return "\003$tgcolourqhead" }
}
proc tgcolqbody {} {
    global tgcolourqbody
    if {$tgcolourqbody!=""} { return "\003$tgcolourqbody" }
}
proc tgcolhint {} {
    global tgcolourhint
    if {$tgcolourhint!=""} { return "\003$tgcolourhint" }
}
proc tgcolstrk {} {
    global tgcolourstrk
    if {$tgcolourstrk!=""} { return "\003$tgcolourstrk" }
}
proc tgcolscr1 {} {
    global tgcolourscr1
    if {$tgcolourscr1!=""} { return "\003$tgcolourscr1" }
}
proc tgcolscr2 {} {
    global tgcolourscr2
    if {$tgcolourscr2!=""} { return "\003$tgcolourscr2" }
}
proc tgcolscr3 {} {
    global tgcolourscr3
    if {$tgcolourscr3!=""} { return "\003$tgcolourscr3" }
}
proc tgcolrset {} {
    global tgcolourrset
    if {$tgcolourrset!=""} { return "\003$tgcolourrset" }
}
proc tgcolstend {} {
    global tgcolourstend
    if {$tgcolourstend!=""} { return "\003$tgcolourstend" }
}
proc tgcolmisc1 {} {
    global tgcolourmisc1
    if {$tgcolourmisc1!=""} { return "\003$tgcolourmisc1" }
}
proc tgcolmisc2 {} {
    global tgcolourmisc2
    if {$tgcolourmisc2!=""} { return "\003$tgcolourmisc2" }
}
proc tgpriv {} {
    global tgpriv2msg
    if {$tgpriv2msg==1} { return "PRIVMSG" } else { return "NOTICE" }
}
 
#ceci produit une page HTML avec toutes les personnes sur le chan avec
#leurs points, aussi bien qu'une liste de tous les points, assortie par le rang
proc tghtml {} {
    global tgchan botnick tghtmlfile tghtmlrefresh server tgscoresbyname tgranksbyname
    global tgscorestotal tgranksbyname tgrealnames tgscoresbyrank tgranksbynum tgplaying
    global tgquestionstotal tghtmlrefreshtimer tghtmlfont
    tggetscores
    tgreadqdb
    set _file [open $tghtmlfile~new w]
    puts $_file "<!DOCTYPE HTML PUBLIC \"-/W3C/DTD HTML 4.01 Transitional/EN\">"
    puts $_file "<html>"
    puts $_file " <head>"
    puts $_file "  <title>Quizz sur $tgchan </title>"
    puts $_file "  <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">"
    puts $_file "  <meta http-equiv=\"refresh\" content=\"$tghtmlrefresh\">"
    puts $_file " </head>"
    puts $_file " <body>"
    puts $_file "  <h1>$tgchan sur <a href=\"http://twibook.net\" title=\"#Quizz-IRC sur Twibook.net\">Twibook.net</a></h1>"
    puts $_file "  <hr size=\"1\" noshade>"
    if {![onchan $botnick $tgchan]} {
        puts $_file "  <p>Hmmm... Il y a personne de connecté sur le chan pour le moment.</p>"
    } else {
	    if { $tgplaying == 1 } {
		    set tghtmlstatus "activ&eacute;"
	    } else {
		    set tghtmlstatus "d&eacute;sactiv&eacute;"
	    }
        puts $_file "  <p>Le quizz est actuellement <b>$tghtmlstatus</b>. Il y a <b>$tgquestionstotal</b> questions dans la database."
        puts $_file "  <p>En ce moment sur $tgchan :<br>"
        puts $_file "  <table width=\"50%\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\"><tr><td><table width=\"100%\" cellspacing=\"3\" border=\"0\">"
        puts $_file "   <tr>"
        puts $_file "    <td><b>Nick</b></td>"
        puts $_file "    <td><b>Score</b></td>"
        puts $_file "    <td><b>place</b></td>"
        puts $_file "    <td><b>Idle</b></td>"
        puts $_file "   </tr>"
        foreach nick [lsort [chanlist $tgchan]] {
            puts $_file "   <tr>"
            puts $_file "    <td>[expr [isop $nick $tgchan]?"@":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (Moi!)":""]</td>"
            if {[info exists tgscoresbyname([strlwr $nick])]} {
                puts $_file "    <td>$tgscoresbyname([strlwr $nick])</td>"
            } else {
                puts $_file "    <td>-</td>"
            }
            if {[info exists tgranksbyname([strlwr $nick])]} {
                puts $_file "    <td>$tgranksbyname([strlwr $nick])</td>"
            } else {
                puts $_file "    <td>-</td>"
            }
            puts $_file "   <td>[expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]</td>"
            puts $_file "   </tr>"
        }
        puts $_file "  </table></td></tr></table>"
    }
    if {$tgscorestotal>0} {
        puts $_file "  <p><small>il y a <b>$tgscorestotal</b> [expr $tgscorestotal==1?"nick":"nicks"] dans le classement:<br>"
        set _rank 1
        while {$_rank<=$tgscorestotal} {
            puts $_file "  <b>$_rank</b>. $tgrealnames($tgranksbynum($_rank)) $tgscoresbyrank($_rank)<br>"
            incr _rank
        }
    } else {
        puts $_file "  <p><small>Il n'y a actuellement personne dans le classement.<br>"
    }
    puts $_file "  </small></p>"
    puts $_file "  <hr size=\"1\" noshade>"
    puts $_file "  Cette page est r&eacute;actualis&eacute;e automatiquement toutes les [expr $tghtmlrefresh==1?"second":"$tghtmlrefresh seconds"].</small>"
    puts $_file " </body>"
    puts $_file "</html>"
    close $_file
    file rename -force $tghtmlfile~new $tghtmlfile
    set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]
}
 
putlog "======================================================="
putlog "* trivia.tcl $tgver ($tgrel) by Souperman loaded."
putlog "* Visit http://www.eggdrop.fr/ for updates."
tgreadqdb
putlog "* $tgquestionstotal questions dans $tgqdb ([file size $tgqdb] bytes)"
putlog "=======================================================" 
 

Modération (Judge) : Pense à spécifier le langage de ton code lorsque tu utilise les balises "code" comme expliquer ici http://www.ircz.fr/help.php#code

Pied de page des forums

Propulsé par FluxBB

859267 visites ( 349 aujourd'hui ) 9 visiteurs en ligne
Copyright © 2004 - 2013 IRCz