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