Преведно-ориентированный язык

**Преве́дно-ориенти́рованный язы́к**  — специальный язык, используемый падонками для обращения с молитвами к Великому Медведу. Впоследствии использован фирмами НекроСофт и Багланд для написания компьютерных программ.

Рекоммендован для всеобщего изучения Малым Медведом.

## Пример программы

### Object Preved

 **превед**  Анегдоднах;

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

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

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

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

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

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

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

### Preved++

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

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

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

### ПРВД и ЖабаСкрипт

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

## Ссылки

- Полностью работающий код, NecroSoft Visual Medved 8 only