forum.boolean.name - Генератор имен

forum.boolean.name (http://forum.boolean.name/index.php)

- Полезные функции (http://forum.boolean.name/forumdisplay.php?f=17)

- - Генератор имен (http://forum.boolean.name/showthread.php?t=13312)

Ответ: Генератор имен

Цитата:

; Автор не отвечает за все нецензурные выражения которые могут сгенерироватся =)

У меня получилось:
господин: Вивал
леди: Папа

Не мешало бы прогонять еще сгенерированные имена через дополнительную функцию проверки на матерность

Ответ: Генератор имен

Ну если кому будет полезно - то можно будет и допилить генератор + встроить цензуру... Ток боюсь что уже рпгшки на блице делать мало кто будет =)

Ответ: Генератор имен

Смотрим аттач :)

Ответ: Генератор имен

Цитата:

Сообщение от DeeJex (Сообщение 161659)

Смотрим аттач :)

А почему из перечня имен нету господина Ебоуха? :4to:

Ответ: Генератор имен

Как вам такой простой генератор фамилий? :)
Сделал год назад

Код:

AppTitle "genfam"



Global lenfam%,word$





SeedRnd MilliSecs()



font=LoadFont("Arial",15)

SetFont font



For nword=1 To 20

Color 255,255,255

word=""

lenfam=Rand(3,6)

g=Rand(0,1)



For i=1 To lenfam

g=1-g

.r

If g=1 Then a=Rand(8):g2=1 Else a=Rand(11,28):g2=0

If i=1 And a=3 Then Goto r

If i=1 And a=10 Then Goto r

If a=10 Then g=g-1

Select a

Case 1 word=word+"у"

Case 2 word=word+"е"

Case 3 word=word+"ы"

Case 4 word=word+"а"

Case 5 word=word+"о"

Case 6 word=word+"е"

Case 7 word=word+"о"

Case 8 word=word+"и"

;Case 9 word=word+"ю"

Case 10 word=word+"ь"

Case 11 word=word+"т"

Case 12 word=word+"к"

Case 13 word=word+"н"

Case 14 word=word+"г"

Case 15 word=word+"б"

Case 16 word=word+"й"

Case 17 word=word+"з"

Case 18 word=word+"х"

Case 19 word=word+"ф"

Case 20 word=word+"в"

Case 21 word=word+"п"

Case 22 word=word+"р"

Case 23 word=word+"л"

Case 24 word=word+"д"

Case 25 word=word+"ж"

Case 26 word=word+"ч"

Case 27 word=word+"с"

Case 28 word=word+"м"

;Case 29 word=word+"ц"

;Case 30 word=word+"ш"

;Case 31 word=word+"щ"

End Select

Next

If g2=1 Then endword=Rand(4) Else endword=Rand(5,10)

Select endword

Case 1 word=word+"скин"

Case 2 word=word+"лов"

Case 3 word=word+"ко"

Case 4 word=word+"нко"

Case 5 word=word+"ов"

Case 6 word=word+"ов"

Case 7 word=word+"ин"

Case 8 word=word+"ко"

Case 9 word=word+"ер"

Case 10 word=word+"ач"



End Select

Print word

Next

WaitKey()

End

Ответ: Генератор имен

Епико..да хотел бы я иметь такую фамилию.)

За гоу ту, гуру с элт монитором -копают ногами.)
Но в целом - нормально)

Ответ: Генератор имен

у меня получилось:
дикер
ебепонко
хересер
йибыко
писосач
пылохер
секасин (!)
ебычач
ебеко
хулиголов
ебелов (подозрительно много фамилий на ЕБ)

звучит некрасиво

Ответ: Генератор имен

пукко
ебимко
уринко
упососкин
педосунко
усоскин
тежелупов
ехыбико
хуйежико
орыгасов
ебалов

Ответ: Генератор имен

это не генаратор имен,а источник ненормативной лексики.

Ответ: Генератор имен

Спасибо за позитивные ответы...
Я так понял, кому что понравилось, то себе и выписали. В этом и есть принцип программы. На экран выводится несколько вариантов, а пользователь сам выбирает понравившиеся.
То что получаются матерные слова, оно и понятно, ведь никакого фильтра нецензуры тут нет. Мой косяк в том, что я не предупредил сразу

Ответ: Генератор имен

хакер(!)
уголов
йухко
жыдамамач
офигач
мочер
егосупов
фегач
водолов
жыжопыко

спасибо, повеселил :)