| Wortgenerator von / df / / 3 / / opi / adgjbeaf / / voll / aeiouLMS / lljjjztfr / zhsdfdvetg / sievglo / pro / pro / e / nesse / hdshdfgh / |
| das ist ein einfacher wortgenerator der vielleicht mal über eine phantasielose phase hinweghelfen kann :) prinzip ist einfach, es wird untersucht welche buchstaben nach welchen folgen und daraus dann ein neues wort gebildet. kann man sicher noch verbessern, qualität (und klanglaut) der generierten wörter hängt sehr stark von der qualität und sprache (!) der zeichenkette ab mit der man den generator füttert [code:1:9cc6fca8ee] ; Wordgenerator ; by Netzman 2003 ; http://www.netzman.net ; matthias@braunecker.at ; credits erwünscht, GNU GPL Graphics 300, 600, 0, 2 SeedRnd MilliSecs() Dim Charlist$(255) Global WordList$ AddToCharList "deralgoritahemusadaptiertemehoroderiwenigererkenbaradenostiludiespirachederavorgegebenenewortsamlungemanasolteinumalomitenglischenudeutschenundandersprachigenostringsexperimentierenauchauscholieslichefachbegrifederonamenakoeneninteresantesein" SaveListToFile "list1.lst" LoadListFromFile "list1.lst" For i = 0 To 9 Print MakeName$(4, 12) Next DelCharList Print "------------" AddToCharList "nicolestrahlteundliefwiederzuakiundbekowaswolltensiefragteakineugierigachnurwiederdierotkäppchengeschichtegleichseidihrbestimmtdrannicoledeckteeineweiterekarteaufundlegtesietriumnphierendaufeinevonakiskartenakischütteltedenkopfdukannstkeineomegaaufeinedreifachportalelegensolangedunochoffenejofranshast" SaveListToFile "list2.lst" LoadListFromFile "list2.lst" For i = 0 To 9 Print MakeName$(4, 12) Next DelCharList Print "------------" AddToCharList "nowwinternightsenlargethenumberoftheirhoursandcloudstheirstormsdischargeupontheairytowersletnowthechimneysblazeandcupsoerflowwithwineletwelltunedwordsamazewithharmonydivinenowyellowwaxenlightsshallwaitonhoneylovewhileyouthfulrevelsmasquesandcourtlysightssleepsleadenspellsremove" SaveListToFile "list3.lst" LoadListFromFile "list3.lst" For i = 0 To 9 Print MakeName$(4, 12) Next DelCharList WaitKey End Function AddToCharList(chars$) WordList$ = WordList$ + chars$ For i = 2 To Len(chars$) cur_char$ = Mid$(chars$, i - 1, 1) char$ = Mid$(chars$, i, 1) CharList$(Asc(cur_char$)) = CharList$(Asc(cur_char$)) + char$ Next End Function Function SaveListToFile(file$) file = WriteFile(file$) For i = 0 To 255 WriteLine file, CharList$(i) Next CloseFile file End Function Function LoadListFromFile(file$) file = ReadFile(file$) For i = 0 To 255 CharList$(i) = ReadLine(file) Next End Function Function MakeName$(min, max) Length = Rand(min, max) chars$ = Mid$(WordList$, Rand(Len(WordList$)), 1) For i = 2 To Length ;If Nextchar$ = Mid$(CharList$(Asc(Right$(chars$, 1))), Rand(1, Len(CharList$(Asc(Right$(chars$, 1))))), 1) chars$ = chars$ + Nextchar$ Next Return chars$ End Function Function DelCharList() For i = 0 To 255 CharList$(i) = "" Next WordList$ = "" End Function [/code:1:9cc6fca8ee] |
| von ??? |
| lol :) |
| von |
| lol |
| von ??? |
| cool, was ich alles gepostet habe :wink: |