Электростальский форум
Болтовня => Юмор => Тема начата: IL от 08.09.06, 23:57:05
-
//
// Превед.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: " СЛЫШЬ __чё__;
КОНЧЕЛ
СТОЙ
МЕДВЕД
-
может я уже сплю,но прикола не поняла
-
Кадр, просто кадр =-)))) гыыы
-
может я уже сплю,но прикола не поняла
учите языки программирования, и будед вам смешно
-
Бугага, отжег. Крута, зачтено! ;--p
-
прикол))) **здец, господа! ;D
-
[[laugh]] [[laugh]] [[laugh]]
Нет слофф..
-
учите языки программирования, и будед вам смешно
толька для вас Жюля
Под небом #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
-
прикол))) **здец, господа! ;D
а это вам мадам -
программистцкий рэп.
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 }
-
учите языки программирования, и будед вам смешно
толька для вас Жюля
такова язака я не знаю... не дадителе пару урокав?
-
такова язака я не знаю... не дадителе пару урокав?
лехко. точите свои переменные.. тока взамен абязуйтесь научить меня котаться на ролеках уже канец канцов
-
прикол))) **здец, господа! ;D
а это вам мадам -
программистцкий рэп.
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.
-
programm error!
udefined error. Please restart.
в смысли еще хочете?
-
programm error!
udefined error. Please restart.
в смысли еще хочете?
в смысле данный программный продукт не совместим с имеющимися software & hardware
-
в смысле данный программный продукт не совместим с имеющимися software & hardware
не пора ле делать upgrade?
-
не пора ле делать upgrade?
вы всегда подгоняете железо под неправильный софт? [[0]]
проще прогу исправить))
-
вы всегда подгоняете железо под неправильный софт? [[0]]
проще прогу исправить))
ну это смотря у ково какое железо и ково какой софт
-
ЖЖОТЕ ТАВАРИЩИ!!!
-
ну это смотря у ково какое железо и ково какой софт
теоретически, ваш софт с моим железом совместим.. но вот практически.. :-\
алгоритм там неправильный!)))
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl (!!!!!!!)Then Write('Are yor sodomite ??!'); // это как понимать? как ЭТО соотносится с имеюшимся железом??
Find(DarkRoom);
Close(Door);
Close(Windows);
-
теоретически, ваш софт с моим железом совместим.. но вот практически.. :-\
алгоритм там неправильный!)))
Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl (!!!!!!!)Then Write('Are yor sodomite ??!'); // это как понимать? как ЭТО соотносится с имеюшимся железом??
Find(DarkRoom);
Close(Door);
Close(Windows);
вы опять не поняле - железо у меня. а софт у вас. а теперь перечитайте этот же код уже исходя из мной только что до вас доведенного событея. есле понадобется помогу разжевать [[china]]
-
вы опять не поняле - железо у меня. а софт у вас. а теперь перечитайте этот же код уже исходя из мной только что до вас доведенного событея. есле понадобется помогу разжевать [[china]]
нее.. не нада мне разжовывать.. [[dunce]]
данный софт вы предложили мне! нет? [[mellow]]
ну уж если вам таак хочица, то применяйте иво к себе ;D
-
ну уж если вам таак хочица, то применяйте иво к себе ;D
т.э. другиме словаме предлагаите переменную Girl заменить на переменную graver, а процедуру Fuck на процедуру Masturbation ? (http://forum.ihope.ru/images/smilies/jump.gif)
-
т.э. другиме словаме предлагаите переменную Girl заменить на переменную graver, а процедуру Fuck на процедуру Masturbation ? (http://forum.ihope.ru/images/smilies/jump.gif)
охх.. сложно с вами общаца..
заметьте, это не я предложила))
как раз алгоритм процедуры Fuck Вам идеально подходит! [[rolleyes]]
-
как раз алгоритм процедуры Fuck Вам идеально подходит! [[rolleyes]]
и эта са мной сложна общатса...? (http://forum.ihope.ru/images/smilies/eat1.gif) вам чо не предложешь - вы от всево отказываитесь... :}
-
и эта са мной сложна общатса...? (http://forum.ihope.ru/images/smilies/eat1.gif) вам чо не предложешь - вы от всево отказываитесь... :}
не то предлагаешь ;D
-
не то предлагаешь ;D
а пойдемте тогда купацо (http://forum.ihope.ru/images/smilies/bounce.gif)
-
а пойдемте тогда купацо (http://forum.ihope.ru/images/smilies/bounce.gif)
ваще! хватит флудить!.. купаца ему...
-
Жжоте красавчеги!
-
какаято калиберда, понял тока что что то смешное .... но вне рамках моего осазнания -wall-
-
какаято калиберда, понял тока что что то смешное .... но вне рамках моего осазнания -wall-
чужой код - потёмки (с) Бил Ггейтцс [[mask]]
-
Гы, преклольна.
Аднаво нипонил: дифчонок пежим или нет? Или "С++ для кретинаф" четаем фслух?
-
Гы, преклольна.
Аднаво нипонил: дифчонок пежим или нет? Или "С++ для кретинаф" четаем фслух?
это называеца "совмещаем приятное с полезным"
-
эта не си++ эта превед++ [[devilish]]
-
CPU not found. Начинаю эмуляцию [[freak]]
-
CPU not found. Начинаю эмуляцию [[freak]]
типо лучше поздно чем никогда? ;D
-
типо лучше поздно чем никогда? ;D
[/quote]
Да видимо, уж поздно...