Мы с Веником в коц-чате, ожидается ли еще кто?

Shura, а в глаз?!!

Да и вообще - за что в глаз? Увольте. Все равно извиняюсь.

Отредактировано Shura (2005-11-13 21:32:15)

А как же! Паскаль, ассемблер, делфи, пролог... Ещё что-то было.
Сдала экзамен, значит - знаю. Это официальная версия. Суровую реальность трогать не будем.
Ой, щас такую клёвую прогу тут всуну, мне приятель прислал. Я долго хохотала.

Сивыч, ты оцени! Я у лаборантов пароль спёрла! гордись мной!
{ Едем в Подольск, Version 1.02 }
{ Copyright © 1999,2000 by Sergey V. Efimoff }

{ Все, что вы увидите ниже, было написано холодным ветреным вечером }
{ в декабре 1999 года под впечатлением одной из многочисленных }
{ поездок домой в объекте класса общественного транспорта, }
{ называемого электричкой. Итак, понеслась... }

{ ... }

Weather.Create;
Weather.Snow.Initialize;
Weather.Wind.Initialize;
Weather.Conditions(Degrees.Zero, Wetness.95%;

People.Bind(Platform);
Timer:=Platform.People.Clock.Minutes;
MaxWait:=32;

while not Train.Arrived do begin
if Platform.People.Clock.Minutes-Timer>MaxWait then begin
Platform.People.ТвоюМать('Да где же эта чертова электричка?!'
Timer:=Platform.People.Clock.Minutes;
if MaxWait>1 then MaxWait:=MaxWait div 2 else begin
Platform.People.ТвоюМать(ОЧЕHЬ_СИЛЬHО);
MaxWait:=32;
end;
end else
Platform.People.Walk(Platform)
end;

for Stations in [Царицыно..Подольск] do begin
Train.Show;
Train.Stop;
Platform.People.ТвоюМать('Как всегда, набитая! ;-(';
Train.Doors.Open;
Train.People.FallOut(Platform);

{ People are going to enter the train... }

Counter:=Platform.People.Push(@Self, Train, CNT_Till_глаза_на_лбу);
Platform.People.Push(@Self,Train,Counter*2);

while not Train.Moves do begin
Platform.People.ТвоюМать('Еще одного!!! Hу в сеpедине же пусто совсем!!!';
Train.People.ТвоюМать('у куда вы лезете - не видите, места нет!';
Train.Driver.ТвоюМать('Идите все к черту, а я закрываю двери! ;-E';
Platform.People.Push(@Self.Train,1);
Train.People.DeepВыдох;
end;

Train.StartMove;

try
Train.Doors.Close;
except
Train.Doors.Open;
Train.People.FallOut(Railway);
Train.Doors.Close;
finally
Train.Doors.Lock;
end;

Babka:=Train.People.ExecSQL('SELECT * FROM People '+
'WHERE People.Age>60 AND People.Sex=UNDEFINED AND
People.Flags=(самое_толстое AND самое_вредное)';

{ Every time you eat ... }

Babka.Bag.Fish.StartSmell;

while Train.Moves do begin
Babka.TurnAround;
Train.People.ТвоюМать('Долго ты еще будешь вертеться?!';
Babka.ТвоюМать('А что, нельзя? а себя посмотри, алкаш!';
Train.People.ТвоюМать(WM_SEND_FAR);
Babka.Idle(Time.Seconds.10);
end;

People1:=Train.People.ExecSQL('SELECT * FROM People WHERE People.Out:=WILL';
People2:=Train.People.ExecSQL('SELECT * FROM People WHERE People.Out:=WONT';
People3:=Train.People.ExecSQL('SELECT * FROM People WHERE People.Out:=CANT';

{ Action 1 }

People1.Ask(Train.People[People2], 'Вы выходите?';
People2.Message('Нет';

{ Action 2 }

People2.Kick(People1);
People2.ТвоюМать('Куда прешься???';
People1.ТвоюМать(WM_SEND_FAR);

{ Action 3 }

People3.Kick(People2);
People3.ТвоюМать('Ну пройди в середину, че встал как пенек у входа?!';
People2.ТвоюМать(WM_SEND_FAR);

end;

Train.People.Pop(@Self, Train, All);
People.Bind(BusStation);
BusStation.People.DeepВдох;

while not Bus.Arrived do BusStation.People.Idle(тупо_уставившись_на_расписание);

Bus:=Class(Train);

{ ... }

Абсолютное зло.
Пидоры они.

Расслабься, всё хорошо.

Дрючить... У вас нет дяди Вовы, и СК. Вас не могут дрючить, не надо мне рассказывать, что такое дрючить...

Товарищи, зачем загаживать форум, коли можно раз такое кол-во народу собралось, в чат идти и, во-первых, быстро, во-вторых, удобно пообщаться? Черт возьми

Я подумаю.

Олег Олегыч, когда ж наконец будет опубликовано некопирующееся видео? Я, кстати, те 2 видео, что были сняты при держании фотоаппарата под углом 90 градусов, повернул в нормаольное положение, кому надо - могу предоставить либо сами делайте.