Armenian Knowledge Base  

Go Back   Armenian Knowledge Base > General Discussions > Fun
Register

Reply
 
LinkBack Thread Tools
Old 08.06.2004, 19:09   #1
Moderator
 
Gates's Avatar
 
Join Date: 02 2002
Location: Armenia
Age: 37
Posts: 5,226
Downloads: 0
Uploads: 0
Reputation: 262 | 5
Default В лесу родилась елочка...

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
Reply With Quote
Old 08.06.2004, 19:11   #2
Moderator
 
acid's Avatar
 
Join Date: 09 2001
Location: South Korea, Gumi
Posts: 7,699
Downloads: 102
Uploads: 34
Blog Entries: 16
Reputation: 561 | 6
Default

А под Delphi это делу будет компилиться?
Reply With Quote
Reply

Thread Tools


На правах рекламы:
реклама

All times are GMT. The time now is 19:38.


Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.