Преведно-ориентированный язык: различия между версиями

← Предыдущая правка

@@ Строка 1: / Строка 1: @@
-'''Преве́дно-ориенти́рованный язы́к''' — специальный язык, используемый [[Падонки|падонками]] для обращения с молитвами к [[Превед|Великому Медведу]]. Впоследствии использован фирмами [[НекроСофт]] и [[Багланд]] для написания [[компьютер]]ных программ.
+'''Преве́дно-ориенти́рованный язы́к''' — специальный язык, используемый [[Падонки|падонками]] для обращения с молитвами к [[Превед|Великому Медведу]]. Впоследствии использован фирмами [[НекроСофт]] и [[Багланд]] для написания [[компьютер]]ных программ.
 Рекоммендован для всеобщего изучения [[Малый Медвед|Малым Медведом]].
 == Пример программы ==
 === Object Preved ===
-  '''превед''' Анекдотнах;
+  '''превед''' Анегдоднах;
   '''амонявзядъ''' ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;
   '''типапревед'''
-     ТэМойМедвед = '''хули''' (ТэМедвед)
+     ТэМойМедвед = '''Я''' (ТэМедвед)
      '''комрад'''
         ПапаМедвед: ТэМедвед;
@@ Строка 48: / Строка 49: @@
         мужыг:=ТэУчаснег.Родид();
         тъйодка:=ТэУчаснег.Родид();
+      '''ежели''' мужыг===тъйодка '''тоды'''
+       '''начел'''
+          ''// Неправельный тъйодка, тъйодка=мужыг, медвед не может идти!''
+            пидар.всего++';
+            моймедвед.неИдёд';
+            тъйодка:=ТэУчаснег.Родид();
+       '''кончел''';
         лез.Вставить(мужыг,Туданах('поляно'));
         лез.Вставить(тъйодка,Туданах('поляно'));
@@ Строка 76: / Строка 84: @@
 #фтыкай <дууст/перформанс.хпп> // типа иди учить дууст.орк
-баян <типанейм Медвед, типанейм Учаснег> класс Превед: виртуал бублик Дууст::Перформанс<Учаснег>
+баян <типанейм Медвед, типанейм Учаснег> класс Превед: виртуал бублиг Дууст::Перформанс<Учаснег>
 {
 превед:
@@ Строка 83: / Строка 91: @@
 бублиг:
-   Превед(Учаснег мужык, Учаснег тётка, Медвед м_медвед = Медвед()): м(мужык), ж(тётка), медвед(м_медвед)
+   Превед(Учаснег мужыг, Учаснег тётка, Медвед м_медвед = Медвед()): м(мужыг), ж(тётка), медвед(м_медвед)
    {
-      ифф(!ж.пушбэк(м)) // если м не смог пушбэк в ж
+      ифф(!ж.пушбэк(м)) // если м нисмог впушбэк ж
-          сру стд::экзепшн("Ахтунг! У вас в системе неправельный мужыг,пастафьте себе пакет Учаснег-dev-2.1.11");
+          сру стд::экзепшн("Ахтунг! У вас ф системе неправельный мужыг,пастафьте сибе пакед Учаснег-dev-2.1.11");
    }
    ~Превед();
@@ Строка 93: / Строка 101: @@
 </nowiki></pre>
-===ПРВД===
+=== ПРВД и ЖабаСкрипт ===
-<pre><nowiki>
+<pre>
- <ПРВД>
+<ПРВД>
   <БАШКА>
 	<херувидеш менед-самтакой="шоце-таке" шоце="пысьмо/првд;  штырлыц="форточка1251" />
@@ Строка 101: / Строка 109: @@
 	<пшёлна кито="морда моя" куда="/держыморд.мрд" />
 	<пшёлна кито="комубабло" куда="менед://жжж.некразовд.гом/папамедвед.првд" />
+        <?пох
+        какбе Ахтунг($Медвед)
+         {
+        есля $Медвед !== 'Превед' то $Медвед=$Ццуко
+        пиши '"$Ццуко" - идинах'
+         }
+        ?>
 	<ахтунг>Премерр дакумента ПРВД</ахтунг>
+	<скрипит кито="ЖабаСкрипт" гиде="гиде-то-там">
+	 фунцыклируй пример_скрипения(шотаке)
+	  {
+	   есля(шотаке=='закачалась') паказать(дакумент.всё.ахтунг+' закачалась харашо и жаба скрипит тожа неплоха');
+	   есля(шотаке=='нажал') дакумент.всё.первыйнах.напись="О,великий ПРЕВЕД!";
+	  }
+	</скрипит>
   </БАШКА>
-  <ВСЕТУТ>
+  <ВСЕТУТ наканец="пример_скрипения('закачалась')">
 	<забор гиде="усиридин"><Ж><М><кросавчег какой="#МЕДВЕД" вес="36">Превед планед!</кросавчег></М></Ж></забор>
+        <типун типа="батон" цыфирь="первыйнах" напись="нажми!" нажамшы="пример_скрипения('нажал')">
   </ВСЕТУТ>
   </ПРВД>
-</nowiki></pre>
+</pre>
 == Ссылки ==