Скачать: CL | DM;

Программка :-)   Найти похожие ветки 

← →
Санёк ©   (2002-05-01 18:57) [0]

Program Party;
Uses Vine, Zakus, Condoms;
{$I Variable.Pas}

Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
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 Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If WhoGirl Then Write("Are yor sodomite ??!");
Find(DarkRoom);
Close(Door_and_windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyTable;
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;
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

---

← →
drpass ©   (2002-05-01 19:16) [1]

Чего-то не компилируется. Где ты брал модули Vine, Zakus и Condoms? На мыло можешь кинуть? :)
А если честно, эта "прога" старая, как Fortran :)

---

← →
VID ©   (2002-05-01 19:34) [2]

to drpass: модули Vine, Zakus, Condoms надо брать в соответствующих магазинах и аптеках :)))
если все функции и процедуры правильно наберёшь, то откомпилится и запустится ;)

---

← →
PaRL ©   (2002-05-01 19:40) [3]

Ух-ты... хорошая программка :)

---

← →
drpass ©   (2002-05-02 00:14) [4]

А вот сегодня нашел в дебрях винта. Не помню, где скачал, и кто автор. Так что уж пусть извинит, если увидит.
Исходники Win98
#include "win31.h"
#include "win95.h"
#include "evenmore.h"
#include "oldstuff.h"
#include "billrulz.h"
#include "monopoly.h"
#define INSTALL = HARD
char make_prog_look_big[1600000];
void main()
{
while(!CRASHED)
{
display_copyright_message();
display_bill_rules_message();
do_nothing_loop();
if (first_time_installation)
{
make_50_megabyte_swapfile();
do_nothing_loop();
totally_screw_up_HPFS_file_system();
search_and_destroy_the_rest_of_OS/2();
disable_Netscape();
disable_RealPlayer();
disable_Corel_Products();
hang_system();
}
write_something(anything);
display_copyright_message();
do_nothing_loop();
do_some_stuff();
if (still_not_crashed)
{
display_copyright_message();
do_nothing_loop();
basically_run_windows_3.1();
do_nothing_loop();
do_nothing_loop();
}
}
if (detect_cache())
disable_cache();
if (fast_cpu())
{
set_wait_states(lots);
set_mouse(speed, very_slow);
set_mouse(action, jumpy);
set_mouse(reaction, sometimes);
}
/* printf("Welcome to Windows 3.11"); */
/* printf("Welcome to Windows 95"); */
printf("Welcome to Windows 98");
if (system_ok())
crash(to_dos_prompt)
else
system_memory = open("c:\windows\win386.swp", O_CREATE);
while(something)
{
sleep(5);
get_user_input();
sleep(5);
act_on_user_input();
sleep(5);
}
create_general_protection_fault();
}

---

← →
TF8   (2002-05-02 00:17) [5]

I was here!!!!

---

← →
PaRL ©   (2002-05-02 17:51) [6]

> I was here!!!!


PaRL was here.

---

← →
MisterBin ©   (2002-05-02 18:55) [7]

>PaRl
>TF8

I was Here

---

← →
PaRL ©   (2002-05-02 18:58) [8]

Началось...

---

← →
Rammish ©   (2002-05-02 20:45) [9]

>PaRl
>TF8
>MisterBin

I"ve been to the place you"ve said you were to be.

---

← →
Doom ©   (2002-05-03 00:24) [10]

>PaRl
>TF8
>MisterBin

>Rammish

I"d been long ago before you were to the place they"ve said they were to

---

← →
VID ©   (2002-05-03 03:08) [11]

Особено забавен фрагмент:


> /* printf("Welcome to Windows 3.11"); */
> /* printf("Welcome to Windows 95"); */
> printf("Welcome to Windows 98");
>


:)))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.008 c