|
>AbsurdopediaMovedTo Absurdopedia.Net |
| Строка 1: |
Строка 1: |
| '''Преве́дно-ориенти́рованный язы́к''' — специальный язык, используемый [[Падонки|падонками]] для обращения с молитвами к [[Превед|Великому Медведу]]. Впоследствии использован фирмами [[НекроСофт]] и [[Багланд]] для написания [[компьютер]]ных программ.
| | <noinclude><table cellpadding=0 cellspacing=0 style="border: 1px dotted black; border-left: none; position: absolute; z-index: 99;"><td valign=center width=1% style="background-color: #ff6060; color: #ffffff; font-family: Old English Text MT; font-size: 50px; font-weight: bold;" title="Уведомление"> ! </td><td style="padding: 23px 6px 20px 6px; font-size: 120%;"><b>Абсурдопедия переехала и теперь находится по адресу [[:pt:ru:Заглавная_страница|absurdopedia.net]].</b><br />См. [[:pt:ru:{{PAGENAME}}|http://absurdopedia.net/wiki/{{PAGENAME}}]]</td></table><hr /></noinclude> |
| | |
| Рекоммендован для всеобщего изучения [[Малый Медвед|Малым Медведом]].
| |
| | |
| == Пример программы == | |
| | |
| === Object Preved ===
| |
| | |
| '''превед''' Анегдоднах;
| |
|
| |
| '''амонявзядъ''' ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;
| |
|
| |
| '''типапревед'''
| |
| ТэМойМедвед = '''Я''' (ТэМедвед)
| |
| '''комрад'''
| |
| ПапаМедвед: ТэМедвед;
| |
| МамаМедвед: ТэМедвед;
| |
| '''бублиг'''
| |
| '''кагдила''' Родид(Папа, Мама: ТэМедвед);
| |
| '''кагдила''' Писец; '''папойвыдан''';
| |
| '''кагдила''' Идинах(Куданах: ТэУрл); '''папойвыдан''';
| |
| '''кончел''';
| |
|
| |
| '''кагдила''' ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
| |
| '''начел'''
| |
| ПапаМедвед:=Папа;
| |
| МамаМедвед:=Мама; ''// Пох шобзнал!''
| |
| '''кончел''';
| |
|
| |
| '''кагдила''' ТэМойМедвед.Писец;
| |
| '''начел'''
| |
| Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
| |
| '''кончел''';
| |
|
| |
| ''// Пох карочи праграма''
| |
|
| |
| '''типа'''
| |
| моймедвед: ТэМойМедвед:
| |
| мужыг: ТэУчаснег;
| |
| тъйодка: ТэУчаснег;
| |
| лез: ТэЛез32;
| |
|
| |
| '''начел'''
| |
| '''ёпт'''
| |
| лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьозы,трава,поляно]);
| |
| моймедвед:=ТэМойМедвед.Родид(livejournal,ru_preved);
| |
| ''// Пох низабаяниваимые канстанты!''
| |
| моймедвед.Идинах(лез.Туданах('поляно'));
| |
| мужыг:=ТэУчаснег.Родид();
| |
| тъйодка:=ТэУчаснег.Родид();
| |
| '''ежели''' мужыг===тъйодка '''тоды'''
| |
| '''начел'''
| |
| ''// Неправельный тъйодка, тъйодка=мужыг, медвед не может идти!''
| |
| пидар.всего++';
| |
| моймедвед.неИдёд';
| |
| тъйодка:=ТэУчаснег.Родид();
| |
| '''кончел''';
| |
| лез.Вставить(мужыг,Туданах('поляно'));
| |
| лез.Вставить(тъйодка,Туданах('поляно'));
| |
| мужыг.Вставить(тъйодка);
| |
| '''ежели''' мужыг.Нивставляет '''тоды'''
| |
| '''начел'''
| |
| ''// Пох и здесь пидарасынах!''
| |
| Ахтунг('У вас в системе неправельный мужыг, '+
| |
| 'пастафьте себе пакет Учаснег-dev-2.1.11',
| |
| 'Ахтунгбля',ИКОН_АХТУНГ);
| |
| '''бамбить''';
| |
| '''кончел''';
| |
| моймедвед.Идёд;
| |
| мужыг.Reposition; ''// Пох идинственая албанская команда в "Преведе"…''
| |
| моймедвед.Подняд(моймедвед.Рука.Л);
| |
| моймедвед.Подняд(моймедвед.Рука.П);
| |
| моймедвед.Сказад('ПРЕВЕД!');
| |
| '''ухёпт'''
| |
| Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
| |
| 'ваш камог кетайского праизводства… Смините моск!',
| |
| 'Ужоснах',ИКОН_АХТУНГ);
| |
| '''кончел''';
| |
| '''кончел'''. ''// Всёнах, писец''
| |
| | |
| === Preved++ ===
| |
| <pre><nowiki>
| |
| #фтыкай <ёстрим>
| |
| #фтыкай <дууст/перформанс.хпп> // типа иди учить дууст.орк
| |
| | |
| баян <типанейм Медвед, типанейм Учаснег> класс Превед: виртуал бублиг Дууст::Перформанс<Учаснег>
| |
| { | |
| превед:
| |
| Учаснег м,ж;
| |
| Медвед медвед;
| |
| бублиг:
| |
| | |
| Превед(Учаснег мужыг, Учаснег тётка, Медвед м_медвед = Медвед()): м(мужыг), ж(тётка), медвед(м_медвед)
| |
| {
| |
| ифф(!ж.пушбэк(м)) // если м нисмог впушбэк ж
| |
| сру стд::экзепшн("Ахтунг! У вас ф системе неправельный мужыг,пастафьте сибе пакед Учаснег-dev-2.1.11");
| |
| }
| |
| ~Превед();
| |
| }; | |
| | |
| </nowiki></pre>
| |
| | |
| === ПРВД и ЖабаСкрипт ===
| |
| <pre>
| |
| <ПРВД>
| |
| <БАШКА>
| |
| <херувидеш менед-самтакой="шоце-таке" шоце="пысьмо/првд; штырлыц="форточка1251" />
| |
| <херувидеш атыкто="тыузнаешеёпо" шоце="превед,медвед,менед" />
| |
| <пшёлна кито="морда моя" куда="/держыморд.мрд" />
| |
| <пшёлна кито="комубабло" куда="менед://жжж.некразовд.гом/папамедвед.првд" />
| |
| <?пох
| |
| какбе Ахтунг($Медвед)
| |
| {
| |
| есля $Медвед !== 'Превед' то $Медвед=$Ццуко
| |
| пиши '"$Ццуко" - идинах'
| |
| }
| |
| ?>
| |
| <ахтунг>Премерр дакумента ПРВД</ахтунг>
| |
| <скрипит кито="ЖабаСкрипт" гиде="гиде-то-там">
| |
| фунцыклируй пример_скрипения(шотаке)
| |
| {
| |
| есля(шотаке=='закачалась') паказать(дакумент.всё.ахтунг+' закачалась харашо и жаба скрипит тожа неплоха');
| |
| есля(шотаке=='нажал') дакумент.всё.первыйнах.напись="О,великий ПРЕВЕД!";
| |
| }
| |
| </скрипит>
| |
| </БАШКА>
| |
| <ВСЕТУТ наканец="пример_скрипения('закачалась')">
| |
| <забор гиде="усиридин"><Ж><М><кросавчег какой="#МЕДВЕД" вес="36">Превед планед!</кросавчег></М></Ж></забор>
| |
| <типун типа="батон" цыфирь="первыйнах" напись="нажми!" нажамшы="пример_скрипения('нажал')">
| |
| </ВСЕТУТ>
| |
| </ПРВД>
| |
| </pre>
| |
| | |
| == Ссылки ==
| |
| * [http://sizeof.livejournal.com/23169.html Полностью работающий код], NecroSoft Visual Medved 8 only
| |
| | |
| {{превед}}
| |
| | |
| [[Категория:Языки]]
| |