bbjulien
|
merci de vos réponces moi j utilisai un quizz que j avaia trouver sur se site et ajouter a mon bot
son code :
;Quizz Multichan V1.3 par aerith "fabidou_aeris@hotmail.com"
;pour une utilisation partiel ou complette dans un script me prevenir svp
on *:text:!quizz:#: quizzstart $chan
on *:text:!stop:#: quizzstop $chan
on *:text:*:*: {
if ($readini(" $+ $mircdirquizz/chan.ini",$chan,start)) {
if ($1 == !menuquizz) {
notice $nick %couleur Il y a 4 %quizz.data %couleur questions dans la base
notice $nick %couleur 4 !score <nick> %couleur pour connaitre un score
notice $nick %couleur 4 !top10 %couleur ou 4 !top3 %couleur pour afficher le classement
notice $nick %couleur 4 !ajouter <question> \ <reponse> %couleur pour proposer une nouvelle question/réponse
notice $nick %couleur 4 !aide %couleur pour une aide sur le quizz
}
elseif ($1 == !top3) { notice $nick %couleur $score($chan,1) %couleur // $score($chan,2) %couleur // $score($chan,3) }
elseif ($1 == !top10) {
notice $nick %couleur Classement des 10 meilleurs : $score($chan,1)
notice $nick %couleur $score($chan,2) %couleur // $score($chan,3) %couleur // $score($chan,4)
notice $nick %couleur $score($chan,5) %couleur // $score($chan,6) %couleur // $score($chan,7)
notice $nick %couleur $score($chan,8) %couleur // $score($chan,9) %couleur // $score($chan,10)
}
elseif ($1 == !aide) {
notice $nick %couleur Vous devez taper le premier la bonne réponse avec l'orthographe correcte. Les grands nombres, doivent être tapés avec un espace comme séparateur des milliers (ex: 35 000)
}
elseif ($1 == !score) {
if ($2 == $null) { notice $nick %couleur syntax 4 !score <nick> | halt }
var %rep = " $+ $mircdirquizz/ $+ $chan $+ .ini"
notice $nick %couleur Score de 7 $2 %couleur : 4 $readini(%rep,$2,score)
}
elseif ($1- == !revoir) {
notice $nick J'ai bien enregistré que vous me demandez de revoir la question: " $readini(" $+ $mircdirquizz"/chan.ini,$chan,question) "
write " $+ $mircdirrequest.txt" $nick : Revoir la question " $readini(" $+ $mircdirquizz/chan.ini",$chan,question) "
}
elseif ($1 == !ajouter) {
write " $+ $mircdirquestion.txt" $nick : $chan : $2-
notice $nick %couleur OK c'est enregistré
}
else {
var %text = $quizzstrip($1-)
tokenize 32 %text
if ($readini(" $+ $mircdirquizz/chan.ini",$chan,reponse) == %text) { quizzreponse $chan $nick }
}
}
}
on *:JOIN:*: {
if ($readini(" $+ $mircdirquizz/chan.ini",$chan,start)) {
var %rep = " $+ $mircdirquizz/ $+ $chan $+ .ini"
if ($readini(%rep,$nick,score)) {
writeini -n %rep $nick score 0
notice $nick %couleur Un petit quizz est en cour, tapez 4 !menuquizz %couleur pour les commandes
}
}
}
on *:NICK:*: {
if ($readini(" $+ $mircdirquizz/chan.ini",$1,start)) {
var %rep = " $+ $mircdirquizz/ $+ $chan $+ .ini"
var %b = $readini(%rep,$nick,score)
writeini -n %rep $newnick score %b
remini %rep $nick
}
}
alias quizzstart {
if (!$readini(" $+ $mircdirquizz/chan.ini",$1,start)) {
var %rep = " $+ $mircdirquizz/ $+ $1 $+ .ini"
writeini -n " $+ $mircdirquizz/chan.ini" $chan nonrepondu 0
remove %rep
var %i = 1
:tloop
set %temp $nick($1,%i)
writeini -n %rep $nick($1,%i) score 0
if (%i != $nick($1,0)) { inc %i 1 | goto tloop }
set %quizz.data $lines(" $+ $mircdirquizz/database.txt")
writeini -n " $+ $mircdirquizz/chan.ini" $chan start $ctime
msg $1 %couleur Le Quizz démarre dans 4 15 %couleur secondes, préparez-vous!
timer 1 15 quizzposer $1
}
else { notice $nick le quizz tourne deja sur $1 }
}
alias quizzstop {
var %rep = " $+ $mircdirquizz/ $+ $1 $+ .ini"
timerquizz $+ $1 off
if ($readini(" $+ $mircdirquizz/chan.ini",$1,start)) {
msg $1 %couleur Le Quizz est terminé ( actif depuis 4 $duration($calc($ctime - $readini(" $+ $mircdirquizz/chan.ini",$1,start))) %couleur )
msg $1 %couleur Classement des 10 meilleurs : $score($1,1)
msg $1 %couleur $score($1,2) %couleur // $score($1,3) %couleur // $score($1,4)
timer 1 1 msg $1 %couleur $score($1,5) %couleur // $score($1,6) %couleur // $score($1,7)
timer 1 1 msg $1 %couleur $score($1,8) %couleur // $score($1,9) %couleur // $score($1,10)
}
remove %rep
remini " $+ $mircdirquizz/chan.ini" $chan
}
alias score {
var %rep = " $+ $mircdirquizz/ $+ $1 $+ .ini"
var %temp = $ini(%rep,$2)
if (%temp != $null) { return 4 $2 $+ . 7 %temp %couleur (4 $readini(%rep,%temp,score) %couleur $+ ) }
else { return }
}
alias cscore {
var %rep = " $+ $mircdirquizz/ $+ $1 $+ .ini"
:sloop1
var %qa $readini(%rep,$ini(%rep,1),score)
var %qk = 1
var %qj = 1
:sloop2
if (%qa < $readini(%rep,$ini(%rep,%qj),score)) {
var %qk = %qj
}
if ($ini(%rep,0) != 0) {
if (%qj == $ini(%rep,0)) {
var %qb = $readini(%rep,$ini(%rep,%qk),score)
writeini -n " $+ $mircdirquizz/cnick.ini" $ini(%rep,%qk) score %qb
remini %rep $ini(%rep,%qk)
goto sloop1
}
else { inc %qj 1 | goto sloop2 }
}
remove %rep
rename " $+ $mircdirquizz/cnick.ini" %rep
}
alias quizzstrip {
var %text = $strip($1-)
if ($left(%text,2) = d') %text = $mid(%text,3)
if ($left(%text,2) = l') %text = $mid(%text,3)
if ($left(%text,5) = dans $+ $chr(32)) %text = $mid(%text,6)
if ($left(%text,5) = avec $+ $chr(32)) %text = $mid(%text,6)
if ($left(%text,2) = à $+ $chr(32)) %text = $mid(%text,3)
if ($left(%text,2) = a $+ $chr(32)) %text = $mid(%text,3)
if ($left(%text,3) = de $+ $chr(32)) %text = $mid(%text,4)
if ($left(%text,3) = un $+ $chr(32)) %text = $mid(%text,4)
if ($left(%text,3) = du $+ $chr(32)) %text = $mid(%text,4)
if ($left(%text,3) = le $+ $chr(32)) %text = $mid(%text,4)
if ($left(%text,3) = la $+ $chr(32)) %text = $mid(%text,4)
if ($left(%text,3) = au $+ $chr(32)) %text = $mid(%text,4)
if ($left(%text,3) = en $+ $chr(32)) %text = $mid(%text,4)
if ($left(%text,4) = une $+ $chr(32)) %text = $mid(%text,5)
if ($left(%text,4) = les $+ $chr(32)) %text = $mid(%text,5)
if ($left(%text,4) = des $+ $chr(32)) %text = $mid(%text,5)
if ($left(%text,4) = aux $+ $chr(32)) %text = $mid(%text,5)
return $replace(%text,É,E,é,e,è,e,ê,e,à,a,â,a,ç,c,ô,o,ù,u,û,u,ï,i,î,i,-,$chr(32),',$chr(32))
}
alias quizzposer {
var %rep = " $+ $mircdirquizz/ $+ $1 $+ .ini"
var %quizz.q = $read(" $+ $mircdirquizz/database.txt",$rand(1,%quizz.data))
var %question = $gettok(%quizz.q,1,92)
writeini -n " $+ $mircdirquizz/chan.ini" $1 question %question
var %quizz.a $strip($gettok(%quizz.q,2,92))
if (%question == #S) {
%question = $upper(%quizz.a)
while (%question == %quizz.a) {
var %temp = %question
%question = $null
while (%temp != $null) {
var %rnd = $rand(1,$len(%quizz.a))
%question = %question $+ $mid(%temp,%rnd,1)
%temp = $left(%temp,$calc(%rnd - 1)) $+ $mid(%temp,$calc(%rnd + 1))
}
}
writeini -n " $+ $mircdirquizz/chan.ini" $1 question %couleur Mot mélangé : 4 %question
}
writeini -n " $+ $mircdirquizz/chan.ini" $1 reponse $quizzstrip(%quizz.a)
msg $1 4 [Question] %couleur $readini(" $+ $mircdirquizz/chan.ini",$1,question)
timerquizz $+ $1 1 25 quizzaide $1
}
alias quizzaide {
var %rep = quizz/ $+ $1 $+ .ini
var %len = $len($readini(" $+ $mircdirquizz/chan.ini",$1,reponse))
var %hint
if (%len == 2) %len = 3
if (%len >= 3) {
%len = %len / 3
if ($rand(0,1) == 0) %hint = Une petite aide : 4 $left($readini(" $+ $mircdirquizz/chan.ini",$1,reponse),%len) $+ ...
else %hint = Une petite aide : 4 ... $+ $right($readini(" $+ $mircdirquizz/chan.ini",$1,reponse),%len)
}
else %hint = $null
msg $1 %couleur Le délai est bientot écoulé! %hint
timerquizz $+ $1 1 15 quizznr $1
}
alias quizznr {
msg $1 %couleur Désolé, le délai est écoulé . La réponse était: 4 $readini(" $+ $mircdirquizz/chan.ini",$1,reponse)
remini quizz/chan.ini $1 reponse
var %nr = $readini(" $+ $mircdirquizz/chan.ini",$1,nonrepondu)
inc %nr 1
writeini -n " $+ $mircdirquizz/chan.ini" $1 nonrepondu %nr
if ($readini(" $+ $mircdirquizz/chan.ini",$1,nonrepondu) == 10) {
msg $1 %couleur Il y a eu 4 10 %couleur questions non trouvées.
quizzstop $1
}
timerquizz $+ $1 1 5 quizzresume $1
}
alias quizzreponse {
var %rep = " $+ $mircdirquizz/ $+ $1 $+ .ini"
timerquizz $+ $1 off
writeini -n " $+ $mircdirquizz/chan.ini" $1 nonrepondu 0
var %win = $readini %rep $2 score
inc %win 1
writeini -n %rep $2 score %win
writeini -n " $+ $mircdirquizz/chan.ini" $1 dernier $2
msg $1 %couleur Correct 4 $2 %couleur ! La réponse est: 4 $readini(" $+ $mircdirquizz/chan.ini",$1,reponse) %couleur ( 4 %win %couleur réponse )
cscore $1
remini " $+ $mircdirquizz/chan.ini" $1 reponse
quizzresume $1
}
alias quizzresume {
if ($readini(" $+ $mircdirquizz/chan.ini",$1,classement) == 4) {
msg $1 %couleur Classement des 3 meilleurs : $score($1,1) %couleur // $score($1,2) %couleur // $score($1,3)
}
elseif ($readini(" $+ $mircdirquizz/chan.ini",$1,classement) == 8) {
msg $1 %couleur Classement des 10 meilleurs : $score($1,1)
msg $1 %couleur $score($1,2) %couleur // $score($1,3) %couleur // $score($1,4)
msg $1 %couleur $score($1,5) %couleur // $score($1,6) %couleur // $score($1,7)
msg $1 %couleur $score($1,8) %couleur // $score($1,9) %couleur // $score($1,10)
writeini -n " $+ $mircdirquizz/chan.ini" $1 classement 0
}
elseif ($readini(" $+ $mircdirquizz/chan.ini",$1,classement) == $null) { writeini -n " $+ $mircdirquizz/chan.ini" $1 classement 1 }
var %c = $readini(" $+ $mircdirquizz/chan.ini",$1,classement)
inc %c 1
writeini -n " $+ $mircdirquizz/chan.ini" $1 classement %c
timer 1 10 msg $1 %couleur Prochaine question dans 5 secondes. ( Dernier gagnant: 4 $readini(" $+ $mircdirquizz/chan.ini",$1,dernier) %couleur )
timerquizz $+ $1 1 15 quizzposer $1
}
alors pour moi nul en scripting je c pas ou il faut ajouter ou changer koi alors sa serrai sympa de me dire comme je soit fait svp.
|