Для всех админов, и не очень
 

Прислал мне тут друг письмецо с поздравлением...
Почитайте, оцените...:contract: :xex:

program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
begin
Лес.елочка.age:=Лес.елочка.age+1;
if Зима or Лето then
begin
Лес.елочка.plain:=true;
Лес.елочка.color:=cl_green;
end;

метель.filename:="`D:"Music"NSYNC- 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.

С наступающим!!!

andRUS
а какой это язык получился если не секркт ? :D)))

класс ! мне понравилось ! этож на Делфях :))))))

andRUS
Прикольно но уже есть здесь....
http://www.imho.ws/showthread.php?s=...7&pagenumber=2
будем внимательны в следущий раз и учимся пользоваться поиском.

вау. круто.. вот если б все песенки так писали .. :xex:

2maskman
Oops... Мда, все-таки следующий год - это год барана, по-любому...
Really Sorry...
За совет - спасибо
ЗЫ. А не вы ли послали ЭТО моему другу?:smile:
ЗЫ2. Не, мля, ну надо же было так облажаться под новый год!!!
ЗЫ3. ИСЧО раз Really Sorry...