nom aléatoire

// gen(length)
// genere un mot avec voyelle - consonne - voyelle ...
var i,r,c,ret,kind,voyelles,VOYELLE,CONSONNE;
VOYELLE = 1
CONSONNE = 0

voyelles = "aeiouy"

r = chr( ord('a') + floor(random(26)) )
kind = string_count(r, voyelles)
ret = r

for(i=0; i<argument0; i+=1) {
    kind = !kind
    c = ""
    while(c == "") {
        r = chr( ord('a') + floor(random(26)) )
        if(string_count(r, voyelles) == kind)
            c = r
    }
    ret += c
}

return ret

// speak(words)
var file;
file = file_text_open_write("say.vbs")
file_text_write_string(file,'Set d=CreateObject("SAPI.SpVoice")')
file_text_writeln(file)
file_text_writeln(file)
file_text_write_string(file,'d.Speak "' + string(argument0) + '"')
file_text_close(file)
execute_shell("say.vbs","")

//gen2(length)
var ret,i,len;
// constantes
VOYELLE = 1
CONSONNE = 0
// dico
voyelles = "aeiouy"
consonnes = "bcdfghjklmnpqrstvwxz"
nextv = "ae ai au eu oi ou ue ya ye yi yo yu "
nextc = "bh bj bl br ch ck cl cr dh dj dr fh fl fr ft "
      +"gh gl gm gn gr pl pr ps sc sk sl sm sn sp sr st "
      +"tr vl vr"
//
len = 0
ret = ""
kind = choose(VOYELLE, CONSONNE)

while(len < argument0)
{
    kind = !kind
    n = floor(random(5))==0 // une chance sur 5 d'avoir une double lettre
   
    if(n)
    {
        if(kind == VOYELLE)
            ret += string_copy(nextv, 1 + floor(random(11))*3, 2)
        else
            ret += string_copy(nextc, 1 + floor(random(32))*3, 2)
        len += 2
    }
    else
    {
        if(kind == VOYELLE)
            ret += string_copy(voyelles, 1+floor(random(6)), 1)
        else
            ret += string_copy(consonnes, 1+floor(random(20)), 1)
        len += 1
    }
}

return ret