PureBasic

Code : Tout sélectionner

;Source:http://www.uselesspython.com/download.php?script_id=32

;Init fricatives
Restore fricatives
Global Dim fricatives.s(1);
n.l=0;
While fricatives(n)<>"*" 
  n+1
  ReDim fricatives.s(n)
  Read.s fricatives(n)
Wend
;Init vowels
Restore vowels
Global Dim vowels.s(1);
n.l=0;
While vowels(n)<>"*" 
  n+1
  ReDim vowels.s(n)
  Read.s vowels(n)
Wend
;Init consonantsNormal
Restore consonantsNormal
Global Dim consonantsNormal.s(1);
n.l=0;
While consonantsNormal(n)<>"*" 
  n+1
  ReDim consonantsNormal.s(n)
  Read.s consonantsNormal(n)
Wend
Restore consonantsNasal
Global Dim consonantsNasal.s(1);
n.l=0;
While consonantsNasal(n)<>"*" 
  n+1
  ReDim consonantsNasal.s(n)
  Read.s consonantsNasal(n)
Wend

Global result.s, vowelSyllables.l, randomLength.l, vowelRatio.l,syllableOnlyVowels.l

Declare maincongen()
Declare sylgen()
Declare fricgen()
Declare vowgen()
Declare congen()
Declare con2gen()
Declare con3gen()

Procedure.s namegen(ratio.l=5, lower_limit.l=3, upper_limit.l=11)
    ratio = ratio + 3
    If ratio < 4:
        ratio = 4
    ElseIf ratio > 14:
        ratio = 14
    EndIf
    vowelRatio = ratio
    result = ""
    vowelSyllables = 0
    randomLength = Random(upper_limit-lower_limit)+lower_limit
    sylgen()
ProcedureReturn result
EndProcedure


Procedure sylgen()
    syllableOnlyVowels = 1
    maincongen()
    If vowelSyllables < (vowelRatio/4):
        vowgen()
    EndIf
    maincongen()
    If syllableOnlyVowels = 1:
        vowelSyllables = vowelSyllables + 1
    EndIf
    If Len(result) < randomLength:
        sylgen()
    EndIf
EndProcedure


Procedure fricgen()
     result = result + fricatives(Random(ArraySize(fricatives())-1))
    syllableOnlyVowels = 0
    vowelSyllables = 0
EndProcedure


Procedure vowgen()
    result = result + vowels(Random(ArraySize(vowels())-1))
EndProcedure

Procedure congen()
    result = result + consonantsNormal(Random(ArraySize(consonantsNormal())-1))
    syllableOnlyVowels = 0
    vowelSyllables = 0
EndProcedure

Procedure con2gen()
    If Random(2) = 0:
        result = result + "r"
    Else:
        result = result + "l"
    EndIf
    syllableOnlyVowels = 0
    vowelSyllables = 0
EndProcedure

Procedure con3gen():
    result = result + consonantsNasal(Random(ArraySize(consonantsNasal())-1))
    syllableOnlyVowels = 0
    vowelSyllables = 0
EndProcedure


Procedure maincongen()
    
    If Len(result) < randomLength:
        randomNumber = Random(vowelRatio)
        If randomNumber = 0:
            fricgen()
            If Len(result) < randomLength:
                randomNumber = Random(vowelRatio/4 * 3)
                If randomNumber = 0:
                    congen()
                    If Len(result) < randomLength:
                        randomNumber = Random(vowelRatio/2)
                        If randomNumber = 0:
                            con2gen()
                        EndIf
                    EndIf
                ElseIf randomNumber = 1:
                    con2gen()
                ElseIf randomNumber = 2:
                    con3gen()
                EndIf
            EndIf
        ElseIf randomNumber = 1:
            congen()
            If Len(result) < randomLength:
                randomNumber = Random(vowelRatio/2)
                If randomNumber = 0:
                    con2gen()
                EndIf
            EndIf
        ElseIf randomNumber = 2:
            con2gen()
        ElseIf randomNumber = 3:
            con3gen()
        EndIf
  EndIf
EndProcedure

For z=1 To 10
  Debug namegen(Random(10))
Next
DataSection
fricatives:
Data.s  "j", "ch", "h", "s", "sh", "th", "f", "v", "z","*"
vowels:
Data.s  "a", "e", "i", "o", "u", "y", "ya", "ye", "yi", "yo", "yu", "wa", "we", "wi", "wo", "wu", "ae", "au", "ei", "ie", "io", "iu", "ou", "uo", "oi", "oe", "ea","*"
consonantsNormal:
Data.s  "c", "g", "t", "d", "p", "b", "x", "k", "ck", "ch","*"
consonantsNasal:
Data.s  "n", "m", "ng", "nc","*"
EndDataSection

Code : Tout sélectionner

debug random(1000)