CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 09 18:10:10

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

SIMPLE QUIZZ

Information sur la source

Note :

9,00 / 10

Catégorie :AddOns Classé sous :quizz, mirc, addon, bot, question Niveau :Débutant Date de création :26/01/2008 Date de mise à jour :27/01/2008 14:41:21 Vu / téléchargé :9 504 / 417

Auteur : Kentix

Ecrire un message privé

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Systême de quizz simpliste.
Pour l'utiliser vous devez créer un txt nommé questions.txt avec les questions sous la forme:

Question ? Réponse
Exemple:
Combient vaut 2 + 2 ? 4

Car le script utilise la caractère "?" comme repère.

Néanmoins dans le zip j'ai ajouté la database de questions du célèbre Wquizz modifié pour qu'elle marche avec ce quizz.

Source

;Systême de quizz simple par Kentix
;Infos (si vous souhaitez modifier par la suite...)
;La variable %quizzchan contient le nom du salon
;La variable %questionsdir contient le chemin du fichier texte questions.txt
;La hash table utilisé pour les scores est quizzscores
;Commandes opérateurs
;!quizz active/désactive le quizz
;!quizz.reset Reset les scores
;Commandes pour tout le monde
;!premier affiche le meilleur score
;!myscore affiche son score
;Lors du chargement du script on cré la var %quizzchan qui contiendra donc le nom du salon où le quizz est exécuté + On initialise la hash table quizzscores
on *:LOAD:{
set %quizzchan $input(Insérez le nom du salon où le quizz se déroulera:,oe,Nom du salon de quizz,#exemple)
set %questionsdir $sfile(questions.txt,La database de questions)
hmake -s quizzscores 100
}
;Lors du lancement de mirc.exe on intialise à chaque fois la hash table quizzscores
on *:START:{
hmake -s quizzscores 100
}
;Récupération d'une question au hasard, on prend les mots avant le "?" d'une question et on stocke la question ainsi traitée dans %questionok
;On récupère ainsi aussi la réponse qui correspond à la question (sur la même ligne) qu'on stocke dans %reponse
alias quizzget {
unset %reponse
unset %questionok
set %question $read(%questionsdir)
var %b = 1, %a = $findtok(%question,?,1,32)
while (%b <= %a) {
var %c = $gettok(%question, %b, 32)
set %questionok $addtok(%questionok, %c, 32)
inc %b
}
inc %a
var %d = $numtok(%question, 32)
while (%a <= %d) {
var %c = $gettok(%question, %a, 32)
set %reponse $addtok(%reponse, %c, 32)
inc %a
}
}
;Dis une question récupéré avec quizzget sur le salon contenu dans la var %quizzchan
alias sayquestion {
if (%winner) {
unset %winner
quizzget
msg %quizzchan %questionok (Vous avez 15 secondes pour trouver la bonne réponse)
}
else {
msg %quizzchan Personne n'a trouvé ! La réponse était: %reponse
quizzget
.timer 1 2 msg %quizzchan %questionok (Vous avez 15 secondes pour trouver la bonne réponse)
}
}
;départ du quizz si le $nick est opérateur du salon
on @*:TEXT:!quizz:%quizzchan:{
if (%quizzon) {
quizzlepremier
timerQUIZZ off
unset %quizzon
msg $chan Le quizz est désormais arrêté, le premier est actuellement %quizzlepremier avec %quizzlepremierstats points.
}
else {
set %winner 1
set %quizzon 1
msg $chan Quizz lancé première question dans 15 secondes préparez-vous...
timerQUIZZ 0 15 sayquestion
}
}
;réset des scores si $nick op
on @*:TEXT:!quizz.reset:%quizzchan:{
hdel -w quizzscores *
msg $chan Tous les scores ont été remis à 0.
}
;affiche son score
on *:text:!myscore:%quizzchan:msg $chan Tu as $iif($hget(quizzscores,$nick),$v1 points,0 point)
;on extrait le premier des scores (hash quizzscores)
alias quizzlepremier {
unset %quizzlepremier %quizzlepremierstats
if ($hget(quizzscores,0).item) {
var %h = quizzscores, %max = 0, %i = 1
while ($hget(%h,%i).item) {
var %hi = $v1
if ($hget(%h,%hi) > %max) {
var %max = $v1, %nick = %hi
}
inc %i
}
set %quizzlepremier %nick
set %quizzlepremierstats %max
}
else {
set %quizzlepremier personne
set %quizzlepremierstats pas de
}
}
;afficher le premier des scores grace à quizzlepremier
on *:text:!premier:%quizzchan:{
quizzlepremier
msg $chan Le premier est actuellement %quizzlepremier avec %quizzlepremierstats points.
}
;détection des réponses si quizz activé
on *:TEXT:*:%quizzchan:{
if (%quizzon) {
if ($strip($1-,burc) == %reponse) {
hinc quizzscores $nick
set %winner 1
msg $chan Félicitations $nick ( $+ $hget(quizzscores, $nick) points) tu as trouvé la bonne réponse, qui était: %reponse (On continue...)
}
}
}
;détection des changements de pseudo si le pseudo était un joueur alors on update son pseudo dans les quizzscores
on *:NICK:{
if ($hget(quizzscores, $nick)) {
hadd quizzscores $newnick $hget(quizzscores, $nick)
hdel quizzscores $nick
}
}

;Systême de quizz simple par Kentix

;Infos (si vous souhaitez modifier par la suite...)
;La variable %quizzchan contient le nom du salon
;La variable %questionsdir contient le chemin du fichier texte questions.txt
;La hash table utilisé pour les scores est quizzscores

;Commandes opérateurs
;!quizz active/désactive le quizz
;!quizz.reset Reset les scores

;Commandes pour tout le monde
;!premier affiche le meilleur score
;!myscore affiche son score


;Lors du chargement du script on cré la var %quizzchan qui contiendra donc le nom du salon où le quizz est exécuté + On initialise la hash table quizzscores
on *:LOAD:{
  set %quizzchan $input(Insérez le nom du salon où le quizz se déroulera:,oe,Nom du salon de quizz,#exemple)
  set %questionsdir $sfile(questions.txt,La database de questions)
  hmake -s quizzscores 100
}

;Lors du lancement de mirc.exe on intialise à chaque fois la hash table quizzscores
on *:START:{
  hmake -s quizzscores 100
}
;Récupération d'une question au hasard, on prend les mots avant le "?" d'une question et on stocke la question ainsi traitée dans %questionok
;On récupère ainsi aussi la réponse qui correspond à la question (sur la même ligne) qu'on stocke dans %reponse
alias quizzget {
  unset %reponse
  unset %questionok
  set %question $read(%questionsdir)
  var %b = 1, %a = $findtok(%question,?,1,32)
  while (%b <= %a) {
    var %c = $gettok(%question, %b, 32)
    set %questionok $addtok(%questionok, %c, 32)
    inc %b
  }
  inc %a
  var %d = $numtok(%question, 32)
  while (%a <= %d) {
    var %c = $gettok(%question, %a, 32)
    set %reponse $addtok(%reponse, %c, 32)
    inc %a
  }
} 

;Dis une question récupéré avec quizzget sur le salon contenu dans la var %quizzchan
alias sayquestion {
  if (%winner) {
    unset %winner
    quizzget
    msg %quizzchan %questionok (Vous avez 15 secondes pour trouver la bonne réponse)
  }
  else {
    msg %quizzchan Personne n'a trouvé ! La réponse était: %reponse
    quizzget
    .timer 1 2 msg %quizzchan %questionok (Vous avez 15 secondes pour trouver la bonne réponse)
  }
}

;départ du quizz si le $nick est opérateur du salon
on @*:TEXT:!quizz:%quizzchan:{
  if (%quizzon) {
    quizzlepremier
    timerQUIZZ off
    unset %quizzon
    msg $chan Le quizz est désormais arrêté, le premier est actuellement %quizzlepremier avec %quizzlepremierstats points.
  }
  else {
    set %winner 1
    set %quizzon 1
    msg $chan Quizz lancé première question dans 15 secondes préparez-vous...
    timerQUIZZ 0 15 sayquestion
  }
}



;réset des scores si $nick op
on @*:TEXT:!quizz.reset:%quizzchan:{
  hdel -w quizzscores *
  msg $chan Tous les scores ont été remis à 0.
}


;affiche son score
on *:text:!myscore:%quizzchan:msg $chan Tu as $iif($hget(quizzscores,$nick),$v1 points,0 point)

;on extrait le premier des scores (hash quizzscores)
alias quizzlepremier {
  unset %quizzlepremier %quizzlepremierstats
  if ($hget(quizzscores,0).item) { 
    var %h = quizzscores, %max = 0, %i = 1 
    while ($hget(%h,%i).item) { 
      var %hi = $v1 
      if ($hget(%h,%hi) > %max) { 
        var %max = $v1, %nick = %hi 
      } 
      inc %i 
    } 
    set %quizzlepremier %nick
    set %quizzlepremierstats %max 
  }
  else {
    set %quizzlepremier personne
    set %quizzlepremierstats pas de
  }
}

;afficher le premier des scores grace à quizzlepremier
on *:text:!premier:%quizzchan:{
  quizzlepremier
  msg $chan Le premier est actuellement %quizzlepremier avec %quizzlepremierstats points.
}
;détection des réponses si quizz activé
on *:TEXT:*:%quizzchan:{
  if (%quizzon) {
    if ($strip($1-,burc) == %reponse) {
      hinc quizzscores $nick
      set %winner 1
      msg $chan Félicitations $nick ( $+ $hget(quizzscores, $nick) points) tu as trouvé la bonne réponse, qui était: %reponse (On continue...)
    }
  }
}

;détection des changements de pseudo si le pseudo était un joueur alors on update son pseudo dans les quizzscores
on *:NICK:{
  if ($hget(quizzscores, $nick)) {
    hadd quizzscores $newnick $hget(quizzscores, $nick)
    hdel quizzscores $nick
  }
}

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

gb-quizz.mrc 4 200 octets
questions.txt 544 317 octets

Télécharger le zip

Historique

26 janvier 2008 15:26:38 :: Infos apportés en plus
27 janvier 2008 14:41:21 :: Optimisation du code + ajout database de questions

Sources du même auteur

MÉLANGEUR DE MOT

Toutes les sources de Kentix

Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

LA CONFIGURATION D'UN EGGDROP QUI ENLÈVE LES BANS APRÈS X ... par Atok

DARKPROJECT - SCRIPT MIRC par Artwerks

LECTEUR DE RSS par ouroumov

SYSTEME D'IDENTIFICATION POUR BOT EN VARIABLES par Corween

DCC VOICE ENGINE par ZED

Commentaires et avis

Commentaire de RCA ArKanis le 26/01/2008 19:31:16

Bon, j'passe de suite à la correction et à l'optimisation du code ... mon avis viendra après

  if ($hget(quizzscores, $nick) $+ ) {
à quoi sert ce $+ si ce n'est à rien ?

;Installation
;Créer une hash nommé quizzscores: //hmake quizzscores 100 Le mieux serait de l'automatiser avec ON *:START:{ hmake quizzscores 100 }
;Mettre le salon de quizz dans la variable %quizzchan: //set %quizzchan #MonSalonDeQuizz
;Dans l'alias quizzget modifier $read(GameBot\Quizz\questions.txt) par le chemin où est contenu votre questions.txt
Pourquoi ça serait à nous de faire tout ça ?! Tu nous dis comment faire, c'est bien, mais ça aurait été très largement plus pratique si tu le faisais automatiquement ... utilise $sfile pour le fichier .txt, et un $input pour la question du salon.

  unset %quizzlepremier
  unset %quizzlepremierstats
devient unset %quizzlepremier quizzlepremierstats

  quizzlepremier
  if (%quizzlepremier) {
    msg $chan Le premier est actuellement %quizzlepremier avec %quizzlepremierstats points.
  }
  else {
    msg $chan Il n'y a pas de meilleur score pour le moment.
  }
ce else ne sert à rien ... dans aucun cas tu auras %quizzlepremier qui retournera rien du tout, vu que tu appelles l'alias quizzlepremier qui dans chaque cas aloue une valeur à cette variable.

Tu devrais plutôt utiliser des variables locales pour ça. Tu utilises des hash tables, c'est bien, mais pourquoi tu utilises des variables globales ? Tu peux tout faire en passant par hash tables tu sais ...

regroupe tes ON TEXT en un seul avec :
ON *:TEXT:*:%quizzchan:{
  if ($1 == !myscore) ...
  elseif ($1 == ...) ...
  ...
}

le !myscore est largement plus simple ainsi :
on *:text:!myscore:%quizzchan:msg $chan Tu as $iif($hget(quizzscores,$nick),$v1 points,0 point)

en regroupant dans le ON TEXT général, tu aurais donc :
  if ($1 == !myscore) msg $chan Tu as $iif($hget(quizzscores,$nick),$v1 points,0 point)
sans { } vu que tu n'as qu'une action

petit truc qui a son importance : la reconnaissance de la bonne réponse
if ($1- == %reponse) {
tu devrais utiliser $strip($1-) pour ne pas tenir compte des codes couleur.
Des fois, il serait bien utile d'enlever les articles (un, une, le, la, l', ...)

on *:TEXT:!quizz.reset:%quizzchan:{
  if ($nick isop $chan) {
    ..
simplifiable en :
ON @*:TEXT:!quizz.reset:%quizzchan:{
Note : si tu utilises un ON TEXT général, tu ne pourras plus utiliser ça

  var %a = $findtok(%question, ?, 1, 32)
  var %b = 1
devient : var %b = 1, %a = $findtok(%question,?,1,32)
(j'ai pu voir que tu l'avais fait à quelques endroits ... pourquoi pas partout ?!)

Fort dommage qu'il n'y ait pas de base de questions/réponses fournies avec mais bon ...

Mets un . devant tes timers
Le timer est très étrange ! Si je répond à la première seconde, on doit attendre 14 secondes avant la prochaine question ... Tu devrais relancer le timer avec :
  .timerQUIZZ 0 5 .timerQUIZZ 0 15 NEXTquestion
Ta variable %winner servirait alors à rien, vu que le cas où personne ne répond (nextquestion) lancerait l'alias sayquestion.

alias nextquestion {
  msg %quizzchan Personne n'a répondu, la réponse était %reponse ... Question suivante :
  sayquestion
}
alias sayquestion {
  quizzget
  .timer 1 2 msg %quizzchan %questionok (Vous avez 15 secondes pour trouver la bonne réponse)
  ;on remarquera que si quelqu'un répond en moins de 2sec, on aura tout de même ce message ...
}

Mon avis maintenant :
Codage qualifié de "débutant" par l'auteur, qui est toutefois assez encourageant ... Il est assez propre, je trouve.
L'orthographe est bonne, ce qui est vraiment très appréciable en ce moment ! ("Combien Vaut 4+4", et non "faut" :D)
Originalité ... euh, j'pense que tout le monde connait déjà un bot de quizz.
L'installation est à revoir.
Le score est stocké en fonction du nick, il aurait peut-être été plus interessant d'utiliser l'adresse.
Je te souhaite donc très sincèrement bonne continuation, et n'hésite pas à nous voir pour tout problème, conseil, avis :)

Commentaire de RCA ArKanis le 26/01/2008 19:32:10

wow, je suis désolé, je m'étais pas rendu compte que j'avais écris autant ... :(
Bonne lecture :/

Commentaire de Kentix le 27/01/2008 14:43:01

Merci ArKanis, j'ai modifié quelques trucs selon tes conseils.

Commentaire de meenux le 27/01/2008 14:49:15 9/10

pas mal

Commentaire de doob666 le 28/01/2008 21:52:38

pourquoi ne pas créer un nouvelles database? pour te démarquer de Wquizz.
Sinon comme l'as dit Arkanis, le code est propre, bonne continuation :)

Commentaire de alexdenazareth le 02/02/2008 15:20:11

pas mal

Commentaire de meduse51 le 22/11/2009 23:06:17

Bonjour,

J'ai ajouté le quizz à mon script (à la racine du script mirc) mais quand j'allume le script, rien ne se charge. Que faut-il taper afin de charger le quizz pour le configurer ?
Merci de votre réponse.
meduse51

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Hebergeur De Bot mIRC [ par Corween ] Bonsoir :)C'est encore moi, j'avais posé une question, qui se rapprochaiy beaucoup à celle que je vais poser, mais étant nouvea usur le forum, je ne s bot ou addon badchan [ par HAAGEN ] Bonjour je voudrais savoir si il existe un addon badchan a rajouté a mon cservice ou un bot en mirc et non eggdrop ' je m'explique le robot fait un wh Problème de lag en mIRC [ par Lorya51100 ] Bonjour à tous :)Voici mon second post dans ce fofo car j'ai un nouveau soucis : le lag !En fait, je réalise un bot d'animation en mIRC, donc, quand j Shell Pour mIRC [ par Corween ] Vous aurie pas une astuce pour que le bot fonctionne même sur un BNC svp ?Et aussi, auriez vous une adresse de shell hébergent les bot's mIRC svp ?Mer Code Pour Bot /mirc en link sur 2 serveurs 2Salons Intersalon !!! HelP !!! [ par ronehp ] Voila Bonjourje me rapelle d'avoie eu ici un addons ici , pour un link entre 2 serveursje ne retrouve plus ce c nouveau quizz pour mirc [ par FiLou_47 ] je voudrais s avoir sy il y a un nouveau quizz pour mirc merci Dcc Chat pour bot mIRC [ par XavSniper ] Bonjour tout le monde.J'essai de faire un système de DCC Chat pour bot mIRC, mais comme vous vous en seriez douté, celà ne marche pas, ce qui explique serveur pour bot mIRC [ par JaMyGG ] Bonjour a tous !Voila ce que je chercher est simple mais très dificil a trouver, je m'explique, je chercher un serveur pour hebrger mon bot mIRC.Merci recherche addon pour faire parler un bot cservice [ par dj_balboa ] bonjourvoila je recherche une addon pour mon bot cservice pour le faire parler mais je ne trouve pas pourriez vous m'aidez ou me dire ou puis je trouv Cherche dévelloppeur pour un script de Quizz en tcl ! [ par Wolverine57 ] Bonjour,Je suis actuellement à la tête d'un site sur les comics marvel (Marvel-World.com) et nous disposons d'un chat IRC avec un bot de quizz (eggdr

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

VISUAL STUDIO 2010 AND .NET FRAMEWORK 4 RELEASE CANDIDATE NOW AVAILABLE par Matthieu MEZIL

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5