MÉLANGEUR DE MOT

---

Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

C'est une fonction que j'utilise pour un plus gros projet (d'où les noms des var %devinette* vous étonnez pas), je la fais partager.
Elle mélange un mot, bizarrement j'ai eu énormément de bug au niveau de:
$instok(%devinettemotok,$gettok(%devinettemot,%b,32),$rand(1,5),32)
quand je voulais faire des trucs plus compliqué niveau mélange et j'ai trouvé qu'avec un petit $rand(1,5) pas trop gros (style pas $rand(1,99)) ça marchait toujours.
Si qu'unlqun pouvait m'expliquer pourquoi.

;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
}

• SIMPLE QUIZZ

• WORLDDMT TEXT COLOR V 1.0
• WORLDDMT WPASS V 1.2 - UN GENERATEUR DE PASSE PAR MOT
• SCAN IRCOP BY DEVORZ
• ANTIBAN PROTECTION BY DJUL.
• WORLDDMT FUN WBAR V 1.0 - ADDON POUR BOT FUN

• NITR0`SCRIPT
• SIMPLE QUIZZ
• MIRC PROXY SCANNER / SCANNEUR
• BIRTHDAY MIRC MANAGER / GESTION DES ANNIVERSAIRES MIRC
• MIRSMAIL CLIENT MIRC POUR LE CHAT DE SMAIL (WWW.SMAIL.FR)