Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > Blitz3D > Полезные функции

Полезные функции Выкладываем полезные функции, чтоб не изобретать велосипед заново...

Ответ
 
Опции темы
Старый 11.09.2010, 11:37   #16
Spiderman
Знающий
 
Аватар для Spiderman
 
Регистрация: 28.07.2008
Адрес: Киев
Сообщений: 228
Написано 61 полезных сообщений
(для 191 пользователей)
Ответ: Генератор имен

; Автор не отвечает за все нецензурные выражения которые могут сгенерироватся =)
У меня получилось:
господин: Вивал
леди: Папа

Не мешало бы прогонять еще сгенерированные имена через дополнительную функцию проверки на матерность
(Offline)
 
Ответить с цитированием
Старый 11.09.2010, 12:02   #17
Dzirt
Элита
 
Аватар для Dzirt
 
Регистрация: 16.01.2008
Адрес: Украина
Сообщений: 1,800
Написано 958 полезных сообщений
(для 3,832 пользователей)
Ответ: Генератор имен

Ну если кому будет полезно - то можно будет и допилить генератор + встроить цензуру... Ток боюсь что уже рпгшки на блице делать мало кто будет =)
(Offline)
 
Ответить с цитированием
Старый 11.09.2010, 13:15   #18
DeeJex
Разработчик
 
Аватар для DeeJex
 
Регистрация: 24.02.2010
Адрес: Новороссийск
Сообщений: 485
Написано 112 полезных сообщений
(для 329 пользователей)
Ответ: Генератор имен

Смотрим аттач
Вложения
Тип файла: rar namegen.rar (3.9 Кб, 177 просмотров)
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Dzirt (11.09.2010)
Старый 11.09.2010, 13:25   #19
Dzirt
Элита
 
Аватар для Dzirt
 
Регистрация: 16.01.2008
Адрес: Украина
Сообщений: 1,800
Написано 958 полезных сообщений
(для 3,832 пользователей)
Ответ: Генератор имен

Сообщение от DeeJex Посмотреть сообщение
Смотрим аттач
А почему из перечня имен нету господина Ебоуха?
(Offline)
 
Ответить с цитированием
Старый 20.09.2010, 21:18   #20
Kudesnic
Нуждающийся
 
Аватар для Kudesnic
 
Регистрация: 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)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Dzirt (20.09.2010)
Старый 20.09.2010, 21:43   #21
Dzirt
Элита
 
Аватар для Dzirt
 
Регистрация: 16.01.2008
Адрес: Украина
Сообщений: 1,800
Написано 958 полезных сообщений
(для 3,832 пользователей)
Ответ: Генератор имен

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

За гоу ту, гуру с элт монитором -копают ногами.)
Но в целом - нормально)
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо Dzirt за это полезное сообщение:
impersonalis (21.09.2010), Randomize (21.09.2010)
Старый 21.09.2010, 05:38   #22
DeeJex
Разработчик
 
Аватар для DeeJex
 
Регистрация: 24.02.2010
Адрес: Новороссийск
Сообщений: 485
Написано 112 полезных сообщений
(для 329 пользователей)
Ответ: Генератор имен

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

звучит некрасиво
(Offline)
 
Ответить с цитированием
Эти 7 пользователя(ей) сказали Спасибо DeeJex за это полезное сообщение:
ABTOMAT (21.09.2010), den (22.01.2011), Harter (23.09.2010), IgorOK (22.09.2010), impersonalis (21.09.2010), Randomize (21.09.2010), Жека (21.09.2010)
Старый 21.09.2010, 09:20   #23
L.D.M.T.
Бывалый
 
Аватар для L.D.M.T.
 
Регистрация: 09.06.2006
Сообщений: 808
Написано 354 полезных сообщений
(для 832 пользователей)
Ответ: Генератор имен

пукко
ебимко
уринко
упососкин
педосунко
усоскин
тежелупов
ехыбико
хуйежико
орыгасов
ебалов
__________________
Per Aspera Ad Astra...
(Offline)
 
Ответить с цитированием
Эти 4 пользователя(ей) сказали Спасибо L.D.M.T. за это полезное сообщение:
Harter (23.09.2010), impersonalis (21.09.2010), Randomize (21.09.2010), Жека (21.09.2010)
Старый 21.09.2010, 11:34   #24
Dzirt
Элита
 
Аватар для Dzirt
 
Регистрация: 16.01.2008
Адрес: Украина
Сообщений: 1,800
Написано 958 полезных сообщений
(для 3,832 пользователей)
Ответ: Генератор имен

это не генаратор имен,а источник ненормативной лексики.
(Offline)
 
Ответить с цитированием
Эти 9 пользователя(ей) сказали Спасибо Dzirt за это полезное сообщение:
ABTOMAT (21.09.2010), den (21.09.2010), Harter (23.09.2010), IgorOK (22.09.2010), impersonalis (21.09.2010), Nex (21.09.2010), Randomize (21.09.2010), Reks888 (21.09.2010), Жека (21.09.2010)
Старый 21.09.2010, 20:25   #25
Kudesnic
Нуждающийся
 
Аватар для Kudesnic
 
Регистрация: 27.08.2010
Адрес: Лен. область
Сообщений: 58
Написано 21 полезных сообщений
(для 50 пользователей)
Ответ: Генератор имен

Спасибо за позитивные ответы...
Я так понял, кому что понравилось, то себе и выписали. В этом и есть принцип программы. На экран выводится несколько вариантов, а пользователь сам выбирает понравившиеся.
То что получаются матерные слова, оно и понятно, ведь никакого фильтра нецензуры тут нет. Мой косяк в том, что я не предупредил сразу
(Offline)
 
Ответить с цитированием
Старый 21.09.2010, 20:45   #26
ABTOMAT
Ференька
 
Аватар для ABTOMAT
 
Регистрация: 25.01.2007
Адрес: улица Пушкина дом Колотушкина
Сообщений: 10,443
Написано 5,270 полезных сообщений
(для 15,229 пользователей)
Ответ: Генератор имен

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

спасибо, повеселил
__________________
Мои проекты:
Анальное Рабство
Зелёный Слоник
Дмитрий Маслов*
Различие**
Клюква**

* — в стадии разработки
** — в стадии проектирования
Для проектов в стадии проектирования приведены кодовые имена

(Online)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
impersonalis (21.09.2010)
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 11:51.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com