Показать сообщение отдельно
Старый 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)