Код :)

[IL]

//
// Превед.cpp : Defines the entry point for the console application.
//

#include <iostream>
#include <locale.h>

//------------------------------------------------------------------
// The PREVED Language Kernel area. Do not touch!

#if !defined (_MSC_VER) || _MSC_VER < 1400
#error Wrong compiler! Use MSVS 8.0
#endif

#define НАЧЕЛ      {
#define КОНЧЕЛ     ;}
#define ТИПА       int
#define ВДРУГ      if (
#define ТАДА       )
#define НИХРИНА    else
#define ВЗАД       return
#define КАГДИЛА    (
#define ЙО         ;
#define ЖЖОШ(p,n)  for (; (p) <= (n); (p)++)

#define БАЗАР      std::cout <<
#define СЛЫШЬ      <<
#define СТОЙ       system ("echo. & pause");
#define БЛИН       _wsetlocale (LC_ALL, L"Russian_Russia.ACP");

#define ВРОДЕ      try
#define ИБАНУЦЦО   throw
#define АПСТЕНУ    catch (const char* __чё__)

#define ПРЕВЕД     ТИПА main КАГДИЛА ТАДА
#define МЕДВЕД     ВЗАД 0; КОНЧЕЛ

// End of area
//------------------------------------------------------------------

ТИПА КРУТО КАГДИЛА ТИПА фигня ТАДА
    НАЧЕЛ
    БАЗАР "ВАЩЕ " ЙО
    ВДРУГ фигня == 8 ТАДА ИБАНУЦЦО "мля! " ЙО
    ВЗАД 0
    КОНЧЕЛ

ПРЕВЕД
    НАЧЕЛ
    БЛИН

    ВРОДЕ НАЧЕЛ

    ТИПА фишка = 0 ЙО

    ЖЖОШ (фишка, 10)
        НАЧЕЛ
        БАЗАР фишка СЛЫШЬ " ";
        ВДРУГ фишка >= 5 ТАДА КРУТО (фишка) ЙО
        КОНЧЕЛ

    КОНЧЕЛ АПСТЕНУ НАЧЕЛ
        БАЗАР "ИБАНУЦЦО invoked: " СЛЫШЬ __чё__;
    КОНЧЕЛ

    СТОЙ
    МЕДВЕД

[silentika]

может я уже сплю,но прикола не поняла

[Мерседес Индиго]

Кадр, просто кадр =-)))) гыыы

[Le_soleil]

может я уже сплю,но прикола не поняла

учите языки программирования, и будед вам смешно

[Hitokiri_Rid]

Бугага, отжег. Крута, зачтено!  ;--p

[Gastings]

прикол))) **здец, господа! 

[Recruit]

 [[laugh]] [[laugh]] [[laugh]]
Нет слофф..

[revarg]

учите языки программирования, и будед вам смешно

толька для вас Жюля

Под небом #99FFFF
Есть город #FFFF33
С opacity=0% воротами
И Ctrl+U, lightness +100 звездой."

gorod.cfg:1 @include sad.zip,
sad.zip:травы.jpg цветы.gif
Гуляют там жевотные.hint=
=Hевиданной красы

var animal1:=лев.hint=огнегривый:#FFFF00 as array;
var animal2:=вол.hint=исполненный очей;
add Жевотные [орел.hint=небесный:#FFFF33]
орел.взор.незабываемый.lightness=100

А в небе #99FFFF
sky.cfg:1 @include star.1 +a горит
Type star.1=твоя, "о ангел мой",
star.1 +a твоя 31.12.9999

If кто=любит then кто:=любим
If кто=светел then кто:=свят
LET star.path=Дорога в дивный сад

found several: лев.hint=огнегривый
вол.hint=исполненный очей:#0080FF
..
орел.hint=небесный:#FFFF33
орел.взор.незабываемый.lightness=100

[revarg]

прикол))) **здец, господа! 

а это вам мадам -

программистцкий рэп.

Program Party;

Uses Vine, Zakus, Condoms;

Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
Call(Friends);
Call(Girls);
End;{ Prepare }

Procedure Drinks;
Begin
Open(Bottles);
Repeat
Drink(Next(Gramms100));
Zakus:=Eat(Next(Foods));
Until TwoViewInEyes;
End;{ Drinks }

Procedure Dances;
Begin
Music:=True;
Call(OneGirl);
Go(DancingRoom);
With Music.Jump Do Begin
If Girl(Drink)>Normal(Drink) Then Begin
Touch(AssOfGirl);
Touch(BrestOfGirl);
End
Else Begin
Go(DrinkingRoom);
Let`s(Girl):=Drinks(More);
Return(DancingRoom);
End;
End;
End;{ Dances }

Procedure Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }


Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,OtherPartsOfBody);
Repeat
Asm
PUSH YourPenis
POP YourPenis
End;
Until YouHaveOrgasm;
Case HowMany of
Inc(HowMany);
If (HowMany mod 15 = 0) then Write('You are BIG man !!!');
Until YourPenisStay;
End;{ Fuck }

Begin { Party - Main Program }
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

[Le_soleil]

учите языки программирования, и будед вам смешно

толька для вас Жюля
 

такова язака я не знаю... не дадителе пару урокав?

[revarg]

такова язака я не знаю... не дадителе пару урокав?

лехко. точите свои переменные.. тока взамен абязуйтесь научить меня котаться на ролеках уже канец канцов

[Gastings]

прикол))) **здец, господа! 

а это вам мадам -

программистцкий рэп.

Program Party;

Uses Vine, Zakus, Condoms;

....................
Procedure Dances;
Begin
Music:=True;
Call(OneGirl);
Go(DancingRoom);
With Music.Jump Do Begin
If Girl(Drink)>Normal(Drink) Then Begin
Touch(AssOfGirl);
Touch(BrestOfGirl);
End
Else Begin
Go(DrinkingRoom);
Let`s(Girl):=Drinks(More);
Return(DancingRoom);
End;
End;
End;{ Dances }


Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,OtherPartsOfBody);
Repeat
Asm
PUSH YourPenis
POP YourPenis
End;
Until YouHaveOrgasm;
Case HowMany of
Inc(HowMany);
If (HowMany mod 15 = 0) then Write('You are BIG man !!!');
Until YourPenisStay;
End;{ Fuck }

Begin { Party - Main Program }
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

programm error!
udefined error. Please restart.

[revarg]

programm error!
udefined error. Please restart.

в смысли еще хочете?

[Gastings]

programm error!
udefined error. Please restart.

в смысли еще хочете?

в смысле данный программный продукт не совместим с имеющимися software & hardware

[revarg]

в смысле данный программный продукт не совместим с имеющимися software & hardware

не пора ле делать upgrade?

[Gastings]

не пора ле делать upgrade?

вы всегда подгоняете железо под неправильный софт?  [[0]]
проще прогу исправить))

[revarg]

вы всегда подгоняете железо под неправильный софт?  [[0]]
проще прогу исправить))

ну это смотря у ково какое железо и ково какой софт

[Мерседес Индиго]

ЖЖОТЕ ТАВАРИЩИ!!!

[Gastings]

ну это смотря у ково какое железо и ково какой софт

теоретически, ваш софт с моим железом совместим.. но вот практически..  :-\

алгоритм там неправильный!)))

Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl (!!!!!!!)Then Write('Are yor sodomite ??!'); // это как понимать? как ЭТО соотносится с имеюшимся железом??
Find(DarkRoom);
Close(Door);
Close(Windows);

[revarg]

теоретически, ваш софт с моим железом совместим.. но вот практически..  :-\

алгоритм там неправильный!)))

Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl (!!!!!!!)Then Write('Are yor sodomite ??!'); // это как понимать? как ЭТО соотносится с имеюшимся железом??
Find(DarkRoom);
Close(Door);
Close(Windows);

вы опять не поняле - железо у меня. а софт у вас. а теперь перечитайте этот же код уже исходя из мной только что до вас доведенного событея. есле понадобется помогу разжевать [[china]]