MÉLANGEUR DE MOT

;Systême de mélangeur de mot par Kentix
;Utilisation: être op puis !melangermot UnMot

;Séparation char par char d'un mot qu'on stocke dans %devinettemot
alias separermot {
  unset %devinettemot
  set %devinettereponse $$1
  var %a = $$1, %b = $len(%a), %c = 1
  while (%c <= %b) {
    set %devinettemot $instok(%devinettemot, $right($left(%a,%c),1), %b, 32)
    inc %c
  }
} 

;On mélange les chars, on stocke le mot obtenu dans %devinettemotok
alias melangermot {
  unset %devinettemotok
  var %a = $numtok(%devinettemot,32), %b = 1
  while (%b <= %a) {
    set %devinettemotok $instok(%devinettemotok,$gettok(%devinettemot,%b,32),$rand(1,5),32)
    inc %b
  }
}

;On regroupe les chars mélangés dans la var %devinettemotrassembler
alias rassemblermot {
  unset %devinettemotrassembler
  var %a = $numtok(%devinettemotok,32), %b = 1
  while (%b <= %a) {
    set %devinettemotrassembler %devinettemotrassembler $+ $gettok(%devinettemotok,%b,32)
    inc %b
  }
}
on @*:text:!melangermot*:#:{
  separermot $$2
  melangermot
  rassemblermot
  msg $chan %devinettemotrassembler
}