Как форум по компьютерным играм помогает решать конфликты без крика и ссор 
25 трогательных фотографий Ивоны Подласиньска, показывающие волшебство общения 
Девчонки, с праздником! 
О провале за провалом Денежки заканчиваются? 
"Дополнительные 100% тарифы будут наложены на канадское рапсовое масло, жмых и 
Простое счастье в Москве 
В Поливановке Саратовской области открыли новую поликлинику 
25 марта ● "День работника культуры России" и не только... 
Колонна автомобильного подразделения ВВС Вот же чудо! Мама моя за 10 дней похудела на 3 кг. Для меня это шокирующе быстро. Она всего лишь питается у меня дома. Разрешаю ей есть всё из холодильника, который, кстати, полный. И хлеб конечно тоже можно, только он немного особенный. Мама говорит, что насыщается, даже очень. И всё ...
Автозаполнение трибуны
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
Сохранено
|
|
</> |
Автозаполнение трибуны
Оставить комментарий
Популярные посты:
Архив записей в блогах:
Лицемерие, лицемерие… Кругом одно лицемерие…
Что важнее – форма или содержание? Большинство хором гаркнет – содержание! Остальные попытаются что-то пролепетать на тему того, что содержание определяет форму, а форма влияет на содержание. Однако, чисто инстинктивно, люди все же главной с ...
1 2 3 4 5 6 7 8 9 10 Предыдущий выпуск Если хотите, можете проголосовать за понравившиеся картинки: View Poll: #1985905 ...
Первую значимую роль Круз получил в фильме “Рискованный бизнес” (1983). Том Круз и Ребекка Де Морнэй в этом фильме (в Чикаго поезда метро ходят и глубокой ночью, что даёт возможность заниматься в них...всяким) : Джоэл Гудсон — старшеклассник, живущий с родителями в эксклюзивном ...
Наверное многие из вас замечали во время перелетов, что время от времени бортпроводники общаются между собой при помощи определенного набора жестов, четко понятногр им самим и, как правило, мало понятного пассажирам. Действительно, у многих крупных авиакомпаний есть свой, если хотите, ...
