Ich habe hier meinen eigenen Verzapft.
Code: Alles auswählen
Procedure.s getname(art)
;diese funktion gibt einen Namen zurück. die art des Namens kann mit dem Parameter festgelegt werden
;1 Griechisch
;2 Afrikansich
;3 English
;4 Elfisch
;5 Hebräisch
;6 Arabisch - Namen
;7 Japanisch
;8 Chinesisch
;9 Griech Alphabet + name für Sternenbezeichnungen
;+ 10 für benennungen
h$ = ""
Select art
Case 1 ;Griechisch
;1. Teil
Restore Nameart1_1
For x = 1 To 1 + Random(19)
Read h$
Next x
;2. Teil
If Random(100) > 50 ;50%- Chance für mittlerenNamensteil
Restore Nameart1_2
For x = 1 To 1 + Random(9)
Read a$
Next x
h$ = h$ + a$
EndIf
;3. Teil
Restore Nameart1_3
For x = 1 To 1 + Random(15)
Read a$
Next x
h$ = h$ + a$
Case 2 ;Afrikanisch
;1. Teil
Restore Nameart2_1
For x = 1 To 1 + Random(8)
Read h$
Next x
;2. Teil
Restore Nameart2_2
For x = 1 To 1 + Random(19)
Read a$
Next x
h$ = h$ + a$
;3. Teil
If Random(100) > 50 ;50%- Chance für mittleren Namensteil
Restore Nameart2_3
For x = 1 To 1 + Random(10)
Read a$
Next x
h$ = h$ + a$
EndIf
;4. Teil
Restore Nameart2_4
For x = 1 To 1 + Random(10)
Read a$
Next x
h$ = h$ + a$
Case 3 ;
;1. Teil
Restore Nameart3_1
For x = 1 To 1 + Random(12)
Read h$
Next x
;2. Teil
If Random(100) > 50 ;50%- Chance für mittlerenNamensteil
Restore Nameart3_2
For x = 1 To 1 + Random(22)
Read a$
Next x
h$ = h$ + a$
EndIf
;3. Teil
Restore Nameart3_3
For x = 1 To 1 + Random(12)
Read a$
Next x
h$ = h$ + a$
Case 4 ;
Restore Nameart4_1
Dim nmsnip$(101)
For x = 1 To 101
Read nmsnip$(x)
Next x
For t = 1 To Random(2) + 2
h = 1 + Random(100)
h$ = h$ + nmsnip$(h)
Next t
Case 5 ;Hebräisch
;1. Teil
Restore Nameart5_1
For x = 1 To 1 + Random(40)
Read h$
Next x
;2. Teil
If Random(100) > 50 ;50%- Chance für mittlerenNamensteil
Restore Nameart5_2
For x = 1 To 1 + Random(23)
Read a$
Next x
h$ = h$ + a$
EndIf
;3. Teil
Restore Nameart5_3
For x = 1 To 1 + Random(47)
Read a$
Next x
h$ = h$ + a$
Case 6 ;Arabisch
;1. Teil
If Random(100) > 50 ;50%- Chance für mittleren Namensteil
Restore Nameart6_1
For x = 1 To 1 + Random(5)
Read h$
Next x
h$ = h$ + " "
EndIf
;2. Teil
Restore Nameart6_2
For x = 1 To 1 + Random(9)
Read a$
Next x
h$ = h$ + a$
;3. Teil
Restore Nameart6_3
For x = 1 To 1 + Random(12)
Read a$
Next x
h$ = h$ + a$
;4. Teil
If Random(100) > 50 ;50%- Chance für mittleren Namensteil
Restore Nameart6_4
For x = 1 To 1 + Random(6)
Read a$
Next x
h$ = h$ + " " + a$
EndIf
;5. Teil
Restore Nameart6_5
For x = 1 To 1 + Random(22)
Read a$
Next x
h$ = h$ + " " + a$
Case 7 ;Japanisch
Restore Nameart7_1
Dim nmsnip$(60)
For x = 1 To 60
Read nmsnip$(x)
Next x
For t = 1 To Random(1) + 2
h = 1 + Random(59)
h$ = h$ + nmsnip$(h)
Next t
Case 8 ;Chinesisch
;1. Teil
Restore Nameart8_1
For x = 1 To 1 + Random(13)
Read h$
Next x
;2. Teil
Restore Nameart8_2
For x = 1 To 1 + Random(10)
Read a$
Next x
h$ = h$ + a$
;1. Teil
Restore Nameart8_1
For x = 1 To 1 + Random(13)
Read a$
Next x
h$ = h$ + " " + a$
;2. Teil
Restore Nameart8_2
For x = 1 To 1 + Random(10)
Read a$
Next x
h$ = h$ + a$
;3. Teil
If Random(100) > 50 ;50%- Chance für mittleren Namensteil
Restore Nameart8_3
For x = 1 To 1 + Random(11)
Read a$
Next x
h$ = h$ + a$
EndIf
Case 9 ;Griech Alphabet + name für Sternenbezeichnungen
;1. Teil
Restore Nameart9_1
For x = 1 To 1 + Random(23)
Read h$
Next x
;2. Teil
Restore Nameart9_2
For x = 1 To 1 + Random(50)
Read a$
Next x
h$ = h$ + " " + a$
Case 10 ;Arabisch - benennung
;4. Teil
Restore Nameart6_4
For x = 1 To 1 + Random(6)
Read a$
Next x
h$ = h$ + a$
;5. Teil
Restore Nameart6_5
For x = 1 To 1 + Random(22)
Read a$
Next x
h$ = h$ + " " + a$
Case 11 ;Chinesisch - benennung
;1. Teil
Restore Nameart8_1
For x = 1 To 1 + Random(13)
Read h$
Next x
;2. Teil
Restore Nameart8_2
For x = 1 To 1 + Random(10)
Read a$
Next x
h$ = h$ + a$
;2. Teil
If Random(100) > 50 ;50%- Chance für mittleren Namensteil
Restore Nameart8_3
For x = 1 To 1 + Random(11)
Read a$
Next x
h$ = h$ + a$
EndIf
EndSelect
h$ = UCase(Left(h$, 1)) + LCase(Right(h$, Len(h$)-1))
ProcedureReturn h$
EndProcedure
Debug getname(1)
Debug getname(2)
Debug getname(3)
Debug getname(4)
Debug getname(5)
Debug getname(6)
Debug getname(7)
Debug getname(8)
Debug getname(9)
Debug getname(10)
Debug getname(11)
;{- Data SECTION
DataSection
Nameart1_1:
; anzahl 20
Data.s "Ari", "So", "Pla", "Par", "So", "A", "Epi", "Tres", "Anaxi", "Tha", "Theo", "Philo", "Phobo", "Ener", "Sys", "Her", "Phy", "Demo", "Pro"
Nameart1_2:
; anzahl 10
Data.s "sto", "kra", "meni", "pho", "i", "ku", "megi", "man", "men", "tago"
Nameart1_3:
; anzahl 16
Data.s "teles", "telos", "phane", "ket", "tes", "ton", "des", "les", "kur", "stos", "phos", "der", "les", "krit", "ras", "mes"
Nameart2_1:
; anzahl 9
Data.s "M", "N", "B", "Tsch", "T", "Z", "W", "L", "D"
Nameart2_2:
; anzahl 20
Data.s "ka", "ke", "ki", "ku", "ko", "ba", "bi", "bu", "he", "hu", "ho", "ze", "zu", "zi", "zo", "gu", "gi", "go", "ge"
Nameart2_3:
; anzahl 11
Data.s "na", "bi", "mi", "ne", "mbu", "bo", "no", "nu", "mhe", "hu", "gho"
Nameart2_4:
; anzahl 11
Data.s "nate", "mbe", "nge", "ghu", "gho", "mbo", "mbu", "ze", "zi", "zu", "zo"
Nameart3_1:
; anzahl 13
Data.s "Be", "De", "Ge", "Ha", "Ja", "Je", "Ka", "Ke", "The", "Tha", "Thi", "Li", "Gre"
Nameart3_2:
; anzahl 23
Data.s "en", "thi", "tha", "the", "bo", "th", "y", "gh", "que", "fe", "te", "re", "ra", "ta", "po", "pe", "pi", "ve", "va"
Data.s "che", "cho", "chi"
Nameart3_3:
; anzahl 13
Data.s "ich", "lvy", "bar", "ly", "my", "ty", "zy", "ky", "yl", "er", "te", "th", "gh"
Nameart4_1:
; anzahl 101
Data.s "a", "e", "i", "o", "u", "y", "ai", "au", "ae", "ao", "ay", "ei", "eu", "eo", "ea", "ey", "ie", "iu", "io"
Data.s "iy", "ue", "uo", "ua", "uy", "ui", "ou", "oi", "oe", "oa", "oy", "ye", "ya", "yu", "yi", "yo", "arr", "ut", "ich"
Data.s "bar", "ly", "my", "ty", "ou", "ai", "jo", "zym", "bir", "des", "dai", "da", "los", "kyr", "io", "qu", "kat", "ark", "ana"
Data.s "ion", "ak", "mir", "lor", "nth", "ith", "oll", "off", "ugg", "mai", "cyr", "pol", "man", "est", "ger", "the", "fis", "min", "max"
Data.s "lo", "gh", "ron", "vor", "pre", "int", "ren", "kyll", "er", "in", "an", "on", "un", "ung", "ing", "ilit", "itr", "hit", "tra"
Data.s "zur"
Nameart5_1:
; anzahl 41
Data.s "aa", "abi", "ari", "aggri", "amaz", "anti", "asch", "ba", "bet", "ben", "bel", "da", "ef", "el", "es", "gab", "ge", "gid", "go"
Data.s "Ha", "He", "Ho", "Jeru", "Jesa", "Jo", "Ju", "Kad", "Me", "Le", "Me", "Na", "Mor", "Ne", "Nim", "Ra", "Gil", "Sab", "She"
Data.s "Tob"
Nameart5_2:
; anzahl 24
Data.s "me", "ma", "mo", "y", "sa", "ja", "ha", "schaz", "schi", "ra", "a", "ri", "hen", "nuk", "sa", "na", "ro", "via", "tha"
Data.s "ne", "he", "fe", "phir"
Nameart5_3:
; anzahl 48
Data.s "la", "bat", "ead", "hel", "rod", "gev", "mia", "chai", "hem", "dish", "däa", "fat", "tan", "ja", "lem", "lim", "jim", "schea", "noch"
Data.s "ka", "eon", "na", "el", "ter", "ischa", "ta", "im", "skus", "ruch", "ron", "lech", "pa", "ja", "thea", "ochia", "era", "dai", "lon"
Data.s "min", "dach", "zar", "ia", "ias", "ra", "it", "phim"
Nameart6_1:
; anzahl 6
Data.s "Al", "El", "Il", "Abu", "Abd", "Ali"
Nameart6_2:
; anzahl 8
Data.s "O", "Muha", "Ach", "Abu", "Dschalla", "Sulei", "Far", "Suhra"
Nameart6_3:
; anzahl 13
Data.s "mar", "stafa", "med", "tan", "lah", "seif", "yed", "shah", "ham", "sama", "laddin", "wardi", "man"
Nameart6_4:
; anzahl 7
Data.s "i", "el", "il", "ibn", "ben", "al", "bin"
Nameart6_5:
; anzahl 23
Data.s "Sheik", "Sharif", "Tauba", "Hadsch", "Araf", "Anam", "Nisa", "Imran", "Sadshedah", "Alak", "Abasa", "Hakkah", "Kalam", "Talak", "Duha", "Hadschr", "Dhariyat", "Schura", "Fatir"
Data.s "Rushd", "Saadi", "Saif"
Nameart7_1:
; anzahl 60
Data.s "oki", "kyo", "suzu", "fuji", "toku", "hondo", "to", "ta", "gyo", "iri", "omo", "musa", "mu", "kata", "hara", "ono", "waki", "tan", "hon"
Data.s "shin", "san", "ni", "go", "rok", "jui", "yama", "tama", "kote", "gaeshi", "nawa", "to", "kyo", "kyu", "ki", "jama", "tama", "gama", "musu"
Data.s "joto", "soto", "sama", "toshi", "gawa", "shi", "shu", "sho", "sha", "lan", "na", "ro", "kami", "sashi", "shin", "kuro", "kubi", "shime", "nagi"
Nameart8_1:
; anzahl 14
Data.s "B", "W", "Tsch", "Ch", "L", "P", "F", "H", "Sch", "Z", "M", "D", "X", "T"
Nameart8_2:
; anzahl 11
Data.s "i", "o", "u", "e", "ai", "ei", "au", "ej", "en", "an", "in"
Nameart8_3:
; anzahl 12
Data.s "jang", "chu", "ing", "ong", "ang", "jong", "jing", "cho", "chu", "tsi", "tsu", "tso"
Nameart9_1:
; anzahl 24
Data.s "Alpha", "Beta", "Gamma", "DElta", "Epsilon", "Zeta", "Eta", "Theta", "Jota", "Kappa", "Lambda", "My", "Ny", "Xi", "Omikron", "Pi", "Rho", "Sigma", "Tau"
Data.s "Phi", "Chi", "Psi", "Omega"
Nameart9_2:
; anzahl 51
Data.s "Prime", "Cygni", "Erina", "Carina", "Holo", "Dystera", "Tera", "Tauris", "Logon", "Nomo", "Arthos", "Laos", "Naos", "Uranos", "Stauros", "Hios", "Oinos", "Kairos", "Daimos"
Data.s "Philos", "Plutos", "Desmios", "Polemos", "Peri", "Hodos", "Dio", "Meta", "Pros", "Kata", "Dia", "Ploion", "Tzoon", "Dendron", "Kara", "Elaion", "Xylon", "Akoe", "Thyra"
Data.s "Telones", "Kalos", "Dikaios", "Axios", "Oro", "Limos", "Thesauros", "Kapnos", "Soteria", "Charisma", "Lailapos"
EndDataSection
;} Je nach übergebenem Parameter kommen verschiedene "namensarten" raus. (siehe Erklärung in der Prozedur).
Vielleicht kann es jemand gebrauchen.
[/code]
).
