#######################################
### Bidules inutiles, mais amusants :-)

bind dcc - sexe dcc_sexe
proc dcc_sexe { hand idx args } {
  putlog "#$hand\# sexe"
  if {[getuser $hand xtra sexe] == "H"} {
    boot $hand "Gros cochon!"
    bootbot $hand
  } else {
    dccbroadcast "AideBot kidnappe $hand et l'amène dans son antre ***"
    dccsimul $idx ".chat 9"
  }
  return 0
}


set touslescurieux ""
bind dcc - curieux dcc_curieux
proc dcc_curieux { hand idx args } {
  global touslescurieux
  putdcc $idx "Mouha, mausus de curieux va!..."
  if [string match *[string tolower $hand]* [string tolower $touslescurieux]] {
    putdcc $idx "Quoi!? Encore plus curieux que je ne le pensais toi! Tu es déjà parmi les curieux! -> $touslescurieux ;-p"
  } elseif {$touslescurieux != ""} {
    putdcc $idx "Mais ne t'en fais pas, tu n'es pas seul, $touslescurieux et toi avez été curieux aujourd'hui! ;-p"
  } else {
    putdcc $idx "Tu es le premier que j'attrappe aujourd'hui! ;-p"
  }
  if {$touslescurieux == ""} {
    set touslescurieux "$hand"
  } elseif ![string match *$hand* $touslescurieux] {
    append touslescurieux ", $hand"
  }
  return 1
}



#############################################
### Apostrophe... et gadget :)

bind filt - '* apostrophe
proc apostrophe {idx text} {
  if ![matchattr [idx2hand $idx] n] {
    dccsimul $idx [string range $text 1 end]
    return ""
  }
  set nick [string range [lindex $text 0] 1 end]
  if {$nick == ""} {
    foreach user [whom [getchan $idx]] {
      putdcc [hand2idx [lindex $user 0]] "<AideBot>[string range $text 1 end]"
    }
    return ""
  } else {
    if [validuser $nick] {
      sendnote AideBot $nick [string range $text [expr 2 + [string length $nick]] end]
      return ""
    } else {
      putdcc $idx "*** Alias invalide ***"
      return ""
    }
  }
}

bind filt - "¯*" apostrophe2
proc apostrophe2 {idx text} {
  if ![matchattr [idx2hand $idx] n] {
    return "$text"
  }
  set nick [string range [lindex $text 0] 1 end]
  if {$nick != ""} {
    foreach user [whom [getchan $idx]] {
      putdcc [hand2idx [lindex $user 0]] "<$nick> [lrange $text 1 end]"
    }
    return ""
  }
}


set noteaidebot_idx 0
proc noteaidebot {idx text} {
  global noteaidebot_idx
  if {[hand2idx alocin] != -1} {
    putdcc [hand2idx alocin] "\[À AideBot de [idx2hand $idx]\] $text"
  } else {
    set noteaidebot_idx $idx
    utimer [expr 5 + [rand 16]] {
      putdcc $noteaidebot_idx [lindex $aidebotnote [rand [llength $aidebotnote]]]
    }
  }
}


#########################
## .secret  (ferme les consoles 'co' de tout le monde...

bind dcc n secret dcc_secret
proc dcc_secret {hand idx arg} {
  foreach user [whom *] {
    if ![matchattr [lindex $user 0] n] {
      console [hand2idx [lindex $user 0]] #Aide -co
    }
  }
  putdcc $idx "Oki, mode secret!"
  return 0
}




##########################
### Personnalité ;-ppp ###
##########################

#set aidebotgeneral {
#  {<AideBot> Hey les aminches, suffit le ronflage !!!}
#  {<AideBot> Hé, allez vite voir sur #Aide, je viens de voir passer un éléphant rose!!!}
#  {<AideBot> Dites, j'ai un petit faible pour UnderBot... mais je ne sais pas comment le lui dire, vous avez des suggestions?}
#  {* AideBot s'étire *  Mouais... c'est tranquille ici hein? *}
#  {* AideBot * I'm signing in the rain, la laaa lalalalaaa  la laaaaa lalalalaaaa ...}
#  {*** Alerte *** Alerte *** Alerte *** On a détecté une grave crise de idle !!!  Alerte ***  Alerte ***  Alerte ***}
#  {<AideBot> Avez-vous tous eu votre vaccin anti-idle récemment ?}
#  {<AideBot> Holala... évitez de ronfler quand même !!!}
#  {<AideBot> Bon... un peu de motivation... Je boot ceux qui seront encore idle dans 2 minutes !}
#  {<AideBot> 'ttention là... d'un coup que vous me flooderiez... hiii... pfff!}
#}

#set aidebotprive {
#  {Note [AideBot]: Hé!, tu dors ou quoi?}
#  {Note [AideBot]: Hey !!!, tire pas toute la couverte veux-tu ?}
#  {Note [AideBot]: Viiiiite, vas sur #Aide, j'ai vu un dragon passer !!!}
#  {Note [AideBot]: Tu diras à AmiBot de m'excuser pour hier, je l'aime bien dans le fond ok ?}
#  {Note [AideBot]: Bouhouhouuuuu, j'ai une peine de coeur... Ris-pas bon!!!  UWorld veut plus rien savoir de moi, il s'intéresse à X asteure !!!}
#  {Note [AideBot]: Pourquoi tu ne me parles jamais? Tu m'en veux pour quelque chose?}
#  {Note [AideBot]: Ta mère m'a dit de te dire d'aller te laver les mains, on mange bientôt !}
#  {Note [AideBot]: Il était un petit naviiiiire, il était un petiiiit naviiiiiire, qui n'avait ja-ja-jamais navigué, qui n'avait ja-ja-jamais naviguéééééé ohéééé ohééééééé ...}
#  {Note [AideBot]: <Einstein> Je me suis trompé! E=mc3 !!!  Mais c'est vrai si et seulement si on est un lundi...}
#  {Note [AideBot]: Bhou!!!  mouhahahahaha!!!}
#  {Note [AideBot]: Faut qu'on se parle toi et moi... mais pas tout de suite, une autre fois...}
#  {Note [AideBot]: Je t'offre une rose :-)))    9---3'9---3,9---5(4@}
#}

set aidebotnote {
  {Note [AideBot]: Tu fais la conversation aux robots maintenant ?}
  {Note [AideBot]: Et si moi j'ai pas envie de te causer??}
  {Note [AideBot]: Parle toujours, tu m'intéresses!}
  {Note [AideBot]: Je suis occupé là, tu peux attendre 2 minutes ?}
  {Note [AideBot]: Mouha, en voilà un autre bizarre qui parle aux bots maintenant...}
  {Note [AideBot]: Hé, koss tu veux toi là ?}
  {Note [AideBot]: Hum?}
  {Note [AideBot]: T'es tannant tu sais, j'essaie de digérer un script de Alocin là... c'est dur, alors laisses-moi me concentrer un peu stp!}
  {Note [AideBot]: Arg... je te parle pas moi, alors pourquoi toi tu me parles ?}
}

#set aidebotparty {
#  {<AideBot> Bon, ça recommence... pourquoi vous parlez toujours de moi dans mon dos?}
#  {<AideBot> Ts ts ts... je suis le MEILLEUR ! c'est simple non?}
#  {<AideBot> Qui parle de moi???}
#  {<AideBot> Oui allo?}
#  {<AideBot> :-)}
#  {<AideBot> M'a le dire à Alocin !!!}
#  {* AideBot *Snif* Que'est-ce que j'ai fait encore ?}
#  {<AideBot> La la la... on parle encore de moi... la la la... pas grave ça ne me dérange plus... je suis habitué na!}
#  {<AideBot> Encore quelqu'un qui a quelquechose à dire contre moi... c'est malin :-I}
#}


#############################
### 1234 & co ...

bind filt m vcld* vaschezlediable
proc vaschezlediable {idx text} {
  if {[lindex $text 0] == "vcld"} {
     set leidx [hand2idx [lindex $text 1]]
     if {$leidx > 0} {
       possede1234 $leidx [getchan $idx]
     }
  }
  return $text
}

bind filt A .boot* filtboot
proc filtboot {idx text} {
  set nick [lindex $text 1]
  if [valididx [hand2idx $nick]] {
    chattr $nick -D
  }
  return $text
}

proc possede1234 {idx chan} {
  dccputchan $chan "Le diable vient chercher [idx2hand $idx] et l'amène en enfer... ***"
  setchan $idx 1234
}

if ![info exists anciensaveux] {
  set anciensaveux [userlist CT-G]
  bind filt D "$anciensaveux Lowrad et Alocin sont fins, beaux, aimables et intelligents et AideBot est le meilleur des bots" okilediableestfin
}

bind chjn - 1234 chjn_enfer
proc chjn_enfer {bot hand chan flag idx from} {
  global anciensaveux
  set liste [userlist CT-G]
  set aveux ""
  foreach user $liste {
    if [rand 2] {
      set aveux "$aveux $user"
    } else {
      set aveux "$user $aveux"
    }
  }
  unbind filt D "$anciensaveux Lowrad et Alocin sont fins, beaux, aimables et intelligents et AideBot est le meilleur des bots" okilediableestfin
  bind filt D "$aveux Lowrad et Alocin sont fins, beaux, aimables et intelligents et AideBot est le meilleur des bots" okilediableestfin
  set anciensaveux $aveux
  if [matchattr $hand n] {
    putdcc $idx "<Diable> Ha... Allo patron! :-)))  Ça va?"
  } elseif ![matchattr $hand D] {
    chattr $hand +D
    foreach user [whom 1234] {
      set idx [hand2idx [lindex $user 0]]
      putdcc $idx "<Diable> Ha? tiens! Un autre morron qui s'est perdu en route..."
      putdcc $idx "<Diable> Entk, Bienvenue en enfer..."
      putdcc $idx "<Diable> Les règles sont simples ici... Tu resteras ici pour toute l'éternité si tu ne te purifie pas l'esprit de toute pensée agressive envers les Admins et AideBot ..."
      putdcc $idx "<Diable> Alors? Ben c'est simple, tu me dis tout de suite '$aveux Lowrad et Alocin sont fins, beaux, aimables et intelligents et AideBot est le meilleur des bots' ou alors tu restes coincé ici pour toute l'éternité... mouhahahahahaha"
      putdcc $idx "<AideBot> Yessir, merci l'diable, on fait une bonne équipe :-p"
      putdcc $idx "<PtitDemon> Hey, boss..."
      putdcc $idx "<Diable> hum?"
      putdcc $idx "<PtitDemon> Oublie pas de lui dire que s'[mf $hand "il" "elle"] essaie de quitter le bot, [mf $hand "il" "elle"] ne sera pas plus avancé[mf $hand "" "e"]... on sera toujours sur son dos par la suite :-ppp"
      putdcc $idx "<Diable> Ben voilà, c'est fait, maintenant, écoutons ses avoeux! Dis-nous combien tu aimes les Admins..."
    }
  } else {
    foreach user [whom 1234] {
      set idx [hand2idx [lindex $user 0]]
      putdcc $idx "<PtitDemon> Voilà patron, je vous l'ai ramené[mf $hand "" "e"] ..."
      putdcc $idx "<Diable> Tu sauras mon ami[mf $hand "" "e"] qu'on ne m'échappe pas !"
      putdcc $idx "<Diable> Tu ne seras pas libéré[mf $hand "" "e"] avant d'avoir affirmé haut et fort que '$aveux Lowrad et Alocin sont fins, beaux, aimables et intelligents et AideBot est le meilleur des bots'."
      putdcc $idx "<PtitDemon> Hum, j'y pense $hand ... si tu as l'impression de tourner en rond ici là, c'est probablement à cause de ton script mIRC, pour bien lire ce que le Diable te demande, fais un '/remote off' !"
    }
  }
}
set idxenfer 0

proc rameneenenfer { idx } {
  if {[getchan $idx] != 1234} {
    dccputchan [getchan $idx] "Le PtitDemon saute sur [idx2hand $idx] et l[mf [idx2hand $idx] "e" "a"] garde en Enfer... ***"
    setchan $idx 1234
  }
}

proc okilediableestfin {idx text} {
  global anciensaveux
  if {[string tolower $text] != [string tolower "$anciensaveux Lowrad et Alocin sont fins, beaux, aimables et intelligents et AideBot est le meilleur des bots"]} {
    foreach user [whom 1234] {
      set idx [hand2idx [lindex $user 0]]
      putdcc $idx "<PtitDemon> pffff ..."
    }
    return 0
  }
  foreach user [whom 1234] {
    set idx [hand2idx [lindex $user 0]]
    putdcc $idx "<PtitDemon> Ha zut, déjà? Je commençais à m'amuser moi :-/ ..."
    putdcc $idx "<Diable> Bon, voilà, c'est mieux... Apprends ta leçon! Tu peux quitter maintenant..."
  }
  chattr [idx2hand $idx] -D
}

proc dlined { } {
  if ![string match *dlined* [timers]] {
    timer 2 dlined
  }
  foreach user [whom 1234] {
    if {[matchattr [lindex $user 0] D] && ![matchattr [lindex $user 0] n]} {
      dccputchan 1234 "Le Diable vous avertit que ceux qui n'admettent pas leur péchés seront châtiés! ***"
      killdcc [hand2idx [lindex $user 0]]
      return 0
    }
  }
}

dlined

proc timer_test_enfer { } {
  if ![string match *timer_test_enfer* [timers]] {
    utimer 5 timer_test_enfer
  }
  foreach user [dcclist chat] {
    if [matchattr [lindex $user 1] D] {
      rameneenenfer [lindex $user 0]
    }
  }
}

utimer 30 timer_test_enfer


#################################
## B-lined ! :-)

proc blined { } {
  if ![string match *blined* [timers]] {
    timer 5 blined
  }
  foreach user [dcclist chat] {
    if {[matchattr [lindex $user 1] B] && ![matchattr [lindex $user 1] n]} {
      boot [lindex $user 1] "B-lined"
      bootbot [lindex $user 1]
    }
  }
}

blined

################################
## Q-lines (quiet!

bind filt Q * filt_quiet
proc filt_quiet {idx texte} {
  set text [string tolower $texte]
  if {[string index $text 0] != "."} {
    putdcc $idx "Vous êtes Q-lined (Quiet). Vous ne pouvez donc plus parler sur le bot."
  } elseif {([lindex $text 0] == ".quit") || ([lindex $text 0] == ".away")} {
    return "[lindex $text 0] (Q-Lined)"
  } elseif {([lindex $text 0] == ".bip") || ([lindex $text 0] == ".note") || ([lindex $text 0] == ".notes") || ([lindex $text 0] == ".quand") || ([lindex $text 0] == ".help") || ([lindex $text 0] == ".tcl") || ([lindex $text 0] == ".chattr") || ([lindex $text 0] == ".chut")} {
    return $texte
  } else {
    putdcc $idx "Vous êtes Q-lined (Quiet). Les commandes restant accessibles sont: .help .note .notes .quand et .bip ."
  }
}

bind dcc AE chut dcc_chut
proc dcc_chut {hand idx qui} {
  if [validuser $qui] {
    if [matchattr $qui A] {
      putdcc $idx "ts ts ts ..."
      return 0
    }
    if [matchattr $qui Q] {
      putdcc $idx "Oki, $qui n'est maintenant plus Q-lined"
      chattr $qui -Q
    } else {
      putdcc $idx "Oki, $qui est maintenant Q-lined"
      chattr $qui +Q
      if ![matchattr $hand A] {
        foreach user [userlist A] {
          sendnote AideBot $user "ACTIVITÉ PARRAIN: <[getuser $hand xtra vrainick]> .chut $qui"
        }
        putdcc $idx "Les admins ont été avertis ..."
      }
    }
    return 1
  } else {
    putdcc $idx "## Usage: .chut <alias>"
    return 0
  }
}

################################
## .pire

set handpire "toi"
bind dcc - pire direpire
proc direpire {hand idx args} {
  global handpire
  putdcc $idx "Le pire? C'est $handpire bien sûr! ;-ppp"
  set handpire [getuser $hand xtra vrainick]
  return 1
}


################################
## .pensee

set troppensees ""

bind dcc p pensee dcc_pensee
proc dcc_pensee { hand idx nick } {
  global troppensees
  set nick [lindex $nick 0]
  set dest [hand2idx $nick]
  if {([getdccaway $idx] != "") & ($nick != "")} {
    putdcc $idx "Quand tu es away, tu ne peux envoyer de pensées à d'autres ..."
    return 0
  } elseif {($nick != "") & ($dest == -1)} {
    putdcc $idx "Qui ça !?"
    return 0
  } elseif {$troppensees == $hand} {
    putdcc $idx "On respire cal-me-ment ... :¬)"
    return 0
  } elseif {$dest != -1} {
    if {[getdccaway $dest] != ""} {
      putdcc $idx "[idx2hand $dest] est away ..."
      return 0
    }
  }
  set nombre [rand [exec wc pensees.txt | sed -e "s/ *//" | sed -e "s/ .*//"]]
  set pensee [string range [exec cat -n pensees.txt | grep " $nombre" | head -1] 8 end]
  if {$dest != -1} {
    putdcc $idx "Vous avez offert la pensée suivante à $nick:  $pensee"
    putdcc $dest "$hand vous a offert la pensée suivante:  $pensee"
    set troppensees $hand
    timer 1 {set troppensees ""}
  } else {
    putdcc $idx $pensee
  }
  return 1
}


##########################
## .horreur

bind dcc n horreur dcc_horreur
proc dcc_horreur {hand idx arg} {
  if {[matchattr $hand A] & [validuser $arg]} {
    set cible $arg
  } else {
    set cible $hand
  }
  set liste "[getuser $cible xtra statsplusoncanal] [exec grep [getuser $cible xtra vrainick] /aide/www/admins/stats.txt | sed -e "s/.* (//" | sed -e "s/) .*//"]"
  set total 0
  foreach i $liste { set total [expr $total + $i] }
  putdcc $idx "Histoire d'horreur sur $cible -->  Temps +v sur #Aide: [dire_delai [expr $total * 60]] sur [llength $liste] semaines compilées ..."
  return 1
}


#########################
## .boot+

bind dcc n boot+ dcc_bootplus
proc dcc_bootplus {hand idx args} {
  set args [lindex $args 0]
  set cibles [lindex $args 0]
  set raison [lrange $args 1 end]
  set liste1 ""
  set liste2 ""
  set final ""
  set killidx ""
  if {$args == ""} {
    putdcc $idx "Héhé, oki, mais qui? :-)  -->  '.boot+ <+flag|canal|<nick|vrainick>\[,<nick|vrainick>\[...\]\] \[raison\]'"
    return 0
  } elseif {[string index $cibles 0] == "+"} {
    set liste1 [string tolower [userlist $cibles]]
  } elseif [estunnombre:ok $cibles] {
    foreach user [string tolower [whom $cibles]] {
      lappend liste1 [lindex $user 0]
    }
  } else {
    set cibles [string tolower [split $cibles ,]]
    foreach user $cibles {
      if [validuser $user] {
        lappend liste1 $user
      } else {
        lappend liste2 $user
      }
    }
  }
  foreach user [string tolower [dcclist]] {
    if {[validuser [lindex $user 1]] & ![matchattr [lindex $user 1] b]} {
      if {[string match "* [lindex $user 1] *" " $liste1 "] | [string match "* [string tolower [getuser [lindex $user 1] xtra vrainick]] *" " $liste2 "]} {
        if {[lindex $user 3] == "chat"} {
          lappend final [lindex $user 1]
        } else {
          lappend killidx [lindex $user 0]
        }
      }
    }
  }
  putlog "#$hand# boot+ $args"
  foreach user $final {
    if {[string tolower $hand] != $user} {
      dccsimul $idx ".boot $user $raison"
    }
  }
  foreach user $killidx {
    if {$idx != $user} {
      killdcc $user
    }
  }
}

###############################
# .pouf

bind dcc p pouf dcc_pouf
bind dcc p poof dcc_pouf
proc dcc_pouf {hand idx arg} {
  putdcc $idx "Pouf! Les stats des boots ;-p   (Depuis 3/5/2001)"
  putdcc $idx "-------------------------------------------------"
  putdcc $idx "  AideBot lui même: [getuser AideBot xtra boots]"
  putdcc $idx "-------------------------------------------------"
  foreach user [userlist A] {
    putdcc $idx "  [ajouter_espaces [getuser $user xtra vrainick] 10]->   Donnés: [lindex [getuser $user xtra boots] 0]   Reçus: [lindex [getuser $user xtra boots] 1]"
  }
  putdcc $idx "-------------------------------------------------"
  return 1
}

bind filt A ".boot *" statsboot
proc statsboot {idx text} {
  set hand [idx2hand $idx]
  set cible [lindex $text 1]
  if {([valididx [hand2idx $cible]]) & ![matchattr $cible n]} {
    set boots [getuser $hand xtra boots]
    if {$boots == ""} {set boots "0 0"}
    setuser $hand xtra boots "[expr [lindex $boots 0] + 1] [lindex $boots 1]"
    set boots [getuser $cible xtra boots]
    if {$boots == ""} {set boots "0 0"}
    setuser $cible xtra boots "[lindex $boots 0] [expr [lindex $boots 1] + 1]"
  }
  return $text
}

proc bootbot {cible} {
  setuser AideBot xtra boots [expr [getuser AideBot xtra boots] + 1]
  set boots [getuser $cible xtra boots]
  if {$boots == ""} {set boots "0 0"}
  setuser $cible xtra boots "[lindex $boots 0] [expr [lindex $boots 1] + 1]"
}

############################
# .horoscope

bind dcc p horoscope dcc_horoscope
proc dcc_horoscope {hand idx arg} {
  set arg [lindex $arg 0]
  if {$arg == ""} {
    set jour [strftime %j [getuser $hand xtra ddn]]
    if {$jour < 20} { set arg "capricorne"
    } elseif {$jour < 50} { set arg "verseau"
    } elseif {$jour < 80} { set arg "poissons"
    } elseif {$jour < 110} { set arg "belier"
    } elseif {$jour < 141} { set arg "taureau"
    } elseif {$jour < 173} { set arg "gemeaux"
    } elseif {$jour < 204} { set arg "cancer"
    } elseif {$jour < 235} { set arg "lion"
    } elseif {$jour < 266} { set arg "vierge"
    } elseif {$jour < 296} { set arg "balance"
    } elseif {$jour < 326} { set arg "scorpion"
    } elseif {$jour < 356} { set arg "sagittaire"
    } else { set arg "capricorne" }
  }
  if ![file exist horoscope/$arg] {
    putdcc $idx "Hum? En tous les cas, je peux te prédire que tu connais pas ton zodiaque! :o)"
    putdcc $idx "## Syntaxe: .horoscope \[signe\]  (sans argument vous donnera -votre- horoscope)"
    return 0
  }
  putdcc $idx "Horoscope [string toupper $arg] du [dire_date [file mtime horoscope/$arg]] par AideBot :o)"
  set f [open horoscope/$arg r]
  while {[gets $f line] >= 0} {
    putdcc $idx "$line"
  }
  close $f
  return 1
}

bind time - "10 00 * * *" time_horoscope
bind time - "10 06 * * *" time_horoscope
bind time - "10 09 * * *" time_horoscope

proc time_horoscope {a b c d e} {
  exec ~/horoscope/getpage &
}

########################
# .baffe

bind dcc p baffe dcc_baffe
proc dcc_baffe {hand idx arg} {
  set n 25
  if {[matchattr $hand n] & [validuser [lindex $arg 0]]} {
    set cible [hand2idx [lindex $arg 0]]

    if [estunnombre:ok [lindex $arg 1]] {
      set n [lindex $arg 1]
    }
  } else {
    set cible [hand2idx $hand]
  }
  for {set i 0} {$i < $n} {incr i} {
    putdccsi $cible "BA4FFE b1affE BaFfE BaFFE BaF2fE BAFfe BAFFE baf3fE BaFfE BaFFE BaFfE 4BAFfe BAF5FE baffE BaFfE BaF6FE BaFfE BAFfe BAF7FE baffE BaFfE B8aFFE BaFfE 9BAFfe BA10FFE baff12E BaFfE BaFFE BaF14fE BAFfe BAFFE b4affE BaFfE 1BaFFE BaFfE4 BAFfe BAFFE b9affE BaFfE Ba5FFE BaFfE B8AFfe BAFFE b6affE BaFfE BaFFE3 BaFfE BAFfe BA2FFE baffE BaFfE7 BaFFE BaFfE BA8Ffe BAFFE baffE5 BaFfE"
  }
  return 1
}


##########################
# .loterie

bind dcc p loterie dcc_loterie
proc dcc_loterie {hand idx args} {
  set args [lindex $args 0]
  set celleci [lindex [getuser Aidebot xtra loterie] 0]
  set passee [lindex [lindex [getuser Aidebot xtra loterie] 1] 0]
  set combpassee [lindex [lindex [getuser Aidebot xtra loterie] 1] 1]
  set part [lindex [getuser Aidebot xtra loterie] 2]
  set combinaison [lindex [getuser Aidebot xtra loterie] 3]
  set tentatives [getuser $hand xtra loterie]
  if {$args == ""} {
    putdcc $idx "2  *** La loterie bobot! ***"
    putdcc $idx ""
    putdcc $idx "2De merveilleux prix à gagner! De beau gros riens tout neufs! Le gagnant est le premier à entrer la bonne combinaison de trois chiffres (en désordre) chaque semaine avant dimanche soir 21h. Vous pouvez entrer autant de tentatives qu'il y a de participants cette semaine! :o) (Donc ç amonte doucement héhéhé)"
    putdcc $idx ""
    putdcc $idx "## Syntaxe:  .loterie <0-9> <0-9> <0-9>"
    putdcc $idx ""
    putdcc $idx "2Le ou la gagnante de la semaine passée était: 11 $passee  ($combpassee)"
    putdcc $idx "2Le ou la gagnante de cette semaine est:       11 $celleci"
    return 0
  }
  foreach i $args {
    if {![estunnombre:ok $i] | ([string length $i] != 1) | ([llength $args] != 3)} {
      putdcc $idx "Combinaison non valable (Doit être trois chiffres de 0 à 9 séparés d'espaces)."
      return 0
    }
  }
  if {$celleci != "-"} {
    putdcc $idx "Trop tard! Il y a déjà un gagnant cette semaine!"
    return 0
  }
  if {$tentatives == ""} {
    incr part
    set tentatives 0
  }
  incr tentatives
  if {$tentatives > $part} {
    putdcc $idx "Ha non non, désolé, mais tu ne peux plus faire de tentatives pour le moment!"
    return 0
  }
  if {[classement_nombres $args +] != $combinaison} {
    putdcc $idx "[classement_nombres $args +]?  Na, meilleure chance la prochaine fois!"
    setuser $hand xtra loterie $tentatives
  } else {
    putdcc $idx "[classement_nombres $args +]?  Oui! Bravo, tu as trouvé! :o)"
    dccbroadcast "Hey! [getuser $hand xtra vrainick] vient de gagner la loterie :o) ***"
    set celleci [getuser $hand xtra vrainick]
  }
  setuser Aidebot xtra loterie "$celleci {$passee {$combpassee}} $part {$combinaison}"
  putlog "#$hand# loterie ..."
  return 0
}

bind time - "00 21 * * *" time_loterie
proc time_loterie {a b c d e} {
  if {[lindex [ctime [unixtime]] 0] != "Sun"} { return 0 }
  set celleci [lindex [getuser Aidebot xtra loterie] 0]
  set passee [lindex [lindex [getuser Aidebot xtra loterie] 1] 0]
  set combpassee [lindex [lindex [getuser Aidebot xtra loterie] 1] 1]
  set part [lindex [getuser Aidebot xtra loterie] 2]
  set combinaison [lindex [getuser Aidebot xtra loterie] 3]
  set nouvcomb [classement_nombres "[rand 10] [rand 10] [rand 10]" +]
  foreach user [userlist] {
    setuser $user xtra loterie
  }
  setuser Aidebot xtra loterie "- {$celleci {$combinaison}} 0 {$nouvcomb}"
}