Автозаполнение трибуны

grandizverg — 07.08.2010

sub BlogAutoFill(blog CurrBlog)

Post newpost

Int BlogNumber=CurrBlog.Number

Case BlogNumber mod 10

Case 1, 2, 3, 4, 5, 7, 8, 9

CurrBlog.NewPost(newpost)

newpost.Title = TitleGenerator (′Зенит′, ′Звенит′, ′Газпром′, ′Питер′)

If (CurrBlog.Author.City = ′Санкт-Петербург′) Then

newpost.Text = TextGenerator (′Деньги спонсора, а не государства′, ′Профессионализм′, ′Великий Тренер′, ′ Лузеры′, ′Играть не умеете′, ′Завидуйте′, ′Чемпион′, ′Че этим дуракам объяснять′, ′Грамотная трансферная политика′, ′ Великий клуб′, ′Европейский суперклуб′, ′Эффективный менеджмент′, ′Разорались′, ′Сами-то′)

Else

newpost.Text = TextGenerator(′ГВК′, ′Фурсенко′, ′Административный ресурс′, ′Скупка всех подряд′, ′Народные деньги′, ′А в Африке голодают′, ′Денежная бочка′, ′ Правительство ох...′, ′ Застой′, ′Апокалипсис′, ′А когда денежный пузырь лопнет′)

End If

Case 6

CurrBlog.NewPost(newpost)

newpost.Title = TitleGenerator(′Реал′, ′Галактикос′, ′сливочные′, ′Королевский клуб′)

newpost.Text = TextGenerator(′Свежие мысли′, ′5 опорников′, ′2 места на поле′, ′Гаго и Алонсо′, ′Алонсо и Хедира′, ′Хедира и Ласс′, ′Ласс и Алонсо′, ′Алонсо и Мамаду Диарра′, ′ДиМария в основе′, ′ПедроЛеон в основе′)

End Select

If (CurrBlogNumber < Tribuna.NumberOfBlogs) Then BlogAutoFill(Blog(CurrBlog.Number+1))

End Sub

Оставить комментарий

Популярные посты:

sabinus

Резиновая плитка от Altra Tyres: характеристики, плюсы и сферы применения

• Архив