пятница, 27 июля 2007
03:00

к дню сисадмина

Гэлнэрэн
Кто любовь потерял, превращается в лёд...

! program Елочка;

Begin

Лес.елочка.create();

While not Лес.елочка.dead do

Begin

лес.елочка.age := лес.елочка.age+1;

if зима or лето then

begin

лес.елочка.plain := true;

лес.елочка.color := cl_green;

end;

метель.filename:=?D:MusicNSYNC - Bye Bye Bye.mp3?;

метель.open;

sleep(1000);

метель.play;

мороз.укутать(лес.елочка);

GetMessage(H, лес.елочка.handle, 0, 0);

if h.uint = wm_замерзла then

dead := true;

end;

лес.заяц.create;

лес.заяц.трусливый := true;

лес.заяц.color := cl_gray;

x := лес.елочка.left;

y := лес.елочка.top;

While x

Begin

лес.заяц.left := x;

inc(x);

лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );

end;

Winexec(?wolf3d.exe /evil?,0);

лес.елочка.cuttoclipboard;

Праздник.pastefromclipboard;

Праздник.елочка.skin.loadfromfile(?нарядная.jpg?);

For i:=1 to SizeOf(Праздник.елочка.радость) do

Праздник.Дети.Настроение + Праздник.елочка.радость;

End.


URL
Комментарии
27.07.2007 в 03:04

LediLilith
Весь мир и новые коньки в придачу
С праздником тебя, сисадмин!
URL
27.07.2007 в 12:35

Гэлнэрэн
Кто любовь потерял, превращается в лёд...
Я-то не админ, я злобный программер.
URL
27.07.2007 в 17:19

HinArien
Ахх. Школьные годы, паскаль, Делфи, Си...
URL
28.07.2007 в 20:08

Гость
"лес.заяц.трусливый := true;"

Фи, какая модель примитивная. Лучше лес.заяц.трусость := random(101); и кидать процентник в случае необходимости. :)

Каин

З.Ы. 0-100 - это не косяк, это шанс создать зайца-героя. Хотя логичнее было бы сделать свойство "храбрость".

З.З.Ы. Не пиши так больше - меня минут пять вшторивало из-за смеси перл/c/делфи/1с. :)

З.З.З.Ы. Не откомпилируется. :)
URL
29.07.2007 в 05:15

Гэлнэрэн
Кто любовь потерял, превращается в лёд...
Каин, это не я, это АСУшники :) Мне сейчас транзактSQLя хватает. Замешанного на той же дельфе.
Дэнженист, блин.
URL