|
Полезные функции Выкладываем полезные функции, чтоб не изобретать велосипед заново... |
11.09.2010, 15:37
|
#16
|
Знающий
Регистрация: 28.07.2008
Адрес: Киев
Сообщений: 228
Написано 61 полезных сообщений (для 191 пользователей)
|
Ответ: Генератор имен
; Автор не отвечает за все нецензурные выражения которые могут сгенерироватся =)
|
У меня получилось:
господин: Вивал
леди: Папа
Не мешало бы прогонять еще сгенерированные имена через дополнительную функцию проверки на матерность
|
(Offline)
|
|
11.09.2010, 16:02
|
#17
|
Элита
Регистрация: 16.01.2008
Сообщений: 1,800
Написано 958 полезных сообщений (для 3,833 пользователей)
|
Ответ: Генератор имен
Ну если кому будет полезно - то можно будет и допилить генератор + встроить цензуру... Ток боюсь что уже рпгшки на блице делать мало кто будет =)
|
(Offline)
|
|
11.09.2010, 17:15
|
#18
|
Разработчик
Регистрация: 24.02.2010
Адрес: Новороссийск
Сообщений: 485
Написано 112 полезных сообщений (для 329 пользователей)
|
Ответ: Генератор имен
Смотрим аттач
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
11.09.2010, 17:25
|
#19
|
Элита
Регистрация: 16.01.2008
Сообщений: 1,800
Написано 958 полезных сообщений (для 3,833 пользователей)
|
Ответ: Генератор имен
Сообщение от DeeJex
Смотрим аттач
|
А почему из перечня имен нету господина Ебоуха?
|
(Offline)
|
|
21.09.2010, 01:18
|
#20
|
Нуждающийся
Регистрация: 27.08.2010
Адрес: Лен. область
Сообщений: 58
Написано 21 полезных сообщений (для 50 пользователей)
|
Ответ: Генератор имен
Как вам такой простой генератор фамилий?
Сделал год назад
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
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
21.09.2010, 01:43
|
#21
|
Элита
Регистрация: 16.01.2008
Сообщений: 1,800
Написано 958 полезных сообщений (для 3,833 пользователей)
|
Ответ: Генератор имен
Епико..да хотел бы я иметь такую фамилию.)
За гоу ту, гуру с элт монитором -копают ногами.)
Но в целом - нормально)
|
(Offline)
|
|
Эти 2 пользователя(ей) сказали Спасибо Dzirt за это полезное сообщение:
|
|
21.09.2010, 09:38
|
#22
|
Разработчик
Регистрация: 24.02.2010
Адрес: Новороссийск
Сообщений: 485
Написано 112 полезных сообщений (для 329 пользователей)
|
Ответ: Генератор имен
у меня получилось:
дикер
ебепонко
хересер
йибыко
писосач
пылохер
секасин (!)
ебычач
ебеко
хулиголов
ебелов (подозрительно много фамилий на ЕБ)
звучит некрасиво
|
(Offline)
|
|
Эти 7 пользователя(ей) сказали Спасибо DeeJex за это полезное сообщение:
|
|
21.09.2010, 13:20
|
#23
|
Бывалый
Регистрация: 10.06.2006
Сообщений: 808
Написано 354 полезных сообщений (для 832 пользователей)
|
Ответ: Генератор имен
пукко
ебимко
уринко
упососкин
педосунко
усоскин
тежелупов
ехыбико
хуйежико
орыгасов
ебалов
|
(Offline)
|
|
Эти 4 пользователя(ей) сказали Спасибо L.D.M.T. за это полезное сообщение:
|
|
21.09.2010, 15:34
|
#24
|
Элита
Регистрация: 16.01.2008
Сообщений: 1,800
Написано 958 полезных сообщений (для 3,833 пользователей)
|
Ответ: Генератор имен
это не генаратор имен,а источник ненормативной лексики.
|
(Offline)
|
|
Эти 9 пользователя(ей) сказали Спасибо Dzirt за это полезное сообщение:
|
|
22.09.2010, 00:25
|
#25
|
Нуждающийся
Регистрация: 27.08.2010
Адрес: Лен. область
Сообщений: 58
Написано 21 полезных сообщений (для 50 пользователей)
|
Ответ: Генератор имен
Спасибо за позитивные ответы...
Я так понял, кому что понравилось, то себе и выписали. В этом и есть принцип программы. На экран выводится несколько вариантов, а пользователь сам выбирает понравившиеся.
То что получаются матерные слова, оно и понятно, ведь никакого фильтра нецензуры тут нет. Мой косяк в том, что я не предупредил сразу
|
(Offline)
|
|
22.09.2010, 00:45
|
#26
|
Ференька
Регистрация: 26.01.2007
Адрес: улица Пушкина дом Колотушкина
Сообщений: 10,741
Написано 5,461 полезных сообщений (для 15,675 пользователей)
|
Ответ: Генератор имен
хакер(!)
уголов
йухко
жыдамамач
офигач
мочер
егосупов
фегач
водолов
жыжопыко
спасибо, повеселил
__________________
Мои проекты:
Анальное Рабство
Зелёный Слоник
Дмитрий Маслов*
Различие**
Клюква**
* — в стадии разработки
** — в стадии проектирования
Для проектов в стадии проектирования приведены кодовые имена
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 11:42.
|