PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Namengenerator

https://www.purebasic.fr/german/viewtopic.php?t=1048

Seite 1 von 3

Namengenerator

Verfasst: 29.11.2004 09:58
von Dostej
Ich habe für ein Spiel einen Namensgenerator gebraucht. Die ich bisher gefunden habe, haben mich nicht so richtig begeistert.
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]

Verfasst: 29.11.2004 21:01
von Heroglyph
Hehe, geil.
Sowas hab ich auch schon mal gemacht (damals noch in TP :)).

Verfasst: 02.12.2004 03:27
von Kaeru Gaman
also, 37 mal restore und read finde ich nich so glücklich.
ich würde das zu beginn in arrays einlesen. :roll:

den rest des kommentars spar ich mir, sonst kommt noch einer drauf, dass ich heut nen schlechten tag hab. :?

[edit 3.12. 17:00]
sorry für den tonfall, hatte wirklich nen schlechten tag

Naja

Verfasst: 02.12.2004 03:38
von Hroudtwolf
Trotz der hierbei entstehenden Wortklänge..........
Kein Araber oder Hebräer etc. würde bei diesem Programm einen
Namen aus seiner Sprache erkennen.


Aber trotzdem......

Dabeisein ist alles ;-)

Verfasst: 03.12.2004 16:12
von Dostej
Naja, es soll ja nciht arabisch (oder english, grieichisch etc) SEIN, sondern so so AEHNLICH KLINGEN. Und das tut es doch irgendwie... oder?

Ätsch

Verfasst: 03.12.2004 17:00
von Hroudtwolf
Hast ja recht !
Wollte dich nur ärgern........ :lol:

Klingt übrigens wirklich ganz lustig !

Verfasst: 03.12.2004 17:10
von freedimension
Hebräisch ist eine vokallose Schriftsprache.

Verfasst: 03.12.2004 17:57
von Kaeru Gaman
richtig: schriftsprache.

wenn man sie in westlichen buchstaben wiedergibt, muss man ganz normal die vokale einsetzen.

ausserdem werden seit langem den zeichen aus der babylonischen quadratschrift die vokal-punktierungen beigestellt.

was btw. der grund ist, warum die aussprache des gottesnahmen in vergessenheit geraten ist: man hatte dem tetragrammaton (JHWH) die vokalisierungspunkte von adonai (Herr) beigestellt, um den leser daran zu erinnern, das gottes name zu heilig sei um ausgesprochen zu werden.

doch wie gasagt, dies nur btw.

Verfasst: 03.12.2004 20:46
von Rob
Er hat Jhwh gesagt! Steinigt ihn!!

Verfasst: 04.12.2004 01:49
von Kaeru Gaman
yo, greetings from brian :wink:
Alle Zeiten sind UTC+02:00
Seite 1 von 3

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de