JEU DU CODE

on *:text:*:#: {
  if ($1 == !code) && (%code !== on) {
    set %num1 $rand(0,9)
    set %num2 $rand(0,9)
    set %num3 $rand(0,9)
    set %num4 $rand(0,9)
    .msg $chan trouvez le code !!! faites vos propositions
    .msg $chan 9,5 _ _ _ _
    .set %code on
  }
  if (%code == on) && ($1 isnum) && ($len($1) == 4) { 
    .set %nb1 $left($1,1)
    .set %nb2 $mid($1,2,1)
    .set %nb3 $mid($1,3,1)
    .set %nb4 $right($1,1)
    if (%nb1 == %num1) { 
      set %firstnum 9,5 %nb1
    }
    if (%nb1 !== %num1) {
      set %firstnum 9,5_
    }
    if (%nb2 == %num2) {
      set %deuxieme 9,5 %nb2
    }
    if (%nb2 !== %num2) {
      set %deuxieme 9,5_
    }
    if (%nb3 == %num3) {
      set %troisieme 9,5 %nb3
    }
    if (%nb3 !== %num3) {
      set %troisieme 9,5_
    }
    if (%nb4 == %num4) {
      set %quatre 9,5 %nb4
    }
    if (%nb4 !== %num4) {
      set %quatre 9,5_
    }
    .msg $chan %firstnum %deuxieme %troisieme %quatre
    if (%nb1 == %num1) && (%nb2 == %num2) && (%nb3 == %num3) && (%nb4 == %num4) {
      .msg $chan bravo $nick tu as trouvé le code !! 
      .msg $chan Tapez !code pour rejouer
      .set %code off
    }
  }
}