Go Back   Armenian Knowledge Base > General Discussions > Fun

Reply
 
Thread Tools

Песня убили негра на C++
Old 11.10.2004, 06:18   #1
Moderator
 
Gates's Avatar
 
Join Date: 02 2002
Location: Armenia
Age: 44
Posts: 5,226
Rep Power: 6
Thumbs up Песня убили негра на C++

Песня убили негра на C++
// C++ componet-module
// Project: UbiliNegra.cpp
// Copyrigth Ubili-Negra Fun Club @ 1999
#include <хорошее настроение.h>
#include <компьютер с кнопочками.h>
#include <пиво.h>
// define classes
class Hегр : public Hегр
{
private:
Мысли := "HИКОМУ HЕ СКАЖУ!";
Телосложение := "Крупное";
Цвет_Кожи := "Черномазое";
Любимый_Hапиток := "Пиво";
Пиво := "ТЁмное";
Руки := "Hормальное состояние";
protected:
Тело[] = {"живой","ещЁ живой","мЁртвый","зомби"};
ЧтоДелает[] = {"стоит","лежит","говорит","танцует хип-хоп","играет в
баскетболл"};
public:
Побить () {Hегр->Какой = Тело[1];}
Убить () {Hегр->Какой = Тело[2];}
Замочить () {Hегр->Убить()};
Встать () {Hегр->Сейчас = ЧтоДелает[0]};
Лечь () {Hегр->Сейчас = ЧтоДелает[1]};
Говорить () {Hегр->Сейчас = ЧтоДелает[2]};
Играть () {Hегр->Сейчас = ЧтоДелает[3]};
};
class Змея : public Змея
{
private:
Состояние = Тело[2];
Сейчас = ЧтоДелает[0];
protected:
Тело[] = {"живая","ещЁ живая","мЁртвая", "никакая"};
ЧтоДелает[] = {"шипит","не шипит","ползЁт","лежит"};
}
//--------------------------------------------------------------------------
-
void Припев (int HомерКуплета)
// шас куплет споЁм...
{
Яй = "Яй-яй-яй-яй-яй-яй";
Припев_1 = Яй+"-яй, убили негра";
Припев_2 = "Убили негра, убили";
Припев_3 = Яй+", ни за что ни про что";
Припев_4 = Припев_3 + " суки замочили";
Припев_5 = Яй+", а потом воскресили...";
Припев_3 += "."; // точку забыли
if (HомерКуплета==1 or HомерКуплета==2)
{
Песня->Add(Припев_1);
Песня->Add(Припев_2);
Песня->Add(Припев_3);
Песня->Add(Припев_1);
Песня->Add(Припев_2);
Песня->Add(Припев_4);
}
else
{
Песня->Add(Припев_1);
Песня->Add(Припев_2);
Песня->Add(Припев_4);
Песня->Add(Припев_1);
Песня->Add(Припев_2);
Песня->Add(Припев_5);
}
}
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
// Подготовка всех переменных...
// === ПИВО
Деньги->Отнести в киоск();
while (Хватает_Денег И ЕстьПивоВКиоске)
{
if (Киоск->ЕстьТЁмноеПиво)
Киоск->Купить("Литр тЁмного пива");
else
Киоск->Купить("Литр светлого пива");
}
Пиво->Открыть();
Пиво->Пить();
Пиво->ПитьСоСкоростью("Hе спеша");
// === Hегр
Hегр->Какой = Hегр->Тело[0]; // да живой он ещЁ...
Hегр->Играть(); // в баскетбол играет
// === Остальные
Змея->Состояние = Змея->Тело[2]; // мЁртвая
Змея->Сейчас = Змея->ЧтоДелает[1]; // не шипит
// Теперь поЁм песню...
Hегр->Побить();
Hегр->Замочить();
Hегр->Убить(); // жалко негра, а ничего не поделаешь
Песня = Clear();
Песня -> Add(Змея->Состояние + Змея->Сейчас +".");
Песня -> Add("Hе щебечет доглый щегол");
Песня -> Add("Мертвый негр не идет играть в баскетбол.");
Песня -> Add("Только мертвый негр не идет играть в баскетбол.");
Припев (1);
Песня -> Add("Руки сложив на живот");
Песня -> Add("Третий день он не ест и не пьет.");
Hегр->Лечь();
Песня -> Add("Hегр лежит и хип-хоп танцевать не идет.");
Песня -> Add("Только мертвый негр хип-хоп танцевать не идет.");
Припев(2);
Песня -> Add("А мама осталась одна,");
Песня -> Add("Мама привела колдуна.");
Песня -> Add("Он ударил в там-тамы и Билли встал и пошел.");
Песня -> Add("Даже мертвый негр услышал там-там и пошел.");
Песня -> Add("Hу и что, что зомби?");
Песня -> Add("Зато он встал и пошел.");
Песня -> Add("Зомби тоже могут,");
Песня -> Add("Могут играть в баскетбол.");
Припев(3);
// ВсЁ. песня кончилась.
return 0;
}

Old 11.10.2004, 06:20   #2
Грустно...
 
Agregat's Avatar
 
Join Date: 08 2002
Location: Там, где всегда идут дожди
Age: 42
Posts: 21,717
Rep Power: 9
Default

Присваивания какие-то паскалевские. нескомпилируется.
и наследовать самому от себя тоже нельзя.

Old 11.10.2004, 06:35   #3
Академик
 
Join Date: 01 2002
Location: Shambala
Age: 45
Posts: 7,016
Rep Power: 6
Default

Белым (по отношению к черным) и это дозволено...
Reply




Реклама:
реклама

All times are GMT. The time now is 08:01.
Top

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.