форум вебмастероff на AlfaSpace.NET

превед Анекдотнах;

амонявзядъ ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;

типапревед
ТэМойМедвед = хуле (ТэМедвед)
комрад
ПапаМедвед: ТэМедвед;
МамаМедвед: ТэМедвед;
бублиг
кагдила Родид(Папа, Мама: ТэМедвед);
кагдила Писец; папойвыдан;
кагдила Идинах(Куданах: ТэУрл); папойвыдан;
кончел;

кагдила ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
начел
ПапаМедвед:=Папа;
МамаМедвед:=Мама; // Пох шобзнал!
кончел;

кагдила ТэМойМедвед.Писец;
начел
Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
кончел;

// Пох карочи праграма

типа
моймедвед: ТэМойМедвед:
мужыг: ТэУчаснег;
тъйодка: ТэУчаснег;
лез: ТэЛез32;

начел
ёпт
лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьозы,трава,поляно]);
моймедвед:=ТэМойМедвед.Родид(livejournal,ru_preved);
// Пох низабаяниваимые канстанты!
моймедвед.Идинах(лез.Туданах('поляно'));
мужыг:=ТэУчаснег.Родид();
тъйодка:=ТэУчаснег.Родид();
лез.Вставить(мужыг,Туданах('поляно'));
лез.Вставить(тъйодка,Туданах('поляно'));
мужыг.Вставить(тъйодка);
ежели мужыг.Нивставляет тоды
начел
// Пох и здесь пидарасынах!
Ахтунг('У вас в системе неправельный мужыг, '+
'пастафьте себе пакет Учаснег-dev-2.1.11',
'Ахтунгбля',ИКОН_АХТУНГ);
бамбить;
кончел;
моймедвед.Идёд;
мужыг.Reposition; // Пох идинственая албанская команда в "Преведе"…
моймедвед.Подняд(моймедвед.Рука.Л);
моймедвед.Подняд(моймедвед.Рука.П);
моймедвед.Сказад('ПРЕВЕД!');
ухёпт
Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
'ваш камог кетайского праизводства… Смините моск!',
'Ужоснах',ИКОН_АХТУНГ);
кончел;
кончел. // Всёнах, писец

#фтыкай <ёстрим>
#фтыкай <дууст/перформанс.хпп> // типа иди учить дууст.орк

баян <типанейм Медвед, типанейм Учаснег> класс Превед: виртуал бублик Дууст::Перформанс<Учаснег>
{
превед:
Учаснег м,ж;
Медвед медвед;
бублиг:

Превед(Учаснег мужык, Учаснег тётка, Медвед м_медвед = Медвед()): м(мужык), ж(тётка), медвед(м_медвед)
{
ифф(!ж.пушбэк(м))
сру стд::экзепшн("Ахтунг! У вас в системе неправельный мужыг,пастафьте себе пакет Учаснег-dev-2.1.11");
}
~Превед();
};

<ПРВД>
<БАШКА>
<херувидеш менед-самтакой="шоце-таке" шоце="пысьмо/првд; штырлыц="форточка1251" />
<херувидеш атыкто="тыузнаешеёпо" шоце="превед,медвед,менед" />
<пшёлна кито="морда моя" куда="/держыморд.мрд" />
<пшёлна кито="комубабло" куда="менед://жжж.некразовд.гом/папамедвед.првд" />
<ахтунг>Премерр дакумента ПРВД</ахтунг>
</БАШКА>
<ВСЕТУТ>
<забор гиде="усиридин"><Ж><М><кросавчег какой="#МЕДВЕД" вес="36">Превед планед!</кросавчег></М></Ж></забор>
</ВСЕТУТ>
</ПРВД>

<дууст/перформанс.хпп>